source:
WorldVistAEHR/tag/Release_6_08/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGSSP.m@
1608
Last change on this file since 1608 was 613, 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.