DGPFLFD.m

DGPFLFD ;ALB/KCL - PRF DISPLAY FLAG DETAIL LM SCREEN ; 3/13/03

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

 ;

 ;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

DGPFLFD   ;ALB/KCL - PRF DISPLAY FLAG DETAIL LM SCREEN ; 3/13/03

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

 +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