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 | CHMLCMAA.m | Mon Nov 5 16:44:59 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCMAA.m | Mon Nov 5 17:50:00 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 290 |
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 | CHMLCMAA ; JEH/DEN;LO AD ANESTHE SIA DATA I NTO ^CHMCP F FILE;08/ 22/06 11: 39 AM | |
2 | ;V1.0 | |
3 | ;*** COPY OF ^CHMLC MAJ - MODI FIED TO PR OCESS ANES THESIA COD ES *** JE H | |
4 | ;MC212 JE H 8/22/06 INITIAL CO DING FOR A NESTHESIA CODES | |
5 | ;DEV01655 4 DEV12893 DPT CHANG E EOF CHEC K REPLACE DECNET 1/2 7/14 | |
6 | ;R1871972 6FY18 DPT 2ANESTHESI A DATA EFF 3/1/18 | |
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 | ;SET ENVI RONMENT | |
13 | ;S AYGSYS =XQVOL | |
14 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
15 | ;S ENVIR= AYGSYS | |
16 | ;S DIR("B ")=ENVIR | |
17 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
18 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
19 | ;S DIR("L ",2)="" | |
20 | ;S DIR("L ",3)=" 1 LIVE" | |
21 | ;S DIR("L ",4)=" 2 TRAIN" | |
22 | ;S DIR("L ",5)=" 3 TEST" | |
23 | ;S DIR("L ",6)=" 4 DEV" | |
24 | ;S DIR("L ",7)="" | |
25 | ;S DIR("L ")=" ^ QUIT" | |
26 | ;D ^DIR K DIR | |
27 | ;Q:$D(DUO UT) | |
28 | ;Q:Y="" | |
29 | ;Q:Y="^"! (Y="") | |
30 | ;S ENVIR= Y(0) | |
31 | ;S $ZE="" ,$ZT="END" | |
32 | ;SET CMAC FILE NAME | |
33 | S DIR(0)= "F^3:50" | |
34 | S DIR("B" )="ANESCF1 .Y06" | |
35 | S DIR("A" )="Enter A nesthesia file name (ex. ANESC F1.Y06)" D ^DIR K DI R | |
36 | Q:$D(DUOU T) | |
37 | Q:Y="^"!( Y="") | |
38 | S CNAME=Y K DIR | |
39 | N FOLDER, CNTR | |
40 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
41 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
42 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
43 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
44 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
45 | ;S FILE=F OLDER_FILE | |
46 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "SLA":"LIV E",UCI="HA C":"LIVE") ;DEV01289 3 DPT | |
47 | ;S FLDR=" /FS3BIG/CO DEUPDT/CMA CUPDT/"_CH UCI | |
48 | ; D FTPFI LE^CHTFLIB 9(FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV012893 DPT | |
49 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT." _ENVIR_"]" _CNAME ; NAME OF CMAC FILE | |
50 | ;O FILE:" R":5 | |
51 | S FILE=" HAC_HFS$:[ DSMMANAG.C HAMPVA]"_C NAME ; R18 719726FY18 DPT 2/12/ 18 | |
52 | S POP=0, CNTR=0 ;DE V012893 DP T | |
53 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D ;DE V012893 DP T | |
54 | . X "D $SYSTEM.Pr ocess.SetZ EOF(1)" ; DEV016554 DPT | |
55 | . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E") ;DEV0 12893 DPT | |
56 | .Q ;DEV0 12893 DPT | |
57 | I 'POP G END ;DEV01 2893 DPT | |
58 | W !!,"Inp ut Device: ",!,FILE | |
59 | W !!,"Is this corre ct? " D SB RS | |
60 | W ! | |
61 | Q:$D(DFOU T) Q:$D(D UOUT) I $ D(DQOUT) D G BEGIN | |
62 | .W !!,"En ter 'Y' or 'N'. " | |
63 | Q:Y="" | |
64 | S Y=$E(Y ,1) I "ynY N"'[Y W *7 ," ??" G B EGIN | |
65 | G BEGIN:" Nn"[Y | |
66 | S STARTFL ="" | |
67 | QUEC ; | |
68 | ;S IOP="Q " D ^%ZIS G QEND:POP | |
69 | S CHFIO=I ON | |
70 | S ZTRTN=" START^CHML CMAA",ZTDE SC="LOAD A NESTHESIA UPDATE",ZT IO="" | |
71 | S ZTSAVE( "CHFIO")=" ",ZTSAVE(" FILE")="", ZTSAVE("CH LSRNDT")=" ",ZTSAVE(" CHEFFDT")= "" | |
72 | S:$D(STAR TFL) ZTSAV E("STARTFL ")="" | |
73 | ;D ^%ZTLO AD | |
74 | G START ; JEH <- ---------- ---------- ---------- -REMOVE AF TER TESTIN G | |
75 | QEND K CM, CHEFFDT,CH FIO,D,PG,T IME,DATE,C HNEWCT Q | |
76 | ; | |
77 | START ; | |
78 | ;K X,^CHM ZHOLD("CMA C-DTERR") | |
79 | S (CM,CHN EWCT)=0 | |
80 | S $ZE="", $ZT="END^C HMLCMAA" | |
81 | ||
82 | ||
83 | A1 ; | |
84 | F U FILE R X G:$$ STATUS^%ZI SH END D ; DEV016554 DPT | |
85 | .;U 0 W ! ,X ;UNC OMMENT FOR TESTING P URPOSES | |
86 | .S (CHM1, CHM3)=0 | |
87 | .S CHCPDT =$E(X,18,2 5),CHEFFDT =$$YR8FMYR ^CHTFLIB(C HCPDT) ; EFFECTIVE DATE | |
88 | .S CHCPDT =$E(X,34,4 1) | |
89 | .I CHCPDT =99999999 S CHTRMDT= "" | |
90 | .E S CHT RMDT=$$YR8 FMYR^CHTFL IB(CHCPDT) ;T ERMINATION DATE | |
91 | .S CHREVD T=9999999- CHEFFDT ;R EVERSE DAT E | |
92 | .S CHCLOC =$E(X,1,3) ,CHCLOC=+C HCLOC ;C HAMPUS Loc ality No. | |
93 | .S CHM1=+ $$LTRIM^CH TFLIB($E(X ,4,9))/100 ;P HYSICIAN C F (2 impl ied decima ls) | |
94 | .S CHM3=+ $$LTRIM^CH TFLIB($E(X ,10,15))/1 00 ;N ONPHYSICIA N CF (2 i mplied dec imals) | |
95 | .S CHCPTR =0 F S CH CPTR=$O(^C HMSERV(CHC PTR)) Q:'C HCPTR D | |
96 | ..I $D(^C HMSERV(CHC PTR,4)) D | |
97 | ...S CHCP T=$P(^CHMS ERV(CHCPTR ,0),"^",1) | |
98 | ...I '$D( ^CHMCPF("B ",CHCPT)) D NEW G CO NT | |
99 | ...S DA=$ O(^CHMCPF( "B",CHCPT, 0)) I 'DA D NEW G CO NT | |
100 | CONT ...; | |
101 | ...F I=CH CLOC:-1 Q: I#8=1 | |
102 | ...S $P(^ CHMCPF(DA, I,9999999- CHEFFDT,0) ,U,1)=CHEF FDT | |
103 | ...S CHPC =1 F J=CHC LOC:-1 Q:J #8=1 S CH PC=CHPC+1 | |
104 | ...S STR= CHM1_";;"_ CHM3_";;C" | |
105 | ...I '$D( ^CHMCPF(DA ,I,CHREVDT ,0)) S ^CH MCPF(DA,I, CHREVDT,0) ="" | |
106 | ...S STR2 =$P(^CHMCP F(DA,I,CHR EVDT,0),"^ ",2) | |
107 | ...S $P(S TR2,",",CH PC)=STR | |
108 | ...S ^CHM CPF(DA,I,C HREVDT,0)= CHEFFDT_"^ "_STR2 | |
109 | ...;U 0 W !,^CHMCPF (DA,I,CHRE VDT,0)," = ",CHEFFDT ," ^ ",STR 2,?65,"DA = ",DA ;UNCOMMENT FOR TESTI NG PURPOSE S | |
110 | Q | |
111 | END ;C FIL E | |
112 | D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT | |
113 | X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT | |
114 | K CHCLOC, CHCPT,CHI, CHM1,CHM2, CHM3,CHM4, CHPC,CHREV DT,CHA | |
115 | K CHC,CHD ,CHE,FILE, CHY,DA,DIE ,DR,I,J,ST R,STR2,STR G,STRG2,X, Y,CHLSRNDT | |
116 | K NOSTFL, CHCPDT,CHC MPDT | |
117 | QUEP S %ZI S="Q",IOP= "Q;"_CHFIO D ^%ZIS G QPEND:POP | |
118 | S ZTRTN=" ^CHMLCMA8" ,ZTDTH=$H K ZTIO | |
119 | S ZTSAVE( "CM")="",Z TSAVE("CHE FFDT")="", ZTSAVE("CH NEWCT")="" | |
120 | D ^%ZTLOA D | |
121 | QPEND Q | |
122 | ; | |
123 | NEW L ^CHM CPF(0) S ( CHI,DA)=$P (^CHMCPF(0 ),"^",3)+1 | |
124 | S $P(^CHM CPF(0),"^" ,3)=DA,$P( ^CHMCPF(0) ,"^",4)=$P (^CHMCPF(0 ),"^",4)+1 L | |
125 | S ^CHMCPF ("B",CHCPT ,DA)="" | |
126 | S ^CHMCPF (DA,0)=CHC PT,CHNEWCT =CHNEWCT+1 | |
127 | Q | |
128 | SBRS D CSB RS^CHSC2 Q | |
129 | R Y:$S($D (DTIME):DT IME,1:60) | |
130 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
131 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
132 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
133 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
134 | Q | |
135 | DEC F A=1: 1:5 Q:$E(B ,A)'=0 | |
136 | Q:B["." | |
137 | S B=$E(B, A,8) S LEN =$L(B),LEN 1=LEN-1,LE N2=LEN-2 | |
138 | S B=$E(B, 1,LEN2)_". "_$E(B,LEN 1,LEN) | |
139 | Q | |
140 | ZEROOUT ;R EMOVES PRE CEEDING NO NSIGNIFICA NT DIGITS | |
141 | Q | |
142 | F P=1:1:$ L(B)-1 Q:$ E(B,1)'=0 S B=$E(B, 2,8) | |
143 | Q | |
144 | ; | |
145 | DTERR S CM =CM+1,^CHM ZHOLD("CMA C-DTERR",C M)=X Q ;F IND DATE D ISCREPANCI ES IN FILE | |
146 | ; | |
147 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.