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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1DGPFLMAD ;ALB/KCL - PRF DISPLAY ASSIGNMENT DETAIL LM SCREEN ; 4/25/03 3:22pm
2 ;;5.3;Registration;**425**;Aug 13, 1993
3 ;
4 ;no direct entry
5 QUIT
6 ;
7EN ;Main entry point for DGPF RECORD FLAG DETAIL list template.
8 ;
9 ; Input:
10 ; DGDFN - ien of PATIENT (#2) file
11 ; DGIEN - ien of PRF ASSIGNMENT (#26.13) file
12 ;
13 ; Output: None
14 ;
15 ;quit if required input parameters not defined
16 Q:'$G(DGDFN)
17 Q:'$G(DGIEN)
18 ;
19 ;display wait msg to user
20 D WAIT^DICD
21 ;
22 ;invoke list manager and load list template
23 D EN^VALM("DGPF ASSIGNMENT DETAIL")
24 Q
25 ;
26 ;
27HDR ;Header Code
28 D BLDHDR^DGPFLMU(DGDFN,.VALMHDR)
29 Q
30 ;
31 ;
32INIT ;Init variables and list array
33 D BLD
34 Q
35 ;
36 ;
37BLD ;Build record flag detail LM screen
38 D CLEAN^VALM10
39 K VALMHDR
40 K ^TMP("DGPFDET",$J)
41 ;
42 ;init number of lines in list
43 S VALMCNT=0
44 ;
45 ;build header
46 D HDR
47 ;
48 ;build list area for record flag detail
49 D EN^DGPFLMU1("DGPFDET",DGIEN,DGDFN,.VALMCNT)
50 ;
51 Q
52 ;
53 ;
54HELP ;Help Code
55 N X
56 S X="?" D DISP^XQORM1 W !!
57 Q
58 ;
59 ;
60EXIT ;Exit Code
61 D CLEAN^VALM10
62 D CLEAR^VALM1
63 K ^TMP("DGPFDET",$J)
64 Q
65 ;
66 ;
67EXPND ;Expand Code
68 Q
Note: See TracBrowser for help on using the repository browser.