| 1 | PXEDIP ;ISL/PKR - Routines to print PCE device interface errors. ;6/7/96
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;=======================================================================
|
|---|
| 5 | PR ;Print the report.
|
|---|
| 6 | N DONE,INDENT,PAGE,PATDFN,POP,PXRROPT,TYPE
|
|---|
| 7 | ;
|
|---|
| 8 | ;Allow the task to be cleaned up upon successful completion.
|
|---|
| 9 | I $D(ZTSK) S ZTREQ="@"
|
|---|
| 10 | ;
|
|---|
| 11 | U IO
|
|---|
| 12 | D GENHEAD
|
|---|
| 13 | ;Write out the specific information.
|
|---|
| 14 | S DONE=0
|
|---|
| 15 | S INDENT=5
|
|---|
| 16 | I OPT="EDT" D EDT
|
|---|
| 17 | I OPT="ERN" D ERN
|
|---|
| 18 | I OPT="PAT" D PAT
|
|---|
| 19 | I OPT="PDT" D PDT
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | ;=======================================================================
|
|---|
| 23 | EDT ;Print the errors based on encounter date and time.
|
|---|
| 24 | S PATDFN=0
|
|---|
| 25 | S TYPE="EDT"
|
|---|
| 26 | W !!,"Report based on Encounter Date and Time:"
|
|---|
| 27 | W !,?INDENT,$$FMTE^XLFDT(BENDT,1)," through ",$$FMTE^XLFDT(EENDT,1),"."
|
|---|
| 28 | D ERRLST^PXEDIEL
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | ;=======================================================================
|
|---|
| 32 | ERN ;Print the errors based on error number.
|
|---|
| 33 | S PATDFN=0
|
|---|
| 34 | S TYPE="ERN"
|
|---|
| 35 | W !!,"Report based on Error Numbers ",BERN," through ",EERN,"."
|
|---|
| 36 | D ERRLST^PXEDIEL
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | ;=======================================================================
|
|---|
| 40 | PAT ;Print the errors based on patients.
|
|---|
| 41 | N IC
|
|---|
| 42 | S TYPE="PAT"
|
|---|
| 43 | W !!,"Report based on errors by patient."
|
|---|
| 44 | F IC=1:1:NPATIENT D
|
|---|
| 45 | . S (DFN,PATDFN)=PATIENT(IC)
|
|---|
| 46 | . D DEM^VADPT
|
|---|
| 47 | . W !,"Errors for patient ",VADM(1)," ",$P(VADM(2),U,2)
|
|---|
| 48 | . D ERRLST^PXEDIEL
|
|---|
| 49 | . D KVA^VADPT
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | ;=======================================================================
|
|---|
| 53 | PDT ;Print the errors based on error date and time.
|
|---|
| 54 | S PATDFN=0
|
|---|
| 55 | S TYPE="PDT"
|
|---|
| 56 | D GENHEAD
|
|---|
| 57 | W !!,"Report based on Processing Date and Time:"
|
|---|
| 58 | W !,?INDENT,$$FMTE^XLFDT(BERDT,1)," through ",$$FMTE^XLFDT(EERDT,1),"."
|
|---|
| 59 | D ERRLST^PXEDIEL
|
|---|
| 60 | Q
|
|---|
| 61 | ;
|
|---|
| 62 | ;=======================================================================
|
|---|
| 63 | GENHEAD ;Print the general report heading.
|
|---|
| 64 | S PAGE=0
|
|---|
| 65 | D PAGE
|
|---|
| 66 | Q
|
|---|
| 67 | ;
|
|---|
| 68 | ;=======================================================================
|
|---|
| 69 | PAGE ;form feed to new page
|
|---|
| 70 | I (PAGE>0)&(($E(IOST)="C")&(IO=IO(0))) D
|
|---|
| 71 | . S DIR(0)="E"
|
|---|
| 72 | . W !
|
|---|
| 73 | . D ^DIR K DIR
|
|---|
| 74 | I $D(DUOUT)!($D(DTOUT)) D Q
|
|---|
| 75 | . S DONE=1
|
|---|
| 76 | I PAGE>0 W:$D(IOF) @IOF
|
|---|
| 77 | S PAGE=PAGE+1
|
|---|
| 78 | D HDR^PXRRGPRT(PAGE)
|
|---|
| 79 | Q
|
|---|
| 80 | ;
|
|---|
