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

133.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKHDBKRW.m Mon Nov 5 16:40:18 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKHDBKRW.m Fri Nov 9 02:56:34 2018 UTC

133.2 Comparison summary

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

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

133.4 Active regular expressions

No regular expressions were active.

133.5 Comparison detail

  1   CHMKHDBKRW  ;HAC/JEH; -RE-WRITE-  LABELS FO R BENE'S O VER AGE 17  WITH NO C LAIMS
  2    ;;V1.0
  3    ;
  4    ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T WRITE
  5    ;
  6    ;; *** CO PY OF ZALT EAM1 ***
  7    ;PROJECT  TRACKING # 529,936,13 17,1424, 1 479(MC155)  BY AHJ
  8    ;INCLUDE  FMP AND SP INA BIFIDA
  9    ;ACTIVE D ATES OF EL IGIBILITY, OVER AGE 1 7, ELIMINA TE "BAD" A DDRESSES
  10   START ;
  11    D HDR
  12    D INIT
  13    Q:$D(EEDF LG)
  14    D QUEA
  15    W !!,"GAT HERING INF ORMATION.  MESSAGE WI LL BE SENT  WHEN FILE S ARE READ Y" H 5
  16    Q
  17   CHAMPVA ;
  18    D GTDATA    ;GATHER  BENE DATA
  19    D PFILE     ;POPULAT E DATA FIL ES
  20    D END
  21    Q
  22   GTDATA ;GA THER BENE  DATA
  23    S CTR=0
  24    S GTOT=0
  25    S DFN=0 F   S DFN=$O (^AHCHVA(D FN)) Q:'DF N  D
  26    .S BFN=0  F  S BFN=$ O(^AHCHVA( DFN,100,BF N)) Q:'BFN   D
  27    ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 ))
  28    ..S GTOT= GTOT+1
  29    ..Q:$D(^A HCHVA("SB" ,DFN,BFN)) &($P(^AHCH VA(DFN,100 ,BFN,0),"^ ",5)'="SF" )   ;ELIMI NATE SB BE NEs
  30    ..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
  31    ...Q:$$VA LEDT^CHMKH DBKRW(EEFD T,DFN,BFN) =1   ;CHEC K IF ELEGI BILITY DAT ES ARE VAL ID
  32    ...I $$AG ECHK^CHMKH DBKRW(EEFD T,DFN,BFN) =0 D OVER1 8
  33    ...I $$AG ECHK^CHMKH DBKRW(EEFD T,DFN,BFN) =1 D UNDER 18
  34    ...S CTR= CTR+1
  35    Q
  36   OVER18 ;BE NE IS OVER  18 YEARS  OLD
  37    N CFFLG,B IFLG
  38    D BENINFO
  39    I BIFLG=1  D
  40    .S BRADRF LG=$P(^AHC HVA(DFN,10 0,BFN,1)," ^",11)      ;0=DOM AD R/1=FOR AD R
  41    .I BRADRF LG'="" D
  42    ..S LIST= "LIST-"_$S (BRADRFLG= 0:"A1",BRA DRFLG=1:"A 2")
  43    ..S ^CHMZ HOLD("CHV_ HNDBK","OV 18",LIST,D FN,BFN)=BE NREC
  44    ..I '$D(^ CHMZHOLD(" CHV_HNDBK" ,"OV18",LI ST,"TOTAL" )) S ^CHMZ HOLD("CHV_ HNDBK","OV 18",LIST," TOTAL")=0
  45    ..S ^CHMZ HOLD("CHV_ HNDBK","OV 18",LIST," TOTAL")=^C HMZHOLD("C HV_HNDBK", "OV18",LIS T,"TOTAL") +1
  46    Q
  47   UNDER18 ;B ENE IS UND ER 18 YEAR S OLD
  48    N BRADRFL G,BIFLG
  49    D BENINFO
  50    I BIFLG=1  D
  51    .S BRADRF LG=$P(^AHC HVA(DFN,10 0,BFN,1)," ^",11)      ;0=DOM AD R/1=FOR AD R
  52    .I BRADRF LG'="" D
  53    ..S LIST= "LIST-"_$S (BRADRFLG= 0:"B1",BRA DRFLG=1:"B 2")
  54    ..S ^CHMZ HOLD("CHV_ HNDBK","UN 18",LIST,D FN,BFN)=BE NREC
  55    ..I '$D(^ CHMZHOLD(" CHV_HNDBK" ,"UN18",LI ST,"TOTAL" )) S ^CHMZ HOLD("CHV_ HNDBK","UN 18",LIST," TOTAL")=0
  56    ..S ^CHMZ HOLD("CHV_ HNDBK","UN 18",LIST," TOTAL")=^C HMZHOLD("C HV_HNDBK", "UN18",LIS T,"TOTAL") +1
  57    Q
  58   BENINFO ;I NFORMATION  ABOUT THE  BENE
  59    N NAME,FN AME,LNAME, ADDR1,ADDR 2,ADDR3,CI TY,STAE,ZI P
  60    S BIFLG=1    ;BENE A DDRESS VAL ID FLAG    1=GOOD/0=B AD
  61    I $P(^AHC HVA(DFN,10 0,BFN,1),U ,10)'=1 S  BIFLG=0 Q
  62    I $D(^AHC HVA("FMP", DFN))&('$D (^AHCHVA(D FN,100,BFN ,109,VBEGD T,VENDDT)) ) S BIFLG= 0 Q
  63    S NAME=$P (^AHCHVA(D FN,100,BFN ,0),"^",1)
  64    S LNAME=$ P(NAME,"," ,1)
  65    S FNAME=$ P(NAME,"," ,2)
  66    S NAME=FN AME_" "_LN AME
  67    S ADDR1=$ P(^AHCHVA( DFN,100,BF N,1),"^",1 )
  68    S ADDR2=$ P(^AHCHVA( DFN,100,BF N,1),"^",2 )
  69    S ADDR3=$ P(^AHCHVA( DFN,100,BF N,1),"^",1 2)
  70    S CITY=$P (^AHCHVA(D FN,100,BFN ,1),"^",3)
  71    S STATE=$ P(^AHCHVA( DFN,100,BF N,1),"^",4 )
  72    S:STATE'= "" STATE=$ P(^DIC(5,S TATE,0),U, 2)
  73    S ZIP=$E( $P(^AHCHVA (DFN,100,B FN,1),"^", 5),1,5)
  74    I ZIP=""  S BIFLG=0     ;NO ZIP
  75    I $P(^AHC HVA(DFN,10 0,BFN,1)," ^",11)=1 D        ;0= DOM ADR/1= FOR ADR CH K
  76    .S STATE= $P(^AHCHVA (DFN,100,B FN,1),U,13 )
  77    .S STATE= $P(^DIC(5, STATE,0),U ,1)
  78    S BENREC= NAME_"^"_A DDR1_"^"_A DDR2_"^"_A DDR3_"^"_C ITY_"^"_ST ATE_"^"_ZI P_"^"_VBEG DT_"^"_VEN DDT
  79    Q
  80   AGECHK(ELD T,ADFN,ABF N) ;CHECK  FOR BENE B EING OLDER /YOUNGER T HAN 18
  81    N ADOB,AF LG
  82    S AFLG=0        ;OVE R/UNDER 18     0=OVER /1=UNDER
  83    S ADOB=$P (^AHCHVA(A DFN,100,AB FN,0),U,3)
  84    S TAGE=$$ AGE^CHTFLI B(ADOB,ELD T)
  85    I TAGE<18  S AFLG=1
  86    Q AFLG
  87   VALEDT(ELD T,VDFN,VBF N) ;CHECKI NG FOR VAL ID ELIGIBI LITY DATE
  88    N DOD
  89    S (VBEGDT ,VENDDT)=0
  90    S VFLG=1    ;DATE FL AG   0=VAL ID/1=INVAL ID
  91    Q:'$D(^AH CHVA(VDFN, 100,VBFN,1 09)) VFLG
  92    S VBEGDT= $O(^AHCHVA (VDFN,100, VBFN,109,V BEGDT))    ;BEG ELIG  DATE
  93    S VENDDT= $O(^AHCHVA (VDFN,100, VBFN,109,V BEGDT,VEND DT))   ;EN D ELIG DAT E
  94    S DOD=$P( ^AHCHVA(VD FN,100,VBF N,0),"^",6 )   ;DATE  OF DEATH
  95    S:DOD'=""  VFLG=1        
  96    S:VBEGDT< ELDT&(ELDT <VENDDT) V FLG=0
  97    Q VFLG
  98   INIT ;INIT IALIZATION  OF VARIAB LES
  99    K:$D(^CHM ZHOLD("CHV _HNDBK"))  ^CHMZHOLD( "CHV_HNDBK ")
  100    S TAB=$C( 9)  ;TAB
  101    ;GETTING  ELIGIBILIT Y EFFECTIV E DATE
  102    S DIR("A" )="Enter C HAMPVA Ben e all elig ible date"
  103    S DIR(0)= "DO"
  104    D ^DIR
  105    I $D(DIRU T) S EEDFL G="" Q
  106    S EEFDT=+ Y
  107    Q
  108   HDR ;
  109    D ^CHMFSE T X CHRESE T
  110    S H1="HAC  CENTER -  Handbook +  A-card +  Letter + E nvelope Ma il Out"
  111    S DY=2,DX =1 X XY W  ?(80-$L(H1 )/2),H1,!!
  112    Q
  113   PFILE ;POP ULATE DATA  FILES
  114    N PNAME,P ADR1,PADR2 ,PADR3,PCI TY,PSTAT,P ZIP,PBGDT, PENDT,IOFI LE
  115    S T=$C(9)
  116    D OPNFL
  117    S I="" F   S I=$O(^C HMZHOLD("C HV_HNDBK", I)) Q:I=""   D
  118    .S J="" F   S J=$O(^ CHMZHOLD(" CHV_HNDBK" ,I,J)) Q:J =""  D
  119    ..S K=0 F   S K=$O(^ CHMZHOLD(" CHV_HNDBK" ,I,J,K)) Q :'K  D
  120    ...S L=0  F  S L=$O( ^CHMZHOLD( "CHV_HNDBK ",I,J,K,L) ) Q:'L  D
  121    ....S PNA ME=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,1)
  122    ....S PAD R1=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,2)
  123    ....S PAD R2=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,3)
  124    ....S PAD R3=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,4)
  125    ....S PCI TY=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,5)   ;IF  FOREIGN AD DRESS THEN  THIS IS C OUNTRY
  126    ....S PST AT=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,6)
  127    ....S PZI P=$P(^CHMZ HOLD("CHV_ HNDBK",I,J ,K,L),"^", 7)
  128    ....S PBG DT=$$FMYRY R8^CHTFLIB ($P(^CHMZH OLD("CHV_H NDBK",I,J, K,L),"^",8 ))   ;CONV ERT FM DAT E TO A 8 D IGIT YR (3 080401 TO  20080401)
  129    ....S PBG DT=$E(PBGD T,5,6)_"/" _$E(PBGDT, 7,8)_"/"_$ E(PBGDT,1, 4)
  130    ....S PEN DT=$$FMYRY R8^CHTFLIB ($P(^CHMZH OLD("CHV_H NDBK",I,J, K,L),"^",9 ))   ;CONV ERT FM DAT E TO A 8 D IGIT YR (3 080401 TO  20080401)
  131    ....S PEN DT=$E(PEND T,5,6)_"/" _$E(PENDT, 7,8)_"/"_$ E(PENDT,1, 4)
  132    ....S IOF ILE=$S(J=" LIST-A1":I OLSTA1,J=" LIST-A2":I OLSTA1,J=" LIST-B1":I OLSTB1,J=" LIST-B2":I OLSTB2)
  133    ....U IOF ILE W PNAM E_TAB_PADR 1_TAB_PADR 2_TAB_PADR 3_TAB_PCIT Y_TAB_PSTA T_"  "_PZI P_TAB_PBGD T_TAB_PEND T
  134    D CLSFL
  135    Q
  136   OPNFL ;OPE N/CREATE F S3BIG FILE S
  137    N ENVR
  138    S ENVR=$$ ENVIR^CHMK HDBKRW()
  139    ;DGC 1/17 /2014 DEV0 12893 - BE GIN
  140    ;S IOLSTA 1="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_A1_" _EEFDT_ENV R_".TXT"     ;DOM CHV B ENE ADR HA NDBOOK
  141    ;S IOLSTA 2="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_A2_" _EEFDT_ENV R_".TXT"     ;FOR CHV B ENE ADR HA NDBOOK
  142    ;S IOLSTB 1="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_B1_" _EEFDT_ENV R_".TXT"     ;DOM CHV B ENE ADR CA RD ONLY
  143    ;S IOLSTB 2="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_B2_" _EEFDT_ENV R_".TXT"     ;FOR CHV B ENE ADR CA RD ONLY
  144    ;O IOLSTA 1 C IOLSTA 1:"D"
  145    ;O IOLSTA 2 C IOLSTA 2:"D"
  146    ;O IOLSTB 1 C IOLSTB 1:"D"
  147    ;O IOLSTB 2 C IOLSTB 2:"D"
  148    ;O IOLSTA 1:"NWS":5
  149    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  150           S  FILENM2="L IST_A1_"_E EFDT_ENVR_ ".TXT"
  151           S  IOLSTA1="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM2
  152           I  UCI'="HAC"  S IOLSTA1 ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM2
  153           I  '$$OPENFIW R^CHTFLIB9 (.IOLSTA1, "IOLSTA1")  Q 
  154    ;O IOLSTA 2:"NWS":5
  155    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  156           S  FILENM2="L IST_A2_"_E EFDT_ENVR_ ".TXT"
  157           S  IOLSTA2="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM2
  158           I  UCI'="HAC"  S IOLSTA2 ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM2
  159           I  '$$OPENFIW R^CHTFLIB9 (.IOLSTA2, "IOLSTA2")  Q 
  160    ;O IOLSTB 1:"NWS":5
  161    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  162           S  FILENM2="L IST_B1_"_E EFDT_ENVR_ ".TXT"
  163           S  IOLSTB1="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM2
  164           I  UCI'="HAC"  S IOLSTB1 ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM2
  165           I  '$$OPENFIW R^CHTFLIB9 (.IOLSTB1, "IOLSTB1")  Q 
  166    ;O IOLSTB 2:"NWS":5
  167    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  168           S  FILENM2="L IST_B2_"_E EFDT_ENVR_ ".TXT"
  169           S  IOLSTB2="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM2
  170           I  UCI'="HAC"  S IOLSTB2 ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM2
  171           I  '$$OPENFIW R^CHTFLIB9 (.IOLSTB2, "IOLSTB2")  Q 
  172    Q
  173   CLSFL ;CLO SE FILES
  174    ;C IOLSTA 1
  175    D CLOSEF^ CHTFLIB9(I OLSTA1,"IO LSTA1")
  176    D FTPFILE ^CHTFLIB9( IOLSTA1,"
. DNS             ","/FS3BIG /COMMO_RPT S/HANDBOOK ","PUT")
  177    ;C IOLSTA 2
  178    D CLOSEF^ CHTFLIB9(I OLSTA2,"IO LSTA2")
  179    D FTPFILE ^CHTFLIB9( IOLSTA2," DNS             ","/FS3BIG /COMMO_RPT S/HANDBOOK ","PUT")
  180    ;C IOLSTB 1
  181    D CLOSEF^ CHTFLIB9(I OLSTB1,"IO LSTB1")
  182    D FTPFILE ^CHTFLIB9( IOLSTB1," DNS             ","/FS3BIG /COMMO_RPT S/HANDBOOK ","PUT")
  183    ;C IOLSTB 2
  184    D CLOSEF^ CHTFLIB9(I OLSTB2,"IO LSTB2")
  185    D FTPFILE ^CHTFLIB9( IOLSTB2," DNS             ","/FS3BIG /COMMO_RPT S/HANDBOOK ","PUT")
  186    ;DGC 1/17 /2014 DEV0 12893 - EN D
  187    Q
  188   QUEA ;QUE  THIS ROUTI NE
  189    I '$D(DUZ ) S DUZ=1, DUZ(0)="@"
  190    S ZTRTN=" CHAMPVA^CH MKHDBK",ZT DESC="PROC ESS HANDBO OK"
  191    S ZTSAVE( "EEFDT")=" "
  192    S ZTIO=""
  193    ;D ^%ZTLO AD
  194    D CHAMPVA ^CHMKHDBKR W
  195    Q
  196   TXMSG ;MAI LMAN MESSA GE TO NOTI FY USER FI LES ARE RE ADY
  197    D TOTALS
  198    S CNT=1,^ TMP($J,"HN BK-MSG",CN T)="",CNT= CNT+1
  199    S ^TMP($J ,"HNBK-MSG ",CNT)="      *** CHA MPVA HANDB OOK MESSAG E ***",CNT =CNT+1
  200    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  201    S ^TMP($J ,"HNBK-MSG ",CNT)="PL EASE DO NO T REPLY TO  THIS MESS AGE.",CNT= CNT+1
  202    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  203    S ^TMP($J ,"HNBK-MSG ",CNT)="HA C CHAMPVA  HANDBOOK L ISTING HAS  COMPLETED .",CNT=CNT +1
  204    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  205    S ^TMP($J ,"HNBK-MSG ",CNT)="TO TALS:",CNT =CNT+1
  206    S:$D(TOTA L("LIST-A1 ")) ^TMP($ J,"HNBK-MS G",CNT)="    LIST A1  (DOMESTIC  HANDBOOK)          =  "_TOTAL("L IST-A1"),C NT=CNT+1
  207    S:$D(TOTA L("LIST-A2 ")) ^TMP($ J,"HNBK-MS G",CNT)="    LIST A2  (FOREIGN H ANDBOOK)           =  "_TOTAL("L IST-A2"),C NT=CNT+1
  208    S:$D(TOTA L("LIST-B1 ")) ^TMP($ J,"HNBK-MS G",CNT)="    LIST B1  (DOMESTIC  MEMBER CAR D ONLY) =  "_TOTAL("L IST-B1"),C NT=CNT+1
  209    S:$D(TOTA L("LIST-B2 ")) ^TMP($ J,"HNBK-MS G",CNT)="    LIST B2  (FOREIGN M EMBER CARD  ONLY)  =  "_TOTAL("L IST-B2"),C NT=CNT+1
  210    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  211    S ^TMP($J ,"HNBK-MSG ",CNT)="FI LES MAY BE  RETRIEVED  FROM:",CN T=CNT+1
  212    S:$D(TOTA L("LIST-A1 ")) ^TMP($ J,"HNBK-MS G",CNT)="    FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_A1.TXT ",CNT=CNT+ 1
  213    S:$D(TOTA L("LIST-A2 ")) ^TMP($ J,"HNBK-MS G",CNT)="    FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_A2.TXT ",CNT=CNT+ 1
  214    S:$D(TOTA L("LIST-B1 ")) ^TMP($ J,"HNBK-MS G",CNT)="    FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_B1.TXT ",CNT=CNT+ 1
  215    S:$D(TOTA L("LIST-B2 ")) ^TMP($ J,"HNBK-MS G",CNT)="    FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_B2.TXT ",CNT=CNT+ 1
  216    S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1
  217    S ^TMP($J ,"HNBK-MSG ",CNT)=""
  218    S XMTEXT= "^TMP($J," "HNBK-MSG" ","
  219    S ZTSAVE( "ZIPTTL")= "",ZTSAVE( "ZIPTTL1") ="",ZTSAVE ("ZIPTTL2" )="",ZTSAV E("ZIPTTL3 ")="",ZTSA VE("ZIPTTL 4")=""
  220    S XMDUZ=. 5
  221    S XMY(DUZ )=""          ;SEND M ESSAGE TO  USER RUNNI NG THIS RO UTINE
  222    S XMSUB=" HAC - CHAM PVA HANDBO OK COMPLET E" D ^XMD
  223    Q 
  224   TOTALS ;CA LC TOTALS
  225    S I="" F   S I=$O(^C HMZHOLD("C HV_HNDBK", I)) Q:I=""   D
  226    .S J="" F   S J=$O(^ CHMZHOLD(" CHV_HNDBK" ,I,J)) Q:J =""  D
  227    ..S TOTAL (J)=^CHMZH OLD("CHV_H NDBK",I,J, "TOTAL")
  228    Q
  229   ENVIR() ;F UNCTION TO  DETERMINE  SYSTEM RU NNING ON   ;JEH 5/20/ 08 TT #DEV 003699-1
  230    N AYGSYS        
  231    S AYGSYS= $P(^XTV(89 89.3,1,0), U) S AYGSY S=$P(^DIC( 4.2,AYGSYS ,0),U)
  232    S AYGSYS= $P(AYGSYS, ".")
  233    S AYGSYS= $S(AYGSYS= "HAC":"LIV E",1:AYGSY S)
  234    Q AYGSYS
  235   END ;
  236    K VFLG,VB EGDT,VENDD T
  237    
  238    K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2
  239    K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U
  240    K EEFDT,E EDFLG
  241    
  242    D TXMSG
  243    Q
  244