| 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 | ;
|
---|