- PXEDIM ;ISL/PKR - Main driver for letting users look at PCE device interface errors. ;6/7/96
- ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
- ;
- ;Give the user a choice on how to look up errors.
- N TEMP,X,Y
- K DIRUT,DTOUT,DUOUT
- S DIR(0)="SO"_U_"ERN:Error Number;PDT:Processing Date and Time;EDT:Encounter Date and Time;PAT:Patient Name"
- S DIR("A")="Look up PCE device interface errors based on"
- S DIR("B")="ERN"
- S TEMP="You may look up PCE device interface errors by Error Number, Error Date and Time,"
- S TEMP=TEMP_" Encounter Date and Time, or by Patient Name."
- S DIR("?")=TEMP
- D ^DIR K DIR
- I Y=(U_U) S DTOUT=1
- I ($D(DTOUT))!($D(DUOUT)) Q
- ;
- ;Get the detailed look up information.
- N BERN,BENDT,BERDT,EERN,EENDT,EERDT
- N OPT,PATIENT,NPATIENT
- S OPT=Y
- I OPT="EDT" D DT^PXEDILUD(.BENDT,.EENDT,"ENCOUNTER")
- I OPT="ERN" D EN^PXEDILUD(.BERN,.EERN)
- I OPT="PAT" D PAT^PXEDILUD
- I OPT="PDT" D DT^PXEDILUD(.BERDT,.EERDT,"PROCESSING")
- I ($D(DTOUT))!($D(DUOUT)) Q
- ;
- ;Make sure the scratch array is initialized.
- K ^TMP("PXEDI",$J)
- ;
- ;Look up the errors.
- I OPT="ERN" D ERN^PXEDIELU
- I OPT="PDT" D PDT^PXEDIELU
- I OPT="EDT" D EDT^PXEDIELU
- I OPT="PAT" D PAT^PXEDIELU
- ;
- I '$D(^TMP("PXEDI",$J)) D Q
- . W !!,"There are no PCE device interface errors to process!",!
- ;
- ;Determine where the listing will be printed.
- S %ZIS="QM"
- W !
- D ^%ZIS
- I POP G END
- ;
- ;Queue the report.
- N DESC,IODEV
- I $D(IO("Q")) D
- . S DESC="Print PCE device interface errors"
- . S IODEV=ION_";"_IOST_";"_IOM_";"_IOSL
- . S ZTSAVE("^TMP(""PXEDI"",$J,")=""
- . S ZTSAVE("BERN")="",ZTSAVE("EERN")=""
- . S ZTSAVE("BENDT")="",ZTSAVE("EENDT")=""
- . S ZTSAVE("BERDT")="",ZTSAVE("EERDT")=""
- . S ZTSAVE("PATIENT(")="",ZTSAVE("NPATIENT")=""
- . S ZTSAVE("OPT")=""
- . S ZTDESC=DESC
- . S ZTIO=IODEV
- . S ZTDTH=$$NOW^XLFDT
- . S ZTRTN="PR^PXEDIP"
- . D ^%ZTLOAD
- . I $D(ZTSK)[0 W !!,DESC_" cancelled"
- . E W !!,DESC_" has been queued, task number "_ZTSK
- ;Non queued output.
- E D PR^PXEDIP
- ;
- END ;
- D HOME^%ZIS
- K IO("Q")
- K POP
- K ^TMP("PXEDI",$J)
- Q
- PXEDIM ;ISL/PKR - Main driver for letting users look at PCE device interface errors. ;6/7/96
- +1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
- +2 ;
- +3 ;Give the user a choice on how to look up errors.
- +4 NEW TEMP,X,Y
- +5 KILL DIRUT,DTOUT,DUOUT
- +6 SET DIR(0)="SO"_U_"ERN:Error Number;PDT:Processing Date and Time;EDT:Encounter Date and Time;PAT:Patient Name"
- +7 SET DIR("A")="Look up PCE device interface errors based on"
- +8 SET DIR("B")="ERN"
- +9 SET TEMP="You may look up PCE device interface errors by Error Number, Error Date and Time,"
- +10 SET TEMP=TEMP_" Encounter Date and Time, or by Patient Name."
- +11 SET DIR("?")=TEMP
- +12 DO ^DIR
- KILL DIR
- +13 IF Y=(U_U)
- SET DTOUT=1
- +14 IF ($DATA(DTOUT))!($DATA(DUOUT))
- QUIT
- +15 ;
- +16 ;Get the detailed look up information.
- +17 NEW BERN,BENDT,BERDT,EERN,EENDT,EERDT
- +18 NEW OPT,PATIENT,NPATIENT
- +19 SET OPT=Y
- +20 IF OPT="EDT"
- DO DT^PXEDILUD(.BENDT,.EENDT,"ENCOUNTER")
- +21 IF OPT="ERN"
- DO EN^PXEDILUD(.BERN,.EERN)
- +22 IF OPT="PAT"
- DO PAT^PXEDILUD
- +23 IF OPT="PDT"
- DO DT^PXEDILUD(.BERDT,.EERDT,"PROCESSING")
- +24 IF ($DATA(DTOUT))!($DATA(DUOUT))
- QUIT
- +25 ;
- +26 ;Make sure the scratch array is initialized.
- +27 KILL ^TMP("PXEDI",$JOB)
- +28 ;
- +29 ;Look up the errors.
- +30 IF OPT="ERN"
- DO ERN^PXEDIELU
- +31 IF OPT="PDT"
- DO PDT^PXEDIELU
- +32 IF OPT="EDT"
- DO EDT^PXEDIELU
- +33 IF OPT="PAT"
- DO PAT^PXEDIELU
- +34 ;
- +35 IF '$DATA(^TMP("PXEDI",$JOB))
- Begin DoDot:1
- +36 WRITE !!,"There are no PCE device interface errors to process!",!
- End DoDot:1
- QUIT
- +37 ;
- +38 ;Determine where the listing will be printed.
- +39 SET %ZIS="QM"
- +40 WRITE !
- +41 DO ^%ZIS
- +42 IF POP
- GOTO END
- +43 ;
- +44 ;Queue the report.
- +45 NEW DESC,IODEV
- +46 IF $DATA(IO("Q"))
- Begin DoDot:1
- +47 SET DESC="Print PCE device interface errors"
- +48 SET IODEV=ION_";"_IOST_";"_IOM_";"_IOSL
- +49 SET ZTSAVE("^TMP(""PXEDI"",$J,")=""
- +50 SET ZTSAVE("BERN")=""
- SET ZTSAVE("EERN")=""
- +51 SET ZTSAVE("BENDT")=""
- SET ZTSAVE("EENDT")=""
- +52 SET ZTSAVE("BERDT")=""
- SET ZTSAVE("EERDT")=""
- +53 SET ZTSAVE("PATIENT(")=""
- SET ZTSAVE("NPATIENT")=""
- +54 SET ZTSAVE("OPT")=""
- +55 SET ZTDESC=DESC
- +56 SET ZTIO=IODEV
- +57 SET ZTDTH=$$NOW^XLFDT
- +58 SET ZTRTN="PR^PXEDIP"
- +59 DO ^%ZTLOAD
- +60 IF $DATA(ZTSK)[0
- WRITE !!,DESC_" cancelled"
- +61 IF '$TEST
- WRITE !!,DESC_" has been queued, task number "_ZTSK
- End DoDot:1
- +62 ;Non queued output.
- +63 IF '$TEST
- DO PR^PXEDIP
- +64 ;
- END ;
- +1 DO HOME^%ZIS
- +2 KILL IO("Q")
- +3 KILL POP
- +4 KILL ^TMP("PXEDI",$JOB)
- +5 QUIT
