IBCNEDE5 ;DAOU/DAC - eIV DATA EXTRACTS ;15-OCT-2002
Source file <IBCNEDE5.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SIDCHK(PIEN,DFN,BSID,SIDARRAY,FRESHDT) | ; Checks the flag setting of
; '270 REQUIRES SUB ID' (#365.121,4.02). The function returns a "^" ; delimited string. The first value is between 1 and 5 telling the ; calling program what action(s) it should perform. The 2nd piece ; indicates the Subcriber ID that the calling program should use for ; setting the Subscriber IDs in the eIV Transmission Queue file (#365.1). ; The calling program is to address the blank Sub IDs. |
|
SIDC1 | ;
|
|
SIDCHKX | ; EXIT POINT
|
|
SSN(DFN) | ; Get Patient SSN and update SIDARRAY, if needed
|
|
GETSSN(DFN) | ; Get Patient SSN
|
|
STRIP(ID,SS,DFN) | ; Strip dashes and spaces if ssn
; ID can be ssn or subid ; if SS, ssn is being passed |