IBJPS8 ;AITC/WCJ - IB Site Parameters, CMN CPT Inclusions CPT Codes ;02-Feb-2018
Source file <IBJPS8.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 5 | IBCU7 IBJPS IBJPS CMN CPT ADD IBJPS CMN CPT DEL IBJPS CMN CPTS |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for IBJP IB CMN CPTS
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| RTADD(IBTCFLAG) | ; -- Add a new CPT Codes
|
|
| RTADD1 | ; Looping tag for Adding CPT Codes
|
|
| RTDEL | ; -- Delete a CPT Coode
|
|
| RTDEL1 | ; Looping tag for deleting CPT Codes
|
|
| SET(IBLN,IBSTR) | ; -- Add a line to display list
; returns line number added |
|
| CMNPRMT(IBXIEN,IBPROCP,CPTIEN) | ;JRA Determine if procedure requires prompting for CMN Info
|
| Name | Field # of Occurrence |
|---|---|
| UPDATE^DIE | RTADD1+16 |
| ^DIK | RTDEL1+10 |
| GETS^DIQ | INIT+9 |
| ^DIR | RTADD1+5 |
| $$CMNDATA^IBCEF31 | CMNPRMT+11 |
| EN^VALM | EN+1 |
| $$SETSTR^VALM1 | INIT+11, INIT+12, INIT+13, INIT+18 |
| CLEAR^VALM1 | EXIT+1 |
| FULL^VALM1 | RTADD+4, RTADD1+9, RTDEL1+2 |
| CLEAN^VALM10 | EXIT+1 |
| SET^VALM10 | SET+2 |
| EN^VALM2 | RTDEL1+3 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | Classic Fileman Calls |
| ^ICPT - [#81] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(350.9 - [#350.9] | INIT+5, INIT+6, RTADD1+8, RTDEL1+9, CMNPRMT+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CIENS | INIT+2~, INIT+8*, INIT+9, INIT+12, INIT+13, INIT+15 |
| CPTDATA | INIT+2~ |
| CPTDATA(81 | INIT+12, INIT+13 |
| CPTIEN | INIT+2~, INIT+6*, INIT+8, CMNPRMT~, CMNPRMT+9, CMNPRMT+11 |
| DA | RTADD1+1!, RTDEL1+10* |
| DA(1 | RTDEL1+10* |
| DIE | RTADD+1~, RTADD1+1! |
| DIK | RTDEL1+6~, RTDEL1+10* |
| DIR | RTADD+1~, RTADD1+1! |
| DIR("A" | RTADD1+4* |
| DIR(0 | RTADD1+3* |
| DIRUT | RTADD+1~, RTADD1+1! |
| DR | RTADD+1~, RTADD1+1!, RTDEL+1~ |
| DTOUT | RTADD+1~, RTADD1+1! |
| DUOUT | RTADD+1~, RTADD1+1! |
| ERRMSG | RTADD+1~, RTADD1+1! |
| ERROR | INIT+1~ |
| FDA | RTADD+1~, RTADD1+1! |
| FDA( | RTADD1+15* |
| IBCNT | INIT+1~, INIT+4*, INIT+10*, INIT+11, INIT+15 |
| IBLN | INIT+1~, INIT+4*, INIT+14*, INIT+18*, INIT+20, SET~, SET+2*, SET+3 |
| IBPROCP | CMNPRMT~, CMNPRMT+9, CMNPRMT+11 |
| IBSTR | INIT+1~, INIT+11*, INIT+12*, INIT+13*, INIT+14, SET~, SET+2 |
| IBTCFLAG | RTADD~ |
| IBXIEN | CMNPRMT~, CMNPRMT+9, CMNPRMT+11 |
| IEN | RTDEL1+6~, RTDEL1+7*, RTDEL1+8, RTDEL1+9 |
| IOF | RTADD1+10 |
| RETIEN | RTADD+1~, RTADD1+1! |
| RIEN | RTDEL1+6~, RTDEL1+9*, RTDEL1+10 |
| RTYDSC | INIT+2~ |
| >> VALMAR | INIT+15, RTDEL1+7, RTDEL1+11 |
| >> VALMBCK | RTADD+3*, RTDEL+3* |
| >> VALMBG | INIT+20* |
| >> VALMCNT | INIT+4*, INIT+20* |
| >> VALMSG | HDR+1* |
| VALMY | RTDEL1+1~ |
| VALMY( | RTDEL1+5 |
| X | HELP+1*, RTADD+1~, RTADD1+1! |
| >> XQORNOD(0 | RTDEL1+3 |
| Y | RTADD+1~, RTADD1+1!, RTADD1+6, RTADD1+8, RTADD1+15 |
| Z | RTDEL1+1~, RTDEL1+4*, RTDEL1+5*, RTDEL1+7 |