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: 38

Package Total Caller Graph
DSS Extracts 38 ECXALAR  ECXDENT  ECXLBB1  ECXNUT  ECXOPRX  ECXPAI  ECXPIVD  ECXPIVDN  
ECXPRO  ECXUTL2  ^ECX(727.811  ECXRAD  ^ECX(727.814  ^ECX(727.815  ^ECX(727.816  ECXADM  
ECXAPHA2  ECXAPHP2  ECXBCM  ECXEC  ECXLABN  ECXLABO  ECXLABR  ECXLBB  
ECXMOV  ECXMTL  ECXNURS  ECXPRO1  ECXQSR  ECXSCX1  ECXSCX2  ECXSCXN  
ECXSURG  ECXUD  ^ECX(727.825  ^ECX(727.826  ECXUPRO1  ECXUSUR1  

Entry Points

Name Comments DBIA/ICR reference
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
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)
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
ELGTXT ;Eligibility codes
CPT(ECXCPT,ECXMOD,ECXQUA) ;Returns a str with CPT code and modifier codes
CPT3Q6M(ECXCPT,ECXMOD,ECXQUA) ;
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)
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.

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