- SD53P212 ;ALB/KCL - Patch SD*5.3*212 Install Utility Routine ; 04/1/2000
- ;;5.3;Scheduling;**212,1015**;AUG 13, 1993;Build 21
- ;
- ;
- ENV ;Main entry point for Environment check point.
- ;
- S XPDABORT=""
- D PROGCHK(.XPDABORT) ;checks programmer variables
- D PARMCHK(.XPDABORT) ;checks param file ien exists
- I XPDABORT="" K XPDABORT
- ;
- Q
- ;
- ;
- PRE ;Main entry point for Pre-init items.
- Q
- ;
- ;
- POST ;Main entry point for Post-init items.
- ;
- D POST1 ;Update c/s files
- D POST2 ;Change HL7 Application Name
- D POST3 ;Set HL7 Transmit Limit
- ;
- Q
- ;
- ;
- PROGCHK(XPDABORT) ;checks for necessary programmer variables
- ;
- I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
- .D BMES^XPDUTL("*****")
- .D MES^XPDUTL("Your programming variables are not set up properly.")
- .D MES^XPDUTL("Installation aborted.")
- .D MES^XPDUTL("*****")
- .S XPDABORT=2
- .Q
- Q
- ;
- ;
- PARMCHK(XPDABORT) ;checks for proper param file ien
- ;
- I '$D(^SCTM(404.44,1)) D
- .D BMES^XPDUTL("*****")
- .D MES^XPDUTL("Parameter file (#404.44) does not have proper IEN (1).")
- .D MES^XPDUTL("Installation aborted.")
- .D MES^XPDUTL("*****")
- .S XPDABORT=2
- .Q
- Q
- ;
- ;
- POST1 ;Update client/server files.
- I $$UPCLNLST^SCMCUT("SD*5.3*212^NullClient^1^0^0") D Q
- . D MES^XPDUTL("Client/Server files updated.")
- . Q
- D MES^XPDUTL("Client/Server files NOT updated.")
- Q
- ;
- ;
- POST2 ;Change HL7 application name from 'PCMM-210' to 'PCMM-212' in
- ;HL7 APPLICATION PARAMETER file.
- ;
- N DIE,DIC,DA,DR,X,Y
- D BMES^XPDUTL("Changing HL7 Application name from PCMM-210 to PCMM-212")
- S DIC="^HL(771,"
- S DIC(0)="X"
- S X="PCMM-210"
- D ^DIC
- I (Y<0) D Q
- .D BMES^XPDUTL(" PCMM application not found.")
- S DIE=DIC
- S DA=+Y
- S DR=".01///PCMM-212"
- D ^DIE
- D MES^XPDUTL(" HL7 application name successfully changed to PCMM-212.")
- Q
- ;
- POST3 ;Set HL7 TRANSMIT LIMIT = 2500 in PCMM PARAMETER file #404.44, field #15
- ;
- N DIC,DIE,DIQ,DA,DR,SCLIM
- D BMES^XPDUTL("Setting HL7 TRANSMIT LIMIT to 2500.")
- S DIC="^SCTM(404.44," ;PCMM PARAMETER file
- S DA=1 ;should only be 1 entry
- S DR=15 ;HL7 Transmit Limit field
- S DIQ="SCLIM" ;return array name
- D EN^DIQ1
- I '$D(SCLIM(404.44,DA,DR)) D Q
- .D MES^XPDUTL(" HL7 TRANSMIT LIMIT field missing")
- S SCLIM=SCLIM(404.44,DA,DR)
- S DIE=DIC
- S DR="15///2500"
- D ^DIE
- D MES^XPDUTL(" HL7 TRANSMIT LIMIT successfully changed from "_SCLIM_" to 2500.")
- Q
- SD53P212 ;ALB/KCL - Patch SD*5.3*212 Install Utility Routine ; 04/1/2000
- +1 ;;5.3;Scheduling;**212,1015**;AUG 13, 1993;Build 21
- +2 ;
- +3 ;
- ENV ;Main entry point for Environment check point.
- +1 ;
- +2 SET XPDABORT=""
- +3 ;checks programmer variables
- DO PROGCHK(.XPDABORT)
- +4 ;checks param file ien exists
- DO PARMCHK(.XPDABORT)
- +5 IF XPDABORT=""
- KILL XPDABORT
- +6 ;
- +7 QUIT
- +8 ;
- +9 ;
- PRE ;Main entry point for Pre-init items.
- +1 QUIT
- +2 ;
- +3 ;
- POST ;Main entry point for Post-init items.
- +1 ;
- +2 ;Update c/s files
- DO POST1
- +3 ;Change HL7 Application Name
- DO POST2
- +4 ;Set HL7 Transmit Limit
- DO POST3
- +5 ;
- +6 QUIT
- +7 ;
- +8 ;
- PROGCHK(XPDABORT) ;checks for necessary programmer variables
- +1 ;
- +2 IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")
- Begin DoDot:1
- +3 DO BMES^XPDUTL("*****")
- +4 DO MES^XPDUTL("Your programming variables are not set up properly.")
- +5 DO MES^XPDUTL("Installation aborted.")
- +6 DO MES^XPDUTL("*****")
- +7 SET XPDABORT=2
- +8 QUIT
- End DoDot:1
- +9 QUIT
- +10 ;
- +11 ;
- PARMCHK(XPDABORT) ;checks for proper param file ien
- +1 ;
- +2 IF '$DATA(^SCTM(404.44,1))
- Begin DoDot:1
- +3 DO BMES^XPDUTL("*****")
- +4 DO MES^XPDUTL("Parameter file (#404.44) does not have proper IEN (1).")
- +5 DO MES^XPDUTL("Installation aborted.")
- +6 DO MES^XPDUTL("*****")
- +7 SET XPDABORT=2
- +8 QUIT
- End DoDot:1
- +9 QUIT
- +10 ;
- +11 ;
- POST1 ;Update client/server files.
- +1 IF $$UPCLNLST^SCMCUT("SD*5.3*212^NullClient^1^0^0")
- Begin DoDot:1
- +2 DO MES^XPDUTL("Client/Server files updated.")
- +3 QUIT
- End DoDot:1
- QUIT
- +4 DO MES^XPDUTL("Client/Server files NOT updated.")
- +5 QUIT
- +6 ;
- +7 ;
- POST2 ;Change HL7 application name from 'PCMM-210' to 'PCMM-212' in
- +1 ;HL7 APPLICATION PARAMETER file.
- +2 ;
- +3 NEW DIE,DIC,DA,DR,X,Y
- +4 DO BMES^XPDUTL("Changing HL7 Application name from PCMM-210 to PCMM-212")
- +5 SET DIC="^HL(771,"
- +6 SET DIC(0)="X"
- +7 SET X="PCMM-210"
- +8 DO ^DIC
- +9 IF (Y<0)
- Begin DoDot:1
- +10 DO BMES^XPDUTL(" PCMM application not found.")
- End DoDot:1
- QUIT
- +11 SET DIE=DIC
- +12 SET DA=+Y
- +13 SET DR=".01///PCMM-212"
- +14 DO ^DIE
- +15 DO MES^XPDUTL(" HL7 application name successfully changed to PCMM-212.")
- +16 QUIT
- +17 ;
- POST3 ;Set HL7 TRANSMIT LIMIT = 2500 in PCMM PARAMETER file #404.44, field #15
- +1 ;
- +2 NEW DIC,DIE,DIQ,DA,DR,SCLIM
- +3 DO BMES^XPDUTL("Setting HL7 TRANSMIT LIMIT to 2500.")
- +4 ;PCMM PARAMETER file
- SET DIC="^SCTM(404.44,"
- +5 ;should only be 1 entry
- SET DA=1
- +6 ;HL7 Transmit Limit field
- SET DR=15
- +7 ;return array name
- SET DIQ="SCLIM"
- +8 DO EN^DIQ1
- +9 IF '$DATA(SCLIM(404.44,DA,DR))
- Begin DoDot:1
- +10 DO MES^XPDUTL(" HL7 TRANSMIT LIMIT field missing")
- End DoDot:1
- QUIT
- +11 SET SCLIM=SCLIM(404.44,DA,DR)
- +12 SET DIE=DIC
- +13 SET DR="15///2500"
- +14 DO ^DIE
- +15 DO MES^XPDUTL(" HL7 TRANSMIT LIMIT successfully changed from "_SCLIM_" to 2500.")
- +16 QUIT
