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

PSXAPRE.m

Go to the documentation of this file.

PSXAPRE ;BIR/WPB-CMOP Pre-Initialization [ 07/12/95  2:31 PM ]

 ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**1**;10 May 95

EN I ^XMB("NETNAME")?1"CMOP-".E W !,"Host factility installation" K DIFQ Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSXAPRE   206     printed  Apr 09, 2024@20:49:04                                                                                                                                                                                                      Page 2

PSXAPRE   ;BIR/WPB-CMOP Pre-Initialization [ 07/12/95  2:31 PM ]

 +1       ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**1**;10 May 95

EN         IF ^XMB("NETNAME")?1"CMOP-".E

               WRITE !,"Host factility installation"

               KILL DIFQ

               QUIT

 +1        QUIT