HLP92.m

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       ;