DGPFLMT3 ;ALB/RBS - PRF TRANSMIT VIEW MESSAGE LM SCREEN ; 4/27/05 1:05pm
;;5.3;Registration;**650**;Aug 13, 1993;Build 3
;
;no direct entry
QUIT
;
;
EN(DGDFN,DGPFIEN) ;Entry point of DGPF TRANSMIT VIEW MESSAGE list template.
;
; Input:
; DGDFN - ien of PATIENT (#2) file
; DGPFIEN - ien of PRF HL7 TRANSMISSION LOG (#26.17) record
;
; Output: None
;
;quit if required input parameters not defined
Q:'$G(DGDFN)
Q:'$G(DGPFIEN)
;
;display wait msg to user
D WAIT^DICD
;
;invoke list template
D EN^VALM("DGPF TRANSMIT VIEW MESSAGE")
Q
;
;
HDR ;Header Code - build patient header detail area
D HDRBLD(DGDFN,.VALMHDR)
Q
;
;
HDRBLD(DGDFN,DGPFHDR) ;This procedure builds the List Manager header.
;
; Supported DBIA #2701: $$GETICN^MPIF001
; The supported DBIA is used to access the MPI functions to
; retrieve the ICN.
;
; Input:
; DGDFN - internal entry number of PATIENT (#2) file
; DGPFHDR - header array passed by reference
;
; Output:
; DGPFHDR - header array (VALMHDR)
;
N DGICN ;national integrated control number
N DGPFPAT ;patient identifying info array
;
;get patient identifying info
I $$GETPAT^DGPFUT2(DGDFN,.DGPFPAT)
;
;set 1st line of header
S DGPFHDR(1)="Patient: "_$G(DGPFPAT("NAME"))_" "
S DGPFHDR(1)=$$SETSTR^VALM1("("_$G(DGPFPAT("SSN"))_")",DGPFHDR(1),$L(DGPFHDR(1))+1,80)
S DGPFHDR(1)=$$SETSTR^VALM1("DOB: "_$$FDATE^VALM1($G(DGPFPAT("DOB"))),DGPFHDR(1),54,80)
;
;set 2nd line of header
S DGICN=$$GETICN^MPIF001(DGDFN)
S DGICN=$S(DGICN<0:"No ICN for patient",1:DGICN)
S DGPFHDR(2)=" ICN: "_DGICN
Q
;
;
INIT ;Init variables and list array
D BLD
Q
;
;
BLD ;Build error message detail screen (list area)
D CLEAN^VALM10
K VALMHDR
K ^TMP("DGPFVDET",$J)
;
;init number of lines in list
S VALMCNT=0
;
;build header
D HDR
;
;build list area for error message detail
D EN^DGPFLMT4("DGPFVDET",DGPFIEN,.VALMCNT)
;
I 'VALMCNT D
. D SET^DGPFLMT1("DGPFVDET",1,"",1,,,.VALMCNT)
. D SET^DGPFLMT1("DGPFVDET",2,"...Sorry, no PRF assignment record details were found to display.",4,$G(IOINHI),$G(IOINORM),.VALMCNT)
;
Q
;
;
HELP ;Help Code
N X
S X="?" D DISP^XQORM1 W !!
Q
;
;
EXIT ;Exit Code
D CLEAN^VALM10
D CLEAR^VALM1
K ^TMP("DGPFVDET",$J)
Q
;
;
EXPND ;Expand Code
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPFLMT3 2395 printed Nov 22, 2024@17:58:23 Page 2
DGPFLMT3 ;ALB/RBS - PRF TRANSMIT VIEW MESSAGE LM SCREEN ; 4/27/05 1:05pm
+1 ;;5.3;Registration;**650**;Aug 13, 1993;Build 3
+2 ;
+3 ;no direct entry
+4 QUIT
+5 ;
+6 ;
EN(DGDFN,DGPFIEN) ;Entry point of DGPF TRANSMIT VIEW MESSAGE list template.
+1 ;
+2 ; Input:
+3 ; DGDFN - ien of PATIENT (#2) file
+4 ; DGPFIEN - ien of PRF HL7 TRANSMISSION LOG (#26.17) record
+5 ;
+6 ; Output: None
+7 ;
+8 ;quit if required input parameters not defined
+9 if '$GET(DGDFN)
QUIT
+10 if '$GET(DGPFIEN)
QUIT
+11 ;
+12 ;display wait msg to user
+13 DO WAIT^DICD
+14 ;
+15 ;invoke list template
+16 DO EN^VALM("DGPF TRANSMIT VIEW MESSAGE")
+17 QUIT
+18 ;
+19 ;
HDR ;Header Code - build patient header detail area
+1 DO HDRBLD(DGDFN,.VALMHDR)
+2 QUIT
+3 ;
+4 ;
HDRBLD(DGDFN,DGPFHDR) ;This procedure builds the List Manager header.
+1 ;
+2 ; Supported DBIA #2701: $$GETICN^MPIF001
+3 ; The supported DBIA is used to access the MPI functions to
+4 ; retrieve the ICN.
+5 ;
+6 ; Input:
+7 ; DGDFN - internal entry number of PATIENT (#2) file
+8 ; DGPFHDR - header array passed by reference
+9 ;
+10 ; Output:
+11 ; DGPFHDR - header array (VALMHDR)
+12 ;
+13 ;national integrated control number
NEW DGICN
+14 ;patient identifying info array
NEW DGPFPAT
+15 ;
+16 ;get patient identifying info
+17 IF $$GETPAT^DGPFUT2(DGDFN,.DGPFPAT)
+18 ;
+19 ;set 1st line of header
+20 SET DGPFHDR(1)="Patient: "_$GET(DGPFPAT("NAME"))_" "
+21 SET DGPFHDR(1)=$$SETSTR^VALM1("("_$GET(DGPFPAT("SSN"))_")",DGPFHDR(1),$LENGTH(DGPFHDR(1))+1,80)
+22 SET DGPFHDR(1)=$$SETSTR^VALM1("DOB: "_$$FDATE^VALM1($GET(DGPFPAT("DOB"))),DGPFHDR(1),54,80)
+23 ;
+24 ;set 2nd line of header
+25 SET DGICN=$$GETICN^MPIF001(DGDFN)
+26 SET DGICN=$SELECT(DGICN<0:"No ICN for patient",1:DGICN)
+27 SET DGPFHDR(2)=" ICN: "_DGICN
+28 QUIT
+29 ;
+30 ;
INIT ;Init variables and list array
+1 DO BLD
+2 QUIT
+3 ;
+4 ;
BLD ;Build error message detail screen (list area)
+1 DO CLEAN^VALM10
+2 KILL VALMHDR
+3 KILL ^TMP("DGPFVDET",$JOB)
+4 ;
+5 ;init number of lines in list
+6 SET VALMCNT=0
+7 ;
+8 ;build header
+9 DO HDR
+10 ;
+11 ;build list area for error message detail
+12 DO EN^DGPFLMT4("DGPFVDET",DGPFIEN,.VALMCNT)
+13 ;
+14 IF 'VALMCNT
Begin DoDot:1
+15 DO SET^DGPFLMT1("DGPFVDET",1,"",1,,,.VALMCNT)
+16 DO SET^DGPFLMT1("DGPFVDET",2,"...Sorry, no PRF assignment record details were found to display.",4,$GET(IOINHI),$GET(IOINORM),.VALMCNT)
End DoDot:1
+17 ;
+18 QUIT
+19 ;
+20 ;
HELP ;Help Code
+1 NEW X
+2 SET X="?"
DO DISP^XQORM1
WRITE !!
+3 QUIT
+4 ;
+5 ;
EXIT ;Exit Code
+1 DO CLEAN^VALM10
+2 DO CLEAR^VALM1
+3 KILL ^TMP("DGPFVDET",$JOB)
+4 QUIT
+5 ;
+6 ;
EXPND ;Expand Code
+1 QUIT
