Produced by Araxis Merge on 11/9/2018 12:34:03 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCMAJ.m | Mon Nov 5 16:44:06 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCMAJ.m | Mon Nov 5 17:50:00 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 124 |
Changed | 1 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | CHMLCMAJ ; JEH/DEN;LO AD INJECTA BLES (J-CO DE) DATA I NTO ^CHMCP F FILE;08/ 22/06 11: 39 AM | |
2 | ;V1.0 | |
3 | ;*** COPY OF ^CHMLC MA7 - MODI FIED TO PR OCESS J-CO DES *** J EH | |
4 | ;MC212 JE H 8/22/06 INITIAL CO DING FOR J -CODES | |
5 | ;DEV01655 4 DEV01289 3 EOF REPL ACE DECNET | |
6 | ;MTN DPT MODIF Y ROUTINE TO OMIT CH ECK FOR EN VIRONMENT. ADD EDIT TO EXCLUDE 383 AND 3 91 | |
7 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
8 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
9 | I '$D(IOZ ) S %IS="N ",IOP=$I D ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS | |
10 | ; | |
11 | BEGIN ;SET CURRENT A ND LAST EF FECT DATE | |
12 | W !! S %D T="AEX",%D T("A")="En ter effect ive date: (MM/DD/YY) " D ^%DT Q:X="" Q: Y=-1 S CH BEGDT=Y | |
13 | W !! S %D T="AEX",%D T("A")="La st effecti ve date: ( MM/DD/YY) " D ^%DT Q :X="" Q:Y =-1 S CHL SRNDT=Y,CH LSTRDT=Y ;JEH AD D '-Y' AFT ER INITIAL LOAD/UPDA TE | |
14 | ;AUTO GET LAST EFF DATE | |
15 | ;S I=0,I= $P(^CHMCPF (0),"^",3) | |
16 | ;S J=0,J= $O(^CHMCPF (I,J)) | |
17 | ;S K=9999 999,K=$O(^ CHMCPF(I,J ,K),-1) | |
18 | ;S CHLSRN DT=K | |
19 | ; | |
20 | ;SET ENVI RONMENT | |
21 | ;S AYGSYS =XQVOL | |
22 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
23 | ;S ENVIR= AYGSYS | |
24 | ;S DIR("B ")=ENVIR | |
25 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
26 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
27 | ;S DIR("L ",2)="" | |
28 | ;S DIR("L ",3)=" 1 LIVE" | |
29 | ;S DIR("L ",4)=" 2 TRAIN" | |
30 | ;S DIR("L ",5)=" 3 TEST" | |
31 | ;S DIR("L ",6)=" 4 DEV" | |
32 | ;S DIR("L ",7)="" | |
33 | ;S DIR("L ")=" ^ QUIT" | |
34 | ;D ^DIR K DIR | |
35 | ;Q:$D(DUO UT) | |
36 | ;Q:Y="" | |
37 | ;Q:Y="^"! (Y="") | |
38 | ;S ENVIR= Y(0) | |
39 | ;S $ZE="" ,$ZT="END" | |
40 | ;SET CMAC FILE NAME | |
41 | S DIR(0)= "F^3:50" | |
42 | S DIR("A" )="Enter I njectable Drug (J-co de) file n ame (INJV1 07.TXT)" D ^DIR K DI R | |
43 | Q:$D(DUOU T) | |
44 | Q:Y="^"!( Y="") | |
45 | S CNAME=Y K DIR | |
46 | ;N FOLDER ,CNTR ;DE V016554 DP T | |
47 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" ;DEV016554 DPT | |
48 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
49 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
50 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
51 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
52 | ;S FILE=F OLDER_FILE ;DEV01655 4 DPT | |
53 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893 DPT | |
54 | ;S FLDR=" /FS3BIG/CO DEUPDT/CMA CUPDT/"_CH UCI ;DEV01 6554 DPT | |
55 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
56 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT." _ENVIR_"]" _CNAME ; NAME OF INJECTABLE FILE | |
57 | ;S POP=0, CNTR=0 ;DE V016554 DP T | |
58 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;DE V016554 DP T | |
59 | ; . X "D $SYSTEM.P rocess.Set ZEOF(1)" ; DEV016554 DPT | |
60 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT | |
61 | ; .Q ;DEV 016554 DPT | |
62 | ;I 'POP G END ;DEV 016554 DPT | |
63 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ; MTN DPT | |
64 | O FILE:"R ":5 ;MTN DPT |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.