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

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

initial load of FOIAVistA 6/30/08 version
File size: 4.2 KB
Line 
1VAFCMGB ;ALB/JRP,PTD-DEMOGRAPHIC MERGE SCREEN BUILDER ;18-OCT-1996
2 ;;5.3;Registration;**149,479**;Aug 13, 1993
3 ;
4 ;NOTE: The VAFCMGB* routines contain line tags used to build the
5 ; display screen of a List Manager interface. All line tags
6 ; assume that the following variables are defined and contained
7 ; in the local partition.
8 ;
9 ;Input : VAFCDFN - Pointer to entry in PATIENT file (#2) to merge
10 ; data into
11 ; VAFCARR - Array contain data to merge (full global reference)
12 ; VAFCARR() should be set as follows:
13 ; VAFCARR(File,Field) = Value
14 ; Where File = File number Value is from
15 ; Field = Field number Value is from
16 ; Value = Info to merge
17 ; Notes: Dates must be in FileMan format
18 ; : Special considerations for Value
19 ; "@" - Displays <DELETE> and deletes
20 ; local value if merged
21 ; "^text" - Displays text and ignores
22 ; field if merged
23 ; NULL - Displays <UNSPECIFIED> and
24 ; ignores field if merged
25 ; Doesn't exist - Displays <UNSPECIFIED>
26 ; and ignores field
27 ; if merged
28 ; VAFCFROM - Text denoting where merge data cam from (1-35)
29 ; VAFCEVDT - Date/time merge data was instantiated (FileMan)
30 ; VAFCDOTS - Flag indicating if progress dots should be printed
31 ; 0 = No
32 ; 1 = Yes
33 ; All variables set by List Manager Interface
34 ;Output : Display area and variables required List Manager interface
35 ; Display
36 ; VALMAR(Line,0) = Line of text in display
37 ; Indexes
38 ; VALMAR("IDX",Line,Entry) = ""
39 ; VALMAR("E2F",Entry,N) = File^Field
40 ; N => Allows for multiple fields per entry (starts with 1)
41 ; VALMAR("E2G",Entry) = Group entry is contained in
42 ; VALMAR("GRP",Group) = First line of group in display
43 ; Note: The E2F and E2G indexes are only set if the data
44 ; to merge does not match the local data
45 ;Notes : Existance/validity of input variables is assumed
46 ; : Dates are converted to internal format for comparison
47 ; : Phone # are converted to HL7 format for comparison & display
48 ;
49BLDALL ;Main entry point to build entire List Manager display
50 ;
51 ;Input : See note above
52 ;Output : See note above
53 ;
54 ;Declare variables
55 N LASTNTRY
56 ;Build logical group 1
57 D GROUP1^VAFCMGB0
58 ;White space
59 S LASTNTRY=+$O(@VALMAR@("IDX",VALMCNT-1,0))
60 S @VALMAR@(VALMCNT,0)=" "
61 S @VALMAR@("IDX",VALMCNT,LASTNTRY)=""
62 S VALMCNT=VALMCNT+1
63 ;Build logical group 2
64 D GROUP2^VAFCMGB1
65 ;White space
66 ;S LASTNTRY=+$O(@VALMAR@("IDX",VALMCNT-1,0))
67 ;S @VALMAR@(VALMCNT,0)=" "
68 ;S @VALMAR@("IDX",VALMCNT,LASTNTRY)=""
69 ;S VALMCNT=VALMCNT+1
70 ;Build logical group 3
71 D GROUP3^VAFCMGB2
72 ;White space - eliminated with **479
73 ;S LASTNTRY=+$O(@VALMAR@("IDX",VALMCNT-1,0))
74 ;S @VALMAR@(VALMCNT,0)=" "
75 ;S @VALMAR@("IDX",VALMCNT,LASTNTRY)=""
76 ;S VALMCNT=VALMCNT+1
77 ;S @VALMAR@(VALMCNT,0)=" "
78 ;S @VALMAR@("IDX",VALMCNT,LASTNTRY)=""
79 ;S VALMCNT=VALMCNT+1
80 ;Build logical group 4
81 D GROUP4^VAFCMGB3
82 ;Done
83 Q
84 ;
85RBLDGRP(GROUP) ;Rebuild specified group in List Manager display
86 ;
87 ;Input : GROUP - Number denoting which logical group in display
88 ; should be rebuilt
89 ; Groups 1, 2, 3, and 4 are currently supported
90 ; See above note on input variables
91 ;Output : See above note on output
92 ;
93 ;Check input
94 S GROUP=+$G(GROUP)
95 ;Declare variables
96 N VALMCNT
97 ;Get starting line number of group
98 S VALMCNT=+$G(@VALMAR@("GRP",GROUP))
99 ;Rebuild logical group 1 - done
100 I (GROUP=1) D GROUP1^VAFCMGB0 Q
101 ;Rebuild logical group 2 - done
102 I (GROUP=2) D GROUP2^VAFCMGB1 Q
103 ;Rebuild logical group 3 - done
104 I (GROUP=3) D GROUP3^VAFCMGB2 Q
105 ;Rebuild logical group 4 - done
106 I (GROUP=4) D GROUP4^VAFCMGB3 Q
107 ;Done - did nothing
108 Q
Note: See TracBrowser for help on using the repository browser.