source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOSUDP2.m@ 846

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

initial load of WorldVistAEHR

File size: 689 bytes
Line 
1PSOSUDP2 ;BHAM ISC/RTR-Delete printed batched cont. ; 1/10/96
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3 ;
4BEG G:'$D(^UTILITY($J,"PSODEPT")) END
5 F PSAA=0:0 S PSAA=$O(^UTILITY($J,"PSODEPT",PSAA)) Q:'PSAA F PSBB=0:0 S PSBB=$O(^UTILITY($J,"PSODEPT",PSAA,PSBB)) Q:'PSBB F PSCC=0:0 S PSCC=$O(^UTILITY($J,"PSODEPT",PSAA,PSBB,PSCC)) Q:'PSCC D
6 .F PSDD=0:0 S PSDD=$O(^PS(52.5,"AS",PSAA,PSBB,PSCC,PSDD)) Q:'PSDD F PSEE=0:0 S PSEE=$O(^PS(52.5,"AS",PSAA,PSBB,PSCC,PSDD,PSEE)) Q:'PSEE D:$D(^PS(52.5,PSEE,0))&($P($G(^(0)),"^"))
7 ..S PSOIEN=+$P($G(^PS(52.5,PSEE,0)),"^") S DA=PSEE,DIK="^PS(52.5," D ^DIK
8END K ^UTILITY($J,"PSODEPT"),PSAA,PSBB,PSCC,PSDD,PSEE,PSOIEN D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@" Q
Note: See TracBrowser for help on using the repository browser.