DGPFLMQ ;ALB/RPM - PRF QUERY LISTMAN SCREEN ; 1/24/06 13:47
;;5.3;Registration;**650**;Aug 13,1993;Build 3
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPFLMQ 749 printed Dec 13, 2024@02:48:18 Page 2
DGPFLMQ ;ALB/RPM - PRF QUERY LISTMAN SCREEN ; 1/24/06 13:47
+1 ;;5.3;Registration;**650**;Aug 13,1993;Build 3
+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
