©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
DGQEUT1 ;ALB/RPM - VIC REPLACEMENT UTILITIES #1 ; 10/03/05
Source file <DGQEUT1.m>
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 4 | DGQEBGR DGQEHLNT DGQERPC DGQEUT2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ISENRPND(DGST) | ;is veteran's enrollment status pending?
|
|
| GETPAT(DGDFN,DGPAT) | ;build Patient object
; This function retrieves patient demographic data needed to produce ; a Veteran ID Card and returns the data in an array format. |
|
| GETPH(DGDFN) | ;get purple heart indicator
|
|
| GETPOW(DGDFN) | ;get POW indicator
|
|
| INITARR(DGVIC) | ;Procedure used to initialize VIC data array nodes.
|
|
| FNDPOW(DGEL) | ;find POW eligibility code
|
|
| GETELIG(DGDFN,DGELG) | ;build Patient Eligibility object
; This function retrieves patient data needed to determine the ; patient's VIC eligibility and returns the data in an array format. |
| Name | Field # of Occurrence |
|---|---|
| $$CVEDT^DGCV | GETELIG+46 |
| $$STATUS^DGENA | GETELIG+40 |
| $$GETSTAT^DGMSTAPI | GETELIG+43 |
| $$GETADDR^DGQEDEMO | GETPAT+53 |
| $$GETICN^DGQEDEMO | GETPAT+56 |
| $$GETIDS^DGQEDEMO | GETPAT+44 |
| $$GETNAMC^DGQEDEMO | GETPAT+50 |
| GETSITE^DGQEDEMO | GETPAT+59 |
| ELIG^VADPT | GETELIG+35, GETPOW+18 |
| SVC^VADPT | GETPH+29 |
| $$FMTE^XLFDT | GETPAT+47 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | GETPAT+41, GETELIG+31, GETPH+25 |
| Name | Line Occurrences |
|---|---|
| $$FNDPOW | GETELIG+52, GETPOW+20 |
| $$GETPH | GETELIG+49 |
| $$ISENRPND | GETELIG+52 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | GETELIG+24~, GETELIG+34*, GETPH+16~, GETPH+28*, GETPOW+13~, GETPOW+17* |
| DGDFN | GETPAT~, GETPAT+41, GETPAT+44, GETPAT+50, GETPAT+53, GETPAT+56, GETELIG~, GETELIG+31, GETELIG+34, GETELIG+40 , GETELIG+43, GETELIG+46, GETELIG+49, GETPH~, GETPH+25, GETPH+28, GETPOW~, GETPOW+17 |
| DGEC | FNDPOW+11~, FNDPOW+19*, FNDPOW+20*, FNDPOW+21 |
| DGEL | FNDPOW~ |
| DGEL(1 | FNDPOW+17, FNDPOW+20, FNDPOW+21 |
| DGELG | GETELIG~ |
| DGELG("COMBVET" | GETELIG+46* |
| DGELG("ELIGSTAT" | GETELIG+36* |
| DGELG("ENRSTAT" | GETELIG+40*, GETELIG+52 |
| DGELG("MST" | GETELIG+43* |
| DGELG("PH" | GETELIG+49* |
| DGELG("POW" | GETELIG+52* |
| DGELG("SC" | GETELIG+37* |
| DGPAT | GETPAT~, GETPAT+44, GETPAT+50, GETPAT+53, GETPAT+59 |
| DGPAT("DOB" | GETPAT+47* |
| DGPAT("ICN" | GETPAT+56* |
| DGPHIND | GETPH+17~, GETPH+30*, GETPH+34, GETPH+35 |
| DGPHSTAT | GETPH+18~, GETPH+31*, GETPH+34 |
| DGRSLT | GETPAT+37~, GETPAT+39*, GETPAT+62*, GETPAT+64, GETELIG+25~, GETELIG+29*, GETELIG+55*, GETELIG+57, GETPH+19~, GETPH+23* , GETPH+34*, GETPH+35*, GETPH+37, FNDPOW+12~, FNDPOW+14*, FNDPOW+20, FNDPOW+21*, FNDPOW+23 |
| DGST | ISENRPND~, ISENRPND+9*, ISENRPND+10 |
| DGSUB | INITARR+8~, INITARR+12*, INITARR+13, INITARR+16*, INITARR+17, INITARR+20*, INITARR+21, INITARR+24*, INITARR+25 |
| DGVIC | INITARR~ |
| DGVIC( | INITARR+13*, INITARR+17*, INITARR+21*, INITARR+25* |
| DGVIC("DFN" | INITARR+11* |
| DGVIC("DOCTYPE" | INITARR+31* |
| DGVIC("STAT" | INITARR+28* |
| U | GETELIG+36, GETELIG+43, GETPH+31, FNDPOW+17, FNDPOW+21 |
| VAEL | GETELIG+26~, GETELIG+52, GETPOW+14~, GETPOW+20 |
| VAEL(3 | GETELIG+37 |
| VAEL(8 | GETELIG+36 |
| VAERR | GETELIG+27~, GETPH+20~, GETPOW+15~ |
| VASV | GETPH+21~ |
| VASV(9 | GETPH+30, GETPH+31 |