- HLP92 ;OAKCIOFO/JG - HL*1.6*92 PRE & POST INSTALL ROUTINE ;04/08/2002 [ 04/02/2003 8:37 AM ]
- ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003
- ;;1.6;HEALTH LEVEL SEVEN;**92**;JUL 17, 1995
- ;Reference to FILE^DICN for ^DIC(4 supported by IA#3555
- ;
- PRE ;PRE INSTALL
- ;Is station #200 in the INSTITUTION (#4) file?
- ;If yes, quit. If not, create it. If can't create, abort install.
- N HLSTN
- S HLSTN=+$$FIND1^DIC(4,"","MX",200)
- I HLSTN>0 D BMES^XPDUTL(" Station number 200 exists in the INSTITUTION file.") D MES^XPDUTL(" Pre-install routine completed successfully.") G ENDPRE
- I HLSTN=0 D ;Not there, so create station #200
- .K DIC,DR,X,Y
- .S XUMF=1
- .S DIC="^DIC(4,",DIC(0)="",X="AUSTIN"
- .S DIC("DR")=".02////TEXAS;11////National;13////DPC;99////200;100////AUSTIN"
- .K DO,DD D FILE^DICN
- .I +Y<0 D BMES^XPDUTL(" Unable to add station number 200 to the INSTITUTION file.") D MES^XPDUTL(" Contact NVS or log a NOIS for assistance before proceeding.") S XPDABORT=1 Q
- .D BMES^XPDUTL(" Station number 200 has been added to the INSTITUTION file.")
- .D MES^XPDUTL(" Pre-install routine completed successfully.")
- ENDPRE ;Kill variables and quit
- K DD,DIC,DO,DR,HLSTN,X,XUMF,Y
- Q
- ;
- PST ;POST INSTALL
- ;Is VAFHIE entry in the HL LOGICAL LINK (#870) file?
- ;If yes, set AUTOSTART (#4.5) field to Enabled. If no, quit.
- N HLLLK
- S HLLLK=+$$FIND1^DIC(870,"","MX","VAFHIE")
- I HLLLK=0 D BMES^XPDUTL(" 'VAFHIE' logical link failed to come in with this patch.") D MES^XPDUTL(" Contact NVS or log a NOIS for assistance before proceeding.") S XPDABORT=1 G ENDPST ;Abort install.
- L +^HLCS(870,HLLLK):10
- S DIE="^HLCS(870,",DA=HLLLK,DR="4.5///1"
- D ^DIE K DIE,DA,DR
- L -^HLCS(870,HLLLK)
- D BMES^XPDUTL(" The AUTOSTART (#4.5) field for the 'VAFHIE' entry in") D MES^XPDUTL(" the HL LOGICAL LINK (#870) file has been set to 'Enabled'.")
- ;
- ;If production account, quit - install complete.
- ;If test account, remove TCP/IP ADDRESS (#400.01) and DOMAIN (#.03)
- ;for VAFHIE entry in the HL LOGICAL LINK (#870) file.
- ;
- ;check default processing id in HL7 Site Parameters
- S HLPARAM3=$P($$PARAM^HLCS2,U,3)
- I HLPARAM3="P" D BMES^XPDUTL(" Post-install routine completed successfully.") G ENDPST ;Production account, so quit.
- E D
- .;Test account or can't determine account, continue
- .;Is VAFHIE entry in the HL LOGICAL LINK (#870) file?
- .N HLLLK
- .S HLLLK=+$$FIND1^DIC(870,"","MX","VAFHIE")
- .Q:'HLLLK ;VAFHIE entry not found, so quit.
- .L +^HLCS(870,HLLLK):10
- .S DIE="^HLCS(870,",DA=HLLLK,DR=".03///@;400.01///@"
- .D ^DIE K DIE,DA,DR
- .L -^HLCS(870,HLLLK)
- .D BMES^XPDUTL(" Because this is not a production account, the TCP/IP ADDRESS")
- .D MES^XPDUTL(" and DOMAIN fields were deleted for the 'VAFHIE' entry in the")
- .D MES^XPDUTL(" HL LOGICAL LINK (#870) file.")
- .D BMES^XPDUTL(" Post-install routine completed successfully.")
- ENDPST ;Kill variables and quit
- K DA,DIE,DR,IEN,HLL,HLPARAM3,HLLLK
- Q
- ;
- HLP92 ;OAKCIOFO/JG - HL*1.6*92 PRE & POST INSTALL ROUTINE ;04/08/2002 [ 04/02/2003 8:37 AM ]
- +1 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003
- +2 ;;1.6;HEALTH LEVEL SEVEN;**92**;JUL 17, 1995
- +3 ;Reference to FILE^DICN for ^DIC(4 supported by IA#3555
- +4 ;
- PRE ;PRE INSTALL
- +1 ;Is station #200 in the INSTITUTION (#4) file?
- +2 ;If yes, quit. If not, create it. If can't create, abort install.
- +3 NEW HLSTN
- +4 SET HLSTN=+$$FIND1^DIC(4,"","MX",200)
- +5 IF HLSTN>0
- DO BMES^XPDUTL(" Station number 200 exists in the INSTITUTION file.")
- DO MES^XPDUTL(" Pre-install routine completed successfully.")
- GOTO ENDPRE
- +6 ;Not there, so create station #200
- IF HLSTN=0
- Begin DoDot:1
- +7 KILL DIC,DR,X,Y
- +8 SET XUMF=1
- +9 SET DIC="^DIC(4,"
- SET DIC(0)=""
- SET X="AUSTIN"
- +10 SET DIC("DR")=".02////TEXAS;11////National;13////DPC;99////200;100////AUSTIN"
- +11 KILL DO,DD
- DO FILE^DICN
- +12 IF +Y<0
- DO BMES^XPDUTL(" Unable to add station number 200 to the INSTITUTION file.")
- DO MES^XPDUTL(" Contact NVS or log a NOIS for assistance before proceeding.")
- SET XPDABORT=1
- QUIT
- +13 DO BMES^XPDUTL(" Station number 200 has been added to the INSTITUTION file.")
- +14 DO MES^XPDUTL(" Pre-install routine completed successfully.")
- End DoDot:1
- ENDPRE ;Kill variables and quit
- +1 KILL DD,DIC,DO,DR,HLSTN,X,XUMF,Y
- +2 QUIT
- +3 ;
- PST ;POST INSTALL
- +1 ;Is VAFHIE entry in the HL LOGICAL LINK (#870) file?
- +2 ;If yes, set AUTOSTART (#4.5) field to Enabled. If no, quit.
- +3 NEW HLLLK
- +4 SET HLLLK=+$$FIND1^DIC(870,"","MX","VAFHIE")
- +5 ;Abort install.
- IF HLLLK=0
- DO BMES^XPDUTL(" 'VAFHIE' logical link failed to come in with this patch.")
- DO MES^XPDUTL(" Contact NVS or log a NOIS for assistance before proceeding.")
- SET XPDABORT=1
- GOTO ENDPST
- +6 LOCK +^HLCS(870,HLLLK):10
- +7 SET DIE="^HLCS(870,"
- SET DA=HLLLK
- SET DR="4.5///1"
- +8 DO ^DIE
- KILL DIE,DA,DR
- +9 LOCK -^HLCS(870,HLLLK)
- +10 DO BMES^XPDUTL(" The AUTOSTART (#4.5) field for the 'VAFHIE' entry in")
- DO MES^XPDUTL(" the HL LOGICAL LINK (#870) file has been set to 'Enabled'.")
- +11 ;
- +12 ;If production account, quit - install complete.
- +13 ;If test account, remove TCP/IP ADDRESS (#400.01) and DOMAIN (#.03)
- +14 ;for VAFHIE entry in the HL LOGICAL LINK (#870) file.
- +15 ;
- +16 ;check default processing id in HL7 Site Parameters
- +17 SET HLPARAM3=$PIECE($$PARAM^HLCS2,U,3)
- +18 ;Production account, so quit.
- IF HLPARAM3="P"
- DO BMES^XPDUTL(" Post-install routine completed successfully.")
- GOTO ENDPST
- +19 IF '$TEST
- Begin DoDot:1
- +20 ;Test account or can't determine account, continue
- +21 ;Is VAFHIE entry in the HL LOGICAL LINK (#870) file?
- +22 NEW HLLLK
- +23 SET HLLLK=+$$FIND1^DIC(870,"","MX","VAFHIE")
- +24 ;VAFHIE entry not found, so quit.
- IF 'HLLLK
- QUIT
- +25 LOCK +^HLCS(870,HLLLK):10
- +26 SET DIE="^HLCS(870,"
- SET DA=HLLLK
- SET DR=".03///@;400.01///@"
- +27 DO ^DIE
- KILL DIE,DA,DR
- +28 LOCK -^HLCS(870,HLLLK)
- +29 DO BMES^XPDUTL(" Because this is not a production account, the TCP/IP ADDRESS")
- +30 DO MES^XPDUTL(" and DOMAIN fields were deleted for the 'VAFHIE' entry in the")
- +31 DO MES^XPDUTL(" HL LOGICAL LINK (#870) file.")
- +32 DO BMES^XPDUTL(" Post-install routine completed successfully.")
- End DoDot:1
- ENDPST ;Kill variables and quit
- +1 KILL DA,DIE,DR,IEN,HLL,HLPARAM3,HLLLK
- +2 QUIT
- +3 ;