156. EPMO Open Source Coordination Office Redaction File Detail Report

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.

156.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAFS1.m Mon Nov 5 16:41:48 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAFS1.m Mon Nov 5 17:49:53 2018 UTC

156.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 5 554
Changed 4 8
Inserted 0 0
Removed 0 0

156.3 Comparison options

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

156.4 Active regular expressions

No regular expressions were active.

156.5 Comparison detail

  1   CHMLAFS1 ; JEH/CHV;DA TA LOAD AF S ZIP5 AND  ZIP9 FILE S;07/26/10   8:40 AM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;
  4    ;DEV00369 8 - INTALL  PPS AMBUL ANCE FEE S CHEDULE
  5    ;
  6    ;THIS ROU TINE LOADS  THE FOLLO WING DATA  FILES INTO  CP&E:
  7    ;      ZI P5 CODE TO  LOCALITY  RECORD     (EXAMPLE:  ZIP5_APR10 .TXT, ZIP5 _JUL10_V2)
  8    ;      ZI P9 CODE TO  LOCALITY  RECORD     (EXAMPLE:  ZIP9_APR10 .TXT, ZIP9 _JUL10_V2)
  9    ;
  10    ;GLOBAL:
  11    ;               ^CHM DIC(741038 ) - CHAMPV A AMBULANC E ZIP CODE  TO LOCALI TY
  12    ;               ^CHM ZHOLD("CHM LAFS","ZIP 5",     -  TEMP GLOBA L TO HOUSE  EFFECTIVE  DATE + ZI P 5 DATA
  13    ;               ^CHM ZHOLD("CHM LAFS","ZIP 9",     -  TEMP GLOBA L TO HOUSE  EFFECTIVE  DATE + ZI P 9 DATA
  14    ;MTN02009 2 DEV01655 4 CODE UPD ATE EOF RE PLACE DECN ET 1/13/14
  15    ;MTN02657 7 DPT JUL2 016 UPDATE . LAYOUT F OR ZIP5 CH ANGED
  16    ;R1922288 5FY18  DPT  3/13/18 A PRIL AMB L OAD OF SIP  TO LOCALI TY ZIP5 ZI P9. REMOVE  EDIT OF E NRIVORNMEN T
  17    ;
  18   START ;
  19    D INIT
  20    Q:$D(DUOU T)
  21    G:EFFDATE ="^" END
  22    I FTYPE=5  D    ;GET TING & LOA DING ZIP5  DATA INTO  ^CHMDIC(74 1038)
  23    .D GTZP5
  24    .I $D(^CH MZHOLD("CH MLAFS","ZI P5",CHDLRJ )) D
  25    ..S DIR(0 )="Y",DIR( "A")="OK T O UPDATE Z IP5 GLOBAL ",DIR("B") ="NO" D ^D IR K DIR
  26    ..I Y=1 D
  27    ...S CHLD GB=5
  28    ...D QUEA ^CHMLAFS1    ;TASKING  GLOBAL DA TA UPDATE
  29    ..I Y=""   D CHTOMSG ^CHMLAFS1( 5,CHDLRJ,C HFLDT)  ;  UPDATE TIM ED OUT MES SAGE
  30    I FTYPE=9  D   ;GETT ING & LOAD ING ZIP9 D ATA INTO ^ CHMDIC(741 038)
  31    .D GTZP9
  32    .I $D(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ )) D
  33    ..S DIR(0 )="Y",DIR( "A")="OK T O UPDATE Z IP9 GLOBAL ",DIR("B") ="NO" D ^D IR K DIR
  34    ..I Y=1 D
  35    ...S CHLD GB=9
  36    ...D QUEA ^CHMLAFS1    ;TASKING  GLOBAL DA TA UPDATE
  37    ..I Y=""   D CHTOMSG ^CHMLAFS1( 9,CHDLRJ,C HFLDT)  ;  UPDATE TIM ED OUT MES SAGE
  38    D END
  39    Q
  40   GTZP5 ;GAT HERING ZIP 5 DATA
  41    U 0 W !!, "Reading i n ZIP5 Dat a...",!
  42    ;S $ZE="" ,$ZT="ENDC ^CHMLAFS1"
  43    N FOLDER, CNTR  ;DEV 016554 DPT
  44       S IOF= "#,*27,*91 ,*50,*74,* 27,*91,*72 " ;DEV0165 54 DPT
  45       S FILE =FNAME,FOL DER="" ;DE V016554 DP T
  46       X ^%ZO SF("UCI")  S UCI=$P(Y ,",",1) ;D EV016554 D PT
  47       ;S FOL DER="HAC_H FS$:[SCR.T EMP_FILES] " ;DEV0165 54 DPT
  48       ;I UCI '="HAC" 
  49       S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DEV016 554 DPT
  50       S FILE =FOLDER_FI LE ;DEV016 554 DPT
  51       ;S CHU CI=$S(UCI= "DEV":"DEV ",UCI="HAD TST":"DEV" ,UCI="TST" :"TEST",UC I="TRN":"T RAIN",UCI= "SLA":"LIV E",UCI="HA C":"LIVE")  ;MTN  DPT   DEV01289 3 DPT
  52       ;S FLD R="/FS3BIG /CODEUPDT/ AMBUPDT/"_ CHUCI ;DEV 016554 DPT
  53         ;D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  54       ;H 5
  55    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. AMBUPDT."_ ENVIR_"]"_ FNAME
  56    ;O CHIO:" R":5
  57    S POP=0,C NTR=0 ;DEV 016554 DPT
  58       F  S C NTR=CNTR+1  Q:(CNTR>5 )!POP  D ; DEV016554  DPT
  59       .X "D  $SYSTEM.Pr ocess.SetZ EOF(1)" ;D EV016554 D PT
  60       .S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT
  61       .Q ;DE V016554 DP T
  62       I 'POP  G ENDC  ; DEV016554  DPT
  63    
  64    S CTR=0
  65    F  U FILE  R REC G:$ $STATUS^%Z ISH ENDC D  ;DEV01655 4 DPT
  66    .Q:$A(REC )=26   ;ER RONEOUS DA TA IN FILE  CHECK
  67    .S CTR=CT R+1
  68    .S ^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R)=EFFDATE _"^"_REC
  69    Q
  70   GTZP9 ;GAT HERING ZIP 9 DATA
  71    U 0 W !!, "Reading i n ZIP9 Dat a...",!
  72    ;S $ZE="" ,$ZT="ENDC ^CHMLAFS1"
  73    N FOLDER, CNTR  ;DEV 016554 DPT
  74       S IOF= "#,*27,*91 ,*50,*74,* 27,*91,*72 " ;DEV0165 54 DPT
  75       S FILE =FNAME,FOL DER="" ;DE V016554 DP T
  76       X ^%ZO SF("UCI")  S UCI=$P(Y ,",",1) ;D EV016554 D PT
  77       ;S FOL DER="HAC_H FS$:[SCR.T EMP_FILES] " ;DEV0165 54 DPT
  78       ;I UCI '="HAC" 
  79       S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DEV016 554 DPT
  80       S FILE =FOLDER_FI LE ;DEV016 554 DPT
  81       ;S CHU CI=$S(UCI= "DEV":"DEV ",UCI="HAD TST":"DEV" ,UCI="TST" :"TEST",UC I="HACTST" :"TEST",UC I="TRN":"T RAIN",UCI= "SLA":"LIV E",UCI="HA C":"LIVE")  ;MTN    D PT DEV0128 93 DPT
  82       ;S FLD R="/FS3BIG /CODEUPDT/ AMBUPDT/"_ CHUCI ;DEV 016554 DPT
  83         ;D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  84       ;H 5
  85    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. AMBUPDT."_ ENVIR_"]"_ FNAME
  86    ;O CHIO:" R":5 
  87    ;Q:$T=0     ;FILE OP EN CHECK 1 =OPEN/0=NO T OPEN
  88    
  89    S POP=0,C NTR=0 ;DEV 016554 DPT
  90       F  S C NTR=CNTR+1  Q:(CNTR>5 )!POP  D ; DEV016554  DPT
  91       . S PO P=$$OPENFI RD^CHTFLIB 9(.FILE,"F ILE") ;DEV 016554 DPT
  92       .Q ;DE V016554 DP T
  93       I 'POP  G ENDC  ; DEV016554  DPT
  94    F  U FILE  R REC G:$ $STATUS^%Z ISH ENDC   D ;DEV0165 54 DPT
  95    .Q:$A(REC )=26   ;ER RONEOUS DA TA IN FILE  CHECK
  96    .S CTR=CT R+1
  97    .S ^CHMZH OLD("CHMLA FS","ZIP9" ,CHDLRJ,CT R)=EFFDATE _"^"_REC
  98    Q
  99    
  100   LDZP5 ;UPD ATE ZIP5 G LOBAL USIN G FM
  101    Q:'$D(^CH MZHOLD("CH MLAFS","ZI P5",CHDLRJ ))
  102    S CTR=0 F   S CTR=$O (^CHMZHOLD ("CHMLAFS" ,"ZIP5",CH DLRJ,CTR))  Q:'CTR  D
  103    .S (CHZPS T,CHZPCD,C HZPCR,CHZP PL,CHZPRI, CHZPPFF,CH ZPPF,CHZPY Q,EFFDATE) =""
  104    .S EFFDAT E=$P(^CHMZ HOLD("CHML AFS","ZIP5 ",CHDLRJ,C TR),"^",1)                                                 ; EFFE CTIVE DATE
  105    .;S CHZPS T=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),1,2)                               ; AL PHA STATE  CODE
  106    .;S CHZPC D=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),3,7)                               ; ZI P CODE
  107    .;S CHZPC R=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),8,12)                              ; ME DICARE PAR T B CARRIE R NUMBER
  108    .;S CHZPP L=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),13,14)                    ;  PRICING LO CALITY
  109    .;S CHZPR I=$TR($E($ P(^CHMZHOL D("CHMLAFS ","ZIP5",C HDLRJ,CTR) ,"^",2),15 ,15)," ")  ; RURAL IN DICATOR    BLANK=URBA N/R=RURAL/ B=SUPER RU RAL
  110    .;S CHZPB L=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),16,17)                    ;  BENE. LAB  CB LOCALIT Y    LAB C OMPETIVE B ID LOCALIT Y - Z1=CBA 1,Z2=CBA2, Z9=NOT A D EMONSTRATI ON LOCALIT Y
  111    .;S CHZPR 2=$TR($E($ P(^CHMZHOL D("CHMLAFS ","ZIP5",C HDLRJ,CTR) ,"^",2),18 ,18)," ")  ; RURAL IN DICATOR 2    WHAT WAS  EFFECTIVE  12/1/2006
  112    .;S CHZPP FF=$E($P(^ CHMZHOLD(" CHMLAFS"," ZIP5",CHDL RJ,CTR),"^ ",2),21,21 )                  ;  PLUS FOUR  FLAG         0=NO +4  EXTENSION/ 1=+4 EXTEN SION
  113    .;S CHZPY Q=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),76,80)                    ;  YEAR/QUART ER (YYYYQ)
  114    .S CHZPST =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",2)                                ;  ALPHA STAT E CODE   M TN026577 D PT 
  115    .S CHZPCD =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",3)                                ;  ZIP CODE               MTN026577  DPT 
  116    .S CHZPCR =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",4)                                ;  MEDICARE P ART B CARR IER NUMBER   MTN02657 7 DPT 
  117    .S CHZPPL =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",5)                                ;  PRICING LO CALITY  MT N026577 DP
  118    .S CHZPRI =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",6)                        ; RURAL IN DICATOR    BLANK=URBA N/R=RURAL/ B=SUPER RU RAL
  119    .S CHZPBL =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",7)                                ;  BENE. LAB  CB LOCALIT Y    LAB C OMPETIVE B ID LOCALIT Y - Z1=CBA 1,Z2=CBA2, Z9=NOT A D EMONSTRATI ON LOCALIT Y MTN02657 7 DPT 
  120    .S CHZPR2 =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",8)               ; RURAL  INDICATOR  2   WHAT W AS EFFECTI VE 12/1/20 06   MTN02 6577 DPT 
  121           .S  CHZPPFF=$ P(^CHMZHOL D("CHMLAFS ","ZIP5",C HDLRJ,CTR) ,"^",9)                                ; PL US FOUR FL AG         0=NO +4 EX TENSION/1= +4 EXTENSI ON  MTN026 577 DPT 
  122    .S CHZPYQ =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",10)                       ; YEAR/QUA RTER (YYYY Q)  MTN026 577 DPT 
  123    .S CHIEN= CHZPCD
  124    .S DIC="^ CHMDIC(741 038,",DIC( 0)="L",X=C HIEN D ^DI C
  125    .I Y=-1 K  DIC Q
  126    .S DA=+Y
  127    .S DIE=DI C
  128    .S DR="1/ ///"_EFFDA TE   ;ZIP5  DATA
  129    .S DR(2,7 41038.01)= "1///"_CHZ PST_";2/// "_CHZPCR_" ;3///"_CHZ PPL_";4/// "_CHZPRI_" ;5///"_CHZ PBL_";6/// "_CHZPR2_" ;7///"_CHZ PPFF_";8// /"_CHZPYQ_ ";9///"_DU Z_";10///" _CHFLDT
  130    .D ^DIE
  131    .K DIE,DR ,DA,Y
  132    D MMMSG(5 )    ;SEND ING MM MES SAGE THAT  REPORT IS  READY
  133    Q
  134   LDZP9 ;UPD ATE ZIP9 G LOBAL USIN G FM
  135    Q:'$D(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ))
  136    S CTR=0 F   S CTR=$O (^CHMZHOLD ("CHMLAFS" ,"ZIP9",CH DLRJ,CTR))  Q:'CTR  D
  137    .S (CHZPS T,CHZPCD,C HZPCR,CHZP PL,CHZPRI, CHZPPFF,CH ZPPF,CHZPY Q,EFFDATE) =""
  138    .S EFFDAT E=$P(^CHMZ HOLD("CHML AFS","ZIP9 ",CHDLRJ,C TR),"^",1)                                                 ; EFFE CTIVE DATE
  139    .S CHZPST =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),1,2)                                ; AL PHA STATE  CODE
  140    .S CHZPCD =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),3,7)                                ; ZI P CODE
  141    .S CHZPCR =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),8,12)                               ; ME DICARE PAR T B CARRIE R NUMBER
  142    .S CHZPPL =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),13,14)                     ;  PRICING LO CALITY
  143    .S CHZPRI =$TR($E($P (^CHMZHOLD ("CHMLAFS" ,"ZIP9",CH DLRJ,CTR), "^",2),15, 15)," ")   ; RURAL IN DICATOR    BLANK=URBA N/R=RURAL/ B=SUPER RU RAL
  144    .S CHZPPF F=$E($P(^C HMZHOLD("C HMLAFS","Z IP9",CHDLR J,CTR),"^" ,2),21,21)                    ;  PLUS FOUR  FLAG         0=NO +4  EXTENSION/ 1=+4 EXTEN SION
  145    .S CHZPPF =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),22,25)                     ;  PLUS FOUR
  146    .S CHZPYQ =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),76,80)                     ;  YEAR/QUART ER (YYYYQ)
  147    .S CHIEN= CHZPCD
  148    .S DIC="^ CHMDIC(741 038,",DIC( 0)="L",X=C HIEN D ^DI C
  149    .I Y=-1 K  DIC Q
  150    .S DA=+Y
  151    .S DIE=DI C
  152    .S DR="2/ ///"_EFFDA TE
  153    .S DR(2,7 41038.02)= "1///"_CHZ PST_";2/// "_CHZPCR_" ;3///"_CHZ PRI_";4/// "_CHZPPFF_ ";5///"_CH ZPYQ_";6// /"_DUZ_";7 ///"_CHFLD T_";8///"_ CHZPPF
  154    .S DR(3,7 41038.28)= "1///"_CHZ PPL_";2/// "_DUZ_";3/ //"_CHFLDT
  155    .D ^DIE
  156    .K DIE,DR ,DA,Y
  157           D  MMMSG(9)     ;SENDING  MM MESSAG E THAT REP ORT IS REA DY
  158    Q
  159   INIT ;INIT ILIZING VA RIABLES
  160    D NOW^%DT C S CHFLDT =%  ;FILE  LOAD DATE
  161    S:'$D(DUZ ) DUZ=1
  162    S CTR=0
  163    S EFFDATE =""
  164    S CHDLRJ= $J
  165    K FNAME
  166    ;DISPLAY  MENU TITLE
  167    S TITLE=" ZIP5/ZIP9  Code to Lo cality Dat a Load"
  168    W ?(39-($ L(TITLE)/2 )),TITLE,! !!
  169    ;SET ENVI RONMENT
  170    ;S ENVIR= $$ENVIR^CH TFLIB
  171    ;S DIR("B ")=ENVIR
  172    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  173    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  174    ;S DIR("L ",2)=""
  175    ;S DIR("L ",3)="   1   LIVE"
  176    ;S DIR("L ",4)="   2   TRAIN"
  177    ;S DIR("L ",5)="   3   TEST"
  178    ;S DIR("L ",6)="   4   DEV"
  179    ;S DIR("L ",7)=""
  180    ;S DIR("L ")="   ^    QUIT"
  181    ;D ^DIR K  DIR
  182    ;Q:$D(DUO UT)
  183    ;Q:Y=""
  184    ;Q:Y="^"! (Y="")
  185    ;S ENVIR= Y(0)
  186    K DIR
  187    W !
  188    ;ASK IF Z IP5 OR ZIP 9 FILE LOA D
  189    S DIR(0)= "S^5:ZIP5; 9:ZIP9",DI R("B")="5"  D ^DIR K  DIR
  190    Q:$D(DUOU T)
  191    Q:Y="^"!( Y="")
  192    S FTYPE=Y  K DIR
  193    I FTYPE=5  {
  194           ;S ET ZIP5 CO DE FILE
  195           S  DIR(0)="F^ 3:50"
  196           S  DIR("A")=" Enter AFS  ZIP5 file  name (ZIP5 _APR10.txt )" D ^DIR  K DIR
  197           Q: $D(DUOUT)
  198           Q: Y="^"!(Y=" ")
  199           S  FNAME=Y K  DIR
  200           K  ^CHMZHOLD( "CHMLAFS", "ZIP5")
  201    }
  202    Q:$D(DUOU T)
  203    Q:Y="^"!( Y="")
  204    I FTYPE=9  {
  205           ;S ET ZIP9 CO DE FILE
  206           S  DIR(0)="FO ^3:50"
  207           S  DIR("A")=" Enter AFS  ZIP9 file  name (ZIP9 _APR10.txt )" D ^DIR  K DIR
  208           Q: $D(DUOUT)
  209           S  FNAME=Y K  DIR
  210           K  ^CHMZHOLD( "CHMLAFS", "ZIP9")
  211    }
  212    Q:$D(DUOU T)
  213    ;SET FY E FFECTIVE D ATE
  214    S EFFDATE ="" K DIR
  215    S DIR(0)= "D" S DIR( "A")="Ente r FY Effec tive date  (mm/dd/yy) " D ^DIR K  DIR
  216    Q:$D(DUOU T)
  217    S EFFDATE =Y
  218    Q
  219   ENDC ;CLOS ING FILE
  220    ;C CHIO
  221      D CLOSE F^CHTFLIB9 (FILE,"FIL E") ;DEV01 6554 DPT
  222         X "D  $SYSTEM.P rocess.Set ZEOF(0)" ; DEV016554  DPT
  223           Q
  224   END ;
  225    K EFFDATE ,AYGSYS,EN VIR,CHIO,F NAME,REC,C HLDGB
  226    K CHZPST, CHZPCD,CHZ PCR,CHZPPL ,CHZPRI,CH ZPPFF
  227    K CHZPPF, CHZPYQ,CTR ,EDSPLY,FT YPE,CHIEN, CHDLRJ
  228    K DIC
  229    W !!,"UDA TE HAS BEE N TASKED.  MM WILL BE  SENT WHEN  DONE."
  230    Q
  231   QUEA ;QUE  OR RUN THI S ROUTINE  MANUALLY.
  232    I '$D(DUZ ) S DUZ=1, DUZ(0)="@"
  233    D NOW^%DT C S DT=X
  234    I '$D(CHF LDT) S CHF LDT=%
  235    S CHLDTG= $S(CHLDGB= 5:"LDZP5", CHLDGB=9:" LDZP9",1:" UNKNOWN")     ;ROUTIN E TAG
  236    S CHFIO=" ",ZTSAVE(" DUZ")="",Z TSAVE("CHF LDT")=""
  237    S ZTSAVE( "CHDLRJ")= ""
  238    S ZTRTN=C HLDTG_"^CH MLAFS1",ZT DESC="PROC ESS ZIP "_ CHLDTG_" F ILE"
  239    S ZTIO=""
  240    D ^%ZTLOA D
  241    ;D @ZTRTN                ; USE  IF RUNNING  HOT
  242    Q
  243   MMMSG(CHFL TYP) ;GENE RATE MM ME SSAGE
  244    S CNT=1,^ TMP(CHDLRJ ,"CHMLAFS" ,CNT)="",C NT=CNT+1
  245    S ^TMP(CH DLRJ,"CHML AFS",CNT)= "GLOBAL 74 1038, NODE  "_CHFLTYP _", HAS BE EN UPDATED .",CNT=CNT +1
  246    S ^TMP(CH DLRJ,"CHML AFS",CNT)= "",CNT=CNT +1
  247    S ^TMP(CH DLRJ,"CHML AFS",CNT)= "PLEASE CH ECK.",CNT= CNT+1
  248    S ^TMP(CH DLRJ,"CHML AFS",CNT)= "",CNT=CNT +1
  249    S XMTEXT= "^TMP(CHDL RJ,""CHMLA FS"","
  250    S XMDUZ=. 5
  251    S XMY(DUZ )=""
  252    S XMSUB=" GBL 741038  ("_CHFLTY P_") UPDT- CMPLTD" D  ^XMD
  253    Q
  254   CHTOMSG(CH TOFT,CHTOD J,CHTOFDT)    ;GENERA TE MESSAGE  TO RUN SE COND PART  OF UPDATE
  255    S CNT=1,^ TMP(CHDLRJ ,"CHMLAFS2 ",CNT)="", CNT=CNT+1
  256    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="UDATE HA S TIMED OU T...",CNT= CNT+1
  257    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="CHECK: ^ CHMZHOLD(" "CHMLAFS"" ,""ZIP""," _CHTOFT_", "_CHTODJ_" )",CNT=CNT +1
  258    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="DO THE F OLLOWING T O UPDATE ^ CHMDIC(741 038):",CNT =CNT+1
  259    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="RUN (HOT ) TO SCREE N:",CNT=CN T+1
  260    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="   S CHD LRJ="_CHTO DJ,CNT=CNT +1
  261    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="   S CHF LDT="_CHTO FDT,CNT=CN T+1
  262    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="   D LDZ P"_CHTOFT_ "^CHMLAFS1 ",CNT=CNT+ 1
  263    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="RUN (TAS K) TO TASK MAN:",CNT= CNT+1
  264    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="   S CHD LRJ="_CHTO DJ,CNT=CNT +1
  265    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="   S CHF LDT="_CHTO FDT,CNT=CN T+1
  266    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="   S CHL DGB="_CHTO FT,CNT=CNT +1
  267    S ^TMP(CH TODJ,"CHML AFS2",CNT) ="   D QUE A^CHMLAFS1 ",CNT=CNT+ 1
  268    S XMTEXT= "^TMP(CHDL RJ,""CHMLA FS2"","
  269    S XMDUZ=. 5
  270    S XMY(DUZ )=""
  271    S XMSUB=" GBL 741038  ("_CHTOFT _") UPDT-N OT CMPLTD"  D ^XMD
  272    Q
  273   KLLAFS ;
  274    Q   ;SAFE TY QUIT
  275    S I=0 F   { S I=$O(^ CHMDIC(741 038,I)) Q: 'I  S DIK= "^CHMDIC(7 41038,",DA =I D ^DIK  }
  276    Q
  277    ;KILL NOD E
  278    S CHNODE= 5 S I=0 F   S I=$O(^C HMDIC(7410 38,I)) Q:' I  I $D(^C HMDIC(7410 38,I,CHNOD E)) W !,I, ?11,^CHMDI C(741038,I ,CHNODE,0)  K ^CHMDIC (741038,I, CHNODE)
  279    S CHNODE= 9 S I=0 F   S I=$O(^C HMDIC(7410 38,I)) Q:' I  I $D(^C HMDIC(7410 38,I,CHNOD E)) W !,I, ?11,^CHMDI C(741038,I ,CHNODE,0)  K ^CHMDIC (741038,I, CHNODE)
  280    Q
  281