Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
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>

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

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
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call