IBTRC2 ;ALB/AAS - INSURANCE POLICY CALLS FROM FILE 356.2 DD ; 22-JULY-91
Source file <IBTRC2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | CHK+5, TRANS+3, INSCO+4 |
| ^DPT - [#2] | BLD+1, CHK+2, DDHELP+10, TRANS+3, INSCO+3 |
| ^IBA(355.3 - [#355.3] | CHK+8 |
| ^IBT(356 - [#356] | VAR+1 |
| ^IBT(356.2 - [#356.2] | VAR, VAR+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTIVE | DD+5~, DD+7, VAR+2*, SEL~, SEL+11*, BLD+1, CHK~, CHK+4, DDHELP+2~, TRANS+1~ , INSCO+1~ |
| DA | DD+5~, SEL+9~ |
| DE | SEL+9~ |
| DFN | DD+5~, DD+7, VAR*, VAR+1*, SEL~, SEL+13, SEL+18, BLD+1, CHK+2, DDHELP+2~ , DDHELP+10, TRANS+1~, TRANS+3, INSCO+1~, INSCO+3 |
| DIC | DD+5~, SEL+9~, SEL+18* |
| DIC("S" | SEL+19* |
| DIC("W" | SEL+20* |
| DIC(0 | SEL+18* |
| DIE | DD+5~, SEL+9~ |
| DIR | SEL+9~ |
| DIV | SEL+9~ |
| DQ | SEL+9~ |
| DR | DD+5~, SEL+9~ |
| DT | DD+7, VAR+2, SEL+12 |
| I | SEL+9~, DDHELP+2~, DDHELP+9*, DDHELP+10 |
| IBCDFN | DD+5~, BLD+1*, CHK~, CHK+2, CHK+3, CQ, CHKQ, DDHELP+2~, TRANS+1~, INSCO~ , INSCO+3 |
| IBD | DD+5~, SEL+9~, BLD!, DDHELP+2~, TRANS+1~, INSCO+1~ |
| IBD( | CHKQ*, DDHELP+9, DDHELP+10 |
| IBDA | DD~, VAR, VAR+1, DDHELP~, TRANS~, INSCO~ |
| IBDD | DD+5~, SEL+9~, BLD!, BLD+1*, CHKQ*, DDHELP+2~, DDHELP+5, TRANS+1~, INSCO+1~ |
| IBDD( | CHK+3*, CQ!, CHKQ |
| IBINS | DDHELP+2~, DDHELP+10* |
| IBSEL | SEL+9~, SEL+10* |
| IBX | DD~, DD+7, SEL~, SEL+17 |
| INSDT | DD+5~, VAR+2*, SEL~, SEL+12*, BLD+1, CHK~, CHK+6, CHK+7, DDHELP+2~, TRANS+1~ , INSCO+1~ |
| IOM | DDHELP+7 |
| J | SEL+9~ |
| U | TRANS+3 |
| X | DD+7*, DD+8!, SEL+17*, CHK+1~, CHK+2*, CHK+3, CHK+5, CHK+6, CHK+7, CHK+8 |
| X1 | CHK+1~, CHK+5*, CHK+9, CHK+10 |
| Y | SEL+9~, SEL+10*, SELQ, TRANS~, TRANS+3*, TRANS+4, INSCO+3*, INSCO+4 |
