DGPFLMQD ;ALB/RPM - PRF QUERY RESULTS DETAIL LM SCREEN ; 1/26/06 11:43
;;5.3;Registration;**650**;Aug 13, 1993;Build 3
;
Q ;no direct entry
;
EN(DGSET,DGORF) ;Main entry point for DGPF QUERY DETAIL list template.
;
; Input:
; DGSET - query result assignment ID
; DGORF - array of parsed query results
;
; Output: None
;
;quit if required input parameters not defined
Q:'$G(DGSET)
Q:$G(DGORF)=""
;
;display wait msg to user
D WAIT^DICD
;
;invoke list manager and load list template
D EN^VALM("DGPF QUERY DETAIL")
Q
;
;
HDR ;Header Code
;
D BLDHDR^DGPFLMQ1(DGORF,.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("DGPFQDET",$J)
;
;init number of lines in list
S VALMCNT=0
;
;build header
D HDR
;
;build list area for record flag detail
D EN^DGPFLMQ2("DGPFQDET",DGSET,.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("DGPFQDET",$J)
Q
;
;
EXPND ;Expand Code
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPFLMQD 1162 printed Oct 16, 2024@18:48:58 Page 2
DGPFLMQD ;ALB/RPM - PRF QUERY RESULTS DETAIL LM SCREEN ; 1/26/06 11:43
+1 ;;5.3;Registration;**650**;Aug 13, 1993;Build 3
+2 ;
+3 ;no direct entry
QUIT
+4 ;
EN(DGSET,DGORF) ;Main entry point for DGPF QUERY DETAIL list template.
+1 ;
+2 ; Input:
+3 ; DGSET - query result assignment ID
+4 ; DGORF - array of parsed query results
+5 ;
+6 ; Output: None
+7 ;
+8 ;quit if required input parameters not defined
+9 if '$GET(DGSET)
QUIT
+10 if $GET(DGORF)=""
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 QUERY DETAIL")
+17 QUIT
+18 ;
+19 ;
HDR ;Header Code
+1 ;
+2 DO BLDHDR^DGPFLMQ1(DGORF,.VALMHDR)
+3 QUIT
+4 ;
+5 ;
INIT ;Init variables and list array
+1 ;
+2 DO BLD
+3 QUIT
+4 ;
+5 ;
BLD ;Build record flag detail LM screen
+1 ;
+2 DO CLEAN^VALM10
+3 KILL VALMHDR
+4 KILL ^TMP("DGPFQDET",$JOB)
+5 ;
+6 ;init number of lines in list
+7 SET VALMCNT=0
+8 ;
+9 ;build header
+10 DO HDR
+11 ;
+12 ;build list area for record flag detail
+13 DO EN^DGPFLMQ2("DGPFQDET",DGSET,.VALMCNT)
+14 ;
+15 QUIT
+16 ;
+17 ;
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("DGPFQDET",$JOB)
+4 QUIT
+5 ;
+6 ;
EXPND ;Expand Code
+1 QUIT
