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

Package: Integrated Patient Fund

Routine: PRPFDSI


Information

PRPFDSI ;ALTOONA/CTB INFORMATION DISPLAY ;11/22/96 4:36 PM

Source Information

Source file <PRPFDSI.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Patient Fund 7 HILO^PRPFBAL  ADD^PRPFCD1  (,END)^PRPFDSI1  DEAD^PRPFED  ^PRPFQ  EN^PRPFRES  (,D,DGINPW)^PRPFU1  
VA FileMan 1 ^DIC  

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 INFORMATION DISPLAY  PRPFDSI1  

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
SE
INFO
B
C

External References

Name Field # of Occurrence
^DIC SE
HILO^PRPFBAL SE
ADD^PRPFCD1 INFO+4
^PRPFDSI1 B+17, B+18
END^PRPFDSI1 B+17
DEAD^PRPFED B+1
^PRPFQ SE
EN^PRPFRES INFO+2
^PRPFU1 B+6, B+9, B+12, B+16
D^PRPFU1 B+5, B+6
DGINPW^PRPFU1 B

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>1
  • Line Location: B+0
Function Call: WRITE
  • Prompt: @PFLO,"Name: ",@PFHI,$P(DFN(0),"^"),?44
  • Line Location: B+0
Function Call: WRITE
  • Prompt: @PFLO,"SSN: ",@PFHI,$E(SSN,1,3),@PFLO,"-",@PFHI,$E(SSN,4,5),@PFLO,"-",@PFHI,$E(SSN,6,9),@PFLO," Claim #: ",@PFHI,$P(DFN(.31),"^",3)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: @PFHI,"NOT IN FILE"
  • Line Location: B+2
Function Call: WRITE
  • Prompt: @PFHI
  • Line Location: B+3
Function Call: WRITE
  • Prompt: ?19,$E($P(DFN(.11),"^",I),1,29),?50,$E($P(DFN(.11),"^",I+3),1,29),!
  • Condition for execution: $P(DFN(.11),"^",I)]""
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $Y<12
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !,@PFLO,"Ward: ",@PFHI,$P(DFN(.1),U),?44,@PFLO,"Date of Admission: ",@PFHI,DOA
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !,@PFLO,"Regional Office: ",@PFHI,$S($P(PDFN("ZERO"),U,9)>0:$P(^DIC(4,$P(PDFN("ZERO"),U,9),0),U),1:"")
  • Line Location: B+5
Function Call: WRITE
  • Prompt: ?44,@PFLO,"Date of Birth: ",@PFHI,Y
  • Line Location: B+5
Function Call: WRITE
  • Prompt: !!,@PFLO,"Type of Account: ",@PFHI
  • Line Location: B+6
Function Call: WRITE
  • Prompt: Y,?44,@PFLO,"Date of Restriction: "
  • Line Location: B+6
Function Call: WRITE
  • Prompt: Y,?44,@PFLO,"Date of Restriction: "
  • Line Location: B+6
Function Call: WRITE
  • Prompt: !,@PFLO,"Amt Restricted/Month: ",@PFHI
  • Line Location: B+7
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Amt Restricted/Week: "
  • Line Location: B+7
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Amt Restricted/Week: "
  • Line Location: B+7
Function Call: WRITE
  • Prompt: !,@PFLO,"Monthly Restriction Balance: "
  • Line Location: B+8
Function Call: WRITE
  • Prompt: @PFHI,X,?44,@PFLO,"Weekly Restriction Balance: "
  • Line Location: B+8
Function Call: WRITE
  • Prompt: @PFHI,X,?44,@PFLO,"Weekly Restriction Balance: "
  • Line Location: B+8
Function Call: WRITE
  • Prompt: !,@PFLO,"Provider Authorizing Restriction: "
  • Line Location: B+9
Function Call: WRITE
  • Prompt: @PFHI,Y
  • Line Location: B+9
Function Call: WRITE
  • Prompt: !!,@PFLO,"Minimum Balance 1: ",@PFHI
  • Line Location: B+10
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Minimum Balance 2: ",@PFHI
  • Line Location: B+10
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Minimum Balance 2: ",@PFHI
  • Line Location: B+10
Function Call: WRITE
  • Prompt: !,@PFLO,"Maximum Balance 2: ",@PFHI
  • Line Location: B+11
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Maximum Balance 2: ",@PFHI
  • Line Location: B+11
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Maximum Balance 2: ",@PFHI
  • Line Location: B+11
Function Call: WRITE
  • Prompt: !,@PFLO,"Apportionee: ",@PFHI
  • Line Location: B+12
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Competency: "
  • Line Location: B+12
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Competency: "
  • Line Location: B+12
Function Call: WRITE
  • Prompt: !,@PFLO,"Guardian: ",@PFHI
  • Line Location: B+13
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Gratuitous Balance: ",@PFHI
  • Line Location: B+13
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Gratuitous Balance: ",@PFHI
  • Line Location: B+13
Function Call: WRITE
  • Prompt: !,@PFLO,"Institutional Award: ",@PFHI
  • Line Location: B+14
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Private Balance: ",@PFHI
  • Line Location: B+14
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Private Balance: ",@PFHI
  • Line Location: B+14
Function Call: WRITE
  • Prompt: !,@PFLO,"Other Assest: ",@PFHI
  • Line Location: B+15
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Account Balance: ",@PFHI
  • Line Location: B+15
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Account Balance: ",@PFHI
  • Line Location: B+15
Function Call: WRITE
  • Prompt: !,@PFLO,"Indigent: ",@PFHI
  • Line Location: B+16
Function Call: WRITE
  • Prompt: Y
  • Line Location: B+16
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:120)
  • Line Location: B+17
Function Call: WRITE
  • Prompt: @PFNORM,!,"Press RETURN to view next screen or '^' to EXIT: "
  • Line Location: B+17
Routine Call
  • DIC
  • Line Location:
    • SE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTSK - [#14.4] INFO!
^DIC(4 - [#4] B+5
^DPT - [#2] INFO+3
^PRPF(470 - [#470] INFO+1, INFO+4

Label References

Name Line Occurrences
C B+7, B+8, B+10, B+11, B+12, B+13, B+14, B+15
SE SE

Naked Globals

Name Field # of Occurrence
^( INFO+1, INFO+3, INFO+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SE+1!, C+1*, C+2*, C+3!
%D C+1*, C+3!
%H SE+1!
%W SE+1!
%Y SE+1!
C SE+1!
>> DD B+6*, B+9*, B+12*, B+16*
DFN SE*, SE+1!, INFO+1, INFO+3, INFO+4
DFN( INFO+1*, INFO+3*, B, B+2, B+3, B+4
DFN(0 INFO+2!, B, B+5
DFN(1 INFO+2!
DIC SE*, SE+1!
DIC(0 SE*
DIYS SE+1!
>> DOA B+4
DTIME B+17
F SE+1!, B+6*, B+9*, B+12*, B+16*
I SE+1!, INFO+1*, INFO+3*, INFO+4*, B+3*
IOF B
IOST B+17
J SE+1!
K SE+1!
N1 SE+1!
PDFN SE+1!
PDFN( INFO+4*
PDFN("ZERO" SE*, B+5, B+6, B+9, B+12, B+13, B+14, B+15, B+16
PDFN(1 B+7, B+8, B+13, B+14, B+15
PDFN(2 B+10, B+11
PFHI SE+1!, INFO*, B, B+2, B+3, B+4, B+5, B+6, B+7, B+8
, B+9, B+10, B+11, B+12, B+13, B+14, B+15, B+16
PFLO SE+1!, INFO*, B, B+2, B+4, B+5, B+6, B+7, B+8, B+9
, B+10, B+11, B+12, B+13, B+14, B+15, B+16
PFNORM SE+1!, INFO*, B+17
POP SE+1!
S SE+1!
SSN B*!
TMP SE+1!
U B+4, B+5, B+6, B+10, B+11, B+12, B+13, B+14, B+15, B+16
X SE+1!, B+6*, B+7*, B+8*, B+9*, B+10*, B+11*, B+12*, B+13*, B+14*
, B+15*, B+16*, B+17*, C+1*, C+2*, C+3*
X2 SE+1!, C*, C+1, C+3
Y SE, SE+1!, B+5*, B+6*, B+9, B+12, B+16
Y(0 SE
>> ZTDESC SE*
>> ZTRTN SE*
>> ZTSAVE("DFN" SE*
>> ZTSAVE("PDFN*" SE*
>> ZTSK INFO
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All