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~ |