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

DGPFLMA.m

Go to the documentation of this file.
  1. DGPFLMA ;ALB/KCL - PRF ASSIGNMENT LISTMAN SCREEN ; 4/24/03 4:34pm
  1. ;;5.3;Registration;**425**;Aug 13,1993
  1. ;
  1. ;
  1. EN ;Main entry point for DGPF RECORD FLAG ASSIGNMENT option.
  1. ;
  1. ; Input: None
  1. ; Output: None
  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 RECORD FLAG ASSIGNMENT")
  1. Q
  1. ;
  1. ;
  1. HDR ;Header Code
  1. S VALMHDR(1)="Patient: No Patient Selected"
  1. S VALMHDR(2)=""
  1. Q
  1. ;
  1. ;
  1. INIT ;Init variables and list array
  1. N DGTEXT
  1. S DGTEXT=" A patient has not been selected. Please select a patient."
  1. D SET^VALM10(1,"")
  1. D SET^VALM10(2,DGTEXT)
  1. D CNTRL^VALM10(2,4,$L(DGTEXT),$G(IOINHI),$G(IOINORM))
  1. S VALMCNT=2
  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. K DGDFN
  1. K DGPFA
  1. K DGPFAH
  1. D CLEAN^VALM10
  1. D CLEAR^VALM1
  1. Q
  1. ;
  1. ;
  1. EXPND ;Expand Code
  1. Q