| [613] | 1 | PSGWEDI1 ;BHAM ISC/GRK,CML-Enter/Edit of AOU Inventory Values - CONTINUED ; 06 May 97 / 1:50 PM
|
|---|
| 2 | ;;2.3; Automatic Replenishment/Ward Stock ;**2,12**;4 JAN 94
|
|---|
| 3 | EN1 ; ENTRY POINT FROM PSGWEDI
|
|---|
| 4 | N GOTIT
|
|---|
| 5 | S DIC("W")="W $P(^(0),""^"",8)"
|
|---|
| 6 | I $L(PSGWDRG)>1 S X=$E(PSGWDRG,2,$L(X)),DIC(0)="QEM"
|
|---|
| 7 | E S DIC(0)="QEAM"
|
|---|
| 8 | S DIC("S")="D CHK^PSGWEDI1",DIC="^PSI(58.1,PSGWDA,1," D ^DIC
|
|---|
| 9 | W:('$G(GOTIT))&(+Y>0) !,"Item stocked in this AOU, but not listed on this Inventory Sheet!",! S:('$G(GOTIT))&(+Y>0) Y=-1 S DA=+Y K DIC Q:Y<0
|
|---|
| 10 | D ALIGN Q
|
|---|
| 11 | ;
|
|---|
| 12 | ;
|
|---|
| 13 | ALIGN ;Align on this item
|
|---|
| 14 | Q:'$D(^PSI(58.1,PSGWDA,1,+Y,0)) S K=^(0) D LOC S PSGTYP=""
|
|---|
| 15 | TYP S PSGTYP=$O(^PSI(58.19,"AINV",PSGWIDA,PSGWDA,PSG1,PSG2,PSG3,PSGTYP)) Q:PSGTYP=""
|
|---|
| 16 | I $D(^PSI(58.19,"AINV",PSGWIDA,PSGWDA,PSG1,PSG2,PSG3,PSGTYP,PSGDR)) S PSGDR=$E(PSGDR,1,$L(PSGDR)-1)_$E(" ",$E(PSGDR,$L(PSGDR))'=" ") Q
|
|---|
| 17 | E G TYP
|
|---|
| 18 | LOC ;Build item address
|
|---|
| 19 | S K1=$P(K,"^",8) F I=1:1:3 S @("PSG"_I)=$S($P(K1,",",I)]"":$P(K1,",",I),1:" ")
|
|---|
| 20 | S PSGDR=$S($D(^PSDRUG(+K,0))#2:$P(^(0),"^",1),1:+K)
|
|---|
| 21 | Q
|
|---|
| 22 | CHK ;CHECK TO SEE IF ENTRY IS IN THE AINV X-REF
|
|---|
| 23 | N P1,P2,P3,P4 S GOTIT=0 D
|
|---|
| 24 | .S P1="" F S P1=$O(^PSI(58.19,"AINV",PSGWIDA,PSGWDA,P1)) Q:P1="" Q:GOTIT D
|
|---|
| 25 | ..S P2="" F S P2=$O(^PSI(58.19,"AINV",PSGWIDA,PSGWDA,P1,P2)) Q:P2="" Q:GOTIT D
|
|---|
| 26 | ...S P3="" F S P3=$O(^PSI(58.19,"AINV",PSGWIDA,PSGWDA,P1,P2,P3)) Q:P3="" Q:GOTIT D
|
|---|
| 27 | ....S P4="" F S P4=$O(^PSI(58.19,"AINV",PSGWIDA,PSGWDA,P1,P2,P3,P4)) Q:P4="" I $D(^PSI(58.19,"AINV",PSGWIDA,PSGWDA,P1,P2,P3,P4,$P(^PSDRUG($P(^PSI(58.1,PSGWDA,1,+Y,0),"^"),0),"^"))) S GOTIT=1 Q
|
|---|
| 28 | Q
|
|---|
| 29 | EN3 ;ENTRY POINT FROM PSGWEDI
|
|---|
| 30 | S (A,^(1,PSGWIDA,0))=PSGWIDA_"^"_$P(^PSI(58.1,PSGWDA,1,PSGDDA,0),"^",2)
|
|---|
| 31 | I '$D(^PSI(58.1,PSGWDA,1,PSGDDA,1,0)) S ^(0)="^58.12P^"_PSGWIDA_"^1"
|
|---|
| 32 | E S ^(0)=$P(^PSI(58.1,PSGWDA,1,PSGDDA,1,0),"^",1,2)_"^"_$S($P(^(0),"^",3)<PSGWIDA:PSGWIDA,1:$P(^(0),"^",3))_"^"_($P(^(0),"^",4)+1)
|
|---|
| 33 | Q
|
|---|
