source:
FOIAVistA/tag/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJ0026.m@
1074
Last change on this file since 1074 was 628, checked in by , 15 years ago | |
---|---|
File size: 250 bytes |
Rev | Line | |
---|---|---|
[628] | 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.