RCDPETR ;ALB/TMK,PJH - EOB TRANSFER IN/TRANSFER OUT REPORTS ; 9/17/10 6:31pm
Source file <RCDPETR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RPT | ; Transfer In/Out Report
|
|
| RPTQ | ||
| EN(RCRPT,RCDT1,RCDT2) | ; Entry point for queued job
|
|
| ENQ | ||
| HDR(RCCT,RCPG,RCSTOP,RCINOUT,RCDT1,RCDT2) | ;Prints report heading
; Function returns RCPG = current page # and RCCT = running line count ; and RCSTOP = 1 if user aborted print ; Parameters must be passed by reference |
|
| SETLINE(Z,RCCT) | ; Writes line
; Z = txt to output ; RCCT = line counter |
|
| ASK(RCSTOP) | ; Ask to continue
; If passed by reference ,RCSTOP is returned as 1 if print is aborted |
|
| STOP(CT,RCSTOP,RCPG) | ; Function returns 1 if queued job/user requested forced exit
; Function returns CT if passed by ref to only check every 100 records |
|
| RAWBILL(RC3445,RCDAT) | ; Returns bill specific data for entry in file 344.5
; RC3445 = Ien file 344.5 ; FUNCTION RETURNS RCDAT(SEQ #)=Bill #^amt pd^EOB date (pass by ref) |
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | RPT+14 |
| HOME^%ZIS | RPT+19 |
| ^%ZISC | ENQ |
| ^%ZTLOAD | RPT+17 |
| $$S^%ZTLOAD | STOP+4 |
| ^DIR | RPT+2, RPT+6, RPT+10, ASK+4 |
| $$BN1^PRCAFN | EN+66 |
| $$SETSTR^VALM1 | EN+32, EN+33, EN+34, EN+35, EN+36, EN+37, EN+66, EN+67, EN+68, EN+69 , EN+70, EN+71, EN+76, EN+77, EN+78, EN+79, EN+80, EN+81, HDR+10, HDR+11 , HDR+14, HDR+19 |
| $$FMTE^XLFDT | EN+33, EN+35, EN+67, EN+69, EN+77, HDR+13, HDR+17 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | EN+34 |
| ^IBM(361.1 - [#361.1] | EN+14, EN+17, EN+19, EN+20 |
| ^RCY(344.4 - [#344.4] | EN+6, EN+9, EN+35 |
| ^RCY(344.5 - [#344.5] | EN+23, EN+25, RAWBILL+4 |
| ^TMP($J | EN+2!, EN+9*, EN+17*, EN+19*, EN+20*, EN+25*, EN+30, EN+47, EN+61, EN+62 , EN+63, EN+88, ENQ+2! |
| Name | Line Occurrences |
|---|---|
| $$STOP | EN+7, EN+16, HDR+22 |
| ASK | EN+59, ENQ, HDR+6 |
| EN | RPT+21 |
| ENQ | EN+28, EN+44, EN+57, EN+59, EN+85 |
| HDR | EN+31, EN+48, EN+50, EN+64, EN+89, EN+91 |
| RAWBILL | EN+74 |
| RPTQ | RPT+3, RPT+7, RPT+11, RPT+14, RPT+15 |
| SETLINE | EN+42, EN+49, EN+51, EN+52, EN+53, EN+54, EN+55, EN+83, EN+90, EN+92 , EN+93, EN+94, HDR+12, HDR+15, HDR+16, HDR+17, HDR+18, HDR+20, HDR+21 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EN+30, RAWBILL+4 |
| ^("RCDPE_TRIN" | EN+2!, ENQ+2! |
| ^(1 | EN+63 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | RPT+1~, RPT+14* |
| CT | STOP~, STOP+2*, STOP+3 |
| DAT | RAWBILL+3~ |
| DIR | RPT+1~, RPT+2!, RPT+6!, RPT+10!, ASK+3~ |
| DIR("?" | RPT+5*, RPT+9* |
| DIR("A" | RPT+2*, RPT+6*, RPT+10* |
| DIR(0 | RPT+2*, RPT+6*, RPT+10*, ASK+4* |
| DIROUT | ASK+3~ |
| DIRUT | ASK+3~, ASK+5 |
| DT | RPT+6, RPT+10, HDR+13 |
| DTOUT | RPT+3, RPT+7, RPT+11, ASK+3~ |
| DUOUT | RPT+3, RPT+7, RPT+11, ASK+3~, ASK+5 |
| IO | RPT+20 |
| IO("Q" | RPT+15, RPT+19! |
| IOF | HDR+7 |
| IOM | HDR+21 |
| IOSL | EN+31, EN+50, EN+64, EN+91 |
| IOST | HDR+5, HDR+6, ASK+2 |
| POP | RPT+1~, RPT+14 |
| Q | EN+1~, EN+32*, EN+33*, EN+34*, EN+35*, EN+36*, EN+37*, EN+42, EN+66*, EN+67* , EN+68*, EN+69*, EN+70*, EN+71*, EN+76*, EN+77*, EN+78*, EN+79*, EN+80*, EN+81* , EN+83 |
| RC3445 | RAWBILL~, RAWBILL+4 |
| RCACC | EN+1~, EN+29*, EN+40*, EN+54, EN+60*, EN+72*, EN+93 |
| RCCT | EN+1~, EN+29*, EN+31, EN+42, EN+48, EN+49, EN+50, EN+51, EN+52, EN+53 , EN+54, EN+55, EN+64, EN+83, EN+89, EN+90, EN+91, EN+92, EN+93, EN+94 , HDR~, HDR+12, HDR+15, HDR+16, HDR+17, HDR+18, HDR+20, HDR+21, SETLINE~, SETLINE+3* |
| RCDAT | EN+1~, EN+30*, EN+32, EN+33, EN+34, EN+36, EN+37, EN+38, EN+39, EN+40 , EN+41, EN+62*, EN+66, EN+67, EN+69, EN+77, EN+78, RAWBILL~ |
| RCDAT( | RAWBILL+6* |
| RCDAT(0 | RAWBILL+5* |
| RCDAT(1 | EN+63*, EN+70 |
| RCDAT(7 | EN+63*, EN+68 |
| RCDAT1 | EN+1~, EN+74, EN+75*, EN+76, EN+80 |
| RCDAT1( | EN+75 |
| RCDAT1(0 | EN+75, EN+79 |
| RCDT1 | RPT+1~, RPT+8*, RPT+10, RPT+16, RPT+21, EN~, EN+5, EN+13, EN+22, EN+31 , EN+48, EN+50, EN+64, EN+89, EN+91, HDR~, HDR+17 |
| RCDT2 | RPT+1~, RPT+12*, RPT+16, RPT+21, EN~, EN+6, EN+14, EN+23, EN+31, EN+48 , EN+50, EN+64, EN+89, EN+91, HDR~, HDR+17 |
| RCINOUT | HDR~, HDR+9, HDR+19 |
| RCNOT | EN+1~, EN+29*, EN+41*, EN+55, EN+60*, EN+82*, EN+94 |
| RCNRCV | EN+1~, EN+29*, EN+38*, EN+52 |
| RCPG | EN+1~, EN+29*, EN+31, EN+48, EN+50, EN+59, EN+60*, EN+64, EN+89, EN+91 , ENQ, HDR~, HDR+5, HDR+6, HDR+8*, HDR+11, STOP~, STOP+4 |
| RCRCV | EN+1~, EN+29*, EN+39*, EN+53 |
| RCRPT | RPT+1~, RPT+4*, RPT+16, RPT+21, EN~, EN+4, EN+12, EN+46, EN+87 |
| RCSTOP | EN+1~, EN+3*, EN+6, EN+7, EN+12, EN+14, EN+16, EN+21, EN+23, EN+28 , EN+30, EN+31, EN+44, EN+48, EN+50, EN+57, EN+59, EN+64, EN+85, EN+89 , EN+91, ENQ, HDR~, HDR+5, HDR+6, HDR+22, ASK~, ASK+5*, STOP~, STOP+4* |
| RCT | RAWBILL+3~, RAWBILL+4*, RAWBILL+6* |
| U | EN+32, EN+33, EN+34, EN+35, EN+36, EN+37, EN+38, EN+39, EN+40, EN+41 , EN+67, EN+68, EN+69, EN+70, EN+76, EN+77, EN+78, EN+80, RAWBILL+5, RAWBILL+6 |
| X | RPT+1~ |
| Y | RPT+1~, RPT+3, RPT+4, RPT+7, RPT+8, RPT+11, RPT+12 |
| Z | EN+1~, EN+5*, EN+6*, EN+9, EN+13*, EN+14*, EN+17, EN+19, EN+20, EN+22* , EN+23*, EN+25, EN+29*, EN+30*, EN+61*, EN+62, EN+63, HDR+4~, HDR+10*, HDR+11* , HDR+12, HDR+14*, HDR+15, HDR+19*, HDR+20, SETLINE~, SETLINE+4, RAWBILL+3~, RAWBILL+4* |
| Z0 | EN+1~, EN+6*, EN+9, EN+14*, EN+17, EN+19, EN+20, EN+23*, EN+25, EN+30* , EN+35, EN+61*, EN+62, EN+63, EN+65, HDR+4~, HDR+9*, HDR+10, HDR+13*, HDR+14 , RAWBILL+3~, RAWBILL+4*, RAWBILL+5, RAWBILL+6 |
| Z1 | EN+1~, EN+6*, EN+9, EN+14*, EN+17, EN+19, EN+20, EN+23*, EN+25, EN+30* , EN+61*, EN+62, EN+63 |
| Z2 | EN+1~, EN+61*, EN+62, EN+63, EN+74 |
| ZCT | EN+1~, EN+3*, EN+7, EN+16 |
| ZTDESC | RPT+1~, RPT+16* |
| >> ZTQUEUED | ENQ, ENQ+1, STOP+4 |
| ZTREQ | ENQ+1*, STOP+4! |
| ZTRTN | RPT+1~, RPT+16* |
| ZTSK | RPT+1~, RPT+18, RPT+19! |
| >> ZTSTOP | STOP+4* |
