DGPFLMAD ;ALB/KCL - PRF DISPLAY ASSIGNMENT DETAIL LM SCREEN ; 4/25/03 3:22pm
;;5.3;Registration;**425**;Aug 13, 1993
;
;no direct entry
QUIT
;
EN ;Main entry point for DGPF RECORD FLAG DETAIL list template.
;
; Input:
; DGDFN - ien of PATIENT (#2) file
; DGIEN - ien of PRF ASSIGNMENT (#26.13) file
;
; Output: None
;
;quit if required input parameters not defined
Q:'$G(DGDFN)
Q:'$G(DGIEN)
;
;display wait msg to user
D WAIT^DICD
;
;invoke list manager and load list template
D EN^VALM("DGPF ASSIGNMENT DETAIL")
Q
;
;
HDR ;Header Code
D BLDHDR^DGPFLMU(DGDFN,.VALMHDR)
Q
;
;
INIT ;Init variables and list array
D BLD
Q
;
;
BLD ;Build record flag detail LM screen
D CLEAN^VALM10
K VALMHDR
K ^TMP("DGPFDET",$J)
;
;init number of lines in list
S VALMCNT=0
;
;build header
D HDR
;
;build list area for record flag detail
D EN^DGPFLMU1("DGPFDET",DGIEN,DGDFN,.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("DGPFDET",$J)
Q
;
;
EXPND ;Expand Code
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPFLMAD 1154 printed Oct 16, 2024@18:48:53 Page 2
DGPFLMAD ;ALB/KCL - PRF DISPLAY ASSIGNMENT DETAIL LM SCREEN ; 4/25/03 3:22pm
+1 ;;5.3;Registration;**425**;Aug 13, 1993
+2 ;
+3 ;no direct entry
+4 QUIT
+5 ;
EN ;Main entry point for DGPF RECORD FLAG DETAIL list template.
+1 ;
+2 ; Input:
+3 ; DGDFN - ien of PATIENT (#2) file
+4 ; DGIEN - ien of PRF ASSIGNMENT (#26.13) file
+5 ;
+6 ; Output: None
+7 ;
+8 ;quit if required input parameters not defined
+9 if '$GET(DGDFN)
QUIT
+10 if '$GET(DGIEN)
QUIT
+11 ;
+12 ;display wait msg to user
+13 DO WAIT^DICD
+14 ;
+15 ;invoke list manager and load list template
+16 DO EN^VALM("DGPF ASSIGNMENT DETAIL")
+17 QUIT
+18 ;
+19 ;
HDR ;Header Code
+1 DO BLDHDR^DGPFLMU(DGDFN,.VALMHDR)
+2 QUIT
+3 ;
+4 ;
INIT ;Init variables and list array
+1 DO BLD
+2 QUIT
+3 ;
+4 ;
BLD ;Build record flag detail LM screen
+1 DO CLEAN^VALM10
+2 KILL VALMHDR
+3 KILL ^TMP("DGPFDET",$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 record flag detail
+12 DO EN^DGPFLMU1("DGPFDET",DGIEN,DGDFN,.VALMCNT)
+13 ;
+14 QUIT
+15 ;
+16 ;
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("DGPFDET",$JOB)
+4 QUIT
+5 ;
+6 ;
EXPND ;Expand Code
+1 QUIT
