- DGPFLMT3 ;ALB/RBS - PRF TRANSMIT VIEW MESSAGE LM SCREEN ; 4/27/05 1:05pm
- ;;5.3;Registration;**650,1015**;Aug 13, 1993;Build 21
- ;
- ;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
- DGPFLMT3 ;ALB/RBS - PRF TRANSMIT VIEW MESSAGE LM SCREEN ; 4/27/05 1:05pm
- +1 ;;5.3;Registration;**650,1015**;Aug 13, 1993;Build 21
- +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
