BARUFSUP ; IHS/SD/TPF - SUPERVISORY FUNCTIONS FOR UFMS ; 04/09/2008
Source file <BARUFSUP.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS Accounts Receivable | 5 | ^BARBAN DISPLAYT^BARUFLOG ($$IHS,$$SETSESS,ASKFORRT,TRANSMIT)^BARUFUT ($$GETDAY0,$$GETDISLM,$$RANGE,$$RTCOUNT,$$STILPOST,CNTSTATS,EXCLLST,RESENDF)^BARUFUT1 $$UPC^BARUTL | 
| VA Fileman | 4 | ^%DT NOW^%DTC $$GET1^DIQ ^DIR | 
| Kernel | 3 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD | 
| IHS VA Utilities | 1 | EN^XBVIDEO | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| SHOW(STATUS) | ;EP - GENERIC SESSION LISTER | |
| AGAIN | ;EP - | |
| LISTDIR | ;EP - LIST UFMS DIRECTORY | |
| GETTOTS(UDUZ,SESSID) | ;EP - DISPLAY EXPORT SUMMARIES | |
| FOOTER | ;EP -PRINT GRAND TOTS | |
| VIEW | ;EP - VIEW UFMS SESSIONS | |
| ALLSTAT(LIST,STATUS) | ;EP - CHANGE STATUS OF ALL SESSIONS IN ARRAY 'LIST' TO STATUS | |
| LIST(TOTALS) | ;EP - DISPLAY CALCULATED TOTS | |
| ; | ||
| INIT | ;EP - INIT COMMON VARIABLES | |
| EXPORTSM(LIST,PRINT) | ||
| GETDTLIM() | ;GET 'UFMS DISPLAY DATE LIMIT' | |
| ASKSTAT | ;EP - ASK STATUS TO VIEW | |
| EXPHDR | ;EP -DISPLAY HDR | |
| ASK | ;EP - ASK FOR ACTION | |
| QUE | ; EP - QUE 'NOT SENT' OR 'DELAY SEND' REPORT | |
| RESEND | ;EP - RESEND A FILE | |
| LOOP(UDUZ,STAT,LINE,LIST,PRTSTAT) | ;EP - GET DATA FROM SESSION LEVEL | |
| TOT(CAT,AMT,TOTALS) | ; | |
| VIEWHDR(STATUS) | ;EP - HEADER FOR VIEWING SESSIONS | 
| Name | Field # of Occurrence | 
|---|---|
| ^%DT | GETDTLIM+3 | 
| NOW^%DTC | PRINT+14 | 
| ^%ZIS | EXPORTSM+12 | 
| HOME^%ZIS | QUE+9 | 
| ^%ZISC | EXPORTSM+17 | 
| ^%ZTLOAD | QUE+6 | 
| ^BARBAN | AGAIN+1 | 
| DISPLAYT^BARUFLOG | ASK+29 | 
| $$IHS^BARUFUT | LOOP+9 | 
| $$SETSESS^BARUFUT | ALLSTAT+33 | 
| ASKFORRT^BARUFUT | ALLSTAT+14, ALLSTAT+18, ALLSTAT+24, AGAIN+9, AGAIN+12 | 
| TRANSMIT^BARUFUT | ALLSTAT+4 | 
| $$GETDAY0^BARUFUT1 | LOOP+3 | 
| $$GETDISLM^BARUFUT1 | AGAIN+3, LOOP+2, LOOP+25 | 
| $$RANGE^BARUFUT1 | ASK+38 | 
| $$RTCOUNT^BARUFUT1 | LOOP+23 | 
| $$STILPOST^BARUFUT1 | ALLSTAT+20, LOOP+20 | 
| CNTSTATS^BARUFUT1 | ASKSTAT+3 | 
| EXCLLST^BARUFUT1 | ASK+39 | 
| RESENDF^BARUFUT1 | RESEND+3, LISTDIR+3 | 
| $$UPC^BARUTL | ASK+31 | 
| $$GET1^DIQ | AGAIN+4, GETDTLIM+2, LOOP+15, LOOP+17, LOOP+18, LOOP+19, GETTOTS+32, GETTOTS+34, GETTOTS+35, GETTOTS+37 , GETTOTS+38, LIST+20, LIST+21, LIST+22 | 
| ^DIR | ALLSTAT+32, ASK+19, ASKSTAT+14, EXPORTSM+8 | 
| EN^XBVIDEO | LOOP+25, LOOP+28 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| 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 | 
|---|---|
| ^BARTR(2906 - [#90050.03] | GET1^DIQ | 
| ^BAR(90052.06,7819,0) - [#90052.06] | GET1^DIQ | 
| 90057.11 | GET1^DIQ | 
| 90057.210101 | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^BARSESS( | ALLSTAT+11, AGAIN+7, AGAIN+10, AGAIN+18, AGAIN+19, AGAIN+20, LOOP+13, GETTOTS+29, LIST+14, LIST+18 | 
| ^DD("DD" | LOOP+21, PRINT+14 | 
| ^DIC(4 - [#4] | EXPHDR+4 | 
| ^VA(200 - [#200] | LOOP+22, LIST+3 | 
| Name | Line Occurrences | 
|---|---|
| $$GETDTLIM | LOOP+7 | 
| AGAIN | ASK+23, ASK+32, ASK+34, ASKSTAT+15, ASKSTAT+19 | 
| ALLSTAT | ASK+41 | 
| ASK | AGAIN+15 | 
| ASKSTAT | AGAIN+7, AGAIN+10, AGAIN+22, ASK+22 | 
| EXPHDR | PRINT+15 | 
| EXPORTSM | ALLSTAT+3, ALLSTAT+5 | 
| FOOTER | PRINT+22 | 
| GETTOTS | PRINT+21 | 
| INIT | VIEW+1 | 
| LIST | GETTOTS+44 | 
| LOOP | AGAIN+19, AGAIN+20 | 
| EXPORTSM+2, EXPORTSM+16 | |
| QUE | EXPORTSM+14 | 
| SHOW | VIEW+2 | 
| TOT | GETTOTS+39, GETTOTS+41, GETTOTS+42, GETTOTS+43 | 
| VIEWHDR | AGAIN+6 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> % | PRINT+14 | 
| >> %DT | GETDTLIM+3* | 
| >> %ZIS | EXPORTSM+10* | 
| ADJAMT | LIST+1~ | 
| ADJCAT | GETTOTS+38*, GETTOTS+40, LIST+1~ | 
| ADJCNT | LIST+1~ | 
| AMT | GETTOTS+2~, GETTOTS+36*, GETTOTS+39, GETTOTS+41, GETTOTS+42, GETTOTS+43, TOT~, TOT+1 | 
| >> ARBILL | GETTOTS+32*, GETTOTS+33 | 
| ARCREDIT | GETTOTS+2~, GETTOTS+30*, GETTOTS+34*, GETTOTS+36, TOT+5, TOT+7 | 
| ARDEBIT | GETTOTS+2~, GETTOTS+30*, GETTOTS+35*, GETTOTS+36, TOT+6 | 
| BARTMP | LOOP+1~, LOOP+7*, LOOP+9 | 
| BARTR | GETTOTS+2~, GETTOTS+28*, GETTOTS+29*, GETTOTS+31 | 
| >> CASHIER | LOOP+22*, LOOP+27 | 
| CAT | GETTOTS+2~, GETTOTS+39*, GETTOTS+40*, GETTOTS+41*, GETTOTS+42*, GETTOTS+43*, TOT~, TOT+1, TOT+2, TOT+3 , TOT+4 | 
| CATEGORY | LIST+1~ | 
| >> CHOICE | ASK+24*, ASK+25, ASK+26, ASK+27, ASK+28, ASK+31*, ASK+32, ASK+34, ASK+35, ASK+37 , ASK+40*, ASK+41 | 
| CNT | LOOP+1~, LOOP+13*, LIST+16~, LIST+18*, LIST+23 | 
| CNTS | ASKSTAT+1~ | 
| CURSTAT | LOOP+1~, LOOP+17*, LOOP+25, LOOP+30 | 
| >> DASH | VIEWHDR+4, INIT+1*, ASK+1 | 
| >> DASHES | PRINT+3*, FOOTER+1 | 
| DAYDISP | LOOP+1~, LOOP+2*, LOOP+5 | 
| DAYZERO | LOOP+1~, LOOP+3*, LOOP+5 | 
| DIR | ALLSTAT+28!, ASK+3!, ASKSTAT+4!, EXPORTSM+3! | 
| DIR("?" | ASK+5*, ASK+9*, ASK+14*, ASK+16* | 
| DIR("A" | ALLSTAT+31*, ASK+13*, ASK+17*, ASKSTAT+5*, EXPORTSM+6* | 
| DIR("B" | ALLSTAT+30*, EXPORTSM+7* | 
| DIR(0 | ALLSTAT+29*, ASK+15*, ASKSTAT+6*, ASKSTAT+7*, ASKSTAT+8*, ASKSTAT+9*, ASKSTAT+10*, ASKSTAT+11*, ASKSTAT+12*, EXPORTSM+5* | 
| >> DIROUT | EXPORTSM+9 | 
| >> DIRUT | ASKSTAT+16 | 
| DISLIM | GETDTLIM+1~, GETDTLIM+2*, GETDTLIM+3*, GETDTLIM+4 | 
| >> DTOUT | ALLSTAT+25, ASK+20, ASKSTAT+16, EXPORTSM+9 | 
| >> DUOUT | ALLSTAT+25, ASK+20, EXPORTSM+9 | 
| DUZ(2 | ALLSTAT+11, AGAIN+4, AGAIN+7, AGAIN+10, AGAIN+18, AGAIN+19, AGAIN+20, GETDTLIM+2, LOOP+9, LOOP+13 , GETTOTS+29, LIST+14, LIST+18, EXPHDR+4 | 
| EQUALS | PRINT+1~, PRINT+2*, EXPHDR+2, EXPHDR+5 | 
| ERASTAT | ALLSTAT+1~, ALLSTAT+10*, ALLSTAT+15, ASK+28*, ASK+29, LOOP+1~, LOOP+19*, LOOP+24, LOOP+30 | 
| >> ESC | GETTOTS+29 | 
| EXPDATE | PRINT+1~, PRINT+14*, EXPHDR+3 | 
| GTOTALS | PRINT+5~ | 
| GTOTALS("CREDITS" | PRINT+8*, PRINT+9*, GETTOTS+47*, GETTOTS+48*, FOOTER+5, FOOTER+6 | 
| GTOTALS("DEBITS" | PRINT+10*, PRINT+11*, GETTOTS+49*, GETTOTS+50*, FOOTER+7, FOOTER+8 | 
| GTOTALS("PAYMENT" | PRINT+6*, PRINT+7*, GETTOTS+45*, GETTOTS+46*, FOOTER+3, FOOTER+4 | 
| GTOTALS("REFUND" | PRINT+12*, PRINT+13*, GETTOTS+51*, GETTOTS+52*, FOOTER+9, FOOTER+10 | 
| IENS | LOOP+14*, LOOP+15, LOOP+17, LOOP+18, LOOP+19, GETTOTS+2~, GETTOTS+31*, GETTOTS+32, GETTOTS+34, GETTOTS+35 , GETTOTS+37, GETTOTS+38, LIST+16~, LIST+19*, LIST+20, LIST+21, LIST+22 | 
| IO | EXPORTSM+15 | 
| IO("Q" | EXPORTSM+14 | 
| IOF | EXPHDR+1 | 
| LINE | AGAIN+16*, AGAIN+19, AGAIN+20*, AGAIN+22, LOOP~, LOOP+16*, LOOP+24, LOOP+26 | 
| LIST | ALLSTAT~, ALLSTAT+3, ALLSTAT+4, ALLSTAT+5, AGAIN+14!, AGAIN+19, AGAIN+20, ASK+39, ASK+41, LOOP~ , EXPORTSM~, EXPORTSM+1, QUE+4~, PRINT+16~ | 
| LIST( | ALLSTAT+7, ALLSTAT+8, ALLSTAT+9, ALLSTAT+10, ASK+25, ASK+26, ASK+27, ASK+28, LOOP+24*, QUE+5 , PRINT+18, PRINT+19, PRINT+20 | 
| LIST(1 | QUE+4*, PRINT+16* | 
| NOSEND | RESEND+1~, RESEND+2*, RESEND+3, LISTDIR+1~, LISTDIR+2*, LISTDIR+3 | 
| >> OPTIONST | ASK+4*, ASK+7*, ASK+8*, ASK+13 | 
| PAGE | PRINT+1~, PRINT+4*, EXPHDR+3, EXPHDR+10* | 
| >> POP | EXPORTSM+13 | 
| POSTING | ALLSTAT+1~, ALLSTAT+20*, ALLSTAT+21, ALLSTAT+23, ALLSTAT+25, ALLSTAT+27, LOOP+20*, LOOP+30 | 
| EXPORTSM~, EXPORTSM+2 | |
| PRTSTAT | LOOP~, LOOP+30 | 
| >> RANGE | ASK+37*, ASK+38*, ASK+39 | 
| RC | ALLSTAT+1~, ALLSTAT+33* | 
| REC | ALLSTAT+6*, ALLSTAT+7*, ALLSTAT+8, ALLSTAT+9, ALLSTAT+10, QUE+5*, PRINT+1~, PRINT+17*, PRINT+18*, PRINT+19 , PRINT+20 | 
| RTCOUNT | LOOP+1~, LOOP+23*, LOOP+29 | 
| SESSID | ALLSTAT+1~, ALLSTAT+9*, ALLSTAT+11, ALLSTAT+12, ALLSTAT+16, ALLSTAT+22, ALLSTAT+26, ALLSTAT+33, ASK+27*, ASK+29 , LOOP+1~, LOOP+5*, LOOP+9*, LOOP+11*, LOOP+13*, LOOP+14, LOOP+23, LOOP+24, LOOP+25, LOOP+27 , PRINT+1~, PRINT+20*, PRINT+21, GETTOTS~, GETTOTS+29, LIST+2, LIST+14, LIST+18, LIST+19 | 
| STAT | LOOP~, LOOP+13, LOOP+23, LOOP+29, LOOP+30 | 
| STATCNTS | ASKSTAT+2!, ASKSTAT+3, ASKSTAT+13! | 
| STATCNTS("ALL | STATUSES" , ASKSTAT+11 | 
| STATCNTS("OPEN" | ASKSTAT+6 | 
| STATCNTS("RECONCILED" | ASKSTAT+7 | 
| STATCNTS("RETRANSMITTED" | ASKSTAT+10 | 
| STATCNTS("REVIEWED/APPROVED" | ASKSTAT+8 | 
| STATCNTS("TRANSMITTED" | ASKSTAT+9 | 
| >> STATDATE | LOOP+18*, LOOP+21*, LOOP+27 | 
| STATUS | VIEWHDR~, VIEWHDR+2, VIEWHDR+3, ALLSTAT~, ALLSTAT+2, ALLSTAT+4, ALLSTAT+11, ALLSTAT+15, ALLSTAT+21, ALLSTAT+25 , ALLSTAT+33, SHOW~, AGAIN+2*, AGAIN+5, AGAIN+6, AGAIN+7, AGAIN+8, AGAIN+10, AGAIN+15, AGAIN+19 , AGAIN+20, AGAIN+23, ASK+6, ASK+7, ASK+8, ASK+10, ASK+11, ASK+12, ASK+32, ASK+34 , ASKSTAT+17*, ASKSTAT+18* | 
| >> TMP | QUE+4*, PRINT+16* | 
| >> TOTALCNT | GETTOTS+26*, TOT+3* | 
| TOTALS | PRINT+5~, GETTOTS+39, GETTOTS+41, GETTOTS+42, GETTOTS+43, GETTOTS+44, TOT~, LIST~ | 
| TOTALS( | TOT+1*, TOT+2*, TOT+3 | 
| TOTALS("AAA P | AYMENT" , GETTOTS+4*, GETTOTS+5*, GETTOTS+45, GETTOTS+46, LIST+4, LIST+5 | 
| TOTALS("ADJ C | O-PAY" , GETTOTS+6*, GETTOTS+7* | 
| TOTALS("ADJ D | EDUCTIBLE" , GETTOTS+8*, GETTOTS+9* | 
| TOTALS("ADJ G | ROUPER ALLOWANCE" , GETTOTS+16*, GETTOTS+17* | 
| TOTALS("ADJ N | ON PAYMENT" , GETTOTS+10*, GETTOTS+11* | 
| TOTALS("ADJ P | AYMENT CREDIT" , GETTOTS+18*, GETTOTS+19*, ENALTY" , GETTOTS+14*, GETTOTS+15* | 
| TOTALS("ADJ W | RITE OFF" , GETTOTS+12*, GETTOTS+13* | 
| TOTALS("CREDITS" | GETTOTS+22*, GETTOTS+23*, GETTOTS+47, GETTOTS+48, TOT+5*, TOT+7*, LIST+6, LIST+7 | 
| TOTALS("DEBITS" | GETTOTS+24*, GETTOTS+25*, GETTOTS+49, GETTOTS+50, TOT+6*, TOT+8*, LIST+8, LIST+9 | 
| TOTALS("ZZZ R | EFUND" , GETTOTS+20*, GETTOTS+21*, GETTOTS+51, GETTOTS+52, LIST+10, LIST+11 | 
| TRANBY | LIST+16~, LIST+22*, LIST+24 | 
| TRANFILE | LIST+16~, LIST+21*, LIST+25 | 
| TRANREC | LIST+16~, LIST+17*, LIST+18*, LIST+19 | 
| TRANTIME | LIST+16~, LIST+20*, LIST+24 | 
| TRANTYPE | GETTOTS+2~, GETTOTS+37*, GETTOTS+39 | 
| >> TSTATUS | AGAIN+17*, AGAIN+18*, AGAIN+19 | 
| U | ALLSTAT+8, ALLSTAT+9, ALLSTAT+10, ALLSTAT+23, ALLSTAT+27, ASK+21, ASK+26, ASK+27, ASK+28, LOOP+22 , LOOP+24, PRINT+19, PRINT+20, LIST+3, EXPHDR+4 | 
| UDUZ | ALLSTAT+1~, ALLSTAT+4*, ALLSTAT+8*, ALLSTAT+11, ALLSTAT+20, ALLSTAT+33, AGAIN+13*, AGAIN+19*, AGAIN+20*, ASK+26* , ASK+29, LOOP~, LOOP+13, LOOP+14, LOOP+20, LOOP+22, LOOP+23, LOOP+24, PRINT+1~, PRINT+19* , PRINT+21, GETTOTS~, GETTOTS+29, LIST+3, LIST+14, LIST+18, LIST+19 | 
| >> VALIDCHK | ASK+4*, ASK+10*, ASK+11*, ASK+12*, ASK+36 | 
| >> X | GETDTLIM+3* | 
| >> Y | ALLSTAT+25, ASK+21, ASK+22, ASK+23, ASK+24, ASK+31, ASKSTAT+15, ASKSTAT+16, GETDTLIM+3, LOOP+21* , EXPORTSM+9, PRINT+14* | 
| >> Y(0 | ASKSTAT+17, ASKSTAT+18 | 
| >> ZTDESC | QUE+3* | 
| >> ZTRTN | QUE+2* | 
| >> ZTSAVE("LIST(" | QUE+5* | 
| >> ZTSK | QUE+7, QUE+8 |