source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPFLMT3.m@ 1590

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

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1DGPFLMT3 ;ALB/RBS - PRF TRANSMIT VIEW MESSAGE LM SCREEN ; 4/27/05 1:05pm
2 ;;5.3;Registration;**650**;Aug 13, 1993;Build 3
3 ;
4 ;no direct entry
5 QUIT
6 ;
7 ;
8EN(DGDFN,DGPFIEN) ;Entry point of DGPF TRANSMIT VIEW MESSAGE list template.
9 ;
10 ; Input:
11 ; DGDFN - ien of PATIENT (#2) file
12 ; DGPFIEN - ien of PRF HL7 TRANSMISSION LOG (#26.17) record
13 ;
14 ; Output: None
15 ;
16 ;quit if required input parameters not defined
17 Q:'$G(DGDFN)
18 Q:'$G(DGPFIEN)
19 ;
20 ;display wait msg to user
21 D WAIT^DICD
22 ;
23 ;invoke list template
24 D EN^VALM("DGPF TRANSMIT VIEW MESSAGE")
25 Q
26 ;
27 ;
28HDR ;Header Code - build patient header detail area
29 D HDRBLD(DGDFN,.VALMHDR)
30 Q
31 ;
32 ;
33HDRBLD(DGDFN,DGPFHDR) ;This procedure builds the List Manager header.
34 ;
35 ; Supported DBIA #2701: $$GETICN^MPIF001
36 ; The supported DBIA is used to access the MPI functions to
37 ; retrieve the ICN.
38 ;
39 ; Input:
40 ; DGDFN - internal entry number of PATIENT (#2) file
41 ; DGPFHDR - header array passed by reference
42 ;
43 ; Output:
44 ; DGPFHDR - header array (VALMHDR)
45 ;
46 N DGICN ;national integrated control number
47 N DGPFPAT ;patient identifying info array
48 ;
49 ;get patient identifying info
50 I $$GETPAT^DGPFUT2(DGDFN,.DGPFPAT)
51 ;
52 ;set 1st line of header
53 S DGPFHDR(1)="Patient: "_$G(DGPFPAT("NAME"))_" "
54 S DGPFHDR(1)=$$SETSTR^VALM1("("_$G(DGPFPAT("SSN"))_")",DGPFHDR(1),$L(DGPFHDR(1))+1,80)
55 S DGPFHDR(1)=$$SETSTR^VALM1("DOB: "_$$FDATE^VALM1($G(DGPFPAT("DOB"))),DGPFHDR(1),54,80)
56 ;
57 ;set 2nd line of header
58 S DGICN=$$GETICN^MPIF001(DGDFN)
59 S DGICN=$S(DGICN<0:"No ICN for patient",1:DGICN)
60 S DGPFHDR(2)=" ICN: "_DGICN
61 Q
62 ;
63 ;
64INIT ;Init variables and list array
65 D BLD
66 Q
67 ;
68 ;
69BLD ;Build error message detail screen (list area)
70 D CLEAN^VALM10
71 K VALMHDR
72 K ^TMP("DGPFVDET",$J)
73 ;
74 ;init number of lines in list
75 S VALMCNT=0
76 ;
77 ;build header
78 D HDR
79 ;
80 ;build list area for error message detail
81 D EN^DGPFLMT4("DGPFVDET",DGPFIEN,.VALMCNT)
82 ;
83 I 'VALMCNT D
84 . D SET^DGPFLMT1("DGPFVDET",1,"",1,,,.VALMCNT)
85 . D SET^DGPFLMT1("DGPFVDET",2,"...Sorry, no PRF assignment record details were found to display.",4,$G(IOINHI),$G(IOINORM),.VALMCNT)
86 ;
87 Q
88 ;
89 ;
90HELP ;Help Code
91 N X
92 S X="?" D DISP^XQORM1 W !!
93 Q
94 ;
95 ;
96EXIT ;Exit Code
97 D CLEAN^VALM10
98 D CLEAR^VALM1
99 K ^TMP("DGPFVDET",$J)
100 Q
101 ;
102 ;
103EXPND ;Expand Code
104 Q
Note: See TracBrowser for help on using the repository browser.