ECX3P170.m

ECX3P170 ;ALB/DAN - DSS FY2019 Post install ;7/11/18  13:54

 ;;3.0;DSS EXTRACTS;**170**;Dec 22, 1997;Build 12

 ;

POST ;Post-install items

 D TEST ;Set testing site information

 D MCAUPD ;Update MCA Labor Code file

 D MENU ;Update menus

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

 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

 ;

MCAUPD ;Section will add new values to the MCA Labor Code file

 N NAME,DESC,CODE,OFF,NUM,DO,DIC,X,Y

 D BMES^XPDUTL("Checking MCA Labor Code file..."),MES^XPDUTL("")

 F OFF=1:1 S CODE=$P($T(CODES+OFF),";;",2) Q:CODE="DONE"  D

 .S NAME=$P(CODE,U)

 .S DESC=$P(CODE,U,2)

 .S NUM=$$FIND1^DIC(728.442,,"X",DESC,"C")

 .I NUM D MES^XPDUTL("MCA CODE: "_DESC_" already exists.") Q

 .K DO

 .S DIC="^ECX(728.442,"

 .S DIC(0)=""

 .S X=NAME

 .S DIC("DR")="1///"_DESC

 .D FILE^DICN

 .D MES^XPDUTL("MCA CODE: "_DESC_" was "_$S(Y:"",1:"NOT ")_"added.")

 .Q

 Q

 ;

MENU ;Menu maintenance

 N DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,SYN,ORD,TYPE,OFF,UPDATE

 S TYPE="MENUADD" F OFF=1:1 S CHOICE=$P($T(@TYPE+OFF),";;",2) Q:CHOICE="DONE"  D

 .S OPTION=$P(CHOICE,"^"),MENU=$P(CHOICE,"^",2),SYN=$P(CHOICE,"^",3),ORD=$P(CHOICE,"^",4)

 .S CHECK=$$ADD^XPDMENU(MENU,OPTION,SYN,ORD)

 .D BMES^XPDUTL(">>> "_OPTION_" OPTION"_$S('CHECK:" NOT",1:"")_" ADDED TO "_MENU_" <<<")

 Q

 ;

CODES ;MCA Labor codes to be added

 ;;G1^CLINICAL GROUP

 ;;G2^TECHNICIAN GROUP

 ;;G3^RESIDENT/TRAINEE GROUP

 ;;G4^RN GROUP

 ;;G5^NURSE TECH/ASSISTANT GROUP

 ;;G6^ADVANCE PRACTICE NURSE GROUP

 ;;G7^LPN,LVN GROUP

 ;;G8^PHYSICIAN/DENTIST GROUP

 ;;G9^FELLOW GROUP

 ;;2G^NON-NURSING CONTRACT STAFF GROUP

 ;;3G^CONTRACT RN GROUP

 ;;4G^CONTRACT NURSE TECH/ASSISTANT GROUP

 ;;5G^CONTRACT ADV PRACTICE NURSE GROUP

 ;;6G^CONTRACT LPN,LVN GROUP

 ;;9G^MIXED LABOR (MULTI PROVIDERS) GROUP

 ;;1G^ADMINISTRATIVE LABOR GROUP

 ;;91^LOCAL USE 1

 ;;92^LOCAL USE 2

 ;;93^LOCAL USE 3

 ;;94^LOCAL USE 4

 ;;95^LOCAL USE 5

 ;;DONE

 ;

MENUADD ;Menu items to be added

 ;;ECX RAD SOURCE AUDIT CPT^ECX SOURCE AUDITS^RCP^13.5

 ;;DG G&L CHANGES VIEW^ECX MAINTENANCE^G&L^12

 ;;ECXBSC^ECX SOURCE AUDITS^VSC^20

 ;;DONE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX3P170   2477     printed  Apr 09, 2024@20:55:51                                                                                                                                                                                                    Page 2

ECX3P170  ;ALB/DAN - DSS FY2019 Post install ;7/11/18  13:54

 +1       ;;3.0;DSS EXTRACTS;**170**;Dec 22, 1997;Build 12

 +2       ;

POST      ;Post-install items

 +1       ;Set testing site information

           DO TEST

 +2       ;Update MCA Labor Code file

           DO MCAUPD

 +3       ;Update menus

           DO MENU

 +4        QUIT 

 +5       ;

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

 +5        DO MES^XPDUTL(" ")

 +6       ;if this is the national released version, then fld #73 will be turned-off

 +7       ;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option

 +8        QUIT 

 +9       ;

MCAUPD    ;Section will add new values to the MCA Labor Code file

 +1        NEW NAME,DESC,CODE,OFF,NUM,DO,DIC,X,Y

 +2        DO BMES^XPDUTL("Checking MCA Labor Code file...")

           DO MES^XPDUTL("")

 +3        FOR OFF=1:1

               SET CODE=$PIECE($TEXT(CODES+OFF),";;",2)

               if CODE="DONE"

                   QUIT 

               Begin DoDot:1

 +4                SET NAME=$PIECE(CODE,U)

 +5                SET DESC=$PIECE(CODE,U,2)

 +6                SET NUM=$$FIND1^DIC(728.442,,"X",DESC,"C")

 +7                IF NUM

                       DO MES^XPDUTL("MCA CODE: "_DESC_" already exists.")

                       QUIT 

 +8                KILL DO

 +9                SET DIC="^ECX(728.442,"

 +10               SET DIC(0)=""

 +11               SET X=NAME

 +12               SET DIC("DR")="1///"_DESC

 +13               DO FILE^DICN

 +14               DO MES^XPDUTL("MCA CODE: "_DESC_" was "_$SELECT(Y:"",1:"NOT ")_"added.")

 +15               QUIT 

               End DoDot:1

 +16       QUIT 

 +17      ;

MENU      ;Menu maintenance

 +1        NEW DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,SYN,ORD,TYPE,OFF,UPDATE

 +2        SET TYPE="MENUADD"

           FOR OFF=1:1

               SET CHOICE=$PIECE($TEXT(@TYPE+OFF),";;",2)

               if CHOICE="DONE"

                   QUIT 

               Begin DoDot:1

 +3                SET OPTION=$PIECE(CHOICE,"^")

                   SET MENU=$PIECE(CHOICE,"^",2)

                   SET SYN=$PIECE(CHOICE,"^",3)

                   SET ORD=$PIECE(CHOICE,"^",4)

 +4                SET CHECK=$$ADD^XPDMENU(MENU,OPTION,SYN,ORD)

 +5                DO BMES^XPDUTL(">>> "_OPTION_" OPTION"_$SELECT('CHECK:" NOT",1:"")_" ADDED TO "_MENU_" <<<")

               End DoDot:1

 +6        QUIT 

 +7       ;

CODES     ;MCA Labor codes to be added

 +1       ;;G1^CLINICAL GROUP

 +2       ;;G2^TECHNICIAN GROUP

 +3       ;;G3^RESIDENT/TRAINEE GROUP

 +4       ;;G4^RN GROUP

 +5       ;;G5^NURSE TECH/ASSISTANT GROUP

 +6       ;;G6^ADVANCE PRACTICE NURSE GROUP

 +7       ;;G7^LPN,LVN GROUP

 +8       ;;G8^PHYSICIAN/DENTIST GROUP

 +9       ;;G9^FELLOW GROUP

 +10      ;;2G^NON-NURSING CONTRACT STAFF GROUP

 +11      ;;3G^CONTRACT RN GROUP

 +12      ;;4G^CONTRACT NURSE TECH/ASSISTANT GROUP

 +13      ;;5G^CONTRACT ADV PRACTICE NURSE GROUP

 +14      ;;6G^CONTRACT LPN,LVN GROUP

 +15      ;;9G^MIXED LABOR (MULTI PROVIDERS) GROUP

 +16      ;;1G^ADMINISTRATIVE LABOR GROUP

 +17      ;;91^LOCAL USE 1

 +18      ;;92^LOCAL USE 2

 +19      ;;93^LOCAL USE 3

 +20      ;;94^LOCAL USE 4

 +21      ;;95^LOCAL USE 5

 +22      ;;DONE

 +23      ;

MENUADD   ;Menu items to be added

 +1       ;;ECX RAD SOURCE AUDIT CPT^ECX SOURCE AUDITS^RCP^13.5

 +2       ;;DG G&L CHANGES VIEW^ECX MAINTENANCE^G&L^12

 +3       ;;ECXBSC^ECX SOURCE AUDITS^VSC^20

 +4       ;;DONE