IBMHPMPY1 ;EDE/WCJ-Multi-site maintain IB MH VISIT TRACKING FILE (#351.83) - (aka PushMi-PullYu); 22-OCT-23
Source file <IBMHPMPY1.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 | 2 | IBMH MULTI FAC COPAY SYNCH IBMHPMPY3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AWAY | ||
| UPDATED | ; Get all in File that were UPDATED and not yet pushed out. They may have gotten to some sites but not all sites
; |
|
| MULTI(IBINDEX,IBLOOKUP) | ;
; IBINDEX = a single regular fileman index ; IBLOOKUP = internal value for that index |
|
| LOGRES(IBDFN,ERR,RESMESS) | ; log results
|
|
| TFL(DFN,IBS,IBT) | ; returns treating facility list (pass IBT by reference)
; supported references ia #2990, value returned is count ; needed to N Y because VAFCTFU1 will kill it ; DFN - Patient IEN ; IBS - External site ; IBT - By reference for results |
|
| ALERTSO | ; alert someone
; what is needed to actually be informative - maybe PATIENT NAME, FULL ICN (if available), RECEIVING SITE, ERROR MESSAGE ; screen out all but errors (get rid of 0's (info only) and 1's (successes)) |
|
| REMOVE(IBIEN) | ; remove from UPDATED index - only called if sent to ALL other treating facilities successfully.
|
|
| CLEARERR(IBIEN) | ; remove from UPDATED index - only called if sent to ALL other treating facilities successfully.
|
|
| CHKERR | ; Check error code and set file 351.83 fields 3.01, 3.02.&3.03 IB*2.0*761
|
|
| EXTEMAIL | ; IB*2.0*761
|
| Name | Field # of Occurrence |
|---|---|
| FIND^DIC | MULTI+8 |
| ^DIE | CHKERR+11 |
| FILE^DIE | REMOVE+4, CLEARERR+6 |
| CLEAN^DILF | ALERTSO+33 |
| $$GET1^DIQ | MULTI+85, ALERTSO+12, ALERTSO+13 |
| $$ICN^IBARXMU | MULTI+41 |
| SITE^IBAUTL | MULTI+25 |
| TFL^VAFCTFU1 | TFL+8 |
| ^XMD | EXTEMAIL+11 |
| SENDMSG^XMXAPI | ALERTSO+32 |
| EN1^XWB2HL7 | MULTI+57, MULTI+58 |
| RPCCHK^XWB2HL7 | MULTI+73 |
| CLEAR^XWBDRPC | MULTI+93 |
| RTNDATA^XWBDRPC | MULTI+80 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^IBMH(351.83 - [#351.83] | FIND^DIC, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBMH(351.83 - [#351.83] | EXTEMAIL+4 |
| ^TMP("DILIST" | MULTI+14, MULTI+28, MULTI+29 |
| ^TMP("IBMHPMPY" | MULTI+4!, MULTI+83*, MULTI+90*, MULTI+102!, LOGRES+3*, ALERTSO+4, ALERTSO+8, ALERTSO+10, ALERTSO+14, ALERTSO+16* , ALERTSO+20*, ALERTSO+21, ALERTSO+22, ALERTSO+23, ALERTSO+25*, ALERTSO+28* |
| ^TMP($J | MULTI+90, MULTI+91!, EXTEMAIL+3!, EXTEMAIL+7* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | EXTEMAIL+1~, EXTEMAIL+2*, EXTEMAIL+4*, EXTEMAIL+5 |
| DA | CHKERR+6*, CHKERR+10! |
| DFN | TFL~, TFL+8 |
| DIE | CHKERR+6*, CHKERR+10! |
| DR | CHKERR+7*, CHKERR+8*, CHKERR+9*, CHKERR+10! |
| DUZ | ALERTSO+32 |
| ERR | LOGRES~, LOGRES+1*, LOGRES+3 |
| FDA | REMOVE+1~, CLEARERR+1~ |
| FDA( | REMOVE+3*, CLEARERR+3*, CLEARERR+4*, CLEARERR+5* |
| IBAD | ALERTSO+5~, ALERTSO+9*, ALERTSO+17*, ALERTSO+18*, ALERTSO+26* |
| IBBILL | MULTI+21~, MULTI+46*, MULTI+57 |
| IBC | MULTI+21~, MULTI+73*, TFL+7~, TFL+10*, TFL+14*, TFL+15 |
| IBCOMM | MULTI+21~, MULTI+47*, MULTI+57 |
| IBDATA | MULTI+21~, MULTI+29*, MULTI+30, MULTI+31, MULTI+32, MULTI+34, MULTI+44, MULTI+45, MULTI+46, MULTI+47 , MULTI+48, ALERTSO+5~, ALERTSO+14*, ALERTSO+15, ALERTSO+16, ALERTSO+19, ALERTSO+20, ALERTSO+23*, ALERTSO+24, ALERTSO+25 , ALERTSO+27, ALERTSO+28 |
| IBDFN | MULTI+21~, MULTI+32*, MULTI+38, MULTI+41, MULTI+42, MULTI+76, MULTI+83, MULTI+90, MULTI+94, LOGRES~ , LOGRES+2~*, LOGRES+3, ALERTSO+5~, ALERTSO+7*, ALERTSO+8*, ALERTSO+10, ALERTSO+11, ALERTSO+12, ALERTSO+13, ALERTSO+14 , ALERTSO+16, ALERTSO+17, ALERTSO+18, ALERTSO+20, ALERTSO+21, ALERTSO+22, ALERTSO+23, ALERTSO+25, ALERTSO+26, ALERTSO+28 |
| IBELGRP | MULTI+21~ |
| IBERR | MULTI+21~, MULTI+27*, MULTI+42, MULTI+62, MULTI+76, MULTI+82*, MULTI+83, MULTI+89*, MULTI+90, MULTI+94 , CHKERR+1~, CHKERR+2*, CHKERR+3 |
| IBERRCD | CHKERR+1~, CHKERR+3*, CHKERR+4, CHKERR+8, CHKERR+9, CHKERR+10 |
| IBEXSITE | MULTI+21~ |
| IBFAC | MULTI+21~, ALERTSO+5~, ALERTSO+21*, ALERTSO+22, ALERTSO+23, ALERTSO+25, ALERTSO+28 |
| IBFT | TFL+7~, TFL+12*, TFL+14 |
| IBH | MULTI+21~, MULTI+56~, MULTI+57, MULTI+58 |
| IBH(0 | MULTI+60, MULTI+63 |
| IBHERE | MULTI+21~, MULTI+79!, MULTI+80, MULTI+81, MULTI+83 |
| IBHERE( | CHKERR+2, CHKERR+3 |
| IBHERE(0 | MULTI+85, MULTI+86, MULTI+87 |
| IBICN | MULTI+21~, MULTI+41*, MULTI+42, MULTI+57, MULTI+58 |
| IBIEN | MULTI+21~, MULTI+31*, MULTI+35, MULTI+39, MULTI+49, MULTI+85, MULTI+95, REMOVE~, REMOVE+2, REMOVE+5 , CLEARERR~, CLEARERR+2, CHKERR+6 |
| IBINDEX | MULTI~, MULTI+8, MULTI+23 |
| IBL4 | ALERTSO+5~, ALERTSO+13*, ALERTSO+18, ALERTSO+26 |
| IBLN | ALERTSO+5~, ALERTSO+12*, ALERTSO+18, ALERTSO+26 |
| IBLOOKUP | MULTI~, MULTI+8 |
| IBLOOP | MULTI+21~, MULTI+27*, MULTI+28*, MULTI+29 |
| IBLP | ALERTSO+5~, ALERTSO+22*, ALERTSO+23 |
| IBMHIEN | EXTEMAIL+1~, EXTEMAIL+2*, EXTEMAIL+4* |
| IBOSITEEX | MULTI+21~, MULTI+34*, MULTI+35, MULTI+38, MULTI+57, MULTI+58 |
| IBPATPR | MULTI+21~, MULTI+23*, MULTI+57, MULTI+58 |
| IBR | MULTI+21~, MULTI+72~, MULTI+73, MULTI+79! |
| IBR(0 | MULTI+73, MULTI+76, MULTI+78 |
| IBREMOVE | MULTI+66~, MULTI+67*, MULTI+69*, MULTI+76*, MULTI+87*, MULTI+92*, MULTI+94*, MULTI+95 |
| IBRES | ALERTSO+5~, ALERTSO+10*, ALERTSO+14, ALERTSO+21, ALERTSO+22, ALERTSO+23 |
| IBS | TFL~, TFL+14 |
| IBSITE | MULTI+21~, MULTI+35, MULTI+49 |
| IBSTAT | MULTI+21~, MULTI+45*, MULTI+57 |
| IBT | MULTI+21~, MULTI+38*, MULTI+39, TFL~ |
| IBT( | TFL+14* |
| IBTFL | MULTI+21~, MULTI+37!, MULTI+38 |
| IBTFL( | MULTI+55, MULTI+57, MULTI+58, MULTI+61*, MULTI+62, MULTI+63*, MULTI+68, MULTI+69, MULTI+73, MULTI+76 , MULTI+80, MULTI+83, MULTI+85, MULTI+90, MULTI+93, CHKERR+7 |
| IBUNIQ | MULTI+21~, MULTI+48*, MULTI+49*, MULTI+57 |
| IBVISDT | MULTI+21~, MULTI+44*, MULTI+57 |
| IBX | MULTI+21~, MULTI+55*, MULTI+57, MULTI+58, MULTI+61, MULTI+62, MULTI+63, MULTI+68*, MULTI+69, MULTI+73 , MULTI+76, MULTI+80, MULTI+83, MULTI+85, MULTI+90, MULTI+93, CHKERR+7 |
| IBZ | MULTI+21~, MULTI+93, TFL+7~, TFL+8, TFL+10*, TFL+14* |
| IBZ( | TFL+14 |
| IBZ(1 | TFL+9 |
| IENS | REMOVE+1~, REMOVE+2*, REMOVE+3, CLEARERR+1~, CLEARERR+2*, CLEARERR+3, CLEARERR+4, CLEARERR+5 |
| LINE | EXTEMAIL+1~ |
| LN | ALERTSO+5~, ALERTSO+7*, ALERTSO+17*, ALERTSO+18*, ALERTSO+19*, ALERTSO+26*, ALERTSO+27*, ALERTSO+29*, ALERTSO+30 |
| MSG | ALERTSO+5~, ALERTSO+29 |
| MSG( | ALERTSO+17*, ALERTSO+18*, ALERTSO+19*, ALERTSO+26*, ALERTSO+27*, ALERTSO+29* |
| RESMESS | LOGRES~, LOGRES+3 |
| RETURN | REMOVE+1~, CLEARERR+1~ |
| SUBJ | ALERTSO+5~, ALERTSO+6*, ALERTSO+32 |
| U | MULTI+31, MULTI+32, MULTI+34, MULTI+44, MULTI+45, MULTI+46, MULTI+47, MULTI+48, MULTI+73, MULTI+85 , TFL+14, ALERTSO+27, CHKERR+7 |
| XMDUZ | EXTEMAIL+1~, EXTEMAIL+9* |
| XMSUB | EXTEMAIL+1~, EXTEMAIL+6* |
| XMTEXT | EXTEMAIL+1~, EXTEMAIL+8* |
| XMTO | ALERTSO+5~, ALERTSO+32 |
| XMTO("G.IBMH | EXCEPTIONS" , ALERTSO+31* |
| XMY | EXTEMAIL+1~ |
| XMY("G.IB MH | REMOTE" , EXTEMAIL+10* |
| Y | TFL+7~ |
