IBAMTC ;ALB/CPM - MEANS TEST NIGHTLY COMPILATION JOB ; 07 Jun 2021 4:17 PM
Source file <IBAMTC.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 32 | (CVEXMAIL,IFCVEXP)^IBACV ($$ISLTCADM,NJ)^IBAECN1 ^IBAERR1 PURGE^IBAERR3 BULL^IBAMTC1 MAIN^IBAMTC2 CANCBLTN^IBAMTC3 (ADM,BGJ)^IBAMTI NIGHTLY^IBAMTS3 RELPR^IBAMTV3 EN^IBARXEL UPDT^IBARXEPS NIGHT^IBARXMA ^IBATEI1 SITE^IBAUTL SERV^IBAUTL2 (CLOCK,CLOCKCL,CLUPD,EVFIND,EVUPD)^IBAUTL3 ^IBAUTL4 ($$SECT,$$STD,FILER,LAST)^IBAUTL5 XMIT^IBAUTL9 $$SWSTAT^IBBAPI ^IBCD EN^IBCE SENDEII^IBCNFSND PUR^IBCNHUT2 ($$ISCDCANC,$$NUMVSTCK,$$OECHK,$$UPDATE,ADDVST)^IBECEAMH $$CANCEL^IBECEAU6 BJ^IBJDE EN^IBOHRL ($$ISELIG,GETPCECP,GETPCEDX,GETPMDX,GETPTFDX)^IBOMHC $$FY^IBOUTL NIGHTLY^IBTRKR |
Registration | 3 | $$BILST^DGMTUB $$MVT^DGPMOBS (ELIG,IN5)^VADPT |
VA FileMan | 3 | (,C,H,NOW,YMD)^%DTC FILE^DIE $$GET1^DIQ |
Kernel | 2 | KILL^%ZTLOAD ($$FMADD,$$NOW)^XLFDT |
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 | 7 | IB MT NIGHT COMP IBAMTD IBAMTS1 IBAMTV2 IBECEA4 IBY703PO IBY706PO |
Name | Comments | DBIA/ICR reference |
---|---|---|
INIT | ; Entry point - initialize variables and parameters
|
|
CLEAN | ||
PROC | ; Process all currently admitted patients.
|
|
PROCQ | ||
BSEC | ; Determine patient's bed section for the previous day.
|
|
ERR | ; Error processing. Input: IBY, IBWHER, IBCNT
|
|
ORIG | ; Find first admission date, considering ASIH movements
; Input: IBA Output: IBADMDT |
|
CANCEL(STRTDT,ENDDT,MSG) | ; cancel copays (covid relief) IB*2.0*703
|
|
KILL1 | ; Kill all IB variables.
|
|
KILL | ; Kill all IB variables needed to build charges.
|
|
UPDTS | ; update completion timestamp (350.9/.17) IB*2.0*760
|
|
CANCCD | ; cancel copays (Cleland-Dole) IB*2.0*760
|
|
UPDCANC(IBIEN) | ; update MH visit tracking for cancelled copay
|
|
FNDMHVST(DFN,IBEVDT) | ; find existing MH visit on a given date IB*2.0*760
|
|
GETMHFR(DFN,IBEVDT) | ; check if there's an existing free MH visit on a given date IB*2.0*760
|
|
ISCLDL(IBN) | ; check if charge is Cleland-Dole eligible IB*2.0*760
|
|
ISCMPCT(IBN) | ; check if charge is COMPACT Act related IB*2.0*760
|
|
GETDX(IBDXLIST) | ; Populate the list of Comact Act eligible DX codes IB*2.0*760
|
|
DXSLIST | ; List of Specific Compact Act Related Diagnosis codes IB*2.0*760
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IB - [#350] | GET1^DIQ |
^IBE(350.1 - [#350.1] | GET1^DIQ |
^IBE(350.9 - [#350.9] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM - [#405] | ORIG+3 |
^DPT("CN" | INIT+34 |
^IB - [#350] | PROC+35, CANCEL+15, CANCCD+6, ISCLDL+8, ISCMPCT+8 |
^IB("D" | CANCEL+13, CANCEL+14, CANCCD+4, CANCCD+5 |
^IBE(350.1 - [#350.1] | CANCEL+18, CANCCD+11, ISCLDL+10 |
^IBE(350.3 - [#350.3] | CANCEL+26, CANCCD+16 |
^IBE(350.8 - [#350.8] | CANCEL+30 |
^IBE(350.9 - [#350.9] | CANCEL+9 |
^IBE(351 - [#351] | CLEAN+1, CLEAN+2, CLEAN+3 |
^IBE(351.2 - [#351.2] | PROC+16 |
^IBMH(351.83 - [#351.83] | CANCCD+30, UPDCANC+6, UPDCANC+7, FNDMHVST+10, FNDMHVST+11, FNDMHVST+12, GETMHFR+10, GETMHFR+11, GETMHFR+12 |
^TMP("IBAMTC3" | CANCEL+12!, CANCEL+31*, CANCEL+33*, CANCEL+37! |
^TMP($J | INIT+28! |
^XTMP("IB TRANS" | CLEAN+35 |
Name | Line Occurrences |
---|---|
$$FNDMHVST | CANCCD+17 |
$$GETMHFR | CANCCD+18 |
$$ISCLDL | CANCCD+14 |
$$ISCMPCT | CANCCD+13 |
BSEC | PROC+23 |
CANCCD | INIT+8 |
CANCEL | INIT+6 |
CLEAN | INIT+7, INIT+29 |
ERR | INIT+7, INIT+29, CLEAN+4, PROC+28, PROC+31, PROC+35, PROC+36 |
GETDX | ISCMPCT+18 |
KILL | PROCQ |
KILL1 | CLEAN+38 |
ORIG | PROC+12 |
PROC | INIT+34 |
PROCQ | PROC+28, PROC+31, PROC+35, PROC+36 |
UPDTS | CLEAN+42 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %H | CLEAN*, PROC+24, PROC+25, PROC+29 |
DFN | INIT+34*, CLEAN*, CLEAN+1*, CLEAN+2, PROC+2, PROC+10, PROC+13, PROC+20, PROC+35, PROC+36 , CANCCD+1~, CANCCD+15*, CANCCD+17, CANCCD+18, CANCCD+24, CANCCD+28, CANCCD+31, FNDMHVST~, FNDMHVST+8, FNDMHVST+11 , GETMHFR~, GETMHFR+8, GETMHFR+11, ISCMPCT+6~, ISCMPCT+9* |
DT | INIT+6, INIT+10, INIT+27*, INIT+37, PROC+2, PROC+14, BSEC+1, CANCCD+3 |
DUZ | ERR+1 |
ENDDT | CANCEL~, CANCEL+13 |
FDA | UPDTS+1~ |
FDA( | UPDTS+2* |
I | ISCMPCT+6~, ISCMPCT+25*, ISCMPCT+27, ISCMPCT+28, GETDX+4~, GETDX+6* |
IBA | INIT+34*, PROC+2, PROC+10, PROC+15, PROC+16, PROC+20, ORIG+2, KILL1+1! |
IBACT | CANCEL+6~, CANCEL+18*, CANCEL+19, CANCEL+20, CANCCD+11*, CANCCD+12 |
IBADMDT | PROC+13, PROC+14, PROC+24, ORIG+4*, KILL1+1! |
IBAFY | INIT+27*, KILL1+1! |
IBASIH | KILL1+2! |
IBATYP | KILL1+1!, KILL+2!, ISCLDL+6~, ISCLDL+9*, ISCLDL+10 |
IBATYPN | ISCLDL+6~, ISCLDL+10*, ISCLDL+11 |
IBBDT | PROC+24*, PROC+25*, PROC+29, KILL1+1! |
IBBS | PROC+23, BSEC+2*, KILL1+1!, KILL+1! |
IBCHARG | KILL1+1! |
IBCHCDA | PROC+36, KILL+1! |
IBCHCTY | KILL1+2! |
IBCHFR | KILL+1! |
IBCHG | KILL1+1!, KILL+1! |
IBCHPDA | PROC+35, KILL+1! |
IBCHPDE | KILL1+2! |
IBCHTO | KILL+1! |
IBCHTOTL | KILL+1! |
IBCHTYPE | ISCMPCT+6~, ISCMPCT+14*, ISCMPCT+15, ISCMPCT+17 |
IBCLCT | PROC+29*, KILL+1! |
IBCLDA | CLEAN+4*, PROC+29, PROC+38, KILL+1! |
IBCLDAY | KILL+1! |
IBCLDOL | KILL+1! |
IBCLDT | CLEAN+3*, PROC+29, KILL+1! |
IBCNT | INIT+28*, ERR+1*, KILL1+1! |
IBCPTARY | ISCMPCT+6~, ISCMPCT+22 |
IBCPTARY("80939" | ISCMPCT+27 |
IBCPTARY("T2034" | ISCMPCT+26 |
IBCRES | CANCEL+6~, CANCEL+26*, CANCEL+27, CANCCD+1~, CANCCD+16*, CANCCD+20, CANCCD+25 |
IBCUR | KILL1+1! |
IBDATA | ISCLDL+6~, ISCLDL+8*, ISCLDL+9, ISCLDL+13, ISCLDL+14, ISCMPCT+6~, ISCMPCT+8*, ISCMPCT+9, ISCMPCT+11, ISCMPCT+14 , GETDX+4~, GETDX+6* |
IBDATE | KILL+2! |
IBDESC | KILL1+1!, KILL+2! |
IBDISDT | KILL1+1! |
IBDT | INIT+20!, CLEAN*, CLEAN+3, PROC+37, KILL1+1! |
IBDTM | CANCEL+6~, CANCEL+13*, CANCEL+14, CANCCD+1~, CANCCD+3*, CANCCD+4*, CANCCD+5 |
IBDUZ | ERR+1*!, KILL1+1! |
IBDXARY | ISCMPCT+6~, ISCMPCT+20, ISCMPCT+22, ISCMPCT+24 |
IBDXARY( | ISCMPCT+25 |
IBDXD | GETDX+4~, GETDX+6* |
IBDXLIST | ISCMPCT+6~, ISCMPCT+18, GETDX~ |
IBDXLIST( | ISCMPCT+28, GETDX+6* |
IBECODE | CANCEL+6~, CANCEL+30* |
IBEDT | PROC+26*, KILL1+2! |
IBEMSG | CANCEL+6~, CANCEL+30*, CANCEL+31 |
IBERRN | INIT+28*, KILL1+2! |
IBERROR | CANCCD+1~, CANCCD+21, CANCCD+26, UPDCANC+1~, UPDCANC+7 |
IBEVCAL | PROC+25, KILL+2! |
IBEVCLD | PROC+37*, KILL+2! |
IBEVDA | PROC+23, PROC+24, PROC+25, PROC+37, KILL+2! |
IBEVDT | KILL+2!, CANCCD+1~, CANCCD+15*, CANCCD+17, CANCCD+18, CANCCD+24, CANCCD+28, CANCCD+31, FNDMHVST~, FNDMHVST+8 , FNDMHVST+10, GETMHFR~, GETMHFR+8, GETMHFR+10 |
IBEVNEW | KILL+2! |
IBEVOLD | KILL+2! |
IBFAC | KILL1+1! |
IBFR | CANCEL+6~, CANCEL+23* |
IBFREE | CANCCD+1~, CANCCD+18*, CANCCD+19 |
IBI | KILL1+1! |
IBIEN | CANCEL+6~, CANCEL+14*, CANCEL+15, CANCEL+16, CANCEL+27, CANCCD+1~, CANCCD+5*, CANCCD+6, CANCCD+8, CANCCD+9 , CANCCD+13, CANCCD+14, CANCCD+20, CANCCD+25, CANCCD+30, CANCCD+31, UPDCANC~, UPDCANC+2, UPDCANC+3, UPDCANC+6 |
IBIEN1 | CANCCD+1~, CANCCD+7*, CANCCD+8 |
IBIL | KILL1+1!, KILL+2! |
IBJOB | INIT+28*, KILL1+1! |
IBLC | KILL1+1! |
IBMAX | KILL1+1! |
IBMED | KILL+2! |
IBN | CLEAN*, CLEAN+2*, CLEAN+3, CLEAN+4, KILL1+2!, ISCLDL~, ISCLDL+7, ISCLDL+8, ISCLDL+12, ISCMPCT~ , ISCMPCT+7, ISCMPCT+8 |
IBN0 | CANCEL+6~, CANCEL+15*, CANCEL+18, CANCEL+23, CANCEL+24, CANCEL+31, CANCEL+33, CANCCD+1~, CANCCD+6*, CANCCD+7 , CANCCD+11, CANCCD+15 |
IBNGHTSK | INIT+4~, INIT+5* |
IBNH | KILL+1! |
IBNOS | PROC+35*, PROC+36*, KILL1+2! |
IBPCE | ISCMPCT+6~, ISCMPCT+22* |
IBRES | CANCEL+6~, CANCEL+27*, CANCEL+29, CANCEL+30 |
IBRF | ISCMPCT+6~, ISCMPCT+11*, ISCMPCT+12, ISCMPCT+20, ISCMPCT+22, ISCMPCT+24 |
IBRFFL | ISCMPCT+6~, ISCMPCT+12*, ISCMPCT+20, ISCMPCT+22, ISCMPCT+24 |
IBRTED | KILL1+2! |
IBRTN | CANCCD+1~, CANCCD+20*, CANCCD+21*, CANCCD+25*, CANCCD+26*, UPDCANC+1~, UPDCANC+7* |
IBSAVBS | KILL1+2! |
IBSEQNO | KILL1+2! |
IBSERV | KILL1+2! |
IBSITE | KILL1+2! |
IBSL | KILL1+2! |
IBSRVFR | CANCEL+6~, CANCEL+8*, CANCEL+24 |
IBSRVTO | CANCEL+6~, CANCEL+9*, CANCEL+23 |
IBSTAT | CANCEL+6~, CANCEL+16*, CANCEL+17, CANCEL+22, CANCCD+1~, CANCCD+9*, CANCCD+10, UPDCANC+1~, UPDCANC+3*, UPDCANC+4 , FNDMHVST+7~, FNDMHVST+12*, FNDMHVST+13, GETMHFR+7~, GETMHFR+12* |
IBTO | CANCEL+6~, CANCEL+24* |
IBTOTL | KILL+2! |
IBTRAN | KILL1+2!, KILL+2! |
IBVSTAT | CANCCD+1~, CANCCD+17*, CANCCD+21, CANCCD+26 |
IBVSTIEN | CANCCD+1~, CANCCD+17*, CANCCD+21, CANCCD+26, CANCCD+28, UPDCANC+1~, UPDCANC+6*, UPDCANC+7, FNDMHVST+7~, FNDMHVST+10* , FNDMHVST+11, FNDMHVST+12, FNDMHVST+13, GETMHFR+7~, GETMHFR+10*, GETMHFR+11, GETMHFR+12 |
IBWARD | INIT+34*, KILL1+2! |
IBWHER | INIT+28*, CLEAN*, PROC+28*, PROC+34*, KILL1+2! |
IBX | KILL1+2! |
IBXA | CANCEL+6~, CANCEL+20*, CANCEL+21, CANCEL+22 |
IBY | INIT+7*, INIT+28*, INIT+29, INIT+34*, CLEAN+3*, CLEAN+4, PROC+28, PROC+31, PROC+35, PROC+36 , KILL1+2! |
MSG | CANCEL~, CANCEL+12, CANCEL+28, CANCEL+33, CANCEL+37 |
RES | FNDMHVST+7~, FNDMHVST+9*, FNDMHVST+10, FNDMHVST+13*, FNDMHVST+15, GETMHFR+7~, GETMHFR+9*, GETMHFR+10, GETMHFR+13*, GETMHFR+15 , ISCLDL+6~, ISCLDL+7*, ISCMPCT+6~, ISCMPCT+7*, ISCMPCT+9, ISCMPCT+11, ISCMPCT+14, ISCMPCT+15, ISCMPCT+17, ISCMPCT+25 , ISCMPCT+26*, ISCMPCT+27*, ISCMPCT+28*, ISCMPCT+30 |
STATSTR | CANCEL+6~, CANCEL+10*, CANCEL+17, CANCCD+1~, CANCCD+2*, CANCCD+10 |
STRTDT | CANCEL~, CANCEL+13 |
U | INIT+27*, CANCEL+9, CANCEL+17, CANCEL+18, CANCEL+19, CANCEL+20, CANCEL+23, CANCEL+24, CANCEL+30, CANCEL+31 , CANCEL+33, CANCCD+7, CANCCD+10, CANCCD+11, CANCCD+12, CANCCD+15, CANCCD+17, UPDCANC+7, FNDMHVST+12, FNDMHVST+13 , GETMHFR+12, ISCLDL+9, ISCLDL+10, ISCLDL+13, ISCLDL+14, ISCMPCT+9, ISCMPCT+11, ISCMPCT+14 |
VAEL | KILL1+1! |
VAEL(3 | PROC+20 |
VAERR | KILL1+1! |
VAIP | KILL1+1! |
VAIP("D" | BSEC+2* |
VAIP(8 | BSEC+2 |
X | INIT+27, CLEAN, CLEAN+4, PROC+24*, PROC+29*, BSEC+2, ORIG+2~, ORIG+3*, ORIG+4 |
X1 | INIT+2~, CLEAN+3*, PROC+25*, BSEC+1* |
X2 | INIT+2~, CLEAN+3*, PROC+25*, BSEC+1* |
Y | INIT+7*, INIT+28*, ORIG+2~, ORIG+3* |
Z | ORIG+2~*, ORIG+3*, CANCCD+1~, CANCCD+17*, ISCLDL+6~, ISCLDL+13*, ISCLDL+14 |
>> ZTQUEUED | CLEAN+40 |
>> ZTSK | CLEAN+40 |
Name | Field # of Occurrence |
---|---|
$T(DXSLIST+I | GETDX+6 |