APSPOST.m

APSPOST ;IHS/DSD/ENM - POST INIT UTILITY ROUTINE [ 09/03/97   1:30 PM ]

 ;;6.0;IHS PHARMACY MODIFICATIONS;;09/03/97

EP ; This program calls 2 rtns to remove old opts and merge new ones

 D ^APSPOST8,^APSPOST9

 S ZTRTN="APSPOST1",ZTIO="",ZTDTH=$H,ZTDESC="Move IHS Site Parameters to APSP CTRL file" D ^%ZTLOAD K ZTSK

 W !,"IHS Site Parameters have been moved to the APSP CONTROL file!!",!!

 W !,"Please continue with the next phase of the installation! ",!

 Q

APSPOST   ;IHS/DSD/ENM - POST INIT UTILITY ROUTINE [ 09/03/97   1:30 PM ]

 +1       ;;6.0;IHS PHARMACY MODIFICATIONS;;09/03/97

EP        ; This program calls 2 rtns to remove old opts and merge new ones

 +1        DO ^APSPOST8

           DO ^APSPOST9

 +2        SET ZTRTN="APSPOST1"

           SET ZTIO=""

           SET ZTDTH=$HOROLOG

           SET ZTDESC="Move IHS Site Parameters to APSP CTRL file"

           DO ^%ZTLOAD

           KILL ZTSK

 +3        WRITE !,"IHS Site Parameters have been moved to the APSP CONTROL file!!",!!

 +4        WRITE !,"Please continue with the next phase of the installation! ",!

 +5        QUIT