IBCEF12 ;EDE/JWS - OUTPUT FORMATTER SPECIFIC DENTAL FUNCTIONS ;30-JAN-96
Source file <IBCEF12.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 |
|---|---|---|
| TNUM(IBIFN) | ; Extract code for 364.5 field 383 N-TOOTH NUMBER
|
|
| DEN | ; Output formatter Format Code for file DEN, field 2
|
|
| DEN1 | ; Output formatter Format Code for file DEN1, field 2
|
|
| DEN2 | ; Output formatter Format Code for file DEN2, fields 2
|
|
| DEN23 | ; Output formatter format code for file DEN2, field 3 (8,186.2,1,3)
|
|
| DEN24 | ; Output formatter Format Code for file DEN2, field 4
|
|
| DEN25 | ; Output formatter Format Code for file DEN2, field 5
|
|
| DEN26 | ; Output formatter Format Code for file DEN2, field 6
|
|
| DEN27 | ; Output formatter Format Code for file DEN2, field 7
|
|
| DEN28 | ; Output formatter Format Code for file DEN2, field 8
|
|
| DEN29 | ; Output formatter Format Code for file DEN2, field 9
|
|
| TRANS | ; Output formatter Format Code for file DN1, field 6
|
|
| SRVDT | ; Output formatter Format Code for file DEN, field 4 Service date
|
|
| SRVDTQ | ; Output formatter Format Code for file DEN, field 3 Date/Time Qualifier
|
|
| PROC | ; Output formatter Format Code for file DEN1, field 3 Procedure Count
|
|
| POS | ; Output formatter Format Code for File DEN, field 13 Place of Service
|
|
| OIT | ; Output formatter Format Code for File OI1, field 8 Other Insurance Type
|
|
| CHK(IBIEN) | ;DIC("S") screen for OCCURRENCE CODE 399.041, .01 field
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | DEN24+10, TRANS+2, SRVDT+4, SRVDTQ+3 |
| $$FT^IBCEF | OIT+1, CHK+3 |
| F^IBCEF | POS+3 |
| SET1^IBCEF1 | DEN+3, DEN1+3, DEN2+3 |
| ID^IBCEF2 | DEN+5, DEN1+5, DEN2+7 |
| SVITM^IBCEF2 | DEN+5, DEN1+5 |
| SETGBL^IBCEFG | DEN2+9, DEN23+8, DEN24+11, DEN25+10, DEN26+10, DEN27+10, DEN28+10, DEN29+10 |
| $$FMTHL7^XLFDT | SRVDT+4, SRVDTQ+3 |
| FileNo | Call Tags |
|---|---|
| ^IBT(356.022 - [#356.022] | GET1^DIQ |
| ^DGCR(399 - [#399] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | TNUM+4 |
| ^DGCR(399.1 - [#399.1] | CHK+4 |
| ^TMP("IBXSAVE" | TNUM+2!, TNUM+4* |
| Name | Field # of Occurrence |
|---|---|
| ^( | TNUM+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | DEN+2~, DEN+3, DEN+5, DEN1+2~, DEN1+3, DEN1+5, DEN2+2~, DEN2+3, OIT+2 |
| CT | DEN2+2~, DEN2+4*, DEN2+6, DEN2+7*, DEN2+8, DEN2+9, DEN23+2~, DEN23+3*, DEN23+6*, DEN23+7 , DEN23+8, DEN24+2~, DEN24+3*, DEN24+6*, DEN24+10, DEN24+11, DEN25+2~, DEN25+3*, DEN25+6*, DEN25+9 , DEN25+10, DEN26+2~, DEN26+3*, DEN26+6*, DEN26+9, DEN26+10, DEN27+2~, DEN27+3*, DEN27+6*, DEN27+9 , DEN27+10, DEN28+2~, DEN28+3*, DEN28+6*, DEN28+9, DEN28+10, DEN29+2~, DEN29+3*, DEN29+6*, DEN29+9 , DEN29+10 |
| DEFPOS | POS+1~, POS+4*, POS+5*, POS+7 |
| HOF | POS+1~, POS+5* |
| IB | TNUM+1~, TNUM+4* |
| IB1 | TNUM+1~, TNUM+4* |
| IBCDT | SRVDT+3~, SRVDT+4*, SRVDT+9, SRVDTQ+2~, SRVDTQ+3*, SRVDTQ+8 |
| IBCHK | CHK+1~, CHK+4*, CHK+5 |
| IBIEN | CHK~, CHK+2*, CHK+3 |
| IBIFN | TNUM~, TNUM+4, CHK+2 |
| IBXDATA | DEN+3, DEN1+3, DEN2+3, DEN2+10!, DEN23+9!, DEN24+12!, DEN25+11!, DEN26+11!, DEN27+11!, DEN28+11! , DEN29+11!, TRANS+2!, TRANS+3*! |
| IBXDATA( | DEN+5*, DEN1+5*, DEN2+8*, DEN23+7*, DEN24+10*, DEN24+11, DEN25+9*, DEN25+10, DEN26+9*, DEN26+10 , DEN27+9*, DEN27+10, DEN28+9*, DEN28+10, DEN29+9*, DEN29+10, SRVDT+10*, SRVDTQ+9*, PROC+3*, PROC+4* , POS+7*, OIT+2* |
| >> IBXIEN | DEN+3, DEN1+3, DEN2+3, TRANS+2, SRVDT+4, SRVDTQ+3, POS+3, OIT+1 |
| >> IBXNOREQ | DEN+3, DEN1+3, DEN2+3 |
| >> IBXPG | DEN2+9, DEN23+8, DEN24+11, DEN25+10, DEN26+10, DEN27+10, DEN28+10, DEN29+10 |
| >> IBXSAVE | DEN+5, DEN1+5 |
| >> IBXSAVE("DONE" | DEN24+2!, DEN24+7, DEN24+8*, DEN25+2!, DEN25+7, DEN25+8*, DEN26+2!, DEN26+7, DEN26+8*, DEN27+2! , DEN27+7, DEN27+8*, DEN28+2!, DEN28+7, DEN28+8*, DEN29+2!, DEN29+7, DEN29+8* |
| >> IBXSAVE("OUTPT" | DEN+2!, DEN+5*, DEN1+2!, DEN1+5*, DEN2+6, DEN23+4, DEN23+5, DEN24+4, DEN24+5, DEN24+10 , DEN25+4, DEN25+5, DEN25+9, DEN26+4, DEN26+5, DEN26+9, DEN27+4, DEN27+5, DEN27+9, DEN28+4 , DEN28+5, DEN28+9, DEN29+4, DEN29+5, DEN29+9, SRVDT+6, SRVDT+7, SRVDT+8, SRVDT+9, SRVDT+10 , SRVDTQ+5, SRVDTQ+6, SRVDTQ+7, SRVDTQ+8, SRVDTQ+9, PROC+2, PROC+3, POS+7 |
| >> IBXSIZE | DEN2+9, DEN23+8, DEN24+11, DEN25+10, DEN26+10, DEN27+10, DEN28+10, DEN29+10 |
| IBZ | DEN+2~, DEN+3, DEN1+2~, DEN1+3, DEN2+3, POS+1~ |
| IBZ( | DEN+5, DEN1+5, DEN2+5, POS+5 |
| POS | POS+1~, POS+5* |
| Q | DEN+2~, DEN+4*, DEN+5*, DEN1+2~, DEN1+4*, DEN1+5* |
| U | TNUM+4, DEN2+6, DEN24+10, DEN25+9, DEN26+9, DEN27+9, DEN28+9, DEN29+9, SRVDT+7, SRVDT+8 , SRVDT+9, SRVDT+10, SRVDTQ+6, SRVDTQ+7, SRVDTQ+8, SRVDTQ+9, PROC+3, POS+5, POS+7 |
| W | POS+1~, POS+4*, POS+5* |
| >> Y | CHK+4 |
| Z | DEN+2~, DEN+4*, DEN+5*, DEN1+2~, DEN1+4*, DEN1+5*, DEN2+2~, DEN2+4*, DEN2+5*, DEN2+6 , DEN2+8, DEN2+9, DEN23+2~, DEN23+3*, DEN23+4*, DEN23+5, DEN24+2~, DEN24+3*, DEN24+4*, DEN24+5 , DEN24+7, DEN24+8, DEN24+10, DEN25+2~, DEN25+3*, DEN25+4*, DEN25+5, DEN25+7, DEN25+8, DEN25+9 , DEN26+2~, DEN26+3*, DEN26+4*, DEN26+5, DEN26+7, DEN26+8, DEN26+9, DEN27+2~, DEN27+3*, DEN27+4* , DEN27+5, DEN27+7, DEN27+8, DEN27+9, DEN28+2~, DEN28+3*, DEN28+4*, DEN28+5, DEN28+7, DEN28+8 , DEN28+9, DEN29+2~, DEN29+3*, DEN29+4*, DEN29+5, DEN29+7, DEN29+8, DEN29+9, SRVDT+3~, SRVDT+5* , SRVDT+6*, SRVDT+7, SRVDT+8, SRVDT+9, SRVDT+10, SRVDTQ+2~, SRVDTQ+4*, SRVDTQ+5*, SRVDTQ+6, SRVDTQ+7 , SRVDTQ+8, SRVDTQ+9, PROC+1~*, PROC+2*, PROC+3, PROC+4, POS+1~, POS+7*, OIT+2 |
| Z0 | DEN23+2~, DEN23+5*, DEN24+5*, DEN24+7, DEN24+8, DEN24+10, DEN25+5*, DEN25+7, DEN25+8, DEN25+9 , DEN26+5*, DEN26+7, DEN26+8, DEN26+9, DEN27+5*, DEN27+7, DEN27+8, DEN27+9, DEN28+5*, DEN28+7 , DEN28+8, DEN28+9, DEN29+5*, DEN29+7, DEN29+8, DEN29+9 |
| Z1 | DEN2+2~, DEN2+6* |
| ZO | DEN24+2~, DEN25+2~, DEN26+2~, DEN27+2~, DEN28+2~, DEN29+2~ |
