ECXUTL ;ALB/JAP - Utilities for DSS Extracts ;3/29/24 12:44
Source file <ECXUTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ECXYM(ECXFMDT) | ;extrinsic function
|
|
ECXYMX(ECXYM) | ;extrinsic function
|
|
ECXDATE(ECXFMDT,ECXYM) | ;extrinsic function
|
|
ECXDATEX(ECXDATE) | ;extrinsic function
|
|
ECXDOB(ECXFMDT) | ;extrinsic function
|
|
ECXTIME(ECXFMDT) | ;extrinsic function
|
|
ECXTIMEX(ECXTIME,ECXMIL) | ;extrinsic function
|
|
AOIRPOW(ECXDFN,ECXAIP) | ;get data on ao, ir, pow status
|
|
PRVCLASS(PERS,DATE) | ;determine the person class and return va code
; input ; PERS = pointer to file #200 (required) ; DATE = date on which person class must be active (required) ; (internal Fileman format) ; output ; VACODE = VA code field from file #8932.1 ; (exactly 7 characters in length) |
|
PATCAT(DFN) | ; Extrinsic function to return OTHER ELIGIBILITY CODE
; in patcat field in the extract file if the PATIENT TYPE ; = active duty, retire, tricare ; INPUT DFN - ien in file #2 (required) ; OUTPUT PATCAT - Patient Category mapping to be filed in extracts |
|
ORDPROV(DFN,ON,PSJTMP) | ; get provider using order reference number
; input: ; dfn ; on - order reference number ; psjtmp - 1 if temp global node = PSJ1, else global node = PSJ |
|
PRVX12(PERS,DATE) | ;184 - Provider Taxonomy
; input ; PERS = pointer to file #200 (required) ; DATE = date on which person class must be active (required) ; (internal Fileman format) ; output ; X12CODE = X12 code field from file #8932.1 ; (exactly 7 characters in length) |
|
ELIGCDS | ;
|
FileNo | Call Tags |
---|---|
^DIC(8 - [#8] | GET1^DIQ |