DGPFLMQD.m

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 ---DGPFLMQD   1162     printed  Apr 09, 2024@21:55:20                                                                                                                                                                                                    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