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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PRPFDR2

Package: Integrated Patient Fund

Routine: PRPFDR2


Information

PRPFDR2 ;BAYPINES/MJE VPFS DATA MIGRATION ROUTINE 2 ;05/15/03

Source Information

Source file <PRPFDR2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Patient Fund 3 (NODE12,NODE12X,NODE4,NODE5)^PRPFDR1  (KILLIT,NODE1,NODE1X,NODE2,NODE6)^PRPFDR4  (NODE0,NODE0X)^PRPFDR5  
Kernel 2 ^%ZIS  ^%ZISC  
VA FileMan 2 DD^%DT  NOW^%DTC  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Integrated Patient Fund 2 PRPF DATA DIAGNOSTIC REPORT  PRPFDR3  

Entry Points

Name Comments DBIA/ICR reference
LEG ;ENTRY POINT FOR LEGACY SYSTEM
REP
SUM
SETUP ;SETUP PARAMS GET DATA
COMPU ; SPECIFIC PATIENT INFO LOOKUP

External References

Name Field # of Occurrence
DD^%DT SUM+3
NOW^%DTC SUM+3
^%ZIS REP+1
^%ZISC REP+10
NODE12^PRPFDR1 SETUP+15, SETUP+18, SETUP+21
NODE12X^PRPFDR1 SETUP+22, SETUP+25
NODE4^PRPFDR1 SETUP+31
NODE5^PRPFDR1 SETUP+32
KILLIT^PRPFDR4 LEG+16
NODE1^PRPFDR4 SETUP+28
NODE1X^PRPFDR4 SETUP+29
NODE2^PRPFDR4 SETUP+30
NODE6^PRPFDR4 SETUP+33
NODE0^PRPFDR5 SETUP+26
NODE0X^PRPFDR5 SETUP+27
$$SITE^VASITE COMPU+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LEG+3
Function Call: WRITE
  • Prompt: !,"NOTE: In addition to the summary report there is an available detail"
  • Line Location: LEG+4
Function Call: WRITE
  • Prompt: !,"report, this report can be sent to any device or flat file if required."
  • Line Location: LEG+5
Function Call: WRITE
  • Prompt: !,""
  • Line Location: LEG+6
Function Call: WRITE
  • Prompt: !,">>>>> The detail diagnostic report will contain "_CNTERR(100)_" lines."
  • Line Location: LEG+7
Function Call: WRITE
  • Prompt: !,""
  • Line Location: LEG+8
Function Call: WRITE
  • Prompt: !,"If you still desire the detail report, then please input the name of the"
  • Line Location: LEG+9
Function Call: WRITE
  • Prompt: !,"device that the report will be sent to."
  • Line Location: LEG+10
Function Call: WRITE
  • Prompt: !,""
  • Line Location: LEG+11
Function Call: WRITE
  • Prompt: !,"If the detail report is not desired then input ""^"" at the device prompt and the detail report will not print."
  • Line Location: LEG+12
Function Call: WRITE
  • Prompt: !,""
  • Line Location: LEG+13
Function Call: WRITE
  • Prompt: !,"**************************************************************************"
  • Line Location: SUM+0
Function Call: WRITE
  • Prompt: !,"** Patient Funds Diagnostic Summary (version 5.9) **"
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !,"**************************************************************************"
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !,"Run Date: "_$P(Y,"@",1)_" Run Time: "_$P(Y,"@",2),?72,"**"
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !,"Total accounts processed = "_CNTREC,?72,"**"
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !,"Total balance of accounts for migration = $"_$FN(CNTBAL,",",2),?72,"**"
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !,"**************************************************************************"
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !,"Err# Field Error Total"
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: !," # Name Description Count"
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !,"**************************************************************************"
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: !," #1 NAME Name is blank",?72,CNTERR(1)
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !," #2 NAME Name contains invalid data",?72,CNTERR(2)
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !," #3 SSN SSN is blank",?72,CNTERR(3)
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !," #4 SSN SSN contains invalid data",?72,CNTERR(4)
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !," #5 SSN SSN contains duplicate value",?72,CNTERR(5)
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !," #6 SSN SSN contains Pseudo SSN value",?72,CNTRPSU
  • Line Location: SUM+16
Function Call: WRITE
  • Prompt: !," #7 DOB DOB is blank",?72,CNTERR(7)
  • Line Location: SUM+17
Function Call: WRITE
  • Prompt: !," #8 DOB DOB contains invalid date",?72,CNTERR(8)
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !," #9 WARD Ward loc invalid length",?72,CNTERR(9)
  • Line Location: SUM+19
Function Call: WRITE
  • Prompt: !," #10 CLAIM Claim # contains invalid data",?72,CNTERR(10)
  • Line Location: SUM+20
Function Call: WRITE
  • Prompt: !," #11 ZIP Zipcode contains invalid data",?72,CNTERR(11)
  • Line Location: SUM+21
Function Call: WRITE
  • Prompt: !," #12 REGION OFFICE Regional Office ID invalid data",?72,CNTERR(12)
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: !," #13 ICN ICN Duplicate",?72,CNTERR(13)
  • Line Location: SUM+23
Function Call: WRITE
  • Prompt: !," #14 ICN ICN unassigned or invalid",?72,CNTERR(14)
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !," #15 PROVIDER AUTHR Provider Name contains invalid data",?72,CNTERR(15)
  • Line Location: SUM+25
Function Call: WRITE
  • Prompt: !,"*#16 PROVID AUTH DT Date of current restriction invalid date",?72,CNTERR(16)
  • Line Location: SUM+26
Function Call: WRITE
  • Prompt: !,"*#17 NO DEMO RECORD No demographic record for account",?72,CNTERR(17)
  • Line Location: SUM+27
Function Call: WRITE
  • Prompt: !,"*#18 ACCOUNT STATUS Account status not (A),I,Blank="_PRPFBC18,?72,CNTERR(18)
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: !,"*#19 PATIENT TYPE Patient type not L,R,(U),X,Blank="_PRPFBC19,?72,CNTERR(19)
  • Line Location: SUM+29
Function Call: WRITE
  • Prompt: !,"*#20 PAT TYPE/PHY Patient type L or R without Phy name",?72,CNTERR(20)
  • Line Location: SUM+30
Function Call: WRITE
  • Prompt: !,"*#21 PATIENT STATUS Patient Status not A,R,C,N,(X),Blank="_PRPFBC21,?72,CNTERR(21)
  • Line Location: SUM+31
Function Call: WRITE
  • Prompt: !,"*#22 INDIGENT Indigent status not (N),Y,Blank="_PRPFBC22,?72,CNTERR(22)
  • Line Location: SUM+32
Function Call: WRITE
  • Prompt: !,"*#23 APPORTIONEE $ Apportionee amount invalid or < $0 or > $99,999",?72,CNTERR(23)
  • Line Location: SUM+33
Function Call: WRITE
  • Prompt: !,"*#24 GUARDIAN $ Guardian amount invalid or < $0 or > $99,999",?72,CNTERR(24)
  • Line Location: SUM+34
Function Call: WRITE
  • Prompt: !,"*#25 INSTITUT AWARD Institut award invalid or < $0 or > $99,999",?72,CNTERR(25)
  • Line Location: SUM+35
Function Call: WRITE
  • Prompt: !,"*#26 OTHER ASSETS Other assets invalid or < $0 or > $99,999",?72,CNTERR(26)
  • Line Location: SUM+36
Function Call: WRITE
  • Prompt: !,"*#27 STORED BALANCE Stored balance invalid or < $0 or > $99,999",?72,CNTERR(27)
  • Line Location: SUM+37
Function Call: WRITE
  • Prompt: !,"*#28 STORED PRIVATE Stored private invalid or < $0 or > $99,999",?72,CNTERR(28)
  • Line Location: SUM+38
Function Call: WRITE
  • Prompt: !,"*#29 STORED GRATUIT Stored gratuitous invalid or < $0 or > $99,999",?72,CNTERR(29)
  • Line Location: SUM+39
Function Call: WRITE
  • Prompt: !,"*#30 RESTRCT MONTH Restricted Monthly invalid or < $0 or > $99,999",?72,CNTERR(30)
  • Line Location: SUM+40
Function Call: WRITE
  • Prompt: !,"*#31 RESTRCT WEEKLY Restricted Weekly invalid or < $0 or > $99,999",?72,CNTERR(31)
  • Line Location: SUM+41
Function Call: WRITE
  • Prompt: !,"*#32 RESTRCT AMT ER Restrict Mnthly amount < (5X) weekly amt",?72,CNTERR(32)
  • Line Location: SUM+42
Function Call: WRITE
  • Prompt: !,"*#33 RESTRCT AMT ER Restrict Mnthly amount < weekly amt",?72,CNTERR(33)
  • Line Location: SUM+43
Function Call: WRITE
  • Prompt: !,"*#34 MINIMUM BAL Minimum balance #1 invalid or < $0 or > $99,999",?72,CNTERR(34)
  • Line Location: SUM+44
Function Call: WRITE
  • Prompt: !,"*#35 MAXIMUM BAL Maximum balance #1 invalid or < $0 or > $99,999",?72,CNTERR(35)
  • Line Location: SUM+45
Function Call: WRITE
  • Prompt: !,"*#36 NO BALANCE REC Balance record missing for account",?72,CNTERR(36)
  • Line Location: SUM+46
Function Call: WRITE
  • Prompt: !,"*#37 INCOME PAYEE Income payee blank, Income source present",?72,CNTERR(37)
  • Line Location: SUM+47
Function Call: WRITE
  • Prompt: !,"*#38 INCOME AMOUNT Income amount error, Income source present",?72,CNTERR(38)
  • Line Location: SUM+48
Function Call: WRITE
  • Prompt: !,"*#39 INCOME AMOUNT Income amount < $1 or > $99,999",?72,CNTERR(39)
  • Line Location: SUM+49
Function Call: WRITE
  • Prompt: !,"*#40 INCOME FREQCY Income frequency not D,W,M,Y,X,V,O,Blank="_PRPFBC40,?72,CNTERR(40)
  • Line Location: SUM+50
Function Call: WRITE
  • Prompt: !,"*#41 STATION ID Station ID blank or unassigned",?72,CNTERR(41)
  • Line Location: SUM+51
Function Call: WRITE
  • Prompt: !," #42 STATION ID Station ID invalid",?72,CNTERR(42)
  • Line Location: SUM+52
Function Call: WRITE
  • Prompt: !,"*#43 SUSPENSE DATE Suspense date has invalid date",?72,CNTERR(43)
  • Line Location: SUM+53
Function Call: WRITE
  • Prompt: !,"*#44 SUSPENSE ID Suspense ID has Invalid data",?72,CNTERR(44)
  • Line Location: SUM+54
Function Call: WRITE
  • Prompt: !,"*#45 SUSPENSE TEXT Suspense text is < 1 or > 255 characters",?72,CNTERR(45)
  • Line Location: SUM+55
Function Call: WRITE
  • Prompt: !,"*#46 DEFERRED TRANS There are "_PRPFDEFR_" deferred transactions",?72,PRPFDEFR
  • Line Location: SUM+56
Function Call: WRITE
  • Prompt: !,"*#47 TRANSACTION REC Transaction record missing, blank or ID invalid",?72,CNTERR(47)
  • Line Location: SUM+57
Function Call: WRITE
  • Prompt: !,"*#48 PATIENT NAME Patient name does not match deferred trans",?72,CNTERR(48)
  • Line Location: SUM+58
Function Call: WRITE
  • Prompt: !,"*#49 PATIENT TRANS # Patient transaction # invalid",?72,CNTERR(49)
  • Line Location: SUM+59
Function Call: WRITE
  • Prompt: !,"*#50 DEFR AMOUNT Deferred amount invalid",?72,CNTERR(50)
  • Line Location: SUM+60
Function Call: WRITE
  • Prompt: !,"*#51 TRANSACTN DATE Transaction date Invalid",?72,CNTERR(51)
  • Line Location: SUM+61
Function Call: WRITE
  • Prompt: !,"*#52 DT TRAN ENTD Date transaction entered Invalid",?72,CNTERR(52)
  • Line Location: SUM+62
Function Call: WRITE
  • Prompt: !,"*#53 REFERENCE Reference Invalid < 1 or > 10 in length",?72,CNTERR(53)
  • Line Location: SUM+63
Function Call: WRITE
  • Prompt: !,"*#54 DEPOSIT/WTHDRWL Deposit/Withdrawal status Invalid",?72,CNTERR(54)
  • Line Location: SUM+64
Function Call: WRITE
  • Prompt: !,"*#55 CASH/CHECK/OTR Cash/Check/Other status Invalid",?72,CNTERR(55)
  • Line Location: SUM+65
Function Call: WRITE
  • Prompt: !,"*#56 SOURCE Transaction source invalid",?72,CNTERR(56)
  • Line Location: SUM+66
Function Call: WRITE
  • Prompt: !,"*#57 FORM Form does not match",?72,CNTERR(57)
  • Line Location: SUM+67
Function Call: WRITE
  • Prompt: !,"*#58 PRVT SOURCE AMT Private source amount invalid or < 0 or > 99999",?72,CNTERR(58)
  • Line Location: SUM+68
Function Call: WRITE
  • Prompt: !,"*#59 GRATUITOUS AMT Gratuitous amount invalid or < 0 or > 99999",?72,CNTERR(59)
  • Line Location: SUM+69
Function Call: WRITE
  • Prompt: !,"*#60 PFUNDS CLERK PFunds clerk invalid",?72,CNTERR(60)
  • Line Location: SUM+70
Function Call: WRITE
  • Prompt: !,"**************************************************************************"
  • Line Location: SUM+71
Function Call: WRITE
  • Prompt: "."
  • Line Location: SETUP+8
Routine Call
  • %ZIS
  • Line Location:
    • REP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] SETUP+13, SETUP+16, SETUP+19
^DPT - [#2] COMPU+1, COMPU+2, COMPU+5, COMPU+6, COMPU+7, COMPU+8, COMPU+9, COMPU+10, COMPU+11, COMPU+12
, COMPU+13
^PRPF(470 - [#470] SETUP+7, SETUP+11, SETUP+12, SETUP+13, SETUP+14, SETUP+16, SETUP+19, SETUP+22, SETUP+23, SETUP+26
, SETUP+27, SETUP+28, SETUP+29, SETUP+30, SETUP+31, SETUP+32, SETUP+33, COMPU+16
^TMP("PRPF_DIAGX" LEG+15!, REP+2!, REP+5, REP+6, REP+7, REP+8, SETUP+1!, SETUP+2*

Label References

Name Line Occurrences
COMPU SETUP+11
REP LEG+14
SETUP LEG+1
SUM LEG+2, REP+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SUM+3
>> %ZIS("B" REP+1*
>> %ZIS("HFSMODE" REP+1*
>> CNTBAL SUM+6, SETUP+3*
>> CNTERR( SETUP+6*
>> CNTERR(1 SUM+11
>> CNTERR(10 SUM+20
>> CNTERR(100 LEG+7
>> CNTERR(11 SUM+21
>> CNTERR(12 SUM+22
>> CNTERR(13 SUM+23
>> CNTERR(14 SUM+24
>> CNTERR(15 SUM+25
>> CNTERR(16 SUM+26
>> CNTERR(17 SUM+27
>> CNTERR(18 SUM+28
>> CNTERR(19 SUM+29
>> CNTERR(2 SUM+12
>> CNTERR(20 SUM+30
>> CNTERR(21 SUM+31
>> CNTERR(22 SUM+32
>> CNTERR(23 SUM+33
>> CNTERR(24 SUM+34
>> CNTERR(25 SUM+35
>> CNTERR(26 SUM+36
>> CNTERR(27 SUM+37
>> CNTERR(28 SUM+38
>> CNTERR(29 SUM+39
>> CNTERR(3 SUM+13
>> CNTERR(30 SUM+40
>> CNTERR(31 SUM+41
>> CNTERR(32 SUM+42
>> CNTERR(33 SUM+43
>> CNTERR(34 SUM+44
>> CNTERR(35 SUM+45
>> CNTERR(36 SUM+46
>> CNTERR(37 SUM+47
>> CNTERR(38 SUM+48
>> CNTERR(39 SUM+49
>> CNTERR(4 SUM+14
>> CNTERR(40 SUM+50
>> CNTERR(41 SUM+51
>> CNTERR(42 SUM+52
>> CNTERR(43 SUM+53
>> CNTERR(44 SUM+54
>> CNTERR(45 SUM+55
>> CNTERR(47 SUM+57
>> CNTERR(48 SUM+58
>> CNTERR(49 SUM+59
>> CNTERR(5 SUM+15
>> CNTERR(50 SUM+60
>> CNTERR(51 SUM+61
>> CNTERR(52 SUM+62
>> CNTERR(53 SUM+63
>> CNTERR(54 SUM+64
>> CNTERR(55 SUM+65
>> CNTERR(56 SUM+66
>> CNTERR(57 SUM+67
>> CNTERR(58 SUM+68
>> CNTERR(59 SUM+69
>> CNTERR(60 SUM+70
>> CNTERR(7 SUM+17
>> CNTERR(8 SUM+18
>> CNTERR(9 SUM+19
>> CNTREC SUM+5, SETUP+3*, SETUP+10*
>> CNTRPSU SUM+16, SETUP+3*
DTIME SETUP+2
>> I SETUP+5*, SETUP+6
IO REP+3
>> ND SETUP+9*
>> PFADDR1 COMPU+8*
>> PFADDR2 COMPU+9*
>> PFADDR3 COMPU+10*
>> PFAUTH COMPU+16*
>> PFCITY COMPU+11*
>> PFCLAIM COMPU+7*
>> PFDOB COMPU+5*
>> PFG SETUP+3*, SETUP+8*
>> PFNAME REP*, COMPU+1*, COMPU+3*, COMPU+4*
>> PFSITE COMPU+14*, COMPU+15*
>> PFSSN COMPU+2*, COMPU+3, COMPU+4
>> PFSTAID SETUP+14*, SETUP+17*, SETUP+20*, SETUP+22*, SETUP+24*
>> PFSTATE COMPU+12*
>> PFSTDBAL SETUP+3*
>> PFTEMP REP+8*, REP+9
>> PFWARD COMPU+6*
>> PFX REP*, REP+5*, REP+6, REP+7, REP+8, REP+9
>> PFY REP*, REP+6*, REP+7, REP+8, REP+9
>> PFZ REP*, REP+7*, REP+8, REP+9
>> PFZIP COMPU+13*
>> POP REP+2
>> PRPFBBAL SETUP+3*
>> PRPFBC18 SUM+28, SETUP+4*
>> PRPFBC19 SUM+29, SETUP+4*
>> PRPFBC21 SUM+31, SETUP+4*
>> PRPFBC22 SUM+32, SETUP+4*
>> PRPFBC40 SUM+50, SETUP+4*
>> PRPFBDMO SETUP+3*
>> PRPFDEFR SUM+56, SETUP+3*
>> PRPFHLD1 SETUP+3*, SETUP+7*, SETUP+11, SETUP+12, SETUP+13, SETUP+14, SETUP+16, SETUP+19, SETUP+22, SETUP+23
, SETUP+26, SETUP+27, SETUP+28, SETUP+29, SETUP+30, SETUP+31, SETUP+32, SETUP+33, COMPU+1, COMPU+2
, COMPU+4, COMPU+5, COMPU+6, COMPU+7, COMPU+8, COMPU+9, COMPU+10, COMPU+11, COMPU+12, COMPU+13
, COMPU+16
>> PRPFHLD2 SETUP+3*
>> PRPFHLD3 SETUP+3*
>> PRPFHLD4 SETUP+3*
>> X REP+1*
XION REP+1!
>> Y SUM+3*, SUM+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All