DGPFLF ;ALB/KCL - PRF FLAG MANAGEMENT LM SCREEN ; 3/10/03
;;5.3;Registration;**425**;Aug 13, 1993
;
;- 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPFLF 1508 printed Dec 13, 2024@02:48:01 Page 2
DGPFLF ;ALB/KCL - PRF FLAG MANAGEMENT LM SCREEN ; 3/10/03
+1 ;;5.3;Registration;**425**;Aug 13, 1993
+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
