- 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 Jan 18, 2025@03:04:31 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