IBACCWLRURREV ;EDE/TPF - ACC (Automated Community Care) Claims - ADDITIONAL REVIEW SCREEN FOR RUR ; 12-SEP-2023 ; 12-SEP-2023
Source file <IBACCWLRURREV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(IBDA,IBENCIFN,IBIFN,DETRETURN,PREVVALMAR,IBFROMVALMDDF) | ;TPF;IB*2*770v38;EBILL-5485
|
|
| HDR | ; -- header code
|
|
| INIT | ;EP -- init variables and list array
|
|
| GETX12TPE(DATA,GETX12TPE) | ;EP GET X12 TYPE
|
|
| INITQ | ;Exit
|
|
| PRESCANALL | ;EP
|
|
| PRESCAN(IBENCIFN,DRG,DTOFOCCFR,DTOFOCCTO,DISPLAY,SV1CODEFOUND,SV2CODEFOUND,SV3CODEFOUND) | ||
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| SET(TITLE,VALUE,BLANK,HEADER,TITLECOLDDF,VALUECOLDDF,THIRDCOLDDF) | ;EP -MODIFIED SET TO PLACE DATA AT SPECIFIC COLUMN
|
|
| SETQ | ;
|
|
| SET1(TITLE,VALUE,TITLECOLDDF,VALUECOLDDF,THIRDCOLDDF) | ;EP
|
|
| GETVALMDDF(LISTNAME,VALMDDF) | ;EP GET VALMDDF FIELD DEF ARRAY
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(364.9 - [#364.9] | GET1^DIQ |