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 |