©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGQEUT3 ;ALB/RPM - VIC REPLACEMENT UTILITIES #3 ; 12/22/03
Source file <DGQEUT3.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | ADD^VADPT $$SITE^VASITE |
| Kernel | 1 | $$PADD^XUAF4 |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ISFRGN(DGADD) | ;is selected address foreign?
; This function determines if the address selected by VADPT is a ; foreign address. |
|
| GETABRV(DGIEN) | ;retrieve state abbreviation
; This function retrieves the abbreviation for a state from the STAT ; (#5) file for a given IEN. |
|
| ISCONF(DGADD,DGCAT) | ;is confidential address active?
; This function accepts an address array returned from a call to ; ADD^VADPT and determines if an active confidential address exists ; for the given category. |
|
| ISTEMP(DGADD) | ;is temporary address active?
; This function determines if an active temporary address exists. |
|
| GETFADD(DGFADD) | ;retrieve facility address
; This function retrieves a facility's address from the INSTITUTION(#4) ; file and places the address in an array mapped to be compatible with ; the ADD^VADPT call. A valid DUZ(2) is used to determine the ; pointer to the INSTITUTION(#4) file, otherwise, $$SITE^VASITE() is ; used. |
|
| GETPTCA(DGDFN,DGADDR) | ;select confidential, temporary or permanent address
; This function uses ADD^VADPT to retrieve a patient address array and ; selects the address to be used for mailing. The address selection ; priority is as follows: ; 1) Active "ELIGIBILITY/ENROLLMENT"-category Confidential Address ; 2) Active Temporary Address ; 3) Permanent Address ; The selected address is returned in an array format. |
| FileNo | Call Tags |
|---|---|
| ^DIC(5 - [#5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | GETFADD+34 |
| ^DIC(5 - [#5] | GETABRV+18 |
| ^DPT - [#2] | GETPTCA+38 |
| Name | Line Occurrences |
|---|---|
| $$GETABRV | GETPTCA+51 |
| $$ISCONF | GETPTCA+43 |
| $$ISTEMP | GETPTCA+43 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | GETPTCA+28~, GETPTCA+39* |
| DGABRV | GETABRV+13~, GETABRV+16*, GETABRV+19*, GETABRV+20*, GETABRV+22 |
| DGADD | ISCONF~, ISTEMP~, ISFRGN~ |
| DGADD(12 | ISCONF+16 |
| DGADD(22 | ISCONF+18, ISCONF+19, ISCONF+20 |
| DGADD(7 | ISFRGN+11 |
| DGADD(9 | ISTEMP+9 |
| DGADDR | GETPTCA~ |
| DGADDR( | GETPTCA+51*, GETPTCA+53* |
| DGADR | GETFADD+25~, GETFADD+35*, GETFADD+37, GETFADD+40, GETFADD+41, GETFADD+42 |
| DGCAT | ISCONF~, ISCONF+16, ISCONF+19 |
| DGDFN | GETPTCA~, GETPTCA+38, GETPTCA+39 |
| DGERR | GETABRV+14~, GETABRV+20 |
| DGFADD | GETFADD~ |
| DGFADD(1 | GETFADD+37* |
| DGFADD(2 | GETFADD+38* |
| DGFADD(3 | GETFADD+39* |
| DGFADD(4 | GETFADD+40* |
| DGFADD(5 | GETFADD+41* |
| DGFADD(6 | GETFADD+42* |
| DGI | GETPTCA+29~, GETPTCA+48*, GETPTCA+51, GETPTCA+53, ISCONF+12~, ISCONF+17*, ISCONF+18*, ISCONF+19, ISCONF+20 |
| DGIEN | GETABRV~, GETABRV+18, GETABRV+19 |
| DGINST | GETFADD+26~, GETFADD+31*, GETFADD+32*, GETFADD+34, GETFADD+35 |
| DGLINE1 | GETPTCA+30~, GETPTCA+46*, GETPTCA+48 |
| DGRSLT | ISCONF+13~, ISCONF+15*, ISCONF+18, ISCONF+21*, ISCONF+23 |
| DGSUB | GETPTCA+31~, GETPTCA+47*, GETPTCA+49*, GETPTCA+50, GETPTCA+51, GETPTCA+53 |
| DGTYPE | GETFADD+27~, GETFADD+29*, GETFADD+45*, GETFADD+47, GETPTCA+32~, GETPTCA+36*, GETPTCA+43*, GETPTCA+46, GETPTCA+55 |
| DUZ(2 | GETFADD+31 |
| U | GETFADD+32, GETFADD+37, GETFADD+40, GETFADD+41, GETFADD+42, GETPTCA+51, GETPTCA+53, ISCONF+19, ISCONF+20 |
| VAERR | GETPTCA+33~ |
| VAPA | GETPTCA+34~, GETPTCA+43 |
| VAPA( | GETPTCA+51, GETPTCA+53 |