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

DGPFLMAD.m

Go to the documentation of this file. 
  1. DGPFLMAD ;ALB/KCL - PRF DISPLAY ASSIGNMENT DETAIL LM SCREEN ; 4/25/03 3:22pm
  1.  ;;5.3;Registration;**425,1015**;Aug 13, 1993;Build 21
  1.  ;
  1.  ;no direct entry
  1.  QUIT
  1.  ;
  1. EN ;Main entry point for DGPF RECORD FLAG DETAIL list template.
  1.  ;
  1.  ;  Input:
  1.  ;     DGDFN - ien of PATIENT (#2) file
  1.  ;     DGIEN - ien of PRF ASSIGNMENT (#26.13) file
  1.  ;
  1.  ; Output: None
  1.  ;
  1.  ;quit if required input parameters not defined
  1.  Q:'$G(DGDFN)
  1.  Q:'$G(DGIEN)
  1.  ;
  1.  ;display wait msg to user
  1.  D WAIT^DICD
  1.  ;
  1.  ;invoke list manager and load list template
  1.  D EN^VALM("DGPF ASSIGNMENT DETAIL")
  1.  Q
  1.  ;
  1.  ;
  1. HDR ;Header Code
  1.  D BLDHDR^DGPFLMU(DGDFN,.VALMHDR)
  1.  Q
  1.  ;
  1.  ;
  1. INIT ;Init variables and list array
  1.  D BLD
  1.  Q
  1.  ;
  1.  ;
  1. BLD ;Build record flag detail LM screen
  1.  D CLEAN^VALM10
  1.  K VALMHDR
  1.  K ^TMP("DGPFDET",$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 record flag detail
  1.  D EN^DGPFLMU1("DGPFDET",DGIEN,DGDFN,.VALMCNT)
  1.  ;
  1.  Q
  1.  ;
  1.  ;
  1. HELP ;Help Code
  1.  N X
  1.  S X="?" D DISP^XQORM1 W !!
  1.  Q
  1.  ;
  1.  ;
  1. EXIT ;Exit Code
  1.  D CLEAN^VALM10
  1.  D CLEAR^VALM1
  1.  K ^TMP("DGPFDET",$J)
  1.  Q
  1.  ;
  1.  ;
  1. EXPND ;Expand Code
  1.  Q