PSXBPRE ;BIR/HTW-CMOP Pre-Initialization [ 08/17/95 10:32 AM ]
;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**2**;10 May 95
EN I ^XMB("NETNAME")'?1"CMOP-".E W !,"CMOP Medical Center installation" K DIFQ W !!,"Finished. No updating has occurred..."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSXBPRE 257 printed Nov 22, 2024@16:53:43 Page 2
PSXBPRE ;BIR/HTW-CMOP Pre-Initialization [ 08/17/95 10:32 AM ]
+1 ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**2**;10 May 95
EN IF ^XMB("NETNAME")'?1"CMOP-".E
WRITE !,"CMOP Medical Center installation"
KILL DIFQ
WRITE !!,"Finished. No updating has occurred..."
+1 QUIT