source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXEDIP.m@ 1423

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

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1PXEDIP ;ISL/PKR - Routines to print PCE device interface errors. ;6/7/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;
4 ;=======================================================================
5PR ;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 ;=======================================================================
23EDT ;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 ;=======================================================================
32ERN ;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 ;=======================================================================
40PAT ;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 ;=======================================================================
53PDT ;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 ;=======================================================================
63GENHEAD ;Print the general report heading.
64 S PAGE=0
65 D PAGE
66 Q
67 ;
68 ;=======================================================================
69PAGE ;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 ;
Note: See TracBrowser for help on using the repository browser.