source:
WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJ0026.m@
1111
Last change on this file since 1111 was 613, checked in by , 15 years ago | |
---|---|
File size: 250 bytes |
Line | |
---|---|
1 | PSJ0026 ;BIR/RPS-UTILITY ROUTINE FOR PSJ*5.0*26 ;09 Mar 99 / 2:48 PM |
2 | ;;5.0; INPATIENT MEDICATIONS ;**26**;16 DEC 97 |
3 | N PSJY |
4 | S PSJY="" |
5 | F PSJY=0:0 S PSJY=$O(^PS(53.5,"AC",PSJY)) Q:PSJY="" D |
6 | .I '$G(^PS(53.5,+PSJY,0)) D |
7 | ..K ^PS(53.5,"AC",+PSJY) |
8 | Q |
Note:
See TracBrowser
for help on using the repository browser.