| 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 |