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 |