source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJ0026.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 250 bytes
Line 
1PSJ0026 ;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.