source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPFLMA.m@ 1416

Last change on this file since 1416 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 844 bytes
Line 
1DGPFLMA ;ALB/KCL - PRF ASSIGNMENT LISTMAN SCREEN ; 4/24/03 4:34pm
2 ;;5.3;Registration;**425**;Aug 13,1993
3 ;
4 ;
5EN ;Main entry point for DGPF RECORD FLAG ASSIGNMENT option.
6 ;
7 ; Input: None
8 ; Output: None
9 ;
10 ;display wait msg to user
11 D WAIT^DICD
12 ;
13 ;invoke list manager and load list template
14 D EN^VALM("DGPF RECORD FLAG ASSIGNMENT")
15 Q
16 ;
17 ;
18HDR ;Header Code
19 S VALMHDR(1)="Patient: No Patient Selected"
20 S VALMHDR(2)=""
21 Q
22 ;
23 ;
24INIT ;Init variables and list array
25 N DGTEXT
26 S DGTEXT=" A patient has not been selected. Please select a patient."
27 D SET^VALM10(1,"")
28 D SET^VALM10(2,DGTEXT)
29 D CNTRL^VALM10(2,4,$L(DGTEXT),$G(IOINHI),$G(IOINORM))
30 S VALMCNT=2
31 Q
32 ;
33 ;
34HELP ;Help Code
35 N X
36 S X="?" D DISP^XQORM1 W !!
37 Q
38 ;
39 ;
40EXIT ;Exit Code
41 K DGDFN
42 K DGPFA
43 K DGPFAH
44 D CLEAN^VALM10
45 D CLEAR^VALM1
46 Q
47 ;
48 ;
49EXPND ;Expand Code
50 Q
Note: See TracBrowser for help on using the repository browser.