PSGW BO LOCATION (156) FUNCTION (.5)
Name
Value
NAME
PSGW BO LOCATION
MUMPS CODE
S X=$P(^PSI(58.3,D0,0),"^",1),DIC(0)="N",DIC="^PSI(58.1,D1,1," D ^DIC Q:Y<0 S X=$S($D(^PSI(58.1,D1,1,+Y,0)):$P(^(0),"^",8),1:"")
EXPLANATION
Lookup and then print the AOU item location for a backordered item