DGPFLF.m

DGPFLF ;ALB/KCL - PRF FLAG MANAGEMENT LM SCREEN ; 3/10/03

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

 ;

 ;- no direct entry

 QUIT

 ;

EN ;Main entry point for DGPF RECORD FLAG MANAGEMENT option.

 ;

 ;  Input: None

 ; Output: None

 ;

 ;- invoke DGPF RECORD FLAG MANAGEMENT list template

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

 Q

 ;

 ;

HDR ;Header Code

 ;

 N DGHDR

 S VALMHDR(1)="Flag Category: "_$S(DGCAT=1:"I (National)",DGCAT=2:"II (Local)",1:"Unknown")

 S DGHDR="Sorted By: "_$S(DGSRTBY="N":"Flag Name",DGSRTBY="T":"Flag Type",1:"Unknown")

 S VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),57,$L(DGHDR))

 Q

 ;

 ;

INIT ;Init variables and list array

 ;

 ;- init flag categorey to list (default=National)

 S DGCAT=1

 ;

 ;init list sort by criteria (default=Flag Name)

 S DGSRTBY="N"

 ;

 ;build record flag list area

 D BLD

 ;

 Q

 ;

 ;

BLD ;Build record flag screen (list area)

 ;

 D CLEAN^VALM10

 K DGARY,VALMHDR

 K ^TMP("DGPFSORT",$J)

 ;

 ;- init array that will contain list of items to display

 S DGARY="DGPFLAG"

 K ^TMP(DGARY,$J)

 ;

 ;init # of lines in list

 S VALMCNT=0

 ;

 ;build header area

 D HDR

 ;

 ;build list area for flag screen

 D EN^DGPFLF1(DGARY,DGCAT,DGSRTBY,.VALMCNT)

 ;

 Q

 ;

 ;

HELP ;Help Code

 ;

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

 Q

 ;

 ;

EXIT ;Exit Code

 ;

 D CLEAN^VALM10

 D CLEAR^VALM1

 K DGCAT

 K DGSRTBY

 K ^TMP("DGPFSORT",$J)

 K ^TMP(DGARY,$J)

 K ^TMP(DGARY,"IDX",$J)

 K DGARY

 Q

 ;

 ;

EXPND ;Expand Code

 Q

DGPFLF    ;ALB/KCL - PRF FLAG MANAGEMENT LM SCREEN ; 3/10/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 RECORD FLAG MANAGEMENT option.

 +1       ;

 +2       ;  Input: None

 +3       ; Output: None

 +4       ;

 +5       ;- invoke DGPF RECORD FLAG MANAGEMENT list template

 +6        DO EN^VALM("DGPF RECORD FLAG MANAGEMENT")

 +7        QUIT 

 +8       ;

 +9       ;

HDR       ;Header Code

 +1       ;

 +2        NEW DGHDR

 +3        SET VALMHDR(1)="Flag Category: "_$SELECT(DGCAT=1:"I (National)",DGCAT=2:"II (Local)",1:"Unknown")

 +4        SET DGHDR="Sorted By: "_$SELECT(DGSRTBY="N":"Flag Name",DGSRTBY="T":"Flag Type",1:"Unknown")

 +5        SET VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),57,$LENGTH(DGHDR))

 +6        QUIT 

 +7       ;

 +8       ;

INIT      ;Init variables and list array

 +1       ;

 +2       ;- init flag categorey to list (default=National)

 +3        SET DGCAT=1

 +4       ;

 +5       ;init list sort by criteria (default=Flag Name)

 +6        SET DGSRTBY="N"

 +7       ;

 +8       ;build record flag list area

 +9        DO BLD

 +10      ;

 +11       QUIT 

 +12      ;

 +13      ;

BLD       ;Build record flag screen (list area)

 +1       ;

 +2        DO CLEAN^VALM10

 +3        KILL DGARY,VALMHDR

 +4        KILL ^TMP("DGPFSORT",$JOB)

 +5       ;

 +6       ;- init array that will contain list of items to display

 +7        SET DGARY="DGPFLAG"

 +8        KILL ^TMP(DGARY,$JOB)

 +9       ;

 +10      ;init # of lines in list

 +11       SET VALMCNT=0

 +12      ;

 +13      ;build header area

 +14       DO HDR

 +15      ;

 +16      ;build list area for flag screen

 +17       DO EN^DGPFLF1(DGARY,DGCAT,DGSRTBY,.VALMCNT)

 +18      ;

 +19       QUIT 

 +20      ;

 +21      ;

HELP      ;Help Code

 +1       ;

 +2        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +3        QUIT 

 +4       ;

 +5       ;

EXIT      ;Exit Code

 +1       ;

 +2        DO CLEAN^VALM10

 +3        DO CLEAR^VALM1

 +4        KILL DGCAT

 +5        KILL DGSRTBY

 +6        KILL ^TMP("DGPFSORT",$JOB)

 +7        KILL ^TMP(DGARY,$JOB)

 +8        KILL ^TMP(DGARY,"IDX",$JOB)

 +9        KILL DGARY

 +10       QUIT 

 +11      ;

 +12      ;

EXPND     ;Expand Code

 +1        QUIT