source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOXZA5.m@ 1046

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

revised back to 6/30/08 version

File size: 773 bytes
RevLine 
[623]1PSOXZA5 ; COMPILED XREF FOR FILE #52.2 ; 01/17/08
[613]2 ;
3 S DA=0
4A1 ;
5 I $D(DIKILL) K DIKLM S:DIKM1=1 DIKLM=1 G @DIKM1
60 ;
7A S DA=$O(^PSRX(DA(1),"P",DA)) I DA'>0 S DA=0 G END
81 ;
9 S DIKZ(0)=$G(^PSRX(DA(1),"P",DA,0))
10 S X=$P(DIKZ(0),U,9)
11 I X'="" D KAS2^PSOSUTL
12 S X=$P(DIKZ(0),U,16)
13 I X'="" K ^PSRX("AN",$E(X,1,30),DA(1),DA)
14 S X=$P(DIKZ(0),U,19)
15 I X'="" K ^PSRX("AM",$E(X,1,30),DA(1),DA)
16 S X=$P(DIKZ(0),U,1)
17 I X'="" K ^PSRX("ADP",$E(X,1,7),DA(1),DA)
18 S X=$P(DIKZ(0),U,1)
19 I X'="" D:'$G(PSOSUSPA) PARKILL^PSOUTLA
20CR1 S DIXR=478
21 K X
22 S X(1)=$P(DIKZ(0),U,10)
23 S X(2)=$P(DIKZ(0),U,19)
24 S X=$G(X(1))
25 I $G(X(1))]"",$G(X(2))]"" D
26 . K X1,X2 M X1=X,X2=X
27 . S:$D(DIKIL) (X2,X2(1),X2(2))=""
28 . D SKIDX^PSOPXRMU(.X,.DA,"P","K")
29CR2 K X
30 G:'$D(DIKLM) A Q:$D(DIKILL)
31END G ^PSOXZA6
Note: See TracBrowser for help on using the repository browser.