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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PRPFBAL

Package: Integrated Patient Fund

Routine: PRPFBAL


Information

PRPFBAL ;ALTOONA/CTB-PATIENT LOOKUP AND COMPUTE BALANCE ;08/29/02

Source Information

Source file <PRPFBAL.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Patient Fund 4 ^PRPFDEF  DEAD^PRPFED  EN^PRPFRES  DGINPW^PRPFU1  
VA FileMan 4 ^DIC  $$GET1^DIQ  ^DIWP  ^DIWW  
Kernel 1 ^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Integrated Patient Fund 7 PRPF BALANCE CHECK  PRPFDMT  PRPFDSI  PRPFDST  PRPFED  PRPFED1  PRPFMUL  

Entry Points

Name Comments DBIA/ICR reference
A
C
B
T2
T3
EN1
EN
DEF ;WRITES DEFERRAL INFORMATION
HILO
V ;;3.0;PATIENT FUNDS;**6,8,13,14**;JUNE 1, 1989
GI ;PRINT GENERAL INFORMATION REMARKS
OUT

External References

Name Field # of Occurrence
^%ZIS HILO
^DIC EN
$$GET1^DIQ A+5
^DIWP T2+2, T3+1
^DIWW T2+3, T3+2
^PRPFDEF A
DEAD^PRPFED A+3
EN^PRPFRES EN1
DGINPW^PRPFU1 A+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,@PFHI,$P(DFN(0,0),"^"),@PFLO,?40
  • Line Location: A+1
Function Call: WRITE
  • Prompt: "SSN: ",@PFHI
  • Line Location: A+1
Function Call: WRITE
  • Prompt: $E(SSN,1,3),@PFLO,"-",@PFHI,$E(SSN,4,5),@PFLO,"-",@PFHI,$E(SSN,6,9),?60,@PFLO,"CLAIM #: ",@PFHI,$S($D(^DPT(+DFN(0),.31)):$P(^(.31),"^",3),1:""),@PFLO
  • Line Location: A+2
Function Call: WRITE
  • Prompt: @PFHI
  • Line Location: A+3
Function Call: WRITE
  • Prompt: @PFLO,!
  • Line Location: A+3
Function Call: WRITE
  • Prompt: ?18,"* * * ACCOUNT TYPE IS ",@PFHI,TYPE,@PFLO," * * *",!,"WARD: ",@PFHI,DFN(.1),@PFLO
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !,"STATION NAME: ",@PFHI,$$GET1^DIQ(4,(^PRPF(470,DFN,12)),.01),@PFLO
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !,"STATION NAME:"
  • Line Location: A+6
Function Call: WRITE
  • Prompt: !,"AUTH WD/MONTH: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: X,@PFLO,?39,"AUTH WD/WEEK: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: X,@PFLO,?39,"AUTH WD/WEEK: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: X,@PFLO,?39,"AUTH WD/WEEK: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: X,@PFLO,?39,"AUTH WD/WEEK: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: @PFLO
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,XI
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,?10," TOTAL BALANCE: ",@PFHI
  • Line Location: B+1
Function Call: WRITE
  • Prompt: X,@PFLO,?45,"PRIVATE SOURCE: ",@PFHI
  • Line Location: B+1
Function Call: WRITE
  • Prompt: X,@PFLO,?45,"PRIVATE SOURCE: ",@PFHI
  • Line Location: B+1
Function Call: WRITE
  • Prompt: X,@PFLO,?45,"PRIVATE SOURCE: ",@PFHI
  • Line Location: B+1
Function Call: WRITE
  • Prompt: "GRATUITOUS: ",@PFHI
  • Line Location: B+2
Function Call: WRITE
  • Prompt: X,@PFLO,!!,"AVAILABLE FOR WITHDRAWAL: "
  • Line Location: B+2
Function Call: WRITE
  • Prompt: X,@PFLO,!!,"AVAILABLE FOR WITHDRAWAL: "
  • Line Location: B+2
Function Call: WRITE
  • Prompt: X,@PFLO,!!,"AVAILABLE FOR WITHDRAWAL: "
  • Line Location: B+2
Function Call: WRITE
  • Prompt: XI
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !,"DEFERRAL INFORMATION:",?30,"TRANSACTION",?50,"DEF DATE",?69,"AMOUNT"
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !,"GENERAL REMARKS/INFORMATION:"
  • Line Location: T2+0
Function Call: WRITE
  • Prompt: @PFHI
  • Line Location: T2+2
Function Call: WRITE
  • Prompt: @PFNORM
  • Line Location: T2+4
Function Call: WRITE
  • Prompt: !,"SPECIAL REMARKS:"
  • Line Location: T3+0
Function Call: WRITE
  • Prompt: @PFHI
  • Line Location: T3+1
Function Call: WRITE
  • Prompt: !,"The information contained in this report is protected by the Privacy Act of 1974"
  • Line Location: T3+3
Function Call: WRITE
  • Prompt: @PFNORM
  • Line Location: T3+4
Function Call: WRITE
  • Prompt: !,?35,@PFHI,$P(PRPF(1),"^"),?49
  • Line Location: DEF+1
Function Call: WRITE
  • Prompt: Y,?64
  • Line Location: DEF+1
Function Call: WRITE
  • Prompt: Y,?64
  • Line Location: DEF+1
Routine Call
  • DIC
  • Line Location:
    • EN
Routine Call
  • %ZIS
  • Line Location:
    • HILO

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] HILO+2
^%ZOSF("OS" HILO
^DD("DD" DEF+1
^DD(470 EN1
^DPT - [#2] EN1, A+1, A+2
^PRPF(470 - [#470] EN, EN1, A+5, A+6, A+7, T2+2, T3+1, DEF+1
^UTILITY($J T2+1!
^XUSEC("PRPF CLERK" T3

Label References

Name Line Occurrences
B A+8
C A+9, B+1, B+2, DEF+1
DEF B+4
EN EN
EN1 EN
HILO EN1
OUT T3, T3+4

Naked Globals

Name Field # of Occurrence
^( A+2, T2+2, T3+1, DEF+1
^(1 EN, EN1
^(7 HILO+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1!, C+1*, C+2*, C+3!
%D C+1*, C+3!
%H OUT!
%I OUT!
%TG OUT!
%W EN+1!
%X EN+1!
%Y EN+1!
C EN+1!
D OUT!
D0 A*!
D1 OUT!
DFN EN*, EN+1!, EN1, A, A+5, A+6, A+7, T2+2, T3+1, DEF+1
DFN( A+4
DFN(0 EN*, EN1*, EN1+1, A+1, A+2
DFN(1 EN*, EN1*, A+9
DG1 OUT!
DGT OUT!
DGX OUT!
DIC EN*, EN+1!
DIC(0 EN*
DIW OUT!
DIWF T2+2*, T2+3!, T3+1*, T3+4!
DIWL T2+2*, T2+3!, T3+1*, T3+4!
DIWR T2+2*, T2+3!, T3+1*, T3+4!
DIWT OUT!
DIYS EN+1!
DN OUT!
DUZ T3
I OUT!, T2+2*, T3+1*, DEF+1*
IOF EN+1, A+1
IOM T2+2, T3+1
>> IOP HILO*
IOST(0 HILO+2
N OUT!, T2+2*, T3+1*
PFHI OUT!, A+1, A+2, A+3, A+4, A+5, A+9, B+1, B+2, T2+2
, T3+1, DEF+1, HILO*, HILO+2*
PFLO OUT!, A+1, A+2, A+3, A+4, A+5, A+9, B, B+1, B+2
, DEF+1, HILO*, HILO+2*
PFNORM OUT!, T2+4, T3+4, HILO*, HILO+2*
POP EN+1!
PRBAL OUT!
PRBAL("DEF" EN1*, A*, B+1, B+2, B+4
PRBAL("GB" EN1*, B+2
PRBAL("PB" EN1*, B+1, B+2*
PRBAL("SB" EN1*, B+1, B+2
>> PRPF(1 DEF+1*, DEF+2!
Q3 OUT!
RES OUT!, EN1+1*, A+8
SSN A+1*, A+2!
TMP OUT!, HILO+2*
TYPE OUT!, EN1+1*, A+4
U EN1+1, A+9
X OUT!, A, A+9*, B+1*, B+2*, T2+2*, T2+3!, T3+1*, T3+4!, DEF+1*
, C+1*, C+2*, C+3*
X2 OUT!, C*, C+1, C+3
XI B*, B+3!
Y EN, EN+1!, OUT!, DEF+1*
Y(0 EN
Z OUT!
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 |  Naked Globals |  Local Variables |  All