source: WorldVistAEHR/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSPINQ.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1QAOSPINQ ;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
10ENTSK ; 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
19EXIT ;
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
Note: See TracBrowser for help on using the repository browser.