DGPFLFD ;ALB/KCL - PRF DISPLAY FLAG DETAIL LM SCREEN ; 3/13/03
;;5.3;Registration;**425**;Aug 13, 1993
;
;no direct entry
QUIT
;
EN ;Main entry point for DGPF FLAG DETAIL list template.
;
; Input:
; DGPFIEN - IEN of record in PRF NATIONAL FLAG or PRF LOCAL
; FLAG file [ex: "1;DGPF(26.15,"]
;
; Output: None
;
;quit if required input not defined
Q:$G(DGPFIEN)']""
;
;display wait msg to user
D WAIT^DICD
;
;invoke DGPF FLAG DETAIL list template
D EN^VALM("DGPF FLAG DETAIL")
Q
;
;
HDR ;Header Code
;
N DGHDR
N DGRESULT
N DGPFLG
K DGPFLG
;
;retrieve flag, place into DGHDR array
S DGRESULT=$$GETFLAG^DGPFUT1(DGPFIEN,.DGPFLG)
;
;construct header array
S VALMHDR(1)="Flag Name: "_$S(DGRESULT:$P($G(DGPFLG("FLAG")),U,2),1:"UNKNOWN")
S DGHDR="Flag Status: "_$S(DGRESULT:$P($G(DGPFLG("STAT")),U,2),1:"UNKNOWN")
S VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),55,$L(DGHDR))
;
Q
;
;
INIT ;Init variables and list array
;
D BLD
;
Q
;
;
BLD ;Build flag detail screen (list area)
;
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 flag detail
D EN^DGPFLFD1("DGPFDET",DGPFIEN,.VALMCNT)
;
Q
;
;
HELP ;Help Code
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[HDGPFLFD 1486 printed Nov 22, 2024@17:58:06 Page 2
DGPFLFD ;ALB/KCL - PRF DISPLAY FLAG DETAIL LM SCREEN ; 3/13/03
+1 ;;5.3;Registration;**425**;Aug 13, 1993
+2 ;
+3 ;no direct entry
+4 QUIT
+5 ;
EN ;Main entry point for DGPF FLAG DETAIL list template.
+1 ;
+2 ; Input:
+3 ; DGPFIEN - IEN of record in PRF NATIONAL FLAG or PRF LOCAL
+4 ; FLAG file [ex: "1;DGPF(26.15,"]
+5 ;
+6 ; Output: None
+7 ;
+8 ;quit if required input not defined
+9 if $GET(DGPFIEN)']""
QUIT
+10 ;
+11 ;display wait msg to user
+12 DO WAIT^DICD
+13 ;
+14 ;invoke DGPF FLAG DETAIL list template
+15 DO EN^VALM("DGPF FLAG DETAIL")
+16 QUIT
+17 ;
+18 ;
HDR ;Header Code
+1 ;
+2 NEW DGHDR
+3 NEW DGRESULT
+4 NEW DGPFLG
+5 KILL DGPFLG
+6 ;
+7 ;retrieve flag, place into DGHDR array
+8 SET DGRESULT=$$GETFLAG^DGPFUT1(DGPFIEN,.DGPFLG)
+9 ;
+10 ;construct header array
+11 SET VALMHDR(1)="Flag Name: "_$SELECT(DGRESULT:$PIECE($GET(DGPFLG("FLAG")),U,2),1:"UNKNOWN")
+12 SET DGHDR="Flag Status: "_$SELECT(DGRESULT:$PIECE($GET(DGPFLG("STAT")),U,2),1:"UNKNOWN")
+13 SET VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),55,$LENGTH(DGHDR))
+14 ;
+15 QUIT
+16 ;
+17 ;
INIT ;Init variables and list array
+1 ;
+2 DO BLD
+3 ;
+4 QUIT
+5 ;
+6 ;
BLD ;Build flag detail screen (list area)
+1 ;
+2 DO CLEAN^VALM10
+3 KILL VALMHDR
+4 KILL ^TMP("DGPFDET",$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 flag detail
+13 DO EN^DGPFLFD1("DGPFDET",DGPFIEN,.VALMCNT)
+14 ;
+15 QUIT
+16 ;
+17 ;
HELP ;Help Code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
+4 ;
EXIT ;Exit Code
+1 ;
+2 DO CLEAN^VALM10
+3 DO CLEAR^VALM1
+4 KILL ^TMP("DGPFDET",$JOB)
+5 QUIT
+6 ;
+7 ;
EXPND ;Expand Code
+1 QUIT
