IBJTTC ;ALB/ARH/PJH - TPI AR COMMENT HISTORY ; 3/18/11 2:15pm
Source file <IBJTTC.m>
| Package | Total | Call Graph |
|---|---|---|
| Accounts Receivable | 4 | MCOM^PRCAMDA2 ($$EN,ADD)^RCDPAYER ($$N5,N7)^RCJIBFN1 ($$STNO,BCOM,TRN)^RCJIBFN2 |
| VA FileMan | 4 | CLEAN^DILF $$EXTERNAL^DILFD $$GET1^DIQ ^DIWP |
| List Manager | 3 | EN^VALM ($$SETSTR,CLEAR)^VALM1 SET^VALM10 |
| Integrated Billing | 2 | INIT^IBACCWLPREV HDR^IBJTU1 |
| Kernel | 2 | $$FMTE^XLFDT DISP^XQORM1 |
| 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 | 4 | IBCECOB6 IBJT AR COMMENT HISTORY IBJT AR COMMENT HISTORY SCREEN IBJTA1 |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for IBJT AR COMMENT HISTORY
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| INITQ | ||
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| BLD | ;
|
|
| ACCENCCOM(IBFN,IBLN) | ;EP - ;IB*2*770;TPF;EBILL-3552,EBILL-3808 ADD ACC ENCOUNTER PREVIOUS ACTIVITY
|
|
| EOBC | ; check for new EOB comments IB*2.0*432
|
|
| CONTACT() | ;HIPAA 5010 check for contact data in comments
|
|
| DATE(X) | ; date in external format
|
|
| SETLN(STR,IBX,COL,WD) | ;
|
|
| SET(STR,LN) | ; set up TMP array with screen data
|
|
| SETQ | ||
| MDACMTS | ; Check for MDA comments, Load for List Manager Screen IB*2.0*447 BI
; INTEGRATION CONTROL REGISTRATION is contained in DBIA #5696. |
|
| RFAIC | ; check for new RFAI comments IB*2.0*547 (modeled after EOBC)
; uses ^IBA(368,"D",$E(X,1,30),DA) PATIENT CONTROL NUMBER [D] cross-reference |
| Name | Field # of Occurrence |
|---|---|
| CLEAN^DILF | BLD+128 |
| $$EXTERNAL^DILFD | BLD+50 |
| $$GET1^DIQ | BLD+107, EOBC+11, RFAIC+17 |
| ^DIWP | BLD+12, BLD+85, BLD+89, BLD+111, EOBC+15, RFAIC+21 |
| INIT^IBACCWLPREV | ACCENCCOM+2 |
| HDR^IBJTU1 | HDR+1 |
| MCOM^PRCAMDA2 | MDACMTS+2 |
| $$EN^RCDPAYER | BLD+23, BLD+48 |
| ADD^RCDPAYER | BLD+26 |
| $$N5^RCJIBFN1 | BLD+32, CONTACT+5 |
| N7^RCJIBFN1 | BLD+88 |
| $$STNO^RCJIBFN2 | BLD+31, CONTACT+4 |
| BCOM^RCJIBFN2 | BLD+8 |
| TRN^RCJIBFN2 | BLD+18, BLD+28 |
| EN^VALM | EN+1 |
| $$SETSTR^VALM1 | SETLN+1 |
| CLEAR^VALM1 | EXIT+2 |
| SET^VALM10 | SET+1 |
| $$FMTE^XLFDT | BLD+106, EOBC+10, RFAIC+17 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^IBM(361.1 - [#361.1] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | BLD+97, BLD+102, BLD+103, BLD+110, BLD+111, EOBC+1, EOBC+6, EOBC+7, EOBC+14, EOBC+15 |
| ^IBA(368 - [#368] | RFAIC+3, RFAIC+6, RFAIC+8, RFAIC+10, RFAIC+11, RFAIC+20, RFAIC+21 |
| ^IBM(361.1 - [#361.1] | BLD+23, BLD+48, BLD+50 |
| ^TMP("IBJTTC" | INIT+1!, EXIT+1! |
| ^TMP("RCJIB" | BLD+18!, BLD+28!, BLD+30, BLD+31, BLD+85, BLD+94!, CONTACT+3, CONTACT+4 |
| ^UTILITY($J | BLD+8!, BLD+14, BLD+15, BLD+16!, BLD+18!, BLD+28!, BLD+91, BLD+92, BLD+93!, BLD+94! , BLD+113, BLD+114, BLD+116!, EOBC+17, EOBC+18, EOBC+20!, RFAIC+22, RFAIC+23, RFAIC+24! |
| Name | Line Occurrences |
|---|---|
| $$CONTACT | BLD+21 |
| $$DATE | BLD+35, BLD+37 |
| $$SET | BLD+9, BLD+10, BLD+15, BLD+33, BLD+38, BLD+57, BLD+61, BLD+65, BLD+69, BLD+73 , BLD+77, BLD+79, BLD+81, BLD+82, BLD+92, BLD+98, BLD+99, BLD+100, BLD+108, BLD+114 , BLD+130, EOBC+2, EOBC+3, EOBC+4, EOBC+12, EOBC+18, RFAIC+14, RFAIC+15, RFAIC+16, RFAIC+18 , RFAIC+23 |
| $$SETLN | BLD+9, BLD+10, BLD+15, BLD+34, BLD+35, BLD+36, BLD+37, BLD+56, BLD+60, BLD+64 , BLD+68, BLD+72, BLD+76, BLD+78, BLD+80, BLD+92, BLD+99, BLD+100, BLD+106, BLD+107 , BLD+114, EOBC+3, EOBC+4, EOBC+10, EOBC+11, EOBC+18, RFAIC+15, RFAIC+16, RFAIC+17, RFAIC+23 |
| ACCENCCOM | BLD+126 |
| BLD | INIT+3 |
| EOBC | BLD+122 |
| INITQ | INIT+2 |
| MDACMTS | BLD+123 |
| RFAIC | BLD+121 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CMLN | BLD+1~, BLD+110*, BLD+111, EOBC+14*, EOBC+15 |
| CMSTR | BLD+1~, BLD+114*, EOBC+18*, RFAIC+4~, RFAIC+23* |
| COL | SETLN~, SETLN+1 |
| COM | BLD+1~, BLD+8!, BLD+88! |
| COM( | BLD+12, BLD+89 |
| CONTACT | BLD+41~, BLD+48*, BLD+49, BLD+53, BLD+54 |
| >> DFN | HDR+1, INIT+2 |
| DIWF | BLD+1~, BLD+12*, BLD+85*, BLD+89*, BLD+111*, EOBC+15*, RFAIC+21* |
| DIWL | BLD+1~, BLD+12*, BLD+85*, BLD+89*, BLD+111*, EOBC+15*, RFAIC+21* |
| DIWR | BLD+1~, BLD+12*, BLD+85*, BLD+89*, BLD+111*, EOBC+15*, RFAIC+21* |
| BLD+41~, BLD+53*, BLD+70, BLD+71 | |
| EXT | BLD+41~, BLD+54*, BLD+63 |
| FAX | BLD+41~, BLD+53*, BLD+66, BLD+67 |
| FOUND | BLD+3~, BLD+23*, BLD+24, CONTACT+1~, CONTACT+2*, CONTACT+3, CONTACT+5*, CONTACT+6 |
| HAVPAYER | BLD+41~, BLD+47*, BLD+51, BLD+52* |
| IB0 | BLD+1~, BLD+103*, EOBC+7* |
| IB3611 | BLD+3~, BLD+23*, BLD+47*, BLD+48*, BLD+50 |
| IBC | RFAIC+4~, RFAIC+6*, RFAIC+11*, RFAIC+13 |
| IBCLM | RFAIC+4~, RFAIC+20*, RFAIC+21 |
| IBCNT | BLD+1~, BLD+14*, BLD+91* |
| IBD | BLD+1~, BLD+9*, BLD+15*, BLD+34*, BLD+35*, BLD+36*, BLD+37*, BLD+55*, BLD+56, BLD+59* , BLD+60, BLD+63*, BLD+64, BLD+67*, BLD+68, BLD+71*, BLD+72, BLD+75*, BLD+76, BLD+92* |
| IBDATE | BLD+1~, BLD+102*, BLD+103, BLD+106, EOBC+6*, EOBC+7, EOBC+10 |
| IBDT | RFAIC+4~, RFAIC+10*, RFAIC+11, RFAIC+17 |
| IBDUZ | BLD+1~, BLD+103*, BLD+107, EOBC+7*, EOBC+11, RFAIC+4~, RFAIC+11*, RFAIC+17 |
| IBFN | ACCENCCOM~ |
| IBI | BLD+1~, BLD+30*, BLD+31, BLD+32, BLD+85, BLD+88, CONTACT+1~, CONTACT+2*, CONTACT+3*, CONTACT+4 , CONTACT+5 |
| >> IBIFN | HDR+1, INIT+2, BLD+8, BLD+18, BLD+23, BLD+26, BLD+28, BLD+48, BLD+97, BLD+102 , BLD+103, BLD+110, BLD+111, BLD+126, ACCENCCOM+2, EOBC+1, EOBC+6, EOBC+7, EOBC+14, EOBC+15 , MDACMTS+2, RFAIC+3, RFAIC+6 |
| IBJ | BLD+1~, BLD+12*, BLD+89* |
| IBK | BLD+1~, BLD+14*, BLD+15, BLD+91*, BLD+92, BLD+113*, BLD+114, EOBC+17*, EOBC+18, RFAIC+4~ , RFAIC+22*, RFAIC+23 |
| IBLN | BLD+1~, BLD+5*, BLD+9*, BLD+10*, BLD+15*, BLD+33*, BLD+38*, BLD+57*, BLD+61*, BLD+65* , BLD+69*, BLD+73*, BLD+77*, BLD+79*, BLD+81*, BLD+82*, BLD+92*, BLD+98*, BLD+99*, BLD+100* , BLD+108*, BLD+114*, BLD+126, BLD+130*, BLD+131, ACCENCCOM~, ACCENCCOM+2, EOBC+2*, EOBC+3*, EOBC+4* , EOBC+12*, EOBC+18*, MDACMTS+2, RFAIC+14*, RFAIC+15*, RFAIC+16*, RFAIC+18*, RFAIC+23* |
| IBRCT5 | BLD+1~, BLD+32*, BLD+36, BLD+37, BLD+40 |
| IBSTR | BLD+1~, BLD+9*, BLD+10*, BLD+15*, BLD+33*, BLD+34*, BLD+35*, BLD+36*, BLD+37*, BLD+38* , BLD+56*, BLD+57*, BLD+60*, BLD+61*, BLD+64*, BLD+65*, BLD+68*, BLD+69*, BLD+72*, BLD+73* , BLD+76*, BLD+77*, BLD+78*, BLD+79*, BLD+80*, BLD+81*, BLD+82, BLD+92*, BLD+99*, BLD+100* , BLD+105*, BLD+106*, BLD+107*, BLD+108*, BLD+114*, EOBC+3*, EOBC+4*, EOBC+9*, EOBC+10*, EOBC+11* , EOBC+12*, EOBC+18*, RFAIC+4~, RFAIC+15*, RFAIC+16*, RFAIC+17*, RFAIC+18*, RFAIC+23* |
| IBTNI | RFAIC+4~, RFAIC+6*, RFAIC+8, RFAIC+10, RFAIC+11, RFAIC+20, RFAIC+21 |
| IBX | BLD+1~, BLD+31*, BLD+34, BLD+35, CONTACT+4*, SETLN~, SETLN+1*, SETLN+2 |
| IBZ | BLD+1~, BLD+103*, BLD+110, BLD+111, EOBC+7*, EOBC+14, EOBC+15, RFAIC+4~, RFAIC+11*, RFAIC+20 , RFAIC+21 |
| LN | SET~, SET+1*, SETQ |
| NAME | BLD+41~, BLD+54*, BLD+58, BLD+59 |
| PAYER | BLD+41~, BLD+50*, BLD+51, BLD+52, BLD+55 |
| PHONE | BLD+41~, BLD+54*, BLD+62, BLD+63 |
| STR | SETLN~, SETLN+1, SET~, SET+1 |
| U | BLD+31, BLD+34, BLD+35, BLD+36, BLD+37, BLD+40, BLD+50, BLD+53, BLD+54, BLD+85 , BLD+103, EOBC+7, CONTACT+4, CONTACT+5, RFAIC+11 |
| >> VALMCNT | BLD+5*, BLD+131* |
| >> VALMQUIT | INIT+2* |
| WD | SETLN~, SETLN+1 |
| WEB | BLD+41~, BLD+53*, BLD+74, BLD+75, BLD+77, BLD+78, BLD+79, BLD+80 |
| X | HELP+1*, BLD+1~, BLD+12*, BLD+85*, BLD+89*, BLD+111*, EOBC+15*, DATE~, DATE+1, RFAIC+21* |
| Y | DATE+1~*, DATE+2 |