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 |
