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~ |