RCDPPLB ;ALB/TJB - ERA/PROVIDER LEVEL ADJUSTMENTS REPORT ;1/02/15 10:00am
Source file <RCDPPLB.m>
| Package | Total | Call Graph |
|---|---|---|
| Accounts Receivable | 5 | $$NMORTIN^RCDPEAPP ERASTA^RCDPEM4 ($$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1 ($$CHECKDT,$$DATE,$$NOW,$$UP,$$VAL,ASK,RNG,SUMIT)^RCDPRU $$PAYTIN^RCDPRU2 |
| VA FileMan | 3 | $$FIND1^DIC ($$GET1,GETS)^DIQ ^DIR |
| Kernel | 2 | (,HOME)^%ZIS ^%ZTLOAD |
| Registration | 1 | DIVISION^VAUTOMA |
| 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 |
|---|---|---|
| Accounts Receivable | 1 | RCDPE PROVIDER LVL ADJ REPORT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point for Report
|
|
| ENQ | ; Start here for queued report
|
|
| REPORT | ; Print out the report
; Set up Division Header Text and PLB Code Header Text |
|
| PLBQ | ;
|
|
| DETAIL(SORT,CAT,DET,ZGBL) | ; Detail Report
|
|
| GETDT(SORT,CAT,DT,ZND,ZGBL) | ; Get detail information for this entry
|
|
| DAMT(TYPE,FIRST,ZIEN,XFS,XGBL) | ; Get amounts
|
|
| DTCM(FIRST,ZIEN,XFS,XGBL) | ; Get comment or reference number
|
|
| HDR(CD) | ; Report header
|
|
| HDRP(Z,X,Z1) | ; Print Header (Z=String, X=1 (line feed) X=0 (no LF), Z1 (page number right justified)
|
|
| NEWPG(RCPG,RCNEW,RCSL,CD) | ; Check for new page needed, output header
; RCPG = Page number passwd by referece ; RCNEW = 1 to force new page ; RCSL = page length passed by reference ; Function returns 1 if user chooses to stop output |
|
| GETDATA(GPLB,RCPAYS,RCTYPE,GSORT,GSTART,GSTOP,GARRAY,GDIV) | ;
|
|
| CHECK(TYPE,ITEM,ARRAY) | ;
; If all are included no need to check further |
|
| PLBC(RET) | ; Get PLB Codes to limit for report or all
|
|
| C1 | ||
| C2 | ||
| VAL(XF,CODE) | ; Validate a range or list of PLB Codes
; If invalid code is found VAILD = 0 and CODE will contain the offending codes |
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | EN+54 |
| HOME^%ZIS | EN+61 |
| ^%ZTLOAD | EN+59 |
| $$FIND1^DIC | GETDATA+29 |
| $$GET1^DIQ | GETDATA+12, GETDATA+24, GETDATA+29 |
| GETS^DIQ | GETDATA+11, GETDATA+21 |
| ^DIR | EN+11, EN+33, EN+38, EN+43, PLBC+3, C1+5, C2+5 |
| $$NMORTIN^RCDPEAPP | EN+19 |
| ERASTA^RCDPEM4 | GETDATA+10 |
| $$ISSEL^RCDPEU1 | GETDATA+18 |
| $$ISTYPE^RCDPEU1 | GETDATA+15 |
| $$PAYRNG^RCDPEU1 | EN+21 |
| $$RTYPE^RCDPEU1 | EN+18 |
| $$SELPAY^RCDPEU1 | EN+30 |
| $$CHECKDT^RCDPRU | EN+46 |
| $$DATE^RCDPRU | EN+47, DETAIL+17, NEWPG+18 |
| $$NOW^RCDPRU | ENQ+1 |
| $$UP^RCDPRU | C1+7, C2+7 |
| $$VAL^RCDPRU | VAL+2 |
| ASK^RCDPRU | EN+47, REPORT+74, NEWPG+7 |
| RNG^RCDPRU | GETDATA+5 |
| SUMIT^RCDPRU | GETDATA+39 |
| $$PAYTIN^RCDPRU2 | REPORT+49, REPORT+58 |
| DIVISION^VAUTOMA | EN+8 |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.4 - [#344.4] | GET1^DIQ, GETS^DIQ |
| ^RC(345.1 - [#345.1] | FIND1^DIC, GET1^DIQ |
| ^IBM(361.1 - [#361.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RCY(344.4 - [#344.4] | GETDATA+2, GETDATA+8, GETDATA+9 |
| ^TMP("RCDPEU1" | PLBQ+2! |
| ^TMP("RCDPPLB_REPORT" | ENQ+3!, ENQ+5, REPORT+22, REPORT+33, REPORT+43, REPORT+53, REPORT+66, REPORT+72, PLBQ+2! |
| Name | Line Occurrences |
|---|---|
| $$CHECK | GETDATA+27 |
| $$DAMT | DETAIL+15 |
| $$DTCM | DETAIL+21 |
| $$GETDT | DETAIL+13 |
| $$HDR | NEWPG+9 |
| $$NEWPG | REPORT+14, REPORT+25, REPORT+31, REPORT+36, REPORT+38, REPORT+40, REPORT+42, REPORT+51, REPORT+61, REPORT+63 , REPORT+65, REPORT+70, DETAIL+4, DETAIL+6, DETAIL+8, DETAIL+11, DETAIL+18, DETAIL+20, DETAIL+23 |
| $$VAL | C1+9, C2+7 |
| C1 | C1+8, C1+9 |
| C2 | C2+7 |
| DETAIL | REPORT+53, REPORT+72 |
| GETDATA | ENQ+5 |
| HDRP | NEWPG+9, NEWPG+10, NEWPG+11, NEWPG+17, NEWPG+18 |
| PLBC | EN+16 |
| PLBQ | EN+9, EN+12, EN+16, EN+18, EN+22, EN+25, EN+34, EN+39, EN+44, EN+47 , REPORT+31 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | EN+1~, EN+54* |
| AA | DAMT+4*, DAMT+5, DAMT+7, DTCM+1~, DTCM+4*, DTCM+5, DTCM+7 |
| ARRAY | CHECK~ |
| ARRAY( | CHECK+3, CHECK+4 |
| CAT | DETAIL~, DETAIL+12, DETAIL+13, DETAIL+15, DETAIL+21, GETDT~ |
| CD | EN+1~, HDR~, HDR+3, NEWPG~, NEWPG+10, GETDATA+1~, GETDATA+26! |
| CD( | GETDATA+33*, GETDATA+34, GETDATA+38 |
| CH | REPORT+8~*, REPORT+9* |
| CNT | GETDATA+1~ |
| CODE | VAL~, VAL+2 |
| CRHDR | EN+1~, REPORT+5*, REPORT+7, REPORT+9, REPORT+11*, NEWPG+11 |
| CZ | EN+1~, REPORT+43*, REPORT+46, REPORT+66*, REPORT+68 |
| DET | DETAIL~, DETAIL+13, DETAIL+14, DETAIL+15 |
| DH | REPORT+8~*, REPORT+9* |
| DIR | EN+1~, EN+11!, EN+33!, EN+38!, EN+43!, PLBC+3!, C1+5!, C2+5! |
| DIR("?" | EN+37*, EN+41*, C1+2*, C1+3*, C1+4*, C2+2*, C2+3*, C2+4* |
| DIR("A" | EN+10*, EN+32*, EN+38*, EN+43*, PLBC+2*, C1+1*, C2+1* |
| DIR("B" | EN+11*, EN+33*, EN+38*, EN+42*, PLBC+3* |
| DIR(0 | EN+10*, EN+32*, EN+38*, EN+43*, PLBC+2*, C1+1*, C2+1* |
| DIVHDR | EN+1~, REPORT+3*, REPORT+4*, REPORT+7, REPORT+9, REPORT+10*, NEWPG+11 |
| DL | EN+1~ |
| DT | EN+38, EN+43, GETDT~, GETDT+5 |
| DTOK | EN+1~, EN+46*, EN+47 |
| DTOUT | EN+1~, EN+12, EN+34, EN+39, EN+44, PLBC+1~, PLBC+4, C1+6, C2+6 |
| DUOUT | EN+1~, EN+12, EN+34, EN+39, EN+44, PLBC+1~, PLBC+4, C1+6, C2+6 |
| DX0 | EN+1~, REPORT+22*, REPORT+23, REPORT+24, REPORT+28, REPORT+29 |
| EOBTOT | GETDATA+1~, GETDATA+23*, GETDATA+24*, GETDATA+36 |
| EXLN | EN+1~ |
| FILE | EN+1~, PLBC+1~*, C1+9, C2+7 |
| FIRST | DAMT~, DAMT+5, DTCM~, DTCM+5 |
| GARRAY | GETDATA~, GETDATA+34, GETDATA+36, GETDATA+38, GETDATA+39 |
| GDIV | GETDATA~, GETDATA+10 |
| GDIV( | GETDATA+10 |
| GLINE | GETDATA+1~ |
| GPLB | GETDATA~, GETDATA+5 |
| GSORT | GETDATA~, GETDATA+3, GETDATA+38, GETDATA+39 |
| GSTART | GETDATA~, GETDATA+2 |
| GSTOP | GETDATA~, GETDATA+8 |
| I | EN+1~, REPORT+4~* |
| IDX | EN+1~ |
| IEN | EN+1~, GETDATA+1~, GETDATA+9*, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+15, GETDATA+18, GETDATA+21, GETDATA+34 , GETDATA+36, GETDATA+38 |
| IO | EN+62 |
| IO("Q" | EN+55, EN+61! |
| IOF | NEWPG+8 |
| IOM | ENQ+1, REPORT+7, REPORT+8, HDRP+3 |
| IOSL | REPORT+25, REPORT+31, REPORT+36, REPORT+38, REPORT+40, REPORT+42, REPORT+51, REPORT+61, REPORT+63, REPORT+65 , REPORT+70, DETAIL+4, DETAIL+6, DETAIL+8, DETAIL+11, DETAIL+18, DETAIL+20, DETAIL+23, NEWPG+6 |
| ITEM | CHECK~, CHECK+2*, CHECK+4 |
| IX | EN+1~, GETDATA+1~, GETDATA+26*, GETDATA+27, GETDATA+29, GETDATA+30, GETDATA+33 |
| JJ | EN+1~ |
| KK | EN+1~ |
| LGT | HDRP+1~*, HDRP+3 |
| MM | GETDT+1~, GETDT+5* |
| MYDT | GETDT+1~, GETDT+2*, GETDT+5*, GETDT+6 |
| PARR | GETDATA+1~, GETDATA+5, GETDATA+27 |
| PCT | EN+1~, REPORT+22*, REPORT+23*, REPORT+24*, REPORT+28 |
| PLCODE | PLBC+1~, C1+7*, C1+8*, C1+9*, C1+10, C2+7*, C2+8 |
| PLLIST | PLBC+1~, PLBC+5*, PLBC+6, PLBC+7, C1+12 |
| PNARR | GETDATA+1~ |
| POP | EN+1~, EN+54 |
| PTARR | GETDATA+1~ |
| PY | EN+1~, REPORT+43*, REPORT+49, REPORT+53, REPORT+66*, REPORT+69, REPORT+72 |
| R | EN+1~ |
| R1 | REPORT+8~*, REPORT+9*, REPORT+11 |
| R2 | REPORT+8~*, REPORT+9*, REPORT+10, REPORT+11 |
| RCCD | EN+1~ |
| RCDET | EN+2~, EN+13*, REPORT+53, REPORT+72, NEWPG+9 |
| RCDISP | EN+2~ |
| RCDONE | EN+2~ |
| RCDT1 | EN+2~, EN+40*, EN+43, EN+46, EN+47, ENQ+5, NEWPG+18 |
| RCDT2 | EN+2~, EN+45*, EN+46, EN+47, ENQ+5, NEWPG+18 |
| RCEB | GETDATA+1~, GETDATA+21!, GETDATA+24 |
| RCEB( | GETDATA+24 |
| RCERR | GETDATA+1~ |
| RCEXCEL | EN+2~, EN+50* |
| RCGX | GETDATA+1~, GETDATA+11! |
| RCGX( | GETDATA+26, GETDATA+27, GETDATA+29, GETDATA+30, GETDATA+33 |
| RCHR | EN+2~, ENQ+1*, NEWPG+19 |
| RCJOB | EN+2~ |
| RCLPAY | EN+2~ |
| RCNEW | NEWPG~, NEWPG+6 |
| RCNM | HDR+1~, HDR+2*, HDR+3, HDR+4 |
| RCNOW | EN+2~, ENQ+1*, NEWPG+10 |
| RCODE | EN+1~, EN+5*, EN+16, ENQ+5, REPORT+5 |
| RCPAR | EN+2~, EN+30 |
| RCPAR("DICA" | EN+29* |
| RCPAR("FILE" | EN+28* |
| RCPAR("SELC" | EN+21*, EN+22, EN+23, EN+25 |
| RCPAR("SRCH" | EN+27* |
| RCPAR("TYPE" | EN+26* |
| RCPAYS | EN+2~, EN+23*, ENQ+5, NEWPG+13, NEWPG+14, GETDATA~, GETDATA+14, GETDATA+17 |
| RCPG | EN+2~, ENQ+1*, REPORT+14, REPORT+25, REPORT+31, REPORT+36, REPORT+38, REPORT+40, REPORT+42, REPORT+51 , REPORT+61, REPORT+63, REPORT+65, REPORT+70, DETAIL+4, DETAIL+6, DETAIL+8, DETAIL+11, DETAIL+18, DETAIL+20 , DETAIL+23, NEWPG~, NEWPG+6, NEWPG+7, NEWPG+8*, NEWPG+9 |
| RCQUIT | EN+3~, EN+5*, EN+47, REPORT+25*, REPORT+31*, REPORT+33, REPORT+34, REPORT+36*, REPORT+38*, REPORT+40* , REPORT+42*, REPORT+43, REPORT+51*, REPORT+53, REPORT+54, REPORT+55, REPORT+61*, REPORT+63*, REPORT+65*, REPORT+66 , REPORT+70*, REPORT+72, REPORT+73, REPORT+74, PLBQ+1!, DETAIL+4*, DETAIL+6*, DETAIL+8*, DETAIL+11*, DETAIL+12 , DETAIL+18*, DETAIL+20*, DETAIL+22, DETAIL+23*, PLBC+4*, C1+6*, C2+6* |
| RCRD | EN+2~ |
| RCSET | GETDATA+1~ |
| RCSL | REPORT+2*, REPORT+14, REPORT+20*, REPORT+25, REPORT+26*, REPORT+27*, REPORT+28*, REPORT+29*, REPORT+30*, REPORT+31 , REPORT+35*, REPORT+36, REPORT+37*, REPORT+38, REPORT+39*, REPORT+40, REPORT+41*, REPORT+42, REPORT+46*, REPORT+48* , REPORT+50*, REPORT+51, REPORT+52*, REPORT+54*, REPORT+57*, REPORT+59*, REPORT+61, REPORT+62*, REPORT+63, REPORT+64* , REPORT+65, REPORT+68*, REPORT+69*, REPORT+70, REPORT+71*, REPORT+73*, DETAIL+3*, DETAIL+4, DETAIL+5*, DETAIL+6 , DETAIL+7*, DETAIL+8, DETAIL+10*, DETAIL+11, DETAIL+17*, DETAIL+18, DETAIL+19*, DETAIL+20, DETAIL+21*, DETAIL+23 , NEWPG~, NEWPG+19* |
| RCSORT | EN+3~, EN+35*, ENQ+5, REPORT+14, REPORT+25, REPORT+31, REPORT+34, REPORT+36, REPORT+38, REPORT+40 , REPORT+42, REPORT+51, REPORT+53, REPORT+55, REPORT+61, REPORT+63, REPORT+65, REPORT+70, REPORT+72, DETAIL+4 , DETAIL+6, DETAIL+8, DETAIL+11, DETAIL+18, DETAIL+20, DETAIL+23 |
| RCSTAT | EN+3~ |
| RCSTOP | EN+3~, REPORT+14* |
| RCTIN | EN+3~ |
| RCTLIST | EN+2~ |
| RCTYPE | EN+3~, EN+18*, EN+26, ENQ+5, NEWPG+16, GETDATA~, GETDATA+14, GETDATA+15 |
| RCWHICH | EN+3~, EN+19*, EN+21, EN+27, EN+29, NEWPG+13, NEWPG+14 |
| RET | PLBC~, PLBC+6*, C1+10*, C2+8* |
| RM | GETDATA+1~ |
| SDT | GETDATA+1~, GETDATA+2*, GETDATA+8*, GETDATA+9 |
| SORT | DETAIL~, DETAIL+2, DETAIL+13, DETAIL+15, GETDT~, GETDT+3 |
| STA | GETDATA+1~, GETDATA+10 |
| STNAM | GETDATA+1~, GETDATA+10 |
| STNUM | GETDATA+1~, GETDATA+10 |
| TY | EN+4~ |
| TYPE | DAMT~, DAMT+3, DAMT+9, DAMT+11, CHECK~, CHECK+2, CHECK+3, CHECK+4 |
| U | REPORT+23, REPORT+24, REPORT+28, REPORT+29, REPORT+35, REPORT+37, REPORT+39, REPORT+44, REPORT+45, REPORT+52 , REPORT+62, REPORT+67, REPORT+69, REPORT+71, DETAIL+15, DETAIL+17, DETAIL+19, DETAIL+21, GETDT+3, GETDT+5 , DAMT+5, DAMT+7, DAMT+11, DTCM+5, DTCM+7, GETDATA+33, GETDATA+38 |
| VAL | REPORT+8~*, REPORT+9, REPORT+10, REPORT+11 |
| VAUTD | EN+9, ENQ+5, REPORT+3, PLBQ+1! |
| VAUTD( | REPORT+4 |
| X | EN+4~, HDRP~, HDRP+2, C1+7, C1+8*, C1+9*, C2+7* |
| XCNT | EN+4~ |
| XDN | DAMT+1~, DTCM+1~, DTCM+2*, DTCM+4, DTCM+7* |
| XF | VAL~, VAL+2 |
| XFS | DAMT~, DTCM~ |
| XGBL | DAMT~, DAMT+4, DAMT+5, DAMT+7, DAMT+9, DAMT+11, DTCM~, DTCM+4, DTCM+5, DTCM+7 |
| XX | EN+4~, EN+25, EN+30*, NEWPG+13*, NEWPG+14*, NEWPG+15*, NEWPG+16*, NEWPG+17 |
| XY | GETDATA+1~, GETDATA+24* |
| Y | EN+4~, EN+12, EN+13, EN+34, EN+35, EN+39, EN+40, EN+44, EN+45, PLBC+4 , PLBC+5, C1+6, C2+6 |
| Z | EN+4~, HDRP~, HDRP+1, HDRP+3 |
| Z1 | HDRP~, HDRP+1, HDRP+3 |
| ZADJ | DETAIL+1~, DETAIL+15*, DETAIL+16, DETAIL+17 |
| ZAMT | DAMT+1~*, DAMT+3, DAMT+7*, DAMT+12 |
| ZBIL | DETAIL+1~, DETAIL+15*, DETAIL+16, DETAIL+17 |
| ZCM | DTCM+1~, DTCM+2*, DTCM+7*, DTCM+8 |
| ZDAT | REPORT+33*, REPORT+35, REPORT+37, REPORT+39, REPORT+62, PLBQ+1! |
| ZDESC | GETDATA+1~, GETDATA+29*, GETDATA+30*, GETDATA+31*, GETDATA+33 |
| ZDET | DETAIL+1~, DETAIL+13*, DETAIL+14 |
| ZDLN | REPORT+20*, REPORT+30, PLBQ+1! |
| ZDZN | DETAIL+1~, DETAIL+12*, DETAIL+13, DETAIL+15, DETAIL+17, DETAIL+19, DETAIL+21 |
| ZED | GETDATA+1~, GETDATA+38* |
| ZEN | GETDATA+1~, GETDATA+29* |
| ZFS | DETAIL+1~, DETAIL+2*, DETAIL+12, DETAIL+15, DETAIL+21 |
| ZGBL | DETAIL~, DETAIL+12, DETAIL+13, DETAIL+15, DETAIL+21, GETDT~, GETDT+5 |
| ZIEN | DAMT~, DAMT+4, DAMT+5, DAMT+7, DAMT+9, DAMT+11, DTCM~, DTCM+4, DTCM+5, DTCM+7 |
| ZLN | REPORT+20*, REPORT+41, REPORT+54, REPORT+64, REPORT+73, PLBQ+1! |
| ZLN1 | DETAIL+1~*, DETAIL+3 |
| ZLN2 | REPORT+20*, REPORT+46, REPORT+68, PLBQ+1! |
| ZLVL | GETDATA+1~, GETDATA+3*, GETDATA+38, GETDATA+39 |
| ZN | EN+4~, GETDATA+1~, GETDATA+9*, GETDATA+36, GETDATA+38 |
| ZND | GETDT~, GETDT+3, GETDT+5 |
| ZPAY | GETDATA+1~, GETDATA+12* |
| ZPCT | DETAIL+1~, DETAIL+16*, DETAIL+17 |
| ZPD | DETAIL+1~, DETAIL+15*, DETAIL+17 |
| ZPPY | EN+4~, REPORT+44*, REPORT+45*, REPORT+52, REPORT+67*, REPORT+71 |
| ZPY | EN+4~, REPORT+43*, REPORT+44, REPORT+45, REPORT+52, REPORT+66*, REPORT+67, REPORT+69, REPORT+71 |
| ZSTOP | NEWPG+5~*, NEWPG+7, NEWPG+20 |
| ZTDESC | EN+4~, EN+56* |
| ZTIN | GETDATA+1~, GETDATA+12* |
| ZTRTN | EN+4~, EN+56* |
| ZTSAVE | EN+4~ |
| ZTSAVE("*" | EN+57* |
| ZTSAVE("^TMP(""RCDPEU1"",$J," | EN+58* |
| ZTSK | EN+4~, EN+60, EN+61! |
| ZTSTOP | EN+4~ |
| ZX | GETDATA+1~ |
| ZZ | EN+4~, REPORT+33*, REPORT+35, REPORT+43, REPORT+53, REPORT+58, REPORT+66, REPORT+72, DETAIL+1~, DETAIL+12* , GETDATA+1~, GETDATA+14, GETDATA+15*, GETDATA+17, GETDATA+18*, GETDATA+26*, GETDATA+33, GETDATA+34, GETDATA+38 |
| ZZPNAME | EN+4~ |