Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ECXUTL3

Package: DSS Extracts

Routine: ECXUTL3


Information

ECXUTL3 ;ALB/GTS - Utilities for DSS Extracts ;9/4/18 13:18

Source Information

Source file <ECXUTL3.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
DSS Extracts 3 $$ECXDOB^ECXUTL  OEFDATA^ECXUTL4  $$SSN^ECXUTL5  
Registration 3 $$GETSTAT^DGMSTAPI  ($$PTR2CODE,$$PTR2TEXT)^DGUTL4  (ADD,DEM,ELIG,OPD,SVC)^VADPT  
VA FileMan 3 ^DIC  $$GET1^DIQ  EN^DIQ1  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Scheduling 1 ($$OUTPTPR,$$OUTPTTM,OUTPTPR,OUTPTTM)^SDUTL3  

Caller Graph

Caller Graph Total: 32

Package Total Caller Graph
DSS Extracts 32 ECXADM  ECXALAR  ECXAPHA2  ECXAPHP2  ECXBCM  ECXDENT  ECXEC  ECXLABN  
ECXLABO  ECXLABR  ECXLBB  ECXLBB1  ECXMOV  ECXMTL  ECXNURS  ECXNUT  
ECXOPRX  ECXPAI  ECXPIVD  ECXPIVDN  ECXPRO  ECXPRO1  ECXQSR  ECXRAD  
ECXSCX1  ECXSCX2  ECXSCXN  ECXSURG  ECXUD  ECXUPRO1  ECXUSUR1  ECXUTL2  

Entry Points

Name Comments DBIA/ICR reference
OUTPTTM(ECXDFN,ECXDT) ;* Return PC Team from PCMM files or DPT
; Variables -
; ECXDFN - IEN from Patient file (Required)
; ECXDT - Relevant Date for Primary Care Team
; (Defaults to DT)
OUTPTPR(ECXDFN,ECXDT) ;* Return PC Provider from PCMM files or DPT
; Variables -
; ECXDFN - IEN from Patient file (Required)
; ECXDT - Relevant Date for Primary Care Provider
; (Defaults to DT)
PAT(ECXDFN,ECXDATE,ECXDATA,ECXPAT) ;Return basic patient data for extract
; Will not return data associated with test patients (SSN begin w 00000)
; Variables -
; Input ECXDFN - Patient internal entry number, DFN file#2; required
; ECXDATE- Date used to get specific data from GETSTAT^DGMSTAPI
; for MST. If no date, defaults to today's date,
; standard FM format, optional
; ECXDATA- Code indicating which data to return, optional.
; If code not specified then returns all. Codes are:
; 1 - DEM^VADPT (demographic data)
; 2 - ADD^VADPT (current address)
; 3 - ELIG^VADPT (eligibility & enrollment location)
; 4 - OPD^VADPT (other patient data)
; 5 - SVC^VADPT & GETSTAT^DGMSTAPI (service & MST inf)
; ECXPAT(- Passed by reference; required
ELIG(ECXELIG,ECXSVCP) ;Converts veteran eligibility code to NPCD code
; Variables -
; Input ECXELIG - Pointer to MAS ELIGIBILITY CODE file #8.1
; ECXSVCP - Number value rep. service connected percentage.
ELGTXT ;Eligibility codes
CPT(ECXCPT,ECXMOD,ECXQUA) ;Returns a str with CPT code and modifier codes
CPT3Q6M(ECXCPT,ECXMOD,ECXQUA) ;
CPTOUT(ECXCPT) ;output transform for CPT code plus modifiers
CHECKRC(RACEIEN) ;144 API added to check RACE for non-stardard values that can be converted. If the value can be converted then it will be stored in RACE1 upon return

External References

Name Field # of Occurrence
$$GETSTAT^DGMSTAPI PAT+120
$$PTR2CODE^DGUTL4 PAT+58, PAT+59, PAT+61, PAT+62, CHECKRC+12
$$PTR2TEXT^DGUTL4 CHECKRC+2
^DIC CHECKRC+11
$$GET1^DIQ PAT+24, PAT+75, PAT+80, PAT+93, PAT+105, PAT+113
EN^DIQ1 PAT+53, PAT+69, PAT+72, PAT+88, PAT+90
$$ECXDOB^ECXUTL PAT+51
OEFDATA^ECXUTL4 PAT+115
$$SSN^ECXUTL5 PAT+29
$$CPT^ICPTCOD CPT+17, CPT3Q6M+22
$$MOD^ICPTMOD CPT+20, CPT3Q6M+25
$$GETICN^MPIF001 PAT+42
$$OUTPTPR^SDUTL3 OUTPTPR+14, OUTPTPR+16
$$OUTPTTM^SDUTL3 OUTPTTM+14, OUTPTTM+16
OUTPTPR^SDUTL3 OUTPTPR+13, OUTPTPR+15
OUTPTTM^SDUTL3 OUTPTTM+13, OUTPTTM+15
ADD^VADPT PAT+68
DEM^VADPT PAT+48
ELIG^VADPT PAT+79
OPD^VADPT PAT+96
SVC^VADPT PAT+100

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(22 - [#22] GET1^DIQ
^HL(779.004 - [#779.004] GET1^DIQ
^DIC(8 - [#8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PAT+39, PAT+57, PAT+119
^DIC(21 - [#21] PAT+81
^DPT - [#2] OUTPTTM+18, OUTPTPR+18

Label References

Name Line Occurrences
$$CHECKRC PAT+65
$$ELIG PAT+86

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COLMETH PAT+21~, PAT+58*, PAT+61*
CPT CPT+14~, CPT+17*, CPT+18*, CPT+21*, CPT+22, CPT3Q6M+19~, CPT3Q6M+22*, CPT3Q6M+23*, CPT3Q6M+26*, CPT3Q6M+27
CPTMOD CPT+14~, CPT+22*, CPT+23, CPT3Q6M+19~, CPT3Q6M+27*, CPT3Q6M+28, CPTOUT+3~, CPTOUT+5*, CPTOUT+10*, CPTOUT+11
CPTX CPTOUT+3~, CPTOUT+6*, CPTOUT+10
DA PAT+22~, PAT+53*, PAT+54, PAT+69*, PAT+70, PAT+71*, PAT+88*, PAT+90*
DA( PAT+71*, PAT+73
DFN PAT+21~, PAT+24*, PAT+42, PAT+120
DIC PAT+21~, PAT+53*, PAT+69*, PAT+71*, PAT+88*, PAT+90*, CHECKRC+1~, CHECKRC+11*
DIC(0 CHECKRC+11*
DIQ PAT+21~, PAT+53*, PAT+69*, PAT+71*, PAT+88*, PAT+90*
DIQ(0 PAT+53*, PAT+69*, PAT+72*, PAT+88*, PAT+90*
DR PAT+22~, PAT+53*, PAT+54, PAT+69*, PAT+70, PAT+71*, PAT+88*, PAT+89, PAT+90*, PAT+91
DR( PAT+71*
DT OUTPTTM+12, OUTPTPR+12
>> ECHEAD PAT+27, PAT+28
>> ECPNM PAT+28
ECXAR PAT+21~, PAT+89!
ECXAR( PAT+73
ECXAR(10 PAT+54
ECXAR(2 PAT+89
ECXAR(4 PAT+91
ECXAR(5 PAT+70
ECXBG ELIG+8~, ELIG+14*, ELIG+16
ECXCOD PAT+21~
ECXCOD( PAT+36*
ECXCOD(1 PAT+47
ECXCOD(2 PAT+67
ECXCOD(3 PAT+78
ECXCOD(4 PAT+95
ECXCOD(5 PAT+99
ECXCPT CPT~, CPT+17, CPT3Q6M~, CPT3Q6M+22, CPTOUT~, CPTOUT+4, CPTOUT+6
ECXDAT PAT+21~, PAT+34*, PAT+35*, PAT+36, PAT+89*, PAT+90, PAT+91, PAT+120*, PAT+121
ECXDATA PAT~, PAT+35, PAT+47, PAT+67, PAT+78, PAT+95, PAT+99
ECXDATE PAT~, PAT+118*, PAT+120
ECXDFN OUTPTTM~, OUTPTTM+10, OUTPTTM+14, OUTPTTM+16, OUTPTTM+18, OUTPTPR~, OUTPTPR+10, OUTPTPR+14, OUTPTPR+16, OUTPTPR+18
, PAT~, PAT+23, PAT+24, PAT+88, PAT+89, PAT+93, PAT+105
ECXDT OUTPTTM~, OUTPTTM+12*, OUTPTTM+14, OUTPTPR~, OUTPTPR+12*, OUTPTPR+14
ECXELIG ELIG~, ELIG+9, ELIG+12
ECXEN ELIG+8~, ELIG+15*, ELIG+16
>> ECXLOGIC PAT+104
ECXMOD CPT~, CPT+15*, CPT+19, CPT+20, CPT3Q6M~, CPT3Q6M+20*, CPT3Q6M+24, CPT3Q6M+25
ECXNPCD ELIG+8~, ELIG+17*, ELIG+18
ECXPAT PAT~, PAT+24*, PAT+27, PAT+29!, PAT+54*, PAT+76*, PAT+85*, PAT+97*, PAT+107*, PAT+122!
ECXPAT( PAT+34*
ECXPAT("AO ST AT" , PAT+102*
ECXPAT("AOL" PAT+111*
ECXPAT("CL ST AT" , PAT+109*
ECXPAT("COMBSVCI" PAT+112*
ECXPAT("COMBSVCL" PAT+113*
ECXPAT("COUNTRY" PAT+75*
ECXPAT("COUNTY" PAT+73*
ECXPAT("DOB" PAT+51*
ECXPAT("EC ST AT" , PAT+105*
ECXPAT("ELIG" PAT+86*
ECXPAT("EMPLOY" PAT+97*
ECXPAT("ENROL L LOC" , PAT+91*
ECXPAT("ERI" PAT+93*
ECXPAT("ETHNIC" PAT+56*, PAT+59*
ECXPAT("IR ST AT" , PAT+103*, PAT+104*
ECXPAT("MARITAL" PAT+50*
ECXPAT("MEANS" PAT+85*
ECXPAT("MPI" PAT+45*
ECXPAT("MST S TAT" , PAT+121*
ECXPAT("NAME" PAT+49*
ECXPAT("PHI" PAT+108*
ECXPAT("POS" PAT+81*
ECXPAT("POW L OC" , PAT+107*
ECXPAT("POW S TAT" , PAT+106*
ECXPAT("RACE" PAT+54*
ECXPAT("RACE1" PAT+56*, PAT+63*, PAT+64*, PAT+65*
ECXPAT("RELIGION" PAT+52*
ECXPAT("SC ST AT" , PAT+82*
ECXPAT("SC%" PAT+83*, PAT+86
ECXPAT("SEX" PAT+52*
ECXPAT("SSN" PAT+50*
ECXPAT("STATE" PAT+70*
ECXPAT("VET" PAT+84*
ECXPAT("VIETNAM" PAT+101*
ECXPAT("ZIP" PAT+74*
ECXPR OUTPTPR+11~, OUTPTPR+14*, OUTPTPR+16*, OUTPTPR+17, OUTPTPR+18*, OUTPTPR+19
ECXQUA CPT~, CPT+15*, CPT+16*, CPT+18, CPT3Q6M~, CPT3Q6M+20*, CPT3Q6M+21*, CPT3Q6M+23
ECXSVCP ELIG~, ELIG+16
ECXTM OUTPTTM+11~, OUTPTTM+14*, OUTPTTM+16*, OUTPTTM+17, OUTPTTM+18*, OUTPTTM+19
FND ELIG+8~
I PAT+21~, PAT+34*, PAT+35*, ELIG+8~, ELIG+10*, CPT+14~, CPT+19*, CPT+20, CPT3Q6M+19~, CPT3Q6M+24*
, CPT3Q6M+25
IEN ELIG+8~, ELIG+11*, ELIG+12
J CPTOUT+3~, CPTOUT+7*, CPTOUT+8
LEN CPT3Q6M+19~, CPT3Q6M+21*
MELIG PAT+22~, PAT+80*, PAT+86
MOD CPT+14~, CPT+20*, CPT+21, CPT3Q6M+19~, CPT3Q6M+25*, CPT3Q6M+26, CPTOUT+3~, CPTOUT+7*, CPTOUT+8, CPTOUT+9
MODS CPTOUT+3~, CPTOUT+6*, CPTOUT+7
MODX CPTOUT+3~, CPTOUT+5*, CPTOUT+8*, CPTOUT+9*, CPTOUT+10
MPI PAT+22~, PAT+42*, PAT+45
NAME CHECKRC+1~, CHECKRC+2*, CHECKRC+4, CHECKRC+5, CHECKRC+6, CHECKRC+7, CHECKRC+8, CHECKRC+9, CHECKRC+10
NPCD ELIG+8~, ELIG+10, ELIG+13*, ELIG+16*, ELIG+17
PELG PAT+22~, PAT+80*
PTFVAL CHECKRC+1~, CHECKRC+3*, CHECKRC+12*, CHECKRC+13
RACEIEN CHECKRC~, CHECKRC+2
RCNUM PAT+21~, PAT+60*, PAT+61*, PAT+62
RCVAL PAT+21~, PAT+60*, PAT+61, PAT+62*, PAT+63, PAT+64
SCPER ELIG+8~, ELIG+11*, ELIG+13, ELIG+14, ELIG+15
SSN PAT+21~, PAT+24*, PAT+28, PAT+29
STR PAT+21~, PAT+30*, PAT+31*, PAT+32*, PAT+34
TEXT ELIG+8~, ELIG+10*, ELIG+11, ELIG+13, ELIG+16
U OUTPTTM+18, PAT+50, PAT+51, PAT+52, PAT+74, PAT+75, PAT+80, PAT+81, PAT+83, PAT+85
, PAT+97, PAT+104, PAT+107, PAT+111, PAT+121, CPT+18, CPT+21, CPT3Q6M+23, CPT3Q6M+26
VADM PAT+21~
VADM(1 PAT+49
VADM(10 PAT+50
VADM(11 PAT+58, PAT+59
VADM(12 PAT+61, PAT+62
VADM(2 PAT+50
VADM(3 PAT+51
VADM(5 PAT+52
VADM(8 PAT+53, PAT+65
VADM(9 PAT+52
VAEL PAT+21~
VAEL(1 PAT+80
VAEL(2 PAT+81
VAEL(3 PAT+82, PAT+83
VAEL(4 PAT+84
VAEL(9 PAT+85
VAPA PAT+21~
VAPA(11 PAT+74
VAPA(25 PAT+75
VAPA(5 PAT+69, PAT+71
VAPA(7 PAT+71
VAPD PAT+21~
VAPD(7 PAT+97
VASV PAT+21~
VASV(1 PAT+101
VASV(15 PAT+109
VASV(2 PAT+102, PAT+111
VASV(3 PAT+103, PAT+104
VASV(4 PAT+106, PAT+107
VASV(5 PAT+112, PAT+113
VASV(9 PAT+108
X PAT+39*, PAT+57*, PAT+119*, CHECKRC+1~, CHECKRC+4*, CHECKRC+5*, CHECKRC+6*, CHECKRC+7*, CHECKRC+8*, CHECKRC+9*
, CHECKRC+10*
Y CHECKRC+1~, CHECKRC+12
ZIP PAT+22~

Marked Items

Name Field # of Occurrence
$T(ELGTXT+I ELIG+10
$T(OUTPTPR^SDUTL3 OUTPTPR+13, OUTPTPR+15
$T(OUTPTTM^SDUTL3 OUTPTTM+13, OUTPTTM+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All