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

DGPFLMD.m

Go to the documentation of this file.
  1. DGPFLMD ;ALB/RPM - PRF DISPLAY ACTIVE FLAG ASSIGNMENTS LM ; 5/20/03 2:49pm
  1. ;;5.3;Registration;**425**;Aug 13, 1993
  1. ;
  1. ;no direct entry
  1. QUIT
  1. ;
  1. EN(DGDFN,DGPFAPI) ;DGPF ACTIVE ASSIGNMENTS list template main entry point
  1. ;
  1. ; Input:
  1. ; DGDFN - IEN of record in PATIENT (#2) file
  1. ; DGPFAPI - data array of active patient record flag assignments
  1. ;
  1. ; Output: None
  1. ;
  1. ;
  1. ;quit if required input not defined
  1. Q:+$G(DGDFN)'>0
  1. Q:'$D(DGPFAPI)
  1. ;
  1. ;display wait msg to user
  1. D WAIT^DICD
  1. ;
  1. ;invoke DISPLAY list template
  1. D EN^VALM("DGPF ACTIVE ASSIGNMENTS")
  1. Q
  1. ;
  1. ;
  1. HDR ;Header Code
  1. ;
  1. D BLDHDR^DGPFLMU(DGDFN,.VALMHDR)
  1. S VALMHDR(3)=" "
  1. S VALMHDR(4)=$$CJ^XLFSTR("<<< Active Patient Record Flag Assignments >>>",80)
  1. Q
  1. ;
  1. ;
  1. INIT ;Init variables and list array
  1. ;
  1. D BLD
  1. ;
  1. Q
  1. ;
  1. ;
  1. BLD ;Build flag detail screen (list area)
  1. ;
  1. D CLEAN^VALM10
  1. K VALMHDR
  1. K ^TMP("DGPFACT",$J)
  1. ;
  1. ;init number of lines in list
  1. S VALMCNT=0
  1. ;
  1. ;build header
  1. D HDR
  1. ;
  1. ;build list area for flag detail
  1. D EN^DGPFLMD1("DGPFACT",.DGPFAPI,.VALMCNT)
  1. ;
  1. Q
  1. ;
  1. ;
  1. HELP ;Help Code
  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 ^TMP("DGPFACT",$J)
  1. Q
  1. ;
  1. ;
  1. EXPND ;Expand Code
  1. Q