132. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:59 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.

132.1 Files compared

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

132.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 6 472
Changed 5 16
Inserted 0 0
Removed 0 0

132.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

132.4 Active regular expressions

No regular expressions were active.

132.5 Comparison detail

  1   CHMKHDBK ; HAC/JEH;CH AMPVA HAND BOOK;6/21/ 09
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;Buil d 10
  3    ;;V1.0
  4    ;; *** CO PY OF ZALT EAM1 ***
  5    ;PROJECT  TRACKING # 529,936,13 17,1424, 1 479(MC155)  BY AHJ
  6    ;INCLUDE  FMP AND SP INA BIFIDA
  7    ;ACTIVE D ATES OF EL IGIBILITY, OVER AGE 1 7, ELIMINA TE "BAD" A DDRESSES
  8    ;JEH 2/1/ 11 DEV0078 20 - SLLA  - REMOVE/F IX ENVIR()  LINE TAG
  9   START ;
  10    D HDR
  11    D INIT
  12    Q:$D(EEDF LG)
  13    D QUEA
  14    W !!,"GAT HERING INF ORMATION.  MESSAGE WI LL BE SENT  WHEN FILE S ARE READ Y" H 5
  15    Q
  16   CHAMPVA ;
  17    D GTDATA    ;GATHER  BENE DATA
  18    D PFILE     ;POPULAT E DATA FIL ES
  19    D END
  20    Q
  21   GTDATA ;GA THER BENE  DATA
  22    S CTR=0
  23    S DFN=0 F   S DFN=$O (^AHCHVA(D FN)) Q:'DF N  D
  24    .S BFN=0  F  S BFN=$ O(^AHCHVA( DFN,100,BF N)) Q:'BFN   D
  25    ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 ))  S BNAM =$P(^AHCHV A(DFN,100, BFN,0),"^" ,1) Q:BNAM =""
  26    ..I $D(^A HADIC(5548 04.07,"B", BNAM)) D   I SKIP=1 K  SKIP Q  ; IF SKIP=0  NOT DELETE D,IF SKIP= 1 DELETED  BENE;SKIP
  27    ...S (TMP PT,SKIP)=0 ,TMPPT=$O( ^AHADIC(55 4804.07,"B ",BNAM,TMP PT)) Q:'TM PPT  Q:'$D (^AHADIC(5 54804.07,T MPPT,0))
  28    ...S CHDE LREC=^AHAD IC(554804. 07,TMPPT,0 ) S CHTDFN =$P(CHDELR EC,"^",3), CHTBFN=$P( CHDELREC," ^",4)
  29    ...I CHTD FN=DFN I C HTBFN=BFN  S SKIP=1   ;DELETED B ENE SKIP
  30    ...Q
  31    ..K CHTDF N,CHTBFN,S KIP,TMPPT, BNAM  ;REM OVE VARIAB LES USED T O DETERMIN E IF BENE  WAS DELETE D
  32    ..Q:$D(^A HCHVA("SB" ,DFN,BFN)) &($P(^AHCH VA(DFN,100 ,BFN,0),"^ ",5)'="SF" )   ;ELIMI NATE SB BE NEs
  33    ..I $P(^A HCHVA(DFN, 100,BFN,0) ,"^",5)="E A"!($P(^AH CHVA(DFN,1 00,BFN,0), "^",5)="PS ")!($D(^AH CHVA("SB", DFN,BFN))& ($P(^AHCHV A(DFN,100, BFN,0),"^" ,5)="SF"))  D
  34    ...Q:$$VA LEDT^CHMKH DBK(EEFDT, DFN,BFN)=1    ;CHECK  IF ELEGIBI LITY DATES  ARE VALID
  35    ...I $$AG ECHK^CHMKH DBK(EEFDT, DFN,BFN)=0  D OVER18
  36    ...I $$AG ECHK^CHMKH DBK(EEFDT, DFN,BFN)=1  D UNDER18
  37    ...S CTR= CTR+1 K LI ST,BIFLG,B RADRFLG,NA ME,FNAME,L NAME,ADDR1 ,ADDR2,ADD R3,CITY,ST AE,ZIP
  38    Q
  39   OVER18 ;BE NE IS OVER  18 YEARS  OLD
  40    N CFFLG,B IFLG
  41    D BENINFO
  42    I BIFLG=1  D
  43    .;S BRADR FLG=$P(^AH CHVA(DFN,1 00,BFN,1), "^",11)      ;0=DOM A DR/1=FOR A DR
  44    .I BRADRF LG'="" D
  45    ..S LIST= "LIST-"_$S (BRADRFLG= 0:"A1",BRA DRFLG=1:"A 2")
  46    ..S ^CHMZ HOLD($J,"C HV_HNDBK", "OV18",LIS T,DFN,BFN) =BENREC
  47    ..I '$D(^ CHMZHOLD($ J,"CHV_HND BK","OV18" ,LIST,"TOT AL")) S ^C HMZHOLD($J ,"CHV_HNDB K","OV18", LIST,"TOTA L")=0
  48    ..S ^CHMZ HOLD($J,"C HV_HNDBK", "OV18",LIS T,"TOTAL") =^CHMZHOLD ($J,"CHV_H NDBK","OV1 8",LIST,"T OTAL")+1
  49    Q
  50   UNDER18 ;B ENE IS UND ER 18 YEAR S OLD
  51    N BRADRFL G,BIFLG
  52    D BENINFO
  53    I BIFLG=1  D
  54    .;S BRADR FLG=$P(^AH CHVA(DFN,1 00,BFN,1), "^",11)      ;0=DOM A DR/1=FOR A DR
  55    .I BRADRF LG'="" D
  56    ..S LIST= "LIST-"_$S (BRADRFLG= 0:"B1",BRA DRFLG=1:"B 2")
  57    ..S ^CHMZ HOLD($J,"C HV_HNDBK", "UN18",LIS T,DFN,BFN) =BENREC
  58    ..I '$D(^ CHMZHOLD($ J,"CHV_HND BK","UN18" ,LIST,"TOT AL")) S ^C HMZHOLD($J ,"CHV_HNDB K","UN18", LIST,"TOTA L")=0
  59    ..S ^CHMZ HOLD($J,"C HV_HNDBK", "UN18",LIS T,"TOTAL") =^CHMZHOLD ($J,"CHV_H NDBK","UN1 8",LIST,"T OTAL")+1
  60    Q
  61   BENINFO ;I NFORMATION  ABOUT THE  BENE
  62    N NAME,FN AME,LNAME, ADDR1,ADDR 2,ADDR3,CI TY,STAE,ZI P
  63    S BIFLG=1    ;BENE A DDRESS VAL ID FLAG    1=GOOD/0=B AD
  64    ;I $P(^AH CHVA(DFN,1 00,BFN,1), U,10)'=1 S  BIFLG=0 Q
  65    I $P(^AHC HVA(DFN,10 0,BFN,1),U ,10)=0 S B IFLG=0 Q
  66    I $P(^AHC HVA(DFN,10 0,BFN,1),U ,10)=2 S B IFLG=0 Q
  67    S BRADRFL G=$P(^AHCH VA(DFN,100 ,BFN,1),U, 11)     ;0 =DOM ADR/1 =FOR ADR
  68    I $D(^AHC HVA("FMP", DFN))&('$D (^AHCHVA(D FN,100,BFN ,109,VBEGD T,VENDDT)) ) S BIFLG= 0 Q
  69    S NAME=$P (^AHCHVA(D FN,100,BFN ,0),U,1)
  70    S LNAME=$ P(NAME,"," ,1)
  71    S FNAME=$ P(NAME,"," ,2)
  72    S NAME=FN AME_" "_LN AME
  73    S ADDR1=$ P(^AHCHVA( DFN,100,BF N,1),U,1)
  74    S ADDR2=$ P(^AHCHVA( DFN,100,BF N,1),U,2)
  75    S ADDR3=$ P(^AHCHVA( DFN,100,BF N,1),U,12)
  76    S CITY=$P (^AHCHVA(D FN,100,BFN ,1),U,3)
  77    S STATE=$ P(^AHCHVA( DFN,100,BF N,1),U,4)
  78    S:STATE'= "" STATE=$ P(^DIC(5,S TATE,0),U, 2)
  79    S ZIP=$E( $P(^AHCHVA (DFN,100,B FN,1),U,5) ,1,5)
  80    I $P(^AHC HVA(DFN,10 0,BFN,1),U ,11)=0 I Z IP="" S BI FLG=0    ; NO ZIP  ad ded addres s flag che ck
  81    I $P(^AHC HVA(DFN,10 0,BFN,1),U ,11)=1 D        ;0=DO M ADR/1=FO R ADR CHK
  82    .S STATE= $P(^AHCHVA (DFN,100,B FN,1),U,13 )
  83    .S:STATE' ="" STATE= $P(^DIC(5, STATE,0),U ,1)
  84    S BENREC= NAME_"^"_A DDR1_"^"_A DDR2_"^"_A DDR3_"^"_C ITY_"^"_ST ATE_"^"_ZI P_"^"_VBEG DT_"^"_VEN DDT
  85    Q
  86   AGECHK(ELD T,ADFN,ABF N) ;CHECK  FOR BENE B EING OLDER /YOUNGER T HAN 18
  87    N ADOB,AF LG
  88    S AFLG=0        ;OVE R/UNDER 18     0=OVER /1=UNDER
  89    S ADOB=$P (^AHCHVA(A DFN,100,AB FN,0),U,3)
  90    S TAGE=$$ AGE^CHTFLI B(ADOB,ELD T)
  91    I TAGE<18  S AFLG=1
  92    Q AFLG
  93   VALEDT(ELD T,VDFN,VBF N) ;CHECKI NG FOR VAL ID ELIGIBI LITY DATE
  94    N DOD
  95    S (VBEGDT ,VENDDT)=0
  96    S VFLG=1    ;DATE FL AG   0=VAL ID/1=INVAL ID
  97    Q:'$D(^AH CHVA(VDFN, 100,VBFN,1 09)) VFLG
  98    S VBEGDT= $O(^AHCHVA (VDFN,100, VBFN,109,V BEGDT))    ;BEG ELIG  DATE
  99    S VENDDT= $O(^AHCHVA (VDFN,100, VBFN,109,V BEGDT,VEND DT))   ;EN D ELIG DAT E
  100    S DOD=$P( ^AHCHVA(VD FN,100,VBF N,0),"^",6 )   ;DATE  OF DEATH
  101    S:DOD'=""  VFLG=1        
  102    S:VBEGDT< ELDT&(ELDT <VENDDT) V FLG=0
  103    Q VFLG
  104   INIT ;INIT IALIZATION  OF VARIAB LES
  105    K ^CHMZHO LD($J,"CHV _HNDBK")
  106    S TAB=$C( 9)  ;TAB
  107    ;GETTING  ELIGIBILIT Y EFFECTIV E DATE
  108    S DIR("A" )="Enter C HAMPVA Ben e all elig ible date"
  109    S DIR(0)= "DO"
  110    D ^DIR
  111    I $D(DIRU T) S EEDFL G="" Q
  112    S EEFDT=+ Y
  113    Q
  114   HDR ;
  115    D ^CHMFSE T X CHRESE T
  116    S H1="HAC  CENTER -  Handbook +  A-card +  Letter + E nvelope Ma il Out"
  117    S DY=2,DX =1 X XY W  ?(80-$L(H1 )/2),H1,!!
  118    Q
  119   PFILE ;POP ULATE DATA  FILES
  120    N PNAME,P ADR1,PADR2 ,PADR3,PCI TY,PSTAT,P ZIP,PBGDT, PENDT,IOFI LE
  121    S TAB=$C( 9)
  122    D OPNFL
  123    S I="" F   S I=$O(^C HMZHOLD($J ,"CHV_HNDB K",I)) Q:I =""  D
  124    .S J="" F   S J=$O(^ CHMZHOLD($ J,"CHV_HND BK",I,J))  Q:J=""  D
  125    ..S K=0 F   S K=$O(^ CHMZHOLD($ J,"CHV_HND BK",I,J,K) ) Q:'K  D
  126    ...S L=0  F  S L=$O( ^CHMZHOLD( $J,"CHV_HN DBK",I,J,K ,L)) Q:'L   D
  127    ....S PNA ME=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",1)
  128    ....S PAD R1=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",2)
  129    ....S PAD R2=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",3)
  130    ....S PAD R3=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",4)
  131    ....S PCI TY=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",5)   ; IF FOREIGN  ADDRESS T HEN THIS I S COUNTRY
  132    ....S PST AT=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",6)
  133    ....S PZI P=$P(^CHMZ HOLD($J,"C HV_HNDBK", I,J,K,L)," ^",7)
  134    ....S PBG DT=$$FMYRY R8^CHTFLIB ($P(^CHMZH OLD($J,"CH V_HNDBK",I ,J,K,L),"^ ",8))   ;C ONVERT FM  DATE TO A  8 DIGIT YR  (3080401  TO 2008040 1)
  135    ....S PBG DT=$E(PBGD T,5,6)_"/" _$E(PBGDT, 7,8)_"/"_$ E(PBGDT,1, 4)
  136    ....S PEN DT=$$FMYRY R8^CHTFLIB ($P(^CHMZH OLD($J,"CH V_HNDBK",I ,J,K,L),"^ ",9))   ;C ONVERT FM  DATE TO A  8 DIGIT YR  (3080401  TO 2008040 1)
  137    ....S PEN DT=$E(PEND T,5,6)_"/" _$E(PENDT, 7,8)_"/"_$ E(PENDT,1, 4)
  138    ....;S IO FILE=$S(J= "LIST-A1": IOLSTA1,J= "LIST-A2": IOLSTA1,J= "LIST-B1": IOLSTB1,J= "LIST-B2": IOLSTB2)
  139    ....I J=" LIST-A1" U  IOLSTA1 W  PNAME_TAB _PADR1_TAB _PADR2_TAB _PADR3_TAB _PCITY_TAB _PSTAT_TAB _PZIP_TAB_ PBGDT_TAB_ PENDT,!
  140    ....I J=" LIST-A2" U  IOLSTA2 W  PNAME_TAB _PADR1_TAB _PADR2_TAB _PADR3_TAB _PCITY_TAB _PSTAT_TAB _PZIP_TAB_ PBGDT_TAB_ PENDT,!
  141    ....I J=" LIST-B1" U  IOLSTB1 W  PNAME_TAB _PADR1_TAB _PADR2_TAB _PADR3_TAB _PCITY_TAB _PSTAT_TAB _PZIP_TAB_ PBGDT_TAB_ PENDT,!
  142    ....I J=" LIST-B2" U  IOLSTB2 W  PNAME_TAB _PADR1_TAB _PADR2_TAB _PADR3_TAB _PCITY_TAB _PSTAT_TAB _PZIP_TAB_ PBGDT_TAB_ PENDT,!
  143    ....;U IO FILE W PNA ME_TAB_PAD R1_TAB_PAD R2_TAB_PAD R3_TAB_PCI TY_TAB_PST AT_"  "_PZ IP_TAB_PBG DT_TAB_PEN DT
  144   PF1 D CLSF L
  145    Q
  146   OPNFL ;OPE N/CREATE F S3BIG FILE S
  147    N ENVR
  148    S ENVR=$$ ENVIR^CHTF LIB()   ;J EH 2/1/11  DEV007820  - SLLA
  149    ;S IOLSTA 1="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_A1_" _EEFDT_"_" _ENVR_".TX T"     ;DOM CHV B ENE ADR HA NDBOOK
  150    ;S IOLSTA 2="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_A2_" _EEFDT_"_" _ENVR_".TX T"     ;FOR CHV B ENE ADR HA NDBOOK
  151    ;S IOLSTB 1="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_B1_" _EEFDT_"_" _ENVR_".TX T"     ;DOM CHV B ENE ADR CA RD ONLY
  152    ;S IOLSTB 2="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_B2_" _EEFDT_"_" _ENVR_".TX T"     ;FOR CHV B ENE ADR CA RD ONLY
  153    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  154    S FILENM2 ="LIST_A1_ "_EEFDT_"_ "_ENVR_".T XT"
  155    S IOLSTA1 ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2
  156    I UCI'="H AC" S IOLS TA1="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2
  157    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  158    I '$$OPEN FIWR^CHTFL IB9(.IOLST A1,"IOLSTA 1") Q
  159    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  160    S FILENM2 ="LIST_A2_ "_EEFDT_"_ "_ENVR_".T XT"
  161    S IOLSTA2 ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2
  162    I UCI'="H AC" S IOLS TA2="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2
  163    I '$$OPEN FIWR^CHTFL IB9(.IOLST A2,"IOLSTA 2") Q
  164    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  165    S FILENM2 ="LIST_B1_ "_EEFDT_"_ "_ENVR_".T XT"
  166    S IOLSTB1 ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2
  167    I UCI'="H AC" S IOLS TB1="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2
  168    I '$$OPEN FIWR^CHTFL IB9(.IOLST B1,"IOLSTB 1") Q
  169    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  170    S FILENM2 ="LIST_B2_ "_EEFDT_"_ "_ENVR_".T XT"
  171    S IOLSTB2 ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2
  172    I UCI'="H AC" S IOLS TB2="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2
  173    I '$$OPEN FIWR^CHTFL IB9(.IOLST B2,"IOLSTB 2") Q  
  174    ;O IOLSTA 1 C IOLSTA 1:"D"
  175    ;O IOLSTA 2 C IOLSTA 2:"D"
  176    ;O IOLSTB 1 C IOLSTB 1:"D"
  177    ;O IOLSTB 2 C IOLSTB 2:"D"
  178    ;O IOLSTA 1:"NWS":5
  179    ;O IOLSTA 2:"NWS":5
  180    ;O IOLSTB 1:"NWS":5
  181    ;O IOLSTB 2:"NWS":5
  182    Q
  183   CLSFL ;CLO SE FILES
  184    D CLOSEF^ CHTFLIB9(I OLSTA1."IO LSTA1")
  185    D FTPFILE ^CHTFLIB9( IOLSTA1," DNS     fs3. DNS             ","/FS3BIG .COMMO_RPT S.HANDBOOK ","PUT")
  186    D CLOSEF^ CHTFLIB9(I OLSTA2."IO LSTA2")
  187    D FTPFILE ^CHTFLIB9( IOLSTA2," DNS     fs3. DNS             ","/FS3BIG .COMMO_RPT S.HANDBOOK ","PUT")
  188    D CLOSEF^ CHTFLIB9(I OLSTB1."IO LSTB1")
  189    D FTPFILE ^CHTFLIB9( IOLSTB1," DNS     fs3. DNS             ","/FS3BIG .COMMO_RPT S.HANDBOOK ","PUT")
  190    D CLOSEF^ CHTFLIB9(I OLSTB2."IO LSTB2")
  191    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  192    D FTPFILE ^CHTFLIB9( IOLSTB2," DNS     fs3. DNS             ","/FS3BIG .COMMO_RPT S.HANDBOOK ","PUT")
  193    ;C IOLSTA 1   ;LIST  A1
  194    ;C IOLSTA 2   ;LIST  A2
  195    ;C IOLSTB 1   ;LIST  B1
  196    ;C IOLSTB 2   ;LIST  B2
  197    Q
  198   QUEA ;QUE  THIS ROUTI NE
  199    I '$D(DUZ ) S DUZ=1, DUZ(0)="@"
  200    S ZTRTN=" CHAMPVA^CH MKHDBK",ZT DESC="PROC ESS HANDBO OK"
  201    S ZTSAVE( "EEFDT")=" "
  202    S ZTIO=""
  203    D ^%ZTLOA D
  204    ;D CHAMPV A^CHMKHDBK
  205    Q
  206   TXMSG ;MAI LMAN MESSA GE TO NOTI FY USER FI LES ARE RE ADY
  207    D TOTALS
  208    S CNT=1,^ TMP($J,"HN BK-MSG",CN T)="",CNT= CNT+1
  209    S ^TMP($J ,"HNBK-MSG ",CNT)="      *** CHA MPVA HANDB OOK MESSAG E ***",CNT =CNT+1
  210    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  211    S ^TMP($J ,"HNBK-MSG ",CNT)="PL EASE DO NO T REPLY TO  THIS MESS AGE.",CNT= CNT+1
  212    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  213    S ^TMP($J ,"HNBK-MSG ",CNT)="HA C CHAMPVA  HANDBOOK L ISTING HAS  COMPLETED .",CNT=CNT +1
  214    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  215    S ^TMP($J ,"HNBK-MSG ",CNT)="TO TALS:",CNT =CNT+1
  216    S:$D(TOTA L("LIST-A1 ")) ^TMP($ J,"HNBK-MS G",CNT)="    LIST A1  (OVER 18 D OMESTIC)          = " _TOTAL("LI ST-A1"),CN T=CNT+1
  217    S:$D(TOTA L("LIST-A2 ")) ^TMP($ J,"HNBK-MS G",CNT)="    LIST A2  (OVER 18 F OREIGN)           = " _TOTAL("LI ST-A2"),CN T=CNT+1
  218    S:$D(TOTA L("LIST-B1 ")) ^TMP($ J,"HNBK-MS G",CNT)="    LIST B1  (UNDER 18  DOMESTIC)  = "_TOTAL( "LIST-B1") ,CNT=CNT+1
  219    S:$D(TOTA L("LIST-B2 ")) ^TMP($ J,"HNBK-MS G",CNT)="    LIST B2  (UNDER 18  FOREIGN)   = "_TOTAL( "LIST-B2") ,CNT=CNT+1
  220    S:$D(CTR)  ^TMP($J," HNBK-MSG", CNT)="   G RAND TOTAL  OF BENES  SEARCHED        = "_C TR,CNT=CNT +1
  221    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  222    S ^TMP($J ,"HNBK-MSG ",CNT)="FI LES MAY BE  RETRIEVED  FROM:",CN T=CNT+1
  223    S:$D(TOTA L("LIST-A1 ")) ^TMP($ J,"HNBK-MS G",CNT)="    FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_A1.TXT ",CNT=CNT+ 1
  224    S:$D(TOTA L("LIST-A2 ")) ^TMP($ J,"HNBK-MS G",CNT)="    FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_A2.TXT ",CNT=CNT+ 1
  225    S:$D(TOTA L("LIST-B1 ")) ^TMP($ J,"HNBK-MS G",CNT)="    FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_B1.TXT ",CNT=CNT+ 1
  226    S:$D(TOTA L("LIST-B2 ")) ^TMP($ J,"HNBK-MS G",CNT)="    FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_B2.TXT ",CNT=CNT+ 1
  227    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  228    S ^TMP($J ,"HNBK-MSG ",CNT)=""
  229    S XMTEXT= "^TMP($J," "HNBK-MSG" ","
  230    S XMDUZ=. 5
  231    S XMY(DUZ )=""          ;SEND M ESSAGE TO  USER RUNNI NG THIS RO UTINE
  232    S XMSUB=" HAC - CHAM PVA HANDBO OK COMPLET E" D ^XMD
  233    Q 
  234   TOTALS ;CA LC TOTALS
  235    S I="" F   S I=$O(^C HMZHOLD($J ,"CHV_HNDB K",I)) Q:I =""  D
  236    .S J="" F   S J=$O(^ CHMZHOLD($ J,"CHV_HND BK",I,J))  Q:J=""  D
  237    ..S TOTAL (J)=^CHMZH OLD($J,"CH V_HNDBK",I ,J,"TOTAL" )
  238    Q
  239   END ;
  240    D TXMSG
  241    K AYGSYS, TOTAL,CNT, ENVR,I,J,K ,L,TAB,H1, EEFDT,EEDF LG,VFLG,VB EGDT,VENDD T,ELDT,BEN EREC
  242    K BFN,DFN ,CTR
  243    K IOLSTA1 ,IOLSTA2,I OLSTB1,IOL STB2
  244    Q