source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPFLMD.m@ 724

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1DGPFLMD ;ALB/RPM - PRF DISPLAY ACTIVE FLAG ASSIGNMENTS LM ; 5/20/03 2:49pm
2 ;;5.3;Registration;**425**;Aug 13, 1993
3 ;
4 ;no direct entry
5 QUIT
6 ;
7EN(DGDFN,DGPFAPI) ;DGPF ACTIVE ASSIGNMENTS list template main entry point
8 ;
9 ; Input:
10 ; DGDFN - IEN of record in PATIENT (#2) file
11 ; DGPFAPI - data array of active patient record flag assignments
12 ;
13 ; Output: None
14 ;
15 ;
16 ;quit if required input not defined
17 Q:+$G(DGDFN)'>0
18 Q:'$D(DGPFAPI)
19 ;
20 ;display wait msg to user
21 D WAIT^DICD
22 ;
23 ;invoke DISPLAY list template
24 D EN^VALM("DGPF ACTIVE ASSIGNMENTS")
25 Q
26 ;
27 ;
28HDR ;Header Code
29 ;
30 D BLDHDR^DGPFLMU(DGDFN,.VALMHDR)
31 S VALMHDR(3)=" "
32 S VALMHDR(4)=$$CJ^XLFSTR("<<< Active Patient Record Flag Assignments >>>",80)
33 Q
34 ;
35 ;
36INIT ;Init variables and list array
37 ;
38 D BLD
39 ;
40 Q
41 ;
42 ;
43BLD ;Build flag detail screen (list area)
44 ;
45 D CLEAN^VALM10
46 K VALMHDR
47 K ^TMP("DGPFACT",$J)
48 ;
49 ;init number of lines in list
50 S VALMCNT=0
51 ;
52 ;build header
53 D HDR
54 ;
55 ;build list area for flag detail
56 D EN^DGPFLMD1("DGPFACT",.DGPFAPI,.VALMCNT)
57 ;
58 Q
59 ;
60 ;
61HELP ;Help Code
62 S X="?" D DISP^XQORM1 W !!
63 Q
64 ;
65 ;
66EXIT ;Exit Code
67 ;
68 D CLEAN^VALM10
69 D CLEAR^VALM1
70 K ^TMP("DGPFACT",$J)
71 Q
72 ;
73 ;
74EXPND ;Expand Code
75 Q
Note: See TracBrowser for help on using the repository browser.