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
;
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
;
;;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 ---[H[J[2J[HECX3P170 2477 printed Dec 13, 2024@01:50:27 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 ;
+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 ;
+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
