ECX3P127 ;ALB/MRY - DSS FY2011 Conversion, Post-init ;11/23/10 13:37
;;3.0;DSS EXTRACTS;**127**;Dec 22, 1997;Build 36
;
;****************************************
;Every year: Populate FY Year's version
; TESTON^ECXTREX(XPDNM,"FY2011")
;****************************************
;
PRE ;Pre-install tasks
;Delete file 727.833 so that we start with a fresh data dictionary install
N DIU
S DIU=727.833,DIU(0)="D" ;D denotes that we're deleting data as well
D EN^DIU2
Q
POST ;post-init
D TEST,MENU,EXTR,INACT
N ECXI,ECXDTS,ECXOTS
;remove treating specialties from file 737.831
F ECXI=1:1 S ECXDTS=$P($T(DTSP+ECXI),";;",2) Q:ECXDTS="QUIT" D
.D DTS
;add treating specialties into file 737.831
F ECXI=1:1 S ECXOTS=$P($T(OTSP+ECXI),";;",2) Q:ECXOTS="QUIT" D
.D OTS
Q
;
TEST ;turn-on fld #73 in file #728 for Field Test Site;
;allows use of option ECX FISCAL YEAR EXTRACT by test sites;
D MES^XPDUTL(" ")
D MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.")
D TESTON^ECXTREX(XPDNM,"FY2011")
;D MES^XPDUTL(" ")
;D MES^XPDUTL("Remember to assign the ECX DSS TEST key to qualified users.")
D MES^XPDUTL(" ")
;if this is the national released version, then fld #73 will be turned-off
;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option
;
;initialize new field # in file #728.44;
N EC,ECD,X
S EC=0 F S EC=$O(^SC(EC)) Q:'EC D
.I $D(^SC(EC,0)) S ECD=^(0) I $P(ECD,U,3)="C" D
..S X=$P(ECD,U,17) I X'="" I $D(^ECX(728.44,EC,0)) S $P(^ECX(728.44,EC,0),U,12)=X
Q
;
N MENU,OPTION,CHECK,IEN
F OPTION="ECXMTL","ECXPAI" D
.S MENU="ECXMENU"
.S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
.D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
.D OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
.D BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
F OPTION="ECX MTL SOURCE AUDIT","ECX PAI SOURCE AUDIT" D
.S MENU="ECX SOURCE AUDITS"
.S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
.D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
.D OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
.D BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
S OPTION="ECX DIVISION ID",MENU="ECX DSSDEPT MGMT"
S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
D OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
D BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
S CHECK=$$ADD^XPDMENU("ECXMENU","ECXBCM","BCM")
D BMES^XPDUTL("ECXBCM option "_$S('+$G(CHECK):"NOT ",1:"")_"added to menu ECXMENU")
Q
;
EXTR ;; ADD NEW EXTRACT TO EXTRACT DEFINITIONS FILE 727.1
N DIC,DINUM,X,Y,J,IEN,ECXX,DATA,NAME,FILE,FREQ,TYPE,HEAD,MAX,GRP,PIECE,ROU,STATUS
;update file #727.1 with new record data
D MES^XPDUTL("Updating EXTRACT DEFINITIONS file (#727.1) with new extract")
D MES^XPDUTL("definitions...")
D MES^XPDUTL(" ")
F J=1:1 S ECXX=$P($T(TEXT+J),";;",2) Q:ECXX="QUIT" D
.K DD,DO
.S IEN=$P(ECXX,";",1),DATA=$P(ECXX,";",2),NAME=$P(DATA,U,1)
.S FILE=$P(DATA,U,2),FREQ=$P(DATA,U,3),TYPE=$P(DATA,U,7),HEAD=$P(DATA,U,8)
.S GRP=$P(DATA,U,9),PIECE=$P(DATA,U,10),MAX=$P(DATA,U,11),ROU=$P(DATA,U,12),STATUS=$P(DATA,U,13)
.I $D(^ECX(727.1,IEN)),$O(^ECX(727.1,"AF",FILE,0))'=IEN S DIK="^ECX(727.1,",DA=IEN D ^DIK
.K X,Y S DIC="^ECX(727.1,",DIC(0)="L",X=NAME,DINUM=IEN
.S DIC("DR")="1///"_FILE_";2///"_FREQ_";7///"_TYPE_";8///"_HEAD_";9///"_GRP_";11///"_PIECE_";12///"_MAX_";13///"_STATUS_";4///"_ROU
.D FILE^DICN
.I Y=-1 D Q
..I $D(^ECX(727.1,IEN)),$O(^ECX(727.1,"AF",FILE,0))=IEN D Q
...D MES^XPDUTL(" Entry #"_IEN_" for "_NAME_" extract already exists.")
...D MES^XPDUTL(" ")
..D MES^XPDUTL(" WARNING: Could not update entry #"_IEN_" for "_NAME_" extract.")
..D MES^XPDUTL(" Please consult with NVS for DSS EXTRACTS support.")
..D MES^XPDUTL(" ")
.D MES^XPDUTL(" Setting record #"_IEN_" for the "_NAME_" extract... ok.")
.D MES^XPDUTL(" ")
K DD,DO
Q
DTS ;Delete Treating Specialties from file 727.831
N DIK,DINUM,DA
S DINUM=$P(ECXDTS,U),DA=0
S DIK="^ECX(727.831,"
S DA=$O(^ECX(727.831,"B",DINUM,DA)) Q:'DA D ^DIK
D BMES^XPDUTL(">>>"_$P(ECXDTS,U,2)_">>>")
D MES^XPDUTL("...removed from DSS TREATING SPECIALTY TRANSLATION File (#727.831)")
Q
;
OTS ;Add Observation Treating Specialty to DSS TREATING SPECIALTY TRANSLATION File (#727.831)
D BMES^XPDUTL(">>>"_$P(ECXOTS,U,2)_">>>")
N DA,ECXFILE,DIC,DIE,DINUM,DLAYGO,DR,X,Y,ECXIFN
S ECXERR=0
S DIC="^ECX(727.831,"
S DIC(0)="LX"
S DINUM=$P(ECXOTS,U)
S X=$P(ECXOTS,U,2)
S DLAYGO=727.831
D ^DIC
S ECXIFN=Y
I +ECXIFN=-1 D Q
.D MES^XPDUTL(" Entry not added to DSS TREATING SPECIALTY TRANSLATION File (#727.831). No further updating will occur.")
.D MES^XPDUTL(" Please contact Customer Service for assistance.")
.Q
I $P(ECXIFN,U,3)'=1&(+ECXIFN'=$P(ECXOTS,U)) D Q
.D MES^XPDUTL(" Entry exists in DSS TREATING SPECIALTY TRANSLATION File (#727.831), but with a different Treating Specialty.")
.D MES^XPDUTL(" No further updating will occur. Please review entry.")
.S ECXERR=1
.Q
D MES^XPDUTL(" Entry "_$S($P(ECXIFN,U,3)=1:"added to",1:"exists in")_" DSS TREATING SPECIALTY TRANSLATION File (#727.831).")
D MES^XPDUTL(" Updating DSS TREATING SPECIALTY TRANSLATION File fields.")
S DIE=DIC
S DR="2///"_$P(ECXOTS,U,3)_";3///"_$P(ECXOTS,U,4)_";4///"_$P(ECXOTS,U,5)_";5///"_$P(ECXOTS,U,6)
S DA=+ECXIFN
D ^DIE
Q
INACT ;inactivate MTL and PAI in EXTRACT DEFINITION file (#727.1)
N ECXFDA,ECXERR,ECXMSG,ECXDA,ECXHDR,ECXOFF
D MES^XPDUTL(" Inactivating MTL,PAS,DEN AND BCM entries ...")
F ECXOFF=1:1 S ECXHDR=$P($T(HDRS+ECXOFF),";;",2) Q:ECXHDR="" D
.S ECXDA=+$O(^ECX(727.1,"C",ECXHDR,0))
.I 'ECXDA D Q
..K ECXMSG
..S ECXMSG(1)=" "
..S ECXMSG(2)=" ** ERROR INACTIVATING "_ECXHDR_" **"
..S ECXMSG(3)=" Entry not found in file"
..D MES^XPDUTL(.ECXMSG)
.K ECXFDA,ECXERR
.S ECXFDA(727.1,ECXDA_",",13)=1
.D FILE^DIE("","ECXFDA","ECXERR")
.Q:'$D(ECXERR)
.D BMES^XPDUTL(" ** ERROR INACTIVING "_ECXHDR_" **")
.K ECXMSG D MSG^DIALOG("AE",.ECXMSG,65,6,"ECXERR")
.D MES^XPDUTL(.ECXERR)
D BMES^XPDUTL("- Done -")
Q
;
OTSP ;;Treating Specialty #^Treating Specialty Name^DOM/PRRTP/SARRTP Code^IN/OUT Code^Observation Pat Indicator^Inpat Outpat Code^
;;109^PSYCH RESID REHAB PROG^P^3^N^I
;;110^PTSD RESID REHAB PROG^T^3^N^I
;;111^SUBSTANCE ABUSE RESID PROG^S^3^N^I
;;QUIT
Q
DTSP ;;Treating Specialty #^Treating Specialty Name
;;25^PSYCH RESID REHAB TRMT PROG
;;26^PTSD RESIDENTIAL REHAB PROG
;;27^SUBSTANCE ABUSE RES TRMT PROG
;;28^HOMELESS CWT/TRANS RESID
;;29^SUBST ABUSE CWT/TRANS RESID
;;36^BLIND REHAB OBSERVATION
;;38^PTSD CWT/TR
;;QUIT
Q
TEXT ;;EXTRACT DEFINITIONS ^IEN;DESCRIPTION^FILE #^FREQUENCY^^^^AUDIT DESCRIPTION^GROUP^HEADER^PIECE^MAX LINES^ROUTINE
;;24;BAR CODE MEDICATION ADMINISTRATION^727.833^M^^^^BAR CODE MEDICATION ADM^BCM^BCM^27^200^ECXBCM^1
;;QUIT
Q
HDRS ;List of headers to be inactivated
;;MTL
;;PAS
;;DEN
;;BCM
;;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P127 7363 printed Dec 13, 2024@01:50:09 Page 2
ECX3P127 ;ALB/MRY - DSS FY2011 Conversion, Post-init ;11/23/10 13:37
+1 ;;3.0;DSS EXTRACTS;**127**;Dec 22, 1997;Build 36
+2 ;
+3 ;****************************************
+4 ;Every year: Populate FY Year's version
+5 ; TESTON^ECXTREX(XPDNM,"FY2011")
+6 ;****************************************
+7 ;
PRE ;Pre-install tasks
+1 ;Delete file 727.833 so that we start with a fresh data dictionary install
+2 NEW DIU
+3 ;D denotes that we're deleting data as well
SET DIU=727.833
SET DIU(0)="D"
+4 DO EN^DIU2
+5 QUIT
POST ;post-init
+1 DO TEST
DO MENU
DO EXTR
DO INACT
+2 NEW ECXI,ECXDTS,ECXOTS
+3 ;remove treating specialties from file 737.831
+4 FOR ECXI=1:1
SET ECXDTS=$PIECE($TEXT(DTSP+ECXI),";;",2)
if ECXDTS="QUIT"
QUIT
Begin DoDot:1
+5 DO DTS
End DoDot:1
+6 ;add treating specialties into file 737.831
+7 FOR ECXI=1:1
SET ECXOTS=$PIECE($TEXT(OTSP+ECXI),";;",2)
if ECXOTS="QUIT"
QUIT
Begin DoDot:1
+8 DO OTS
End DoDot:1
+9 QUIT
+10 ;
TEST ;turn-on fld #73 in file #728 for Field Test Site;
+1 ;allows use of option ECX FISCAL YEAR EXTRACT by test sites;
+2 DO MES^XPDUTL(" ")
+3 DO MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.")
+4 DO TESTON^ECXTREX(XPDNM,"FY2011")
+5 ;D MES^XPDUTL(" ")
+6 ;D MES^XPDUTL("Remember to assign the ECX DSS TEST key to qualified users.")
+7 DO MES^XPDUTL(" ")
+8 ;if this is the national released version, then fld #73 will be turned-off
+9 ;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option
+10 ;
+11 ;initialize new field # in file #728.44;
+12 NEW EC,ECD,X
+13 SET EC=0
FOR
SET EC=$ORDER(^SC(EC))
if 'EC
QUIT
Begin DoDot:1
+14 IF $DATA(^SC(EC,0))
SET ECD=^(0)
IF $PIECE(ECD,U,3)="C"
Begin DoDot:2
+15 SET X=$PIECE(ECD,U,17)
IF X'=""
IF $DATA(^ECX(728.44,EC,0))
SET $PIECE(^ECX(728.44,EC,0),U,12)=X
End DoDot:2
End DoDot:1
+16 QUIT
+17 ;
+1 NEW MENU,OPTION,CHECK,IEN
+2 FOR OPTION="ECXMTL","ECXPAI"
Begin DoDot:1
+3 SET MENU="ECXMENU"
+4 SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)
+5 DO BMES^XPDUTL(">>> "_OPTION_" OPTION "_$SELECT(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
+6 DO OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
+7 DO BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
End DoDot:1
+8 FOR OPTION="ECX MTL SOURCE AUDIT","ECX PAI SOURCE AUDIT"
Begin DoDot:1
+9 SET MENU="ECX SOURCE AUDITS"
+10 SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)
+11 DO BMES^XPDUTL(">>> "_OPTION_" OPTION "_$SELECT(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
+12 DO OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
+13 DO BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
End DoDot:1
+14 SET OPTION="ECX DIVISION ID"
SET MENU="ECX DSSDEPT MGMT"
+15 SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)
+16 DO BMES^XPDUTL(">>> "_OPTION_" OPTION "_$SELECT(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
+17 DO OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
+18 DO BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
+19 SET CHECK=$$ADD^XPDMENU("ECXMENU","ECXBCM","BCM")
+20 DO BMES^XPDUTL("ECXBCM option "_$SELECT('+$GET(CHECK):"NOT ",1:"")_"added to menu ECXMENU")
+21 QUIT
+22 ;
EXTR ;; ADD NEW EXTRACT TO EXTRACT DEFINITIONS FILE 727.1
+1 NEW DIC,DINUM,X,Y,J,IEN,ECXX,DATA,NAME,FILE,FREQ,TYPE,HEAD,MAX,GRP,PIECE,ROU,STATUS
+2 ;update file #727.1 with new record data
+3 DO MES^XPDUTL("Updating EXTRACT DEFINITIONS file (#727.1) with new extract")
+4 DO MES^XPDUTL("definitions...")
+5 DO MES^XPDUTL(" ")
+6 FOR J=1:1
SET ECXX=$PIECE($TEXT(TEXT+J),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+7 KILL DD,DO
+8 SET IEN=$PIECE(ECXX,";",1)
SET DATA=$PIECE(ECXX,";",2)
SET NAME=$PIECE(DATA,U,1)
+9 SET FILE=$PIECE(DATA,U,2)
SET FREQ=$PIECE(DATA,U,3)
SET TYPE=$PIECE(DATA,U,7)
SET HEAD=$PIECE(DATA,U,8)
+10 SET GRP=$PIECE(DATA,U,9)
SET PIECE=$PIECE(DATA,U,10)
SET MAX=$PIECE(DATA,U,11)
SET ROU=$PIECE(DATA,U,12)
SET STATUS=$PIECE(DATA,U,13)
+11 IF $DATA(^ECX(727.1,IEN))
IF $ORDER(^ECX(727.1,"AF",FILE,0))'=IEN
SET DIK="^ECX(727.1,"
SET DA=IEN
DO ^DIK
+12 KILL X,Y
SET DIC="^ECX(727.1,"
SET DIC(0)="L"
SET X=NAME
SET DINUM=IEN
+13 SET DIC("DR")="1///"_FILE_";2///"_FREQ_";7///"_TYPE_";8///"_HEAD_";9///"_GRP_";11///"_PIECE_";12///"_MAX_";13///"_STATUS_";4///"_ROU
+14 DO FILE^DICN
+15 IF Y=-1
Begin DoDot:2
+16 IF $DATA(^ECX(727.1,IEN))
IF $ORDER(^ECX(727.1,"AF",FILE,0))=IEN
Begin DoDot:3
+17 DO MES^XPDUTL(" Entry #"_IEN_" for "_NAME_" extract already exists.")
+18 DO MES^XPDUTL(" ")
End DoDot:3
QUIT
+19 DO MES^XPDUTL(" WARNING: Could not update entry #"_IEN_" for "_NAME_" extract.")
+20 DO MES^XPDUTL(" Please consult with NVS for DSS EXTRACTS support.")
+21 DO MES^XPDUTL(" ")
End DoDot:2
QUIT
+22 DO MES^XPDUTL(" Setting record #"_IEN_" for the "_NAME_" extract... ok.")
+23 DO MES^XPDUTL(" ")
End DoDot:1
+24 KILL DD,DO
+25 QUIT
DTS ;Delete Treating Specialties from file 727.831
+1 NEW DIK,DINUM,DA
+2 SET DINUM=$PIECE(ECXDTS,U)
SET DA=0
+3 SET DIK="^ECX(727.831,"
+4 SET DA=$ORDER(^ECX(727.831,"B",DINUM,DA))
if 'DA
QUIT
DO ^DIK
+5 DO BMES^XPDUTL(">>>"_$PIECE(ECXDTS,U,2)_">>>")
+6 DO MES^XPDUTL("...removed from DSS TREATING SPECIALTY TRANSLATION File (#727.831)")
+7 QUIT
+8 ;
OTS ;Add Observation Treating Specialty to DSS TREATING SPECIALTY TRANSLATION File (#727.831)
+1 DO BMES^XPDUTL(">>>"_$PIECE(ECXOTS,U,2)_">>>")
+2 NEW DA,ECXFILE,DIC,DIE,DINUM,DLAYGO,DR,X,Y,ECXIFN
+3 SET ECXERR=0
+4 SET DIC="^ECX(727.831,"
+5 SET DIC(0)="LX"
+6 SET DINUM=$PIECE(ECXOTS,U)
+7 SET X=$PIECE(ECXOTS,U,2)
+8 SET DLAYGO=727.831
+9 DO ^DIC
+10 SET ECXIFN=Y
+11 IF +ECXIFN=-1
Begin DoDot:1
+12 DO MES^XPDUTL(" Entry not added to DSS TREATING SPECIALTY TRANSLATION File (#727.831). No further updating will occur.")
+13 DO MES^XPDUTL(" Please contact Customer Service for assistance.")
+14 QUIT
End DoDot:1
QUIT
+15 IF $PIECE(ECXIFN,U,3)'=1&(+ECXIFN'=$PIECE(ECXOTS,U))
Begin DoDot:1
+16 DO MES^XPDUTL(" Entry exists in DSS TREATING SPECIALTY TRANSLATION File (#727.831), but with a different Treating Specialty.")
+17 DO MES^XPDUTL(" No further updating will occur. Please review entry.")
+18 SET ECXERR=1
+19 QUIT
End DoDot:1
QUIT
+20 DO MES^XPDUTL(" Entry "_$SELECT($PIECE(ECXIFN,U,3)=1:"added to",1:"exists in")_" DSS TREATING SPECIALTY TRANSLATION File (#727.831).")
+21 DO MES^XPDUTL(" Updating DSS TREATING SPECIALTY TRANSLATION File fields.")
+22 SET DIE=DIC
+23 SET DR="2///"_$PIECE(ECXOTS,U,3)_";3///"_$PIECE(ECXOTS,U,4)_";4///"_$PIECE(ECXOTS,U,5)_";5///"_$PIECE(ECXOTS,U,6)
+24 SET DA=+ECXIFN
+25 DO ^DIE
+26 QUIT
INACT ;inactivate MTL and PAI in EXTRACT DEFINITION file (#727.1)
+1 NEW ECXFDA,ECXERR,ECXMSG,ECXDA,ECXHDR,ECXOFF
+2 DO MES^XPDUTL(" Inactivating MTL,PAS,DEN AND BCM entries ...")
+3 FOR ECXOFF=1:1
SET ECXHDR=$PIECE($TEXT(HDRS+ECXOFF),";;",2)
if ECXHDR=""
QUIT
Begin DoDot:1
+4 SET ECXDA=+$ORDER(^ECX(727.1,"C",ECXHDR,0))
+5 IF 'ECXDA
Begin DoDot:2
+6 KILL ECXMSG
+7 SET ECXMSG(1)=" "
+8 SET ECXMSG(2)=" ** ERROR INACTIVATING "_ECXHDR_" **"
+9 SET ECXMSG(3)=" Entry not found in file"
+10 DO MES^XPDUTL(.ECXMSG)
End DoDot:2
QUIT
+11 KILL ECXFDA,ECXERR
+12 SET ECXFDA(727.1,ECXDA_",",13)=1
+13 DO FILE^DIE("","ECXFDA","ECXERR")
+14 if '$DATA(ECXERR)
QUIT
+15 DO BMES^XPDUTL(" ** ERROR INACTIVING "_ECXHDR_" **")
+16 KILL ECXMSG
DO MSG^DIALOG("AE",.ECXMSG,65,6,"ECXERR")
+17 DO MES^XPDUTL(.ECXERR)
End DoDot:1
+18 DO BMES^XPDUTL("- Done -")
+19 QUIT
+20 ;
OTSP ;;Treating Specialty #^Treating Specialty Name^DOM/PRRTP/SARRTP Code^IN/OUT Code^Observation Pat Indicator^Inpat Outpat Code^
+1 ;;109^PSYCH RESID REHAB PROG^P^3^N^I
+2 ;;110^PTSD RESID REHAB PROG^T^3^N^I
+3 ;;111^SUBSTANCE ABUSE RESID PROG^S^3^N^I
+4 ;;QUIT
+5 QUIT
DTSP ;;Treating Specialty #^Treating Specialty Name
+1 ;;25^PSYCH RESID REHAB TRMT PROG
+2 ;;26^PTSD RESIDENTIAL REHAB PROG
+3 ;;27^SUBSTANCE ABUSE RES TRMT PROG
+4 ;;28^HOMELESS CWT/TRANS RESID
+5 ;;29^SUBST ABUSE CWT/TRANS RESID
+6 ;;36^BLIND REHAB OBSERVATION
+7 ;;38^PTSD CWT/TR
+8 ;;QUIT
+9 QUIT
TEXT ;;EXTRACT DEFINITIONS ^IEN;DESCRIPTION^FILE #^FREQUENCY^^^^AUDIT DESCRIPTION^GROUP^HEADER^PIECE^MAX LINES^ROUTINE
+1 ;;24;BAR CODE MEDICATION ADMINISTRATION^727.833^M^^^^BAR CODE MEDICATION ADM^BCM^BCM^27^200^ECXBCM^1
+2 ;;QUIT
+3 QUIT
HDRS ;List of headers to be inactivated
+1 ;;MTL
+2 ;;PAS
+3 ;;DEN
+4 ;;BCM
+5 ;;
+6 QUIT
