VistA-WorldVistAEHR/r/INPATIENT_MEDICATIONS-PSJ-P.../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`
	`;;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`