Produced by Araxis Merge on 11/9/2018 12:34:01 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 | CHMLAI2.m | Mon Nov 5 16:42:38 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAI2.m | Mon Nov 5 17:49:54 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 164 |
Changed | 2 | 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 | CHMLAI2 ;M CR/DEN;Loa d AI test into HCPCS ;03/08/99 11:26 AM | |
2 | ;V 1.0 | |
3 | ;JEH 10/2 2/07 ENC00 0118: P&C add codes for paymen t | |
4 | ;DPT MTN0 19951 2014 UPDATE | |
5 | ; DEV0165 54 DEV0128 93 CHANGE EOF REPLAC E DECNET | |
6 | ;R1871937 8FY18 DPT 2/12/18 CH ANGE AI RE MOVE ENVIR ONMENT CHE CK | |
7 | D ENVIR | |
8 | S CDCOL=1 ;CODE AI COLUMN IN PMPAY SPRE ADSHEET | |
9 | S CVCOL=8 ;CVA AI C OLUMN IN P MPAY SPREA DSHEET | |
10 | S SBCOL=9 ;SB AI CO LUMN IN PM PAY SPREAD SHEET | |
11 | K ^CHMZHO LD("CHMLAI 2") | |
12 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV012893 DPT | |
13 | ;O FILE:" R":5 | |
14 | ;S $ZE="" ,$ZT="END" | |
15 | S CNT=0 | |
16 | S POP=0,C NTR=0 ;DEV 012893 DPT | |
17 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D ;DEV 012983 DPT | |
18 | . X "D $SYSTEM.Pr ocess.SetZ EOF(1)" ; DEV016554 | |
19 | . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E") ;DEV01 2893 DPT | |
20 | .Q ;DEV 012893 DPT | |
21 | I 'POP G END ;DEV0 12893 DPT | |
22 | ||
23 | ;U FILE | |
24 | F U FILE R REC G:$ $STATUS^%Z ISH END D ;DEV16554 DPT | |
25 | .S CNT=C NT+1 | |
26 | .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",CVCOL) | |
27 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
28 | .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV | |
29 | .D AIUPDT | |
30 | .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",SBCOL) ;MTN019951 | |
31 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
32 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV | |
33 | .D AIUPDT | |
34 | END S CNT= CNT+1 ; | |
35 | D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT | |
36 | ;C FILE | |
37 | X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DEV 016554 DPT | |
38 | S ^CHMZHO LD("CHMLAI 2",0)=$G(C NT) ;DEV0 16554 DPT | |
39 | Q | |
40 | ENVIR ; | |
41 | ;S AYGSYS =XQVOL | |
42 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
43 | ;S ENVIR= AYGSYS | |
44 | ;S ENVIR= $$ENVIR^CH TFLIB ;MTN02 4995 2016 HCPCS UPDA TE | |
45 | ;S DIR("B ")=ENVIR | |
46 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
47 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
48 | ;S DIR("L ",2)="" | |
49 | ;S DIR("L ",3)=" 1 LIVE" | |
50 | ;S DIR("L ",4)=" 2 TRAIN" | |
51 | ;S DIR("L ",5)=" 3 TEST" | |
52 | ;S DIR("L ",6)=" 4 DEV" | |
53 | ;S DIR("L ",7)="" | |
54 | ;S DIR("L ")=" ^ QUIT" | |
55 | ;D ^DIR K DIR | |
56 | ;Q:$D(DUO UT) | |
57 | ;Q:Y="" | |
58 | ;Q:Y="^"! (Y="") | |
59 | ;S ENVIR= Y(0) | |
60 | ;S $ZE="" ,$ZT="END" | |
61 | ;SET ICD- 9 DX FILE NAME | |
62 | U 0 W ! | |
63 | S DIR(0)= "F^3:50" | |
64 | S DIR("A" )="Enter H CPCS file name (hcpc _2008_AI_T ESTS.txt)" D ^DIR K DIR | |
65 | Q:$D(DUOU T) | |
66 | Q:Y="^"!( Y="") | |
67 | S CNAME=Y K DIR | |
68 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ;R1871 9378FY18 D PT 2/12/18 | |
69 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. HCPCUPDT." _ENVIR_"]" _CNAME ; NAME OF HCPCS FILE ; | |
70 | ;N FOLDER ,CNTR | |
71 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
72 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
73 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
74 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
75 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
76 | ;S FILE=F OLDER_FILE | |
77 | ;S FLDR=" /FS3BIG/CO DEUPDT/HCP CUPDT/"_UC I | |
78 | Q | |
79 | AIUPDT ;UP DATES THE AI GBLS ; JEH 1/7/08 ADD SUBRT N | |
80 | S:DUZ="" DUZ=1 | |
81 | S ERR=$$^ CHMLAI2L(C HPGPT,CODE ,TEST,DUZ) | |
82 | S:ERR]"" ^CHMZHOLD( "CHMLAI2", ERR)="" | |
83 | Q | |
84 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.