PSGSSP.m

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

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