Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDPEMAP

Package: Accounts Receivable

Routine: RCDPEMAP


Information

RCDPEMAP ;AITC/FA - LIST ALL AUTO-POSTED RECEIPTS REPORT ;Nov 17, 2016

Source Information

Source file <RCDPEMAP.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Accounts Receivable 5 ($$ASKLM,LMRPT)^RCDPEARL  $$CHKDIV^RCDPEDAR  INFO^RCDPEM6  ($$HDRLN2,$$HDRLN3,$$HDRLN4,RPTOUT)^RCDPEMA1  ($$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1  
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$UP^XLFSTR  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Registration 1 DIVISION^VAUTOMA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Accounts Receivable 1 RCDPEMA1  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point
LMOUT(INPUT,RCVAUTD,IO) ; Output report to Listman
; Input: INPUT - See REPORT for a complete description
; RCVAUTD - Array of selected Divisions
; Only passed if A1=2
; Output: ^TMP("RCDPE_MAP",$J,CTR)=Line - Array of display lines (no headers)
; for output to Listman
STADIV(RCVAUTD) ; Division/Station Filter
; Input: None
; Output: RCVAUTD - Array of selected divisions, if 1 is returned
; Returns: 0 - User up-arrowed or timed out
; 1 - All divisions selected
; 2 - Selected Divisions
SELUSER() ; Ask the user if they only want to all users or only selected ones
; Input: None
; Returns: 0 - User up-arrowed or timed out
; 1 - Show all users
; 2 - Show selected user
SELUSER2(PARAM) ; Allows the user to enter the selected users to filter by
; Input: None
; Output: ^TMP($J,"SELUSER",IEN)="" Where IEN - IEN for file 200
; Returns: 1 - Success, -1 - Abort
ASKUSER() ; Prompt for a User from file 200
; Input: None
; Output: ^TMP($J,"SELUSER",IEN)="" - Selected User
; Returns: 1 - User selected
; 0 - No User selected
; -1 - user typed '^' or timed out
SECSORT() ; Ask the user if they want the secondary sort by User or Payer Name
; Input: None
; Returns: 0 - User up-arrowed or timed out
; 1 - Sort by User
; 2 - Sort by Payer Name
DTRNG(WHICH) ; Allows the user to select the Auto-Post OR ERA Received
; date range to be used
; Input: WHICH - 0 - Auto-Post Date Range
; 1 - ERA Date Received Date Range
; Returns: 0 - User up-arrowed or timed out, 1 otherwise
; A1^A2 - Where:
; A1 - Aut-Post Start Date
; A2 - Auto-Post End Date
ENDDT ; Prompt for end date
EXCEL() ; Ask the user if they want to export to Excel
; Input: None
; Returns: -1 - User up-arrowed or timed out
; 0 - Output to paper
; 1 - Output to Excel
DEVICE(EXCEL,IO) ; Select the output device
; Input: EXCEL - 1 - Ouput to Excel, 0 otherwise
; Output: %ZIS - Selected device
; IO - Array of selected output info
; Returns: 0 - No device selected, 1 otherwise
REPORT(INPUT,RCVAUTD,IO,JOB) ; Compile and run the report
; Expects ZTQUEUED to be defined already if queued
; Input: INPUT - A1^A2^A3^...^An Where:
; A1 - 1 - All divisions selected
; 2 - Selected divisions
; A2 - B1|B2 - Where:
; B1 - Auto-Post Start Date
; B2 - Auto-Post End Date
; A3 - 'M' - Medical Payers only
; 'P' - Pharmacy Payers only
; 'T' - Tricare Payers onlye
; 'A' - All Payers
; A4 - 'S' - Specific Payers
; 'R' - Range of Payers
; 'A' - All Payers
; A5 - 1 - Display all users
; 2 - Display selected users
; A6 - 1 - Sort by User
; 2 - Sort by Payer Name
; A7 - 0 - Do not display in a listman template
; 1 - Display in a listman template
; A8 - 0 - Output to paper
; 1 - Output to Excel
; A9 - Line counter for Listman output
; RCVAUTD - Array of selected Divisions
; Only passed if A1=2
; IO - Interface device
; JOB - $J (optional, only passed in when report is queued)
; ^TMP($J,"RCSELPAY") - Global Array of selected insurance companies
; ^TMP($J,"SELUSER") - Global Array of selected users
; Output: ^TMP("RCDPEMAP",$J,CTR)=Line - Array of display lines (no headers)
; for output to Listman
; Only set when A7-1
ASKSTOP() ;EP from RCDPEMA1
; Ask to continue
; Input: IOST - Device Type
; Returns: 1 - User wants to quit, 0 otherwise

External References

Name Field # of Occurrence
^%ZIS DEVICE+7
HOME^%ZIS EN+52
^%ZISC LMOUT+17, REPORT+97
^%ZTLOAD EN+49
^DIC ASKUSER+13
$$GET1^DIQ REPORT+57, REPORT+58, REPORT+71, REPORT+73, REPORT+78, REPORT+79, REPORT+80, REPORT+81, REPORT+84
^DIR SELUSER+11, SECSORT+11, DTRNG+12, ENDDT+6, EXCEL+10, ASKSTOP+7
$$ASKLM^RCDPEARL EN+29
LMRPT^RCDPEARL LMOUT+15
$$CHKDIV^RCDPEDAR REPORT+56
INFO^RCDPEM6 EN+35
$$HDRLN2^RCDPEMA1 LMOUT+10
$$HDRLN3^RCDPEMA1 LMOUT+11
$$HDRLN4^RCDPEMA1 LMOUT+12
RPTOUT^RCDPEMA1 REPORT+91
$$ISSEL^RCDPEU1 REPORT+63
$$ISTYPE^RCDPEU1 REPORT+65
$$PAYRNG^RCDPEU1 EN+11
$$RTYPE^RCDPEU1 EN+9
$$SELPAY^RCDPEU1 EN+19
DIVISION^VAUTOMA STADIV+7
$$FMTE^XLFDT ENDDT+9, REPORT+87
$$UP^XLFSTR REPORT+59, REPORT+74

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Task number "_ZTSK_" was queued.",1:"Unable to queue this task.")
  • Line Location: EN+50
Function Call: WRITE
  • Prompt: !!,"You must select at least one user",*7,!
  • Line Location: SELUSER2+13
Function Call: WRITE
  • Prompt: !,*7,"Enter an End date that is not less than "_XX
  • Line Location: ENDDT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSTOP+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+7
Routine Call
  • %ZIS
  • Line Location:
    • EN+52
Routine Call
  • DIC
  • Line Location:
    • ASKUSER+13
Routine Call
  • DIR
  • Line Location:
    • SELUSER+11
    • SECSORT+11
    • DTRNG+12
    • ENDDT+6
    • EXCEL+10
    • ASKSTOP+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^RCY(344.4 - [#344.4] GET1^DIQ
344.41 GET1^DIQ
^IBM(361.1 - [#361.1] GET1^DIQ
^PRCA(430 - [#430] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.4 - [#344.4] REPORT+49, REPORT+54, REPORT+68
^TMP("RCDPEU1" REPORT+101!
^TMP("RCDPE_MAP" EN+2!, LMOUT+15, LMOUT+18!, REPORT+35!, REPORT+99!
^TMP("RCSELPAY" EN+3!, EN+45, LMOUT+19!, REPORT+100!
^TMP($J EN+2!, EN+3!, LMOUT+18!, LMOUT+19!, SELUSER2+5!, SELUSER2+11, SELUSER2+14!, SELUSER2+15, ASKUSER+16*, REPORT+35!
, REPORT+75, REPORT+87*, REPORT+88*, REPORT+89*, REPORT+99!, REPORT+100!

Label References

Name Line Occurrences
$$ASKUSER SELUSER2+8
$$DEVICE EN+36
$$DTRNG EN+7
$$EXCEL EN+33
$$SECSORT EN+27
$$SELUSER EN+21
$$SELUSER2 EN+25
$$STADIV EN+5
ENDDT ENDDT+8
LMOUT EN+32
REPORT EN+54, LMOUT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+5~, DEVICE+6*
CURDT REPORT+33~, REPORT+47*, REPORT+48, REPORT+49*, REPORT+50, REPORT+51, REPORT+54, REPORT+68, REPORT+87, REPORT+88
, REPORT+89
DIC ASKUSER+7~, ASKUSER+10*
DIC("A" ASKUSER+11*
DIC("S" ASKUSER+12*
DIC(0 ASKUSER+10*
DIR STADIV+6~, SELUSER+5~, ASKUSER+7~, SECSORT+5~, DTRNG+8~, ENDDT+1!, EXCEL+5~, ASKSTOP+4~
DIR("?" SELUSER+8*, SELUSER+9*, SECSORT+8*, SECSORT+9*, DTRNG+11*, ENDDT+5*, EXCEL+9*
DIR("A" SELUSER+6*, SECSORT+6*, DTRNG+10*, ENDDT+4*, EXCEL+7*
DIR("B" SELUSER+10*, SECSORT+10*, ENDDT+2*, EXCEL+8*
DIR(0 SELUSER+7*, SECSORT+7*, DTRNG+9*, ENDDT+3*, EXCEL+6*, ASKSTOP+6*
DIROUT STADIV+6~, SELUSER+5~, ASKUSER+7~, SECSORT+5~, DTRNG+8~, EXCEL+5~, ASKSTOP+4~
DIRUT STADIV+6~, SELUSER+5~, ASKUSER+7~, SECSORT+5~, DTRNG+8~, EXCEL+5~, ASKSTOP+4~, ASKSTOP+8
DIVFLT REPORT+33~, REPORT+38*, REPORT+56
DT DTRNG+9, ENDDT+3
DTEND REPORT+33~, REPORT+40*, REPORT+48, REPORT+51
DTOUT STADIV+6~, SELUSER+5~, SELUSER+12, ASKUSER+7~, ASKUSER+14, SECSORT+5~, SECSORT+12, DTRNG+8~, DTRNG+13, ENDDT+7
, EXCEL+5~, ASKSTOP+4~
DTSTART REPORT+33~, REPORT+41*, REPORT+47
DUOUT STADIV+6~, SELUSER+5~, SELUSER+12, ASKUSER+7~, ASKUSER+14, SECSORT+5~, SECSORT+12, DTRNG+8~, DTRNG+13, ENDDT+7
, EXCEL+5~, EXCEL+11, ASKSTOP+4~, ASKSTOP+8
EXCEL DEVICE~, DEVICE+9
HDR LMOUT+6~, LMOUT+15
HDR("TITLE" LMOUT+9*
HDR(1 LMOUT+10*
HDR(2 LMOUT+11*
HDR(3 LMOUT+12*
HDR(4 LMOUT+13*
IEN3444 REPORT+33~, REPORT+52*, REPORT+53, REPORT+54*, REPORT+55, REPORT+56, REPORT+57, REPORT+58, REPORT+63, REPORT+65
, REPORT+68, REPORT+70, REPORT+78, REPORT+89
IEN34441 REPORT+33~, REPORT+66*, REPORT+67, REPORT+68*, REPORT+69, REPORT+70, REPORT+78, REPORT+89
IENS REPORT+33~, REPORT+70*, REPORT+71, REPORT+79
INPUT EN+1~, EN+5*, EN+6, EN+7*, EN+8, EN+9*, EN+10, EN+13*, EN+16, EN+21*
EN+22, EN+24, EN+27*, EN+28, EN+29*, EN+30, EN+31, EN+32, EN+33*, EN+34
EN+35, EN+36*, EN+37, EN+54, LMOUT~, LMOUT+7*, LMOUT+8, LMOUT+10, LMOUT+11, LMOUT+12
, REPORT~, REPORT+38, REPORT+39, REPORT+40, REPORT+41, REPORT+42, REPORT+43, REPORT+44, REPORT+91, REPORT+94
IO EN+32, EN+36, EN+54, LMOUT~, LMOUT+8, DEVICE~, REPORT~, REPORT+37
IO("Q" EN+40, EN+51!
IOST ASKSTOP+5
JOB EN+41~*, REPORT~
PARAM SELUSER2~
PAYER REPORT+33~, REPORT+57*, REPORT+59, REPORT+60*, REPORT+77, REPORT+88
PAYERU REPORT+33~, REPORT+59*, REPORT+76
POP DEVICE+5~, DEVICE+8
QUIT SELUSER2+4~, SELUSER2+6*, SELUSER2+7, SELUSER2+9*, SELUSER2+11*
RANGE DTRNG+8~, ENDDT+11*, ENDDT+12
RCA SELUSER2+4~
RCPAR EN+1~, EN+19
RCPAR("DICA" EN+18*
RCPAR("FILE" EN+17*
RCPAR("SELC" EN+11*, EN+12, EN+13, EN+15
RCPAR("TYPE" EN+16*
RCPAYS REPORT+34~, REPORT+43*, REPORT+62
RCPYRSEL EN+45*, DEVICE+5~
RCTEMP LMOUT+6~, LMOUT+14*, LMOUT+15
RCTYPE REPORT+34~, REPORT+42*, REPORT+64, REPORT+65
RCVAUTD EN+1~, EN+5, EN+32, EN+54, LMOUT~, LMOUT+8, STADIV~, STADIV+10*, REPORT~, REPORT+56
RET SELUSER2+4~, SELUSER2+8*, SELUSER2+9, SELUSER2+10
RETURN SELUSER2+4~, SELUSER2+6*, SELUSER2+9*, SELUSER2+14, SELUSER2+15*, SELUSER2+16, ASKUSER+8*
SORT REPORT+34~, REPORT+39*, REPORT+76, REPORT+88
START DTRNG+8~, DTRNG+14*, ENDDT+3, ENDDT+8, ENDDT+9, ENDDT+11
SVAL REPORT+34~, REPORT+76*, REPORT+88, REPORT+89
TIN REPORT+34~, REPORT+58*, REPORT+60
UIEN REPORT+34~, REPORT+71*, REPORT+72, REPORT+73, REPORT+75
USER REPORT+34~, REPORT+73*, REPORT+74, REPORT+77, REPORT+88
USERF REPORT+34~, REPORT+44*, REPORT+75
USERU REPORT+34~, REPORT+74*, REPORT+76
VAUTD STADIV+6~, STADIV+9, STADIV+10
WHICH DTRNG~
X STADIV+6~, SELUSER+5~, ASKUSER+7~, SECSORT+5~, DTRNG+8~, EXCEL+5~
XX EN+1~, EN+15, EN+19*, EN+24, EN+25*, DTRNG+8~, ENDDT+9*, ENDDT+10, REPORT+34~, REPORT+61*
, REPORT+62, REPORT+63*, REPORT+64, REPORT+65*, REPORT+77*, REPORT+78*, REPORT+83*, REPORT+84*, REPORT+89
Y STADIV+6~, STADIV+8, SELUSER+5~, SELUSER+12, SELUSER+13, ASKUSER+7~, ASKUSER+15, ASKUSER+16, SECSORT+5~, SECSORT+12
, SECSORT+13, DTRNG+8~, DTRNG+13, DTRNG+14, ENDDT+7, ENDDT+8, ENDDT+11, EXCEL+5~, EXCEL+12
Y(0 ENDDT+2
YY EN+1~, REPORT+34~, REPORT+79*, REPORT+80, REPORT+84
ZTDESC EN+42~, EN+44*
ZTQUEUED REPORT+97, REPORT+98, REPORT+102!
>> ZTREQ REPORT+98*
ZTRTN EN+42~, EN+43*
ZTSAVE EN+42~
ZTSAVE("INPUT" EN+47*
ZTSAVE("IO*" EN+46*
ZTSAVE("JOB" EN+47*
ZTSAVE("RC*" EN+46*
ZTSAVE("VAUTD" EN+46*
ZTSAVE("^TMP(""RCDPEU1"",$J," EN+48*
ZTSK EN+42~, EN+50, EN+51!
ZZ REPORT+34~, REPORT+80*, REPORT+81*, REPORT+82*, REPORT+83
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All