Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRPFYN

Package: Integrated Patient Fund

Routine: PRPFYN


Information

PRPFYN ;ALTOONA/CTB YES/NO ROUTINE FOR PATIENT FUNDS ;2/24/97 5:12 PM

Source Information

Source file <PRPFYN.m>

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

Package Total Caller Graph
Integrated Patient Fund 15 PRPFARC  PRPFED  PRPFIPST  PRPFMIN  PRPFMUL  PRPFNQ  PRPFOBR  PRPFPNT  
PRPFPOST  PRPFPURG  PRPFRES  PRPFRPT  PRPFS  PRPFTAT  PRPFTRCK  

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
YN ;
RX
Q
Q1
C
WAIT ;
LIST ;;This may take a few moments

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,%A(%I)
  • Line Location: YN+3
Function Call: WRITE
  • Prompt: "? ",$P("YES// ^NO// ^<YES/NO> ",U,%S)
  • Line Location: YN+4
Function Call: READ
  • Variable: %Y
  • Timeout: $S($D(DTIME):DTIME,1:99999)
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>73
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: $P(" (YES)^ (NO)",U,%)
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: *7
  • Condition for execution: '%&(%Y'["?")
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",!!
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !,%B(%I)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,"..."
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: $P("Whoops^Hmmm^Excuse me^Sorry","^",$R(4)+1),", "
  • Line Location: WAIT+3
Function Call: WRITE
  • Prompt: $P($T(LIST+$R(6)),";",3)_"..."
  • Line Location: WAIT+4

Label References

Name Line Occurrences
C RX+4
Q RX+4
Q1 RX+2, RX+5
YN RX+4, RX+6, Q1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % YN+1*, RX+1*, RX+2, RX+3, RX+4*, RX+6*, Q1*
%A YN+2, RX+4, RX+6, Q!
%A( YN+3
%B RX+4, RX+5, RX+6, Q!
%B( C
%I YN+3*, Q!, C*
%S YN+1*, YN+4, RX+4, RX+6, Q!, Q1
%Y RX*, RX+1, RX+2, Q!, Q1
DTIME RX
DTOUT YN+1!, RX*
IOST WAIT+1
U YN+1*, YN+4, RX, RX+3

Marked Items

Name Field # of Occurrence
$T(LIST+$RANDOM^1;1(1) WAIT+4
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All