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