|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
695 bytes
|
| Line | |
|---|
| 1 | SOWKLOC ;B'HAM ISC/SAB-Routine to inquire for patient's location ; 22 Jan 93 / 10:17 AM
|
|---|
| 2 | ;;3.0; Social Work ;;27 Apr 93
|
|---|
| 3 | SEA W ! S DIC("A")="SELECT CASE: ",DIC="^SOWK(650,",DIC(0)="AQEM" D ^DIC G:"^"[X CLO G SEA:Y<0 S DA=+Y,A=^SOWK(650,DA,0)
|
|---|
| 4 | K %ZIS,IOP,ZTSK S SOWKION=ION,%ZIS="QM" D ^%ZIS K %ZIS I POP S IOP=SOWKION D ^%ZIS K IOP,SOWKION G CLO
|
|---|
| 5 | K SOWKION I $D(IO("Q")) S ZTDESC="PATIENT INQUIRY REPORT",ZTRTN="ENQ^SOWKLOC" F G="DA","DIC" S:$D(@G) ZTSAVE(G)=""
|
|---|
| 6 | I K IO("Q") D ^%ZTLOAD W:$D(ZTSK) !!,"Task Queued to Print",! K G,DA,DIK,ZTSK G CLO Q
|
|---|
| 7 | ENQ U IO W:$Y @IOF D EN^DIQ
|
|---|
| 8 | CLO W:$E(IOST)'["C" @IOF D ^%ZISC K DA,DIC,A,IOP,POP,%ZIS,SWAL,SWCN,SWOD,SWPAT,SWW,X,Y,SWCD D:$D(ZTSK) KILL^%ZTLOAD Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
