source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCDXPRN1.m@ 1141

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1SCDXPRN1 ;ALB/JRP - HISTORY FILE REPORTS;21-JUL-1997
2 ;;5.3;Scheduling;**128,140**;AUG 13, 1993
3 ;
4PATHIST ;Print transmission history report for patient
5 ; - Report based within the ACRP Transmission History file (#409.77)
6 ; - User prompted for patient and encounter date range
7 ; - Report formatted for 80 columns (allows output to screen)
8 ;
9 ;Declare variables
10 N DFN,BEGDATE,ENDDATE
11 N DIC,L,FLDS,BY,FR,TO,DISPAR,DHD,X,Y,DTOUT,DUOUT
12 ;Get patient
13 W !!!,">> PATIENT SELECTION <<",!
14 S DIC=2
15 S DIC(0)="AEMQZ"
16 D ^DIC
17 Q:(($D(DTOUT))!($D(DUOUT))!(Y<0))
18 S DFN=+Y
19 ;Get date range
20 W !!!,">> DATE RANGE SELECTION <<",!
21 ; Earliest and latest date allowed
22 S BEGDATE=2961001
23 S ENDDATE=$$DT^XLFDT()
24 ; Begin date help text
25 S FR(1)="Enter encounter date to begin search from"
26 S FR(2)=" "
27 S FR(3)=$$FMTE^XLFDT(BEGDATE)_" is the earliest date allowed"
28 S FR(4)=$$FMTE^XLFDT(ENDDATE)_" will be the latest date allowed"
29 S FR(5)=" "
30 S FR(6)="Note: Encounter date does not always match date of"
31 S FR=" transmission to the National Patient Care Database"
32 ; End date help text
33 S TO(1)="Enter encounter date to end search at"
34 S TO(2)=" "
35 S TO(3)=$$FMTE^XLFDT(ENDDATE)_" is the latest date allowed"
36 S TO(4)=$$FMTE^XLFDT(BEGDATE)_" was the earliest date allowed"
37 S TO(5)=" "
38 S TO(6)="Note: Encounter date does not always match date of"
39 S TO=" transmission to the National Patient Care Database"
40 S L=$$GETDTRNG^SCDXUTL1(BEGDATE,ENDDATE,"FR","TO")
41 Q:(L<0)
42 S BEGDATE=+$P(L,"^",1)
43 S ENDDATE=+$P(L,"^",2)
44 K FR,TO
45 ;Make end date midnight
46 S ENDDATE=$$FMADD^XLFDT(ENDDATE,0,23,59,59)
47 ;Define sort criteria
48 S DIC="^SD(409.77,"
49 S L=0
50 S BY="+.06;S"
51 S FR=""
52 S TO=""
53 ;Pre-sort accomplished through ADFN x-ref
54 S BY(0)="^SD(409.77,""ADFN"","
55 S L(0)=3
56 S FR(0,1)=DFN
57 S TO(0,1)=DFN
58 S FR(0,2)=BEGDATE
59 S TO(0,2)=ENDDATE
60 ;Define subheader
61 S DISPAR(0,1)="^;""PATIENT: """
62 S DISPAR(0,1,"OUT")="N DFN,VA,VAERR S DFN=Y D PID^VADPT S Y=$P($G(^DPT(DFN,0),""BAD DFN""),""^"",1)_"" (""_$S(VAERR:(""#""_DFN),1:VA(""BID""))_"")"""
63 ;Define print fields
64 S FLDS="[SCDX XMIT HIST FOR PATIENT]"
65 ;Define header
66 S DHD="ACRP TRANSMISSIONS FOR ENCOUNTERS OCCURRING BETWEEN "_$$FMTE^XLFDT(BEGDATE,"5D")_" AND "_$$FMTE^XLFDT(ENDDATE,"5D")
67 ;Print report
68 D EN1^DIP
69 ;Done
70 Q
Note: See TracBrowser for help on using the repository browser.