source:
FOIAVistA/tag/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGSSP.m@
952
Last change on this file since 952 was 628, checked in by , 15 years ago | |
---|---|
File size: 235 bytes |
Rev | Line | |
---|---|---|
[628] | 1 | PSGSSP ;BIR/CML3-SHOW CURRENT SITE PARAMETERS ;16 DEC 97 / 1:38 PM |
2 | ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97 | |
3 | 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 |
Note:
See TracBrowser
for help on using the repository browser.