Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGPFLF

DGPFLF.m

Go to the documentation of this file.
  1. DGPFLF ;ALB/KCL - PRF FLAG MANAGEMENT LM SCREEN ; 3/10/03
  1. ;;5.3;Registration;**425**;Aug 13, 1993
  1. ;
  1. ;- no direct entry
  1. QUIT
  1. ;
  1. EN ;Main entry point for DGPF RECORD FLAG MANAGEMENT option.
  1. ;
  1. ; Input: None
  1. ; Output: None
  1. ;
  1. ;- invoke DGPF RECORD FLAG MANAGEMENT list template
  1. D EN^VALM("DGPF RECORD FLAG MANAGEMENT")
  1. Q
  1. ;
  1. ;
  1. HDR ;Header Code
  1. ;
  1. N DGHDR
  1. S VALMHDR(1)="Flag Category: "_$S(DGCAT=1:"I (National)",DGCAT=2:"II (Local)",1:"Unknown")
  1. S DGHDR="Sorted By: "_$S(DGSRTBY="N":"Flag Name",DGSRTBY="T":"Flag Type",1:"Unknown")
  1. S VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),57,$L(DGHDR))
  1. Q
  1. ;
  1. ;
  1. INIT ;Init variables and list array
  1. ;
  1. ;- init flag categorey to list (default=National)
  1. S DGCAT=1
  1. ;
  1. ;init list sort by criteria (default=Flag Name)
  1. S DGSRTBY="N"
  1. ;
  1. ;build record flag list area
  1. D BLD
  1. ;
  1. Q
  1. ;
  1. ;
  1. BLD ;Build record flag screen (list area)
  1. ;
  1. D CLEAN^VALM10
  1. K DGARY,VALMHDR
  1. K ^TMP("DGPFSORT",$J)
  1. ;
  1. ;- init array that will contain list of items to display
  1. S DGARY="DGPFLAG"
  1. K ^TMP(DGARY,$J)
  1. ;
  1. ;init # of lines in list
  1. S VALMCNT=0
  1. ;
  1. ;build header area
  1. D HDR
  1. ;
  1. ;build list area for flag screen
  1. D EN^DGPFLF1(DGARY,DGCAT,DGSRTBY,.VALMCNT)
  1. ;
  1. Q
  1. ;
  1. ;
  1. HELP ;Help Code
  1. ;
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. ;
  1. EXIT ;Exit Code
  1. ;
  1. D CLEAN^VALM10
  1. D CLEAR^VALM1
  1. K DGCAT
  1. K DGSRTBY
  1. K ^TMP("DGPFSORT",$J)
  1. K ^TMP(DGARY,$J)
  1. K ^TMP(DGARY,"IDX",$J)
  1. K DGARY
  1. Q
  1. ;
  1. ;
  1. EXPND ;Expand Code
  1. Q