DGPFLMQ.m

DGPFLMQ ;ALB/RPM - PRF QUERY LISTMAN SCREEN ; 1/24/06 13:47

 ;;5.3;Registration;**650,1015**;Aug 13,1993;Build 21

 ;

 Q  ;no direct entry

 ;

EN(DGORF) ;Main entry point for DGPF RECORD FLAG QUERY list.

 ;

 ;  Input: 

 ;    DGORF - parsed ORF segments data array

 ;    

 ; Output: None

 ;

 Q:$G(DGORF)=""

 ;

 ;display wait msg to user

 D WAIT^DICD

 ;

 ;invoke list manager and load list template 

 D EN^VALM("DGPF RECORD FLAG QUERY")

 Q

 ;

 ;

HDR ;Header Code

 D BLDHDR^DGPFLMQ1(DGORF,.VALMHDR) Q

 Q

 ;

INIT ;Init variables and list array

 D BLDLIST^DGPFLMQ1(DGORF)

 Q

 ;

HELP ;Help Code

 N X

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

 ;

EXIT ;Exit Code

 ;

 D CLEAN^VALM10

 D CLEAR^VALM1

 Q

 ;

 ;

EXPND ;Expand Code

 Q

DGPFLMQ   ;ALB/RPM - PRF QUERY LISTMAN SCREEN ; 1/24/06 13:47

 +1       ;;5.3;Registration;**650,1015**;Aug 13,1993;Build 21

 +2       ;

 +3       ;no direct entry

           QUIT 

 +4       ;

EN(DGORF) ;Main entry point for DGPF RECORD FLAG QUERY list.

 +1       ;

 +2       ;  Input: 

 +3       ;    DGORF - parsed ORF segments data array

 +4       ;    

 +5       ; Output: None

 +6       ;

 +7        IF $GET(DGORF)=""

               QUIT 

 +8       ;

 +9       ;display wait msg to user

 +10       DO WAIT^DICD

 +11      ;

 +12      ;invoke list manager and load list template 

 +13       DO EN^VALM("DGPF RECORD FLAG QUERY")

 +14       QUIT 

 +15      ;

 +16      ;

HDR       ;Header Code

 +1        DO BLDHDR^DGPFLMQ1(DGORF,.VALMHDR)

           QUIT 

 +2        QUIT 

 +3       ;

INIT      ;Init variables and list array

 +1        DO BLDLIST^DGPFLMQ1(DGORF)

 +2        QUIT 

 +3       ;

HELP      ;Help Code

 +1        NEW X

 +2        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +3        QUIT 

 +4       ;

 +5       ;

EXIT      ;Exit Code

 +1       ;

 +2        DO CLEAN^VALM10

 +3        DO CLEAR^VALM1

 +4        QUIT 

 +5       ;

 +6       ;

EXPND     ;Expand Code

 +1        QUIT