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 Dec 13, 2024@01:50:10 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
