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 |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RCXFMSPR

Package: Accounts Receivable

Routine: RCXFMSPR


Information

RCXFMSPR ;WISC/RFJ-print revenue source codes ;8/31/10 11:34am

Source Information

Source file <RCXFMSPR.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  NOW^%DTC  

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: 3

Package Total Caller Graph
Accounts Receivable 3 PRCA FMS RSC REPORT  RCRJRCOR  RCRJRDEP  

Entry Points

Name Comments DBIA/ICR reference
DQ ; queue starts here
Q
GETDESC(RSC) ; return the description for the revenue source code
CONVERT(DECIMAL) ; convert decimal number to binary (5 digits)
WRITEIT ; display the rsc
PAUSE ; pause at end of page
H ; header
A1 ;;Hospital Care (NSC)
A2 ;;Outpatient Care (NSC)
A3 ;;Nursing Home Care (NSC)
A4 ;;Ineligible Hospitalization
A5 ;;Reimbursable Health Insurance
A6 ;;Tort Feasor
A7 ;;Workmans Compensation (Non-Federal)
A8 ;;C (Means Test)
A9 ;;Emergency/Humanitarian
AA ;;No Fault Auto Accident
AB ;;Pharmacy Co-Pay (SC Vet)
AC ;;Pharmacy Co-Pay (NSC Vet)
AD ;;Nursing Home Care Per Diem
AE ;;Hospital Care Per Diem
AF ;;Medicare
AG ;;Adult Day Health Care (LTC)
AH ;;Domiciliary (LTC)
AI ;;Respite Care-Institutional (LTC)
AJ ;;Respite Care-Non-Institutional (LTC)
AK ;;Geriatric Eval-Institutional (LTC)
AL ;;Geriatric Eval-Non-Institutional (LTC)
AM ;;Nursing Home Care-Long Term Care (LTC)
AN ;;EDI 3RD PARTY LOCKBOX
AQ ;;Pharmacy No Fault Auto Acc
AR ;;Pharmacy Reimburs Health Ins
AS ;;Pharmacy Tort Feasor
AT ;;Pharmacy Workman's Comp
B00 ;;Inpatient (Hosp)
B01 ;;Outpatient
B10 ;;Nursing Home
B11 ;;Other
C0 ;;SC for NSC
C1 ;;NSC Vet
D0 ;;MT Cat A
D1 ;;MT Cat C
E0 ;;Age <65
E1 ;;Age 65+
CCADRSC ;;

External References

Name Field # of Occurrence
DD^%DT DQ+3
NOW^%DTC DQ+3
^%ZIS RCXFMSPR+7
^%ZISC Q
^%ZTLOAD RCXFMSPR+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option will print out a list of the revenue source codes sent from"
  • Line Location: RCXFMSPR+3
Function Call: WRITE
  • Prompt: !,"the VISTA system to FMS."
  • Line Location: RCXFMSPR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RCXFMSPR+7
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: RCXFMSPR+11
Function Call: WRITE
  • Prompt: !!?6,"For REIMBURSABLE HEALTH INSURANCE [85*Z]:"
  • Line Location: DQ+27
Function Call: WRITE
  • Prompt: !!?6,"For FEE REIMBURSABLE HEALTH INSURANCE [8F*Z]:"
  • Line Location: DQ+44
Function Call: WRITE
  • Prompt: !!?6,"For EMERGENCY/HUMANITARIAN REIMBURSABLE HEALTH INSURANCE [8*ZZ]:"
  • Line Location: DQ+54
Function Call: WRITE
  • Prompt: !!?6,"For COMMUNITY CARE:"
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: !,COLUMN1,COLUMN2,COLUMN3,COLUMN4,?6,DESCRIP
  • Line Location: WRITEIT+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+1
Function Call: WRITE
  • Prompt: $C(13),"REVENUE SOURCE CODE REPORT (VISTA TO FMS)",?(80-$L(%)),%
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"RSC",?6,"Description"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,%
  • Line Location: H+5
Routine Call
  • %ZIS
  • Line Location:
    • RCXFMSPR+7

Label References

Name Line Occurrences
$$CONVERT DQ+34, GETDESC+28
H DQ+5, WRITEIT+2
PAUSE WRITEIT+2
Q DQ+23
WRITEIT DQ+8, DQ+16, DQ+40, DQ+48, DQ+58, Q+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+1~, DQ+3, H+1*, H+2, H+4*, H+5
%I DQ+1~
>> %ZIS RCXFMSPR+7*
BINARY DQ+1~, DQ+34*, GETDESC+1~, GETDESC+28*
COL2DESC DQ+1~, DQ+13*, DQ+16
COL3DESC DQ+1~, DQ+35*, DQ+36*, DQ+37*, DQ+38*, DQ+39, GETDESC+1~, GETDESC+29*, GETDESC+30*, GETDESC+31*
, GETDESC+32*, GETDESC+33
COLUMN1 DQ+1~, DQ+7*, DQ+11*, Q+6*, WRITEIT+1
COLUMN2 DQ+1~, DQ+7*, DQ+12*, DQ+15, DQ+26*, DQ+43*, DQ+57*, Q+3*, GETDESC+1~, GETDESC+19*
, GETDESC+20, GETDESC+23, WRITEIT+1
COLUMN3 DQ+1~, DQ+7*, DQ+15*, DQ+29*, DQ+30*, DQ+47*, DQ+53*, Q+3*, GETDESC+1~, GETDESC+25*
, GETDESC+27*, GETDESC+28, WRITEIT+1
COLUMN4 DQ+1~, DQ+7*, DQ+11*, Q+3*, WRITEIT+1
DATA Q+2~, Q+5*, Q+6, GETDESC+14*, GETDESC+15
DECIMAL DQ+2~, DQ+28*, DQ+29, DQ+30, DQ+34, DQ+45*, DQ+46, DQ+47, DQ+55*, DQ+56
, DQ+57, CONVERT~, CONVERT+3*
DESC GETDESC+1~, GETDESC+18*, GETDESC+20*, GETDESC+23
DESCRIP DQ+2~, DQ+7*, DQ+16*, DQ+39*, DQ+46*, DQ+56*, Q+6*, WRITEIT+1
DTIME PAUSE+1
IO DQ+4, DQ+5, PAUSE+1
IO("Q" RCXFMSPR+8!
IO(0 DQ+4, PAUSE+1
IOF H+1
IOSL WRITEIT+2
IOST DQ+4
LOOP Q+2~, Q+5*, GETDESC+14*
NOW DQ+2~, DQ+3*, H+1
PAGE DQ+2~, DQ+4*, H+1*
>> POP RCXFMSPR+7
RCARY GETDESC+1~
RCARY( GETDESC+15*, GETDESC+16
RCSTFLAG DQ+2~, DQ+12, DQ+18, DQ+23, DQ+28, DQ+45, DQ+55, Q+5, WRITEIT+2, PAUSE+1*
RSC GETDESC~, GETDESC+3, GETDESC+4, GETDESC+5, GETDESC+6, GETDESC+7, GETDESC+8, GETDESC+10, GETDESC+11, GETDESC+12
, GETDESC+13, GETDESC+16, GETDESC+19, GETDESC+25
SCREEN DQ+2~, DQ+4*, WRITEIT+2, H+1
X DQ+2~, PAUSE+1~*
Y DQ+2~, DQ+3*, CONVERT+1~, CONVERT+2*, CONVERT+3*, CONVERT+4*, CONVERT+5
>> ZTDESC RCXFMSPR+9*
>> ZTQUEUED DQ+4
>> ZTRTN RCXFMSPR+9*
>> ZTSAVE("ZTREQ" RCXFMSPR+10*
ZTSK RCXFMSPR+8!

Marked Items

Name Field # of Occurrence
$T(@(3) DQ+13, GETDESC+20
$T(@(6) DQ+35, DQ+36, DQ+37, DQ+38, GETDESC+29, GETDESC+30, GETDESC+31, GETDESC+32
$T(CCADRSC+LOOP Q+5, GETDESC+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All