Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HLP92

HLP92.m

Go to the documentation of this file.
  1. 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
  1. ;;1.6;HEALTH LEVEL SEVEN;**92**;JUL 17, 1995
  1. ;Reference to FILE^DICN for ^DIC(4 supported by IA#3555
  1. ;
  1. PRE ;PRE INSTALL
  1. ;Is station #200 in the INSTITUTION (#4) file?
  1. ;If yes, quit. If not, create it. If can't create, abort install.
  1. N HLSTN
  1. S HLSTN=+$$FIND1^DIC(4,"","MX",200)
  1. I HLSTN>0 D BMES^XPDUTL(" Station number 200 exists in the INSTITUTION file.") D MES^XPDUTL(" Pre-install routine completed successfully.") G ENDPRE
  1. I HLSTN=0 D ;Not there, so create station #200
  1. .K DIC,DR,X,Y
  1. .S XUMF=1
  1. .S DIC="^DIC(4,",DIC(0)="",X="AUSTIN"
  1. .S DIC("DR")=".02////TEXAS;11////National;13////DPC;99////200;100////AUSTIN"
  1. .K DO,DD D FILE^DICN
  1. .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
  1. .D BMES^XPDUTL(" Station number 200 has been added to the INSTITUTION file.")
  1. .D MES^XPDUTL(" Pre-install routine completed successfully.")
  1. ENDPRE ;Kill variables and quit
  1. K DD,DIC,DO,DR,HLSTN,X,XUMF,Y
  1. Q
  1. ;
  1. PST ;POST INSTALL
  1. ;Is VAFHIE entry in the HL LOGICAL LINK (#870) file?
  1. ;If yes, set AUTOSTART (#4.5) field to Enabled. If no, quit.
  1. N HLLLK
  1. S HLLLK=+$$FIND1^DIC(870,"","MX","VAFHIE")
  1. 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.
  1. L +^HLCS(870,HLLLK):10
  1. S DIE="^HLCS(870,",DA=HLLLK,DR="4.5///1"
  1. D ^DIE K DIE,DA,DR
  1. L -^HLCS(870,HLLLK)
  1. 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'.")
  1. ;
  1. ;If production account, quit - install complete.
  1. ;If test account, remove TCP/IP ADDRESS (#400.01) and DOMAIN (#.03)
  1. ;for VAFHIE entry in the HL LOGICAL LINK (#870) file.
  1. ;
  1. ;check default processing id in HL7 Site Parameters
  1. S HLPARAM3=$P($$PARAM^HLCS2,U,3)
  1. I HLPARAM3="P" D BMES^XPDUTL(" Post-install routine completed successfully.") G ENDPST ;Production account, so quit.
  1. E D
  1. .;Test account or can't determine account, continue
  1. .;Is VAFHIE entry in the HL LOGICAL LINK (#870) file?
  1. .N HLLLK
  1. .S HLLLK=+$$FIND1^DIC(870,"","MX","VAFHIE")
  1. .Q:'HLLLK ;VAFHIE entry not found, so quit.
  1. .L +^HLCS(870,HLLLK):10
  1. .S DIE="^HLCS(870,",DA=HLLLK,DR=".03///@;400.01///@"
  1. .D ^DIE K DIE,DA,DR
  1. .L -^HLCS(870,HLLLK)
  1. .D BMES^XPDUTL(" Because this is not a production account, the TCP/IP ADDRESS")
  1. .D MES^XPDUTL(" and DOMAIN fields were deleted for the 'VAFHIE' entry in the")
  1. .D MES^XPDUTL(" HL LOGICAL LINK (#870) file.")
  1. .D BMES^XPDUTL(" Post-install routine completed successfully.")
  1. ENDPST ;Kill variables and quit
  1. K DA,DIE,DR,IEN,HLL,HLPARAM3,HLLLK
  1. Q
  1. ;