source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOHPOST.m@ 1582

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

initial load of WorldVistAEHR
File size: 899 bytes
RevLine 
[613]1PSOHPOST ;BHAM ISC/RTR - Patch PSO*6*138 post init ; 06/12/95
2 ;;6.0;OUTPATIENT PHARMACY;**138**;APRIL 1993
3 S DIK="^PS(52.11,",DA=0 F S DA=$O(^PS(52.11,DA)) Q:'DA D ^DIK
4 K ^PS(52.11,"AD"),^PS(52.11,"ANAM"),^PS(52.11,"ATIC"),^PS(52.11,"BI"),^PS(52.11,"B"),^PS(52.11,"BA"),^PS(52.11,"C")
5 F ZZ=0:0 S ZZ=$O(^PS(52.5,"AC",ZZ)) Q:'ZZ F XX=0:0 S XX=$O(^PS(52.5,"AC",ZZ,XX)) Q:'XX F TT=0:0 S TT=$O(^PS(52.5,"AC",ZZ,XX,TT)) Q:'TT D
6 .I '$D(^PS(52.5,TT,0)) K ^PS(52.5,"AC",ZZ,XX,TT),^PS(52.5,"C",XX,TT) Q
7 .I $D(^PS(52.5,TT,0)),XX'=$P(^(0),"^",2) D
8 ..S PSOSDATE=$P(^PS(52.5,TT,0),"^",2) K ^PS(52.5,"AC",ZZ,XX,TT),^PS(52.5,"C",XX,TT) S ^PS(52.5,"C",PSOSDATE,TT)="" I $G(^PS(52.5,TT,"P"))=0!($G(^PS(52.5,TT,"P"))=2) S ^PS(52.5,"AC",ZZ,PSOSDATE,TT)=""
9 .I $P($G(^PS(52.5,TT,0)),"^",7)'="" S PSCMDATE=+$P($G(^(0)),"^",2) K ^PS(52.5,"AC",ZZ,PSCMDATE,TT)
10END K DA,DIE,ZZ,XX,TT,PSOQTIME,PSOSDATE,PSCMDATE Q
Note: See TracBrowser for help on using the repository browser.