| 1 | QAOSPINQ ;HISC/DAD-OCCURRENCE SCREEN PATIENT INQUIRE ;6/11/93 15:52
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | S QAQDIC="^QA(741,",QAQDIC(0)="AEMNQZ",QAQDIC("A")="Select PATIENT: "
|
|---|
| 4 | S QAQUTIL="QAOSPINQ" D ^QAQSELCT G:QAQQUIT EXIT
|
|---|
| 5 | K %ZIS,IOP S %ZIS="MNQ" W ! D ^%ZIS G:POP EXIT
|
|---|
| 6 | I $D(IO("Q")) K IO("Q") D G EXIT
|
|---|
| 7 | . S ZTRTN="ENTSK^QAOSPINQ",ZTDESC="Occurrence Screen Patient Inquire"
|
|---|
| 8 | . S ZTSAVE("^UTILITY($J,")="" D ^%ZTLOAD
|
|---|
| 9 | . Q
|
|---|
| 10 | ENTSK ; TASKED ENTRY POINT
|
|---|
| 11 | S QAOSQUIT=0,QAOSNAME="",QAOSIOST=IOST
|
|---|
| 12 | S QAOSIOP=ION_";"_IOST_";"_IOM_";"_IOSL
|
|---|
| 13 | S %X="^UTILITY($J,""QAOSPINQ"",",%Y="^TMP($J,""QAOSPINQ""," D %XY^%RCR
|
|---|
| 14 | F S QAOSNAME=$O(^TMP($J,"QAOSPINQ",QAOSNAME)) Q:QAOSNAME=""!QAOSQUIT F QAOSD0=0:0 S QAOSD0=$O(^TMP($J,"QAOSPINQ",QAOSNAME,QAOSD0)) Q:QAOSD0'>0!QAOSQUIT D
|
|---|
| 15 | . S DIC="^QA(741,",BY="@NUMBER",(FR,TO)=QAOSD0,FLDS="[CAPTIONED]",L=0
|
|---|
| 16 | . S IOP=QAOSIOP D EN1^DIP
|
|---|
| 17 | . I $E(QAOSIOST)="C" K DIR S DIR(0)="E" D ^DIR S QAOSQUIT=$S(Y'>0:1,1:0)
|
|---|
| 18 | . Q
|
|---|
| 19 | EXIT ;
|
|---|
| 20 | K %ZIS,BY,DIC,DIR,FLDS,FR,P,POP,QAOSD0,QAOSIOP,QAOSQUIT,QAQDIC,QAQQUIT
|
|---|
| 21 | K QAOSIOST,QAOSNAME,QAQUTIL,TO,Y,ZTDESC,ZTRTN,ZTSAVEE
|
|---|
| 22 | K ^TMP($J,"QAOSPINQ"),^UTILITY($J,"QAOSPINQ")
|
|---|
| 23 | D HOME^%ZIS S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 24 | Q
|
|---|
