IBTRC2 ;ALB/AAS - INSURANCE POLICY CALLS FROM FILE 356.2 DD ; 22-JULY-91
Source file <IBTRC2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DD(IBX,IBDA) | ; - called from input transform for field 1.05
; -- input ibx = x from input transform ; ibda = internal entry in 356.2 ; -- output returns x=internal entry in 2.3121 (ins. Mult.) if valid ; |
|
DDQ | ||
VAR | ||
SEL(IBX,DFN,INSDT,ACTIVE) | ; -- Select insurance policy
; -- Input IBX = x from input transform ; DFN = patient ; INSDT = (optional) Active date of ins. (default = dt) ; ACTIVE = (optional) 1 if want active (default) ; = 2 if want all ins returned |
|
SELQ | ||
BLD | ||
CHK(IBCDFN,ACTIVE,INSDT) | ; -- see if active
|
|
CQ | ||
CHKQ | ||
DDHELP(IBDA) | ; -- Executable help
; -- write out list to choose from |
|
DDHQ | ||
TRANS(IBDA,Y) | ; -- output transform
|
|
INSCO(IBDA,IBCDFN) | ; -- return pointer value of 36 from pt. file
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|