Routine: ECX3P132

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

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

MENU ;Remove options from menu and place out of order

 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 <<<")

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 -")

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.")

HDRS ;List of headers to be inactivated

 ;;NUR

;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P132   2843     printed  Apr 09, 2024@20:57:38                                                                                                                                                                                                    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      ;

MENU      ;Remove options from menu and place out of order

 +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

ECX3P132.m