BARUFUT ; IHS/SD/TPF - UTILITIES FOR UFMS ; 09/19/2007
Source file <BARUFUT.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS Accounts Receivable | 7 | CANCEL^BARPST3 ($$PULLSESS,ONETRAN)^BARUFEX EXPORTSM^BARUFSUP ($$OPENSTAT,ASKFORRT)^BARUFUT ($$SETTRANS,TRANHDR,VIEWSTAT,VIEWTRAN)^BARUFUT0 ($$ASUFAC,$$DELFLG,$$STILPOST,DELETE,EXCLLST)^BARUFUT1 $$UPC^BARUTL | 
| VA Fileman | 5 | NOW^%DTC ^DIC ^DIE $$GET1^DIQ ^DIR | 
| Third Party Billing | 1 | ($$TRANSMIT,TRANSMIT)^ABMUEAPI | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CURSTAT(UDUZ,SESSID,FLAGS) | ;EP - RETURN CURRENT STATUS | |
| OPENSTAT(UDUZ) | ;EP - RETURN **LAST** SESSION DATE THAT IS OPEN | |
| CONT | ;EP - SEND THE SESSION TO THE EXTRACTER | |
| SELTRAN(UDUZ,SESSID) | ;EP - SELECT AND TRANSMIT ONE OR MORE TRANSACTIONS FROM A SESSION | |
| ASKACT1 | ;EP - | |
| NOTLOGIN() | ;EP - DISPLAY NOT LOGGED IN MESSAGE | |
| IHSNEGB(DUZ2) | ;EP - CHECK IF ERA POSTING NB IS ALLOWED (1) | |
| IHS(DUZ2) | ;EP - RETURN TRUE IF IHS AFFILIATION | |
| NOTOPEN(DUZ,UFMSESID) | ;EP - IHS/SD/TPF BAR*1.8*21 8/3/2011 HEAT20490 EXIT CASHIER IF SESSION NOT OPEN | |
| ASKACT(UDUZ,SESSID,ACTION,MODE,ERASTAT) | ;EP - ASK FOR AN ACTION TO TAKE. CALLED FROM BARUFLOG. ONLY ONE SESSION | |
| TRANTRIG(UDUZ,SESSID,BARTRAN) | ;EP - CREATE TRANSACTION ENTRY IN SESSION | |
| TRANSMIT(UDUZ,SESSID,ACTION) | ;EP - TRANSMIT/RETRANSMIT SESSION | |
| OUTORREC(SESSID) | ;EP - ASK USER IF THEY WANT TO LOG OUT OR RECONCILE TRUE=LOGOUT | |
| SETSESS(UDUZ,SESSID,BARSTAT) | ;EP - SET SESSION STATUS 'BARSTAT' | |
| ASKFORRT | ;EP - ASK FOR <RETURN> | |
| GETSESID(UDUZ) | ;EP - CREATE SESSION ID | |
| IHSCANCB(DUZ2) | ;EP - CHECK IF ERA POSTING CANCELLED BILLS IS ALLOWED (1) | |
| ADDSTAT(UDUZ,SESSID) | ; EP - ;CREATE A NEW STATUS CHANGE DATE/TIME | |
| FINDTRAN(TPBIEN,TRARRAY) | ;EP - GIVEN A 3PBIEN FROM THE UFMS ERROR REPORT | 
| Name | Field # of Occurrence | 
|---|---|
| NOW^%DTC | GETSESID+11, SELTRAN+28, ADDSTAT+2 | 
| $$TRANSMIT^ABMUEAPI | TRANTRIG+34 | 
| TRANSMIT^ABMUEAPI | TRANTRIG+34 | 
| CANCEL^BARPST3 | NOTOPEN+9 | 
| $$PULLSESS^BARUFEX | CONT+1 | 
| ONETRAN^BARUFEX | SELTRAN+26 | 
| EXPORTSM^BARUFSUP | ASKACT1+80, ASKACT1+82 | 
| $$OPENSTAT^BARUFUT | NOTLOGIN+2 | 
| ASKFORRT^BARUFUT | ASKACT1+58, ASKACT1+70, NOTOPEN+12 | 
| $$SETTRANS^BARUFUT0 | CONT+15 | 
| TRANHDR^BARUFUT0 | SELTRAN+4, SELTRAN+12 | 
| VIEWSTAT^BARUFUT0 | ASKACT1+75 | 
| VIEWTRAN^BARUFUT0 | ASKACT1+74 | 
| $$ASUFAC^BARUFUT1 | TRANTRIG+16 | 
| $$DELFLG^BARUFUT1 | OUTORREC+15, NOTOPEN+10 | 
| $$STILPOST^BARUFUT1 | ASKACT1+17, ASKACT1+66 | 
| DELETE^BARUFUT1 | ASKACT1+72 | 
| EXCLLST^BARUFUT1 | SELTRAN+23 | 
| $$UPC^BARUTL | ASKACT1+61 | 
| ^DIC | GETSESID+9, GETSESID+18, ADDSTAT+9, TRANTRIG+11 | 
| ^DIE | SELTRAN+35, SETSESS+14, TRANTRIG+22, TRANTRIG+44 | 
| $$GET1^DIQ | NOTLOGIN+4, CURSTAT+3, SELTRAN+7, SELTRAN+8, SELTRAN+9, SELTRAN+10, TRANTRIG+26, TRANTRIG+27, TRANTRIG+29, IHS+3 | 
| ^DIR | OUTORREC+12, ASKACT1+60, ASKFORRT+2, SELTRAN+19, CONT+6, CONT+18, SETSESS+7 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^BARBL(2906 - [#90050.01] | GET1^DIQ | 
| ^BARTR(2906 - [#90050.03] | GET1^DIQ | 
| ^BAR(90052.06,7819,0) - [#90052.06] | GET1^DIQ | 
| 90057.11 | GET1^DIQ | 
| 9999999.0611 | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ABMDBILL( | FINDTRAN+1 | 
| ^AUTTLOC - [#9999999.06] | IHS+2 | 
| ^BAR(90052.06 | IHSNEGB+7, IHSNEGB+8, IHSCANCB+3, IHSCANCB+4 | 
| ^BARBL( | FINDTRAN+2, FINDTRAN+3 | 
| ^BARSESS( | GETSESID+2, GETSESID+3*, GETSESID+4, OPENSTAT+2, ASKACT1+13, ASKACT1+48, SELTRAN+6, CONT+12 | 
| ^BARTR( | FINDTRAN+5 | 
| ^DD(90057 | GETSESID+16 | 
| ^DD(90057.11 | ADDSTAT+6, TRANTRIG+8 | 
| ^DIC(4 - [#4] | NOTLOGIN+9, NOTLOGIN+10 | 
| Name | Line Occurrences | 
|---|---|
| $$ADDSTAT | SETSESS+2 | 
| $$CURSTAT | NOTLOGIN+5, NOTLOGIN+6, NOTLOGIN+8, OUTORREC+2, ASKACT1+2, TRANSMIT+3, TRANTRIG+2, NOTOPEN+6 | 
| $$IHS | IHSNEGB+5, IHSCANCB+2 | 
| $$SETSESS | GETSESID+20 | 
| ASKFORRT | NOTLOGIN+13, SELTRAN+12 | 
| CONT | TRANSMIT+2 | 
| SETSESS | ASKACT1+73 | 
| TRANSMIT | ASKACT1+81 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> % | GETSESID+12, SELTRAN+29, ADDSTAT+3 | 
| ACTION | ASKACT~, ASKACT1+62*, ASKACT1+67, ASKACT1+72, ASKACT1+73, ASKACT1+74, ASKACT1+75, ASKACT1+79, ASKACT1+81, TRANSMIT~ | 
| >> ADJCAT | SELTRAN+10*, SELTRAN+14 | 
| AFFIL | IHS+1~, IHS+3*, IHS+4 | 
| ANSWER | OUTORREC+5~, OUTORREC+13*, OUTORREC+14 | 
| >> ARBILIEN | FINDTRAN+3*, FINDTRAN+5 | 
| >> ARBILL | FINDTRAN+2*, FINDTRAN+3 | 
| ARBILLIN | TRANTRIG+24~, TRANTRIG+26*, TRANTRIG+27, TRANTRIG+29 | 
| ASUFAC | TRANTRIG+3~, TRANTRIG+16* | 
| BARFILE | TRANSMIT+1~, CONT+1*, CONT+3, CONT+14*, CONT+15 | 
| BARNOW | SELTRAN+2~, SELTRAN+29* | 
| BARSTAT | SETSESS~, SETSESS+1 | 
| BARTMP | NOTLOGIN+1~, NOTLOGIN+2* | 
| BARTRAN | TRANTRIG~, TRANTRIG+7, TRANTRIG+25 | 
| CHOICE | ASKACT1+80, ASKACT1+82, SELTRAN+2~, SELTRAN+30*, SELTRAN+32 | 
| >> CNT | FINDTRAN+5*, FINDTRAN+6 | 
| >> CREDIT | SELTRAN+7*, SELTRAN+14 | 
| CURSTAT | ASKACT1+1~, ASKACT1+2*, ASKACT1+5, ASKACT1+9, ASKACT1+13, ASKACT1+22, ASKACT1+26, ASKACT1+31, ASKACT1+37, ASKACT1+45 , TRANSMIT+3*, TRANSMIT+4, TRANSMIT+8 | 
| DA | GETSESID+5!, GETSESID+10!, SELTRAN+31!, SELTRAN+32*, SETSESS+8!, SETSESS+11*, SETSESS+15!, ADDSTAT+1!, TRANTRIG+4!, TRANTRIG+12! , TRANTRIG+20*, TRANTRIG+38!, TRANTRIG+42*, TRANTRIG+45! | 
| DA(1 | GETSESID+13*, GETSESID+17, SELTRAN+32*, SELTRAN+34, SETSESS+10*, SETSESS+13, ADDSTAT+5*, ADDSTAT+7, TRANTRIG+6*, TRANTRIG+9 , TRANTRIG+18*, TRANTRIG+19, TRANTRIG+40*, TRANTRIG+41 | 
| DA(2 | SELTRAN+32*, SELTRAN+34, SETSESS+9*, SETSESS+13, ADDSTAT+4*, ADDSTAT+7, TRANTRIG+5*, TRANTRIG+9, TRANTRIG+17*, TRANTRIG+19 , TRANTRIG+39*, TRANTRIG+41 | 
| >> DATE | SELTRAN+14 | 
| DATETIME | CURSTAT+1~ | 
| >> DEBIT | SELTRAN+8*, SELTRAN+14 | 
| DIC | GETSESID+5!, GETSESID+8*, GETSESID+10!, GETSESID+17*, SELTRAN+31!, SETSESS+8!, SETSESS+15!, ADDSTAT+1!, ADDSTAT+7*, TRANTRIG+4! , TRANTRIG+9*, TRANTRIG+12!, TRANTRIG+38!, TRANTRIG+45! | 
| DIC("P" | GETSESID+16*, ADDSTAT+6*, TRANTRIG+8* | 
| DIC(0 | GETSESID+7*, GETSESID+15*, ADDSTAT+8*, TRANTRIG+10* | 
| DIE | GETSESID+5!, GETSESID+10!, SELTRAN+31!, SELTRAN+34*, SETSESS+8!, SETSESS+13*, SETSESS+15!, ADDSTAT+1!, TRANTRIG+4!, TRANTRIG+12! , TRANTRIG+19*, TRANTRIG+38!, TRANTRIG+41*, TRANTRIG+45! | 
| DIR | GETSESID+5!, GETSESID+10!, OUTORREC+8!, ASKACT1+3!, ASKFORRT+2!, SELTRAN+16!, SELTRAN+31!, CONT+4!, CONT+16!, SETSESS+5! , SETSESS+8!, SETSESS+15!, ADDSTAT+1!, TRANTRIG+4!, TRANTRIG+12!, TRANTRIG+38!, TRANTRIG+45! | 
| DIR("A" | OUTORREC+10*, ASKACT1+6*, ASKACT1+7*, ASKACT1+10*, ASKACT1+11*, ASKACT1+14*, ASKACT1+15*, ASKACT1+16*, ASKACT1+18*, ASKACT1+19* , ASKACT1+20*, ASKACT1+23*, ASKACT1+24*, ASKACT1+27*, ASKACT1+28*, ASKACT1+33*, ASKACT1+34*, ASKACT1+39*, ASKACT1+40*, ASKACT1+46* , ASKACT1+49*, ASKACT1+52*, ASKACT1+54*, SELTRAN+18* | 
| DIR("B" | OUTORREC+11* | 
| DIR(0 | OUTORREC+9*, ASKACT1+59*, ASKFORRT+2*, SELTRAN+17*, CONT+5*, CONT+17*, SETSESS+6* | 
| >> DIRUT | ASKACT1+63 | 
| DR | GETSESID+5!, GETSESID+10!, SELTRAN+31!, SELTRAN+33*, SETSESS+8!, SETSESS+12*, SETSESS+15!, ADDSTAT+1!, TRANTRIG+4!, TRANTRIG+12! , TRANTRIG+21*, TRANTRIG+38!, TRANTRIG+43*, TRANTRIG+45! | 
| >> DTOUT | ASKACT1+63, SELTRAN+20 | 
| >> DUOUT | SELTRAN+20 | 
| DUZ | NOTLOGIN+2, NOTLOGIN+5, NOTLOGIN+6, NOTLOGIN+8, OUTORREC+2, OUTORREC+15, NOTOPEN~, NOTOPEN+6, NOTOPEN+10 | 
| DUZ(2 | NOTLOGIN+4, NOTLOGIN+9, NOTLOGIN+10, GETSESID+2, GETSESID+3, GETSESID+4, OPENSTAT+2, FINDTRAN+1, FINDTRAN+2, FINDTRAN+3 , FINDTRAN+5, ASKACT1+13, ASKACT1+48, SELTRAN+6, CONT+12, TRANTRIG+16 | 
| DUZ2 | IHS~, IHS+2, IHS+3, IHSNEGB~, IHSNEGB+5, IHSNEGB+7, IHSNEGB+8, IHSCANCB~, IHSCANCB+2, IHSCANCB+3 , IHSCANCB+4 | 
| DUZ2HOLD | TRANTRIG+3~ | 
| ERASTAT | ASKACT~, ASKACT1+9, ASKACT1+74 | 
| FLAGS | CURSTAT~, CURSTAT+2*, CURSTAT+3, OUTORREC+2 | 
| IENS | TRANTRIG+24~, TRANTRIG+25*, TRANTRIG+26 | 
| IOSL | SELTRAN+12 | 
| LINE | SELTRAN+2~, SELTRAN+6*, SELTRAN+11, SELTRAN+13, SELTRAN+15*, SELTRAN+17 | 
| >> LIST( | ASKACT1+80, ASKACT1+82 | 
| MODE | ASKACT~, ASKACT1+13, ASKACT1+44, ASKACT1+57, ASKACT1+58, SETSESS+16 | 
| PIECE | SELTRAN+2~, SELTRAN+30* | 
| >> POSTING | ASKACT1+66*, ASKACT1+67, ASKACT1+69 | 
| REC | CONT+8*, CONT+9*, CONT+10, CONT+11, IHS+1~, IHS+2*, IHS+3 | 
| RET | TRANTRIG+3~, TRANTRIG+14*, TRANTRIG+16, TRANTRIG+20, TRANTRIG+36, TRANTRIG+42, TRANTRIG+46 | 
| >> RETCODE | CONT+15* | 
| SELECT | SELTRAN+2~, SELTRAN+22*, SELTRAN+23, SELTRAN+30 | 
| SESSID | GETSESID+1~, GETSESID+12*, GETSESID+14, GETSESID+22, OPENSTAT+1~, OPENSTAT+2*, OPENSTAT+3, CURSTAT~, CURSTAT+3, OUTORREC~ , OUTORREC+1, OUTORREC+2, OUTORREC+3*, OUTORREC+4, OUTORREC+7, ASKACT~, ASKACT1+2, ASKACT1+13, ASKACT1+48, ASKACT1+68 , ASKACT1+72, ASKACT1+73, ASKACT1+74, ASKACT1+75, ASKACT1+81, SELTRAN~, SELTRAN+4, SELTRAN+6, SELTRAN+12, SELTRAN+26 , SELTRAN+32, TRANSMIT~, TRANSMIT+2, TRANSMIT+3, CONT+1, CONT+11*, CONT+12, CONT+15, SETSESS~, SETSESS+2 , SETSESS+4, SETSESS+10, ADDSTAT~, ADDSTAT+5, TRANTRIG~, TRANTRIG+1, TRANTRIG+2, TRANTRIG+6, TRANTRIG+18, TRANTRIG+40 | 
| SESSID( | CONT+9, CONT+10, CONT+11 | 
| >> STATCHG | SETSESS+2*, SETSESS+3, SETSESS+11 | 
| STATUS | CURSTAT+1~, CURSTAT+3*, CURSTAT+4, OUTORREC+2*, OUTORREC+3 | 
| >> TPBBILL | FINDTRAN+1*, FINDTRAN+2 | 
| TPBDUZ2 | TRANTRIG+24~, TRANTRIG+29*, TRANTRIG+30, TRANTRIG+34 | 
| TPBIEN | FINDTRAN~, FINDTRAN+1, TRANTRIG+24~, TRANTRIG+27*, TRANTRIG+31, TRANTRIG+34 | 
| TRANS | SELTRAN+3!, SELTRAN+23, SELTRAN+26 | 
| TRANS( | SELTRAN+11*, SELTRAN+32 | 
| >> TRANTYP | SELTRAN+9*, SELTRAN+14 | 
| TRARRAY | FINDTRAN~ | 
| TRARRAY( | FINDTRAN+6* | 
| TRDATE | SELTRAN+2~, SELTRAN+5*, SELTRAN+6*, SELTRAN+7, SELTRAN+8, SELTRAN+9, SELTRAN+10, SELTRAN+11 | 
| >> TRIEN | FINDTRAN+4*, FINDTRAN+5*, FINDTRAN+6 | 
| U | NOTLOGIN+9, NOTLOGIN+10, GETSESID+16, GETSESID+20, FINDTRAN+1, ASKACT1+69, CONT+10, CONT+11, CONT+14, SETSESS+11 , ADDSTAT+6, TRANTRIG+8, IHSNEGB+7, IHSNEGB+8, IHSCANCB+3, IHSCANCB+4 | 
| UDUZ | GETSESID~, GETSESID+4, GETSESID+6, GETSESID+13, GETSESID+20, OPENSTAT~, OPENSTAT+2, CURSTAT~, CURSTAT+3, ASKACT~ , ASKACT1+2, ASKACT1+13, ASKACT1+17, ASKACT1+48, ASKACT1+66, ASKACT1+72, ASKACT1+73, ASKACT1+74, ASKACT1+75, ASKACT1+81 , SELTRAN~, SELTRAN+4, SELTRAN+6, SELTRAN+12, SELTRAN+32, TRANSMIT~, TRANSMIT+3, CONT+1, CONT+10*, CONT+12 , CONT+15, SETSESS~, SETSESS+2, SETSESS+9, ADDSTAT~, ADDSTAT+4, TRANTRIG~, TRANTRIG+2, TRANTRIG+5, TRANTRIG+17 , TRANTRIG+39 | 
| UFMSESID | NOTLOGIN+2*, NOTLOGIN+4*, NOTLOGIN+5, NOTLOGIN+6, NOTLOGIN+8, OUTORREC+15, SETSESS+16!, NOTOPEN~, NOTOPEN+3, NOTOPEN+6 , NOTOPEN+10, NOTOPEN+11* | 
| UFMSSUFC | TRANTRIG+24~, TRANTRIG+33*, TRANTRIG+34*, TRANTRIG+36 | 
| >> VALIDCHK | ASKACT1+8*, ASKACT1+12*, ASKACT1+21*, ASKACT1+25*, ASKACT1+29*, ASKACT1+36*, ASKACT1+42*, ASKACT1+47*, ASKACT1+50*, ASKACT1+53* , ASKACT1+64 | 
| X | GETSESID+6*, GETSESID+14*, GETSESID+20*, OUTORREC+15*, ASKACT1+4!, ADDSTAT+3*, TRANTRIG+7*, NOTOPEN+10* | 
| Y | GETSESID+4, GETSESID+19, GETSESID+20, OUTORREC+13, ASKACT1+4!, ASKACT1+61*, ASKACT1+62, ASKACT1+63, SELTRAN+21, SELTRAN+22 , ADDSTAT+10, ADDSTAT+11, TRANTRIG+13, TRANTRIG+14 | 
| Name | Field # of Occurrence | 
|---|---|
| $T(TRANSMIT^ABMUEAPI | TRANTRIG+34 |