- ECX3P132 ;ALB/MRY - DSS FY2012 Conversion, Post-init ;4/12/11 13:37
- ;;3.0;DSS EXTRACTS;**132**;Dec 22, 1997;Build 18
- ;
- ;****************************************
- ;Every year: Populate FY Year's version
- ; TESTON^ECXTREX(XPDNM,"FY2012")
- ;****************************************
- ;
- POST ;post-init
- D TEST,MENU,INACT,BCM
- 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,"FY2012")
- ;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
- Q
- ;
- N MENU,OPTION,CHECK,IEN
- S OPTION="ECXNURS",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 <<<")
- S OPTION="ECX NUR SOURCE AUDIT",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 <<<")
- Q
- ;
- INACT ;inactivate NUR in EXTRACT DEFINITION file (#727.1)
- N ECXFDA,ECXERR,ECXMSG,ECXDA,ECXHDR,ECXOFF
- D MES^XPDUTL(" Inactivating NUR entry ...")
- 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
- ;
- BCM ;change RUNNING PIECE from 27 to 29
- N DIE,DIC,DA,DR,X,Y
- D BMES^XPDUTL("Changing BCM Extract's RUNNING PIECE value from 27 to 29")
- S DIC="^ECX(727.1,",DIC(0)="X"
- S X="BAR CODE MEDICATION ADMINISTRATION"
- D ^DIC
- I (Y<0) D Q
- . D BMES^XPDUTL(" BAR CODE MEDICATION ADMINISTRATION Extract not found.")
- S DIE=DIC
- S DA=+Y
- S DR="11///29"
- D ^DIE
- D MES^XPDUTL(" BCM Extract's RUNNING PIECE value successfully changed to 29.")
- Q
- ;
- HDRS ;List of headers to be inactivated
- ;;NUR
- ;;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P132 2843 printed Jan 18, 2025@02:51:24 Page 2
- ECX3P132 ;ALB/MRY - DSS FY2012 Conversion, Post-init ;4/12/11 13:37
- +1 ;;3.0;DSS EXTRACTS;**132**;Dec 22, 1997;Build 18
- +2 ;
- +3 ;****************************************
- +4 ;Every year: Populate FY Year's version
- +5 ; TESTON^ECXTREX(XPDNM,"FY2012")
- +6 ;****************************************
- +7 ;
- POST ;post-init
- +1 DO TEST
- DO MENU
- DO INACT
- DO BCM
- +2 QUIT
- +3 ;
- 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,"FY2012")
- +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 QUIT
- +11 ;
- +1 NEW MENU,OPTION,CHECK,IEN
- +2 SET OPTION="ECXNURS"
- SET MENU="ECXMENU"
- +3 SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)
- +4 DO BMES^XPDUTL(">>> "_OPTION_" OPTION "_$SELECT(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
- +5 DO OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
- +6 DO BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
- +7 SET OPTION="ECX NUR SOURCE AUDIT"
- SET MENU="ECX SOURCE AUDITS"
- +8 SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)
- +9 DO BMES^XPDUTL(">>> "_OPTION_" OPTION "_$SELECT(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
- +10 DO OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!")
- +11 DO BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<")
- +12 QUIT
- +13 ;
- INACT ;inactivate NUR in EXTRACT DEFINITION file (#727.1)
- +1 NEW ECXFDA,ECXERR,ECXMSG,ECXDA,ECXHDR,ECXOFF
- +2 DO MES^XPDUTL(" Inactivating NUR entry ...")
- +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 ;
- BCM ;change RUNNING PIECE from 27 to 29
- +1 NEW DIE,DIC,DA,DR,X,Y
- +2 DO BMES^XPDUTL("Changing BCM Extract's RUNNING PIECE value from 27 to 29")
- +3 SET DIC="^ECX(727.1,"
- SET DIC(0)="X"
- +4 SET X="BAR CODE MEDICATION ADMINISTRATION"
- +5 DO ^DIC
- +6 IF (Y<0)
- Begin DoDot:1
- +7 DO BMES^XPDUTL(" BAR CODE MEDICATION ADMINISTRATION Extract not found.")
- End DoDot:1
- QUIT
- +8 SET DIE=DIC
- +9 SET DA=+Y
- +10 SET DR="11///29"
- +11 DO ^DIE
- +12 DO MES^XPDUTL(" BCM Extract's RUNNING PIECE value successfully changed to 29.")
- +13 QUIT
- +14 ;
- HDRS ;List of headers to be inactivated
- +1 ;;NUR
- +2 ;;
- +3 QUIT