©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
DGQEDEMO ;ALB/RPM - VIC REPLACEMENT DEMOGRAPHICS GETTER API'S ; 9/19/03
Source file <DGQEDEMO.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | ($$GETFADD,$$GETPTCA,$$ISFRGN)^DGQEUT3 $$BADADR^DGUTL3 $$SITE^VASITE |
| Kernel | 2 | $$HLNAME^XLFNAME ($$NAME,$$STA)^XUAF4 |
| VA Fileman | 2 | $$FIND1^DIC $$GET1^DIQ |
| Uncategorized | 1 | ($$GETICN,$$IFLOCAL)^MPIF001 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETSITE(DGFAC) | ;retrieve the local site station number and name
; This procedure retrieves the local site's name and station number ; and places them in an array format. A valid DUZ(2) is used to ; determine the station number and name. $$SITE^VASITE() is used ; when DUZ(2) is undefined or invalid. |
|
| GETIDS(DGDFN,DGIDS) | ;retrieve patient identifiers
; This function retrieves identifying information for a patient ; in the PATIENT (#2) file and places it in an array format. |
|
| GETICN(DGDFN) | ;retrieve patient national ICN
; This function retrieves the ICN for a patient if the ICN is ; nationally assigned. |
|
| GETADDR(DGDFN,DGMADR,DGAERR) | ;retrieve patient mailing address
; This funtion selects the mailing address for a patient from the ; available HIPAA confidential address, temporary address, permanent ; address. If the BAD ADDRESS INDICATOR (#.121) of the PATIENT file ; is set, then the facility address will be selected. The selected ; address is placed in an array format. |
|
| GETNAMC(DGDFN,DGCOMP) | ;retrieve name components
; This function retrieves a given patient's name components from the ; NAME COMPONENT (#20) file and places the components in an array ; format. The supported API $$HLNAME^XLFNAME is used to retrieve the ; name components, since it is the only supported Name Standardization ; api that both reads from the NAME COMPONENT (#20) file and returns a ; result that can be easily parsed. |
|
| GETVISN(DGINST) | ;retrieve VISN for an institution
; This function checks for a "VISN" entry in the ASSOCIATIONS ; (#14) multiple field in the INSTITUTION (#4) file for a given ; institution. If a "VISN" entry exists, then the PARENT OF ASSOCIATION ; (#1) subfield value is returned. |
| Name | Field # of Occurrence |
|---|---|
| $$GETFADD^DGQEUT3 | GETADDR+44 |
| $$GETPTCA^DGQEUT3 | GETADDR+38 |
| $$ISFRGN^DGQEUT3 | GETADDR+42 |
| $$BADADR^DGUTL3 | GETADDR+42 |
| $$FIND1^DIC | GETVISN+19 |
| $$GET1^DIQ | GETVISN+22 |
| $$GETICN^MPIF001 | GETICN+18 |
| $$IFLOCAL^MPIF001 | GETICN+22 |
| $$SITE^VASITE | GETSITE+26 |
| $$HLNAME^XLFNAME | GETNAMC+35 |
| $$NAME^XUAF4 | GETSITE+29 |
| $$STA^XUAF4 | GETSITE+28 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | GETSITE+23, GETVISN+18 |
| ^DPT - [#2] | GETICN+16, GETIDS+27, GETIDS+30, GETNAMC+32, GETADDR+35 |
| Name | Line Occurrences |
|---|---|
| $$GETVISN | GETSITE+30 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGADDR | GETADDR+28~, GETADDR+38, GETADDR+42, GETADDR+44 |
| DGADDR(1 | GETADDR+49 |
| DGADDR(2 | GETADDR+50 |
| DGADDR(3 | GETADDR+51 |
| DGADDR(4 | GETADDR+52 |
| DGADDR(5 | GETADDR+53 |
| DGADDR(6 | GETADDR+54 |
| DGAERR | GETADDR~, GETADDR+45*, GETADDR+46 |
| DGCOMP | GETNAMC~ |
| DGCOMP( | GETNAMC+38* |
| DGDFN | GETICN~, GETICN+16, GETICN+18, GETICN+22, GETIDS~, GETIDS+27, GETIDS+30, GETIDS+32, GETNAMC~, GETNAMC+32 , GETNAMC+34, GETADDR~, GETADDR+35, GETADDR+38, GETADDR+42 |
| DGERR | GETSITE+19~, GETVISN+14~, GETVISN+20 |
| DGFAC | GETSITE~ |
| DGFAC("FACNAME" | GETSITE+29* |
| DGFAC("FACNUM" | GETSITE+28* |
| DGFAC("VISN" | GETSITE+30* |
| DGFLD | GETNAMC+25~, GETNAMC+33*, GETNAMC+37*, GETNAMC+38 |
| DGICN | GETICN+13~, GETICN+15*, GETICN+18*, GETICN+19*, GETICN+20, GETICN+22*, GETICN+24 |
| DGIDS | GETIDS~ |
| DGIDS("DFN" | GETIDS+32* |
| DGIDS("DOB" | GETIDS+35* |
| DGIDS("NAME" | GETIDS+33* |
| DGIDS("SEX" | GETIDS+34* |
| DGIDS("SSN" | GETIDS+36* |
| DGIEN | GETSITE+20~, GETVISN+19*, GETVISN+20, GETVISN+22 |
| DGINST | GETSITE+21~, GETSITE+24*, GETSITE+26*, GETSITE+28, GETSITE+29, GETSITE+30, GETVISN~, GETVISN+18, GETVISN+19, GETVISN+22 |
| DGMADR | GETADDR~ |
| DGMADR("ADRTYPE" | GETADDR+55* |
| DGMADR("CITY" | GETADDR+52* |
| DGMADR("STATE" | GETADDR+53* |
| DGMADR("STREET1" | GETADDR+49* |
| DGMADR("STREET2" | GETADDR+50* |
| DGMADR("STREET3" | GETADDR+51* |
| DGMADR("ZIP" | GETADDR+54* |
| DGNAMSTR | GETNAMC+26~, GETNAMC+35*, GETNAMC+38 |
| DGNODE | GETIDS+22~, GETIDS+30*, GETIDS+33, GETIDS+34, GETIDS+35, GETIDS+36 |
| DGPAR | GETNAMC+27~, GETNAMC+35 |
| DGPAR("FIELD" | GETNAMC+34* |
| DGPAR("FILE" | GETNAMC+34* |
| DGPAR("IENS" | GETNAMC+34* |
| DGRSLT | GETIDS+23~, GETIDS+25*, GETIDS+37*, GETIDS+39, GETNAMC+28~, GETNAMC+30*, GETNAMC+39*, GETNAMC+41, GETADDR+29~, GETADDR+32* , GETADDR+56*, GETADDR+58 |
| DGSUB | GETNAMC+24~, GETNAMC+36*, GETNAMC+38 |
| DGTYPE | GETADDR+30~, GETADDR+33*, GETADDR+38*, GETADDR+42, GETADDR+43*, GETADDR+55 |
| DGVISN | GETVISN+15~, GETVISN+17*, GETVISN+22*, GETVISN+24 |
| DUZ(2 | GETSITE+23, GETSITE+24 |
| U | GETIDS+33, GETIDS+34, GETIDS+35, GETIDS+36, GETNAMC+35, GETNAMC+38, GETSITE+26 |