source:
FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGSSP.m@
635
| Last change on this file since 635 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 235 bytes | |
| Line | |
|---|---|
| 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.
