PSGSSP ;BIR/CML3-SHOW CURRENT SITE PARAMETERS ;16 DEC 97 / 1:38 PM
;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
D ENCV^PSGSETU I '$D(XQUIT) S DIC="^PS(59.4,",DA=PSJSYSW,DR=$S($D(PSGSSF):"0;1",1:0)_";5" W ! D EN^DIQ K DA,DIC,DR,PSGSSF Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGSSP 238 printed Dec 13, 2024@02:03:17 Page 2
PSGSSP ;BIR/CML3-SHOW CURRENT SITE PARAMETERS ;16 DEC 97 / 1:38 PM
+1 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
+2 DO ENCV^PSGSETU
IF '$DATA(XQUIT)
SET DIC="^PS(59.4,"
SET DA=PSJSYSW
SET DR=$SELECT($DATA(PSGSSF):"0;1",1:0)_";5"
WRITE !
DO EN^DIQ
KILL DA,DIC,DR,PSGSSF
QUIT
