- 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 Feb 19, 2025@00:14:10 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
