HLP92 ;OAKCIOFO/JG - HL*1.6*92 PRE & POST INSTALL ROUTINE ;04/08/2002
;;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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLP92 2882 printed Dec 13, 2024@01:59:33 Page 2
HLP92 ;OAKCIOFO/JG - HL*1.6*92 PRE & POST INSTALL ROUTINE ;04/08/2002
+1 ;;1.6;HEALTH LEVEL SEVEN;**92**;JUL 17, 1995
+2 ;Reference to FILE^DICN for ^DIC(4 supported by IA#3555
+3 ;
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 ;
