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

Package: Integrated Patient Fund

Routine: PRPFED


Information

PRPFED ;ALTOONA/CTB EDIT ROUTINE FOR PATIENT FUNDS PACKAGE ;2/24/97 5:09 PM

Source Information

Source file <PRPFED.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Patient Fund 5 EN1^PRPFBAL  ^PRPFPOST  ENCON^PRPFQ  MSG^PRPFU1  ^PRPFYN  
VA FileMan 3 ^DIC  ^DIE  ^DIK  

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

Package Total Caller Graph
Integrated Patient Fund 11 PRPF CLEAR LOCK  PRPF DEFERRAL DATE EDIT  PRPF FORMS EDIT  PRPF POST  PRPFBAL  PRPFDSI  PRPFDSI1  PRPFED1  
PRPFED2  PRPFMUL  PRPFPOST  

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
DEAD
GETPAT
GETTRANS ;GET TEMP TRANS NUMBER FROM TEMP TRANSACTION FILE
POST ;POST TRANSACTION
EDIT
CL
DEF ;EDIT DEFERRAL
CKINACT ;CHECK BALANCE DURING INPUT TRANSFORM FOR ACCOUNT STATUS
CLEAR ;CLEAR LOCK ON ACCOUNT
SUSPENSE ;ADD/EDIT SUSPENSE ITEM
FORM ;ADD/EDIT PATIENT FUNDS FORM
OUT
OUTC

External References

Name Field # of Occurrence
^DIC GETPAT, GETTRANS+2, DEF+3, CLEAR+1, SUSPENSE+1, FORM+1
^DIE EDIT, DEF+3, SUSPENSE+1, FORM+1
^DIK GETTRANS+2, EDIT, OUT+1
EN1^PRPFBAL POST+1, CL
^PRPFPOST EDIT+1
ENCON^PRPFQ CL, DEF+2
MSG^PRPFU1 EDIT, DEF+2
^PRPFYN POST+1, CLEAR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"PATIENT HAS DIED!"
  • Line Location: DEAD+0
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !!,*7,"This File is being edited",$S($P(X,"^",2)>0:" by "_$P(^VA(200,$P(X,"^",2),0),"^"),1:" ")," on Device ",$P(X,"^",3)_".",!," Please try later."
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: " BALANCE IS $",$J($P(^(1),"^",4),0,2),*7,!," You may not Inactivate an Account unless the Balance is zero"
  • Line Location: CKINACT+2
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: CLEAR+1
Function Call: WRITE
  • Prompt: !,"Account is already clear. No action is required.",!
  • Line Location: CLEAR+1
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: CLEAR+4
Function Call: WRITE
  • Prompt: *7,"---CLEARED---",!
  • Line Location: CLEAR+4
Routine Call
  • DIC
  • Line Location:
    • GETPAT
    • GETTRANS+2
    • DEF+3
    • CLEAR+1
    • SUSPENSE+1
    • FORM+1
Routine Call
  • DIE
  • Line Location:
    • EDIT
    • DEF+3
    • SUSPENSE+1
    • FORM+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRPF(470.2 - [#470.2] Classic Fileman Calls
^PRPFT(470.5 - [#470.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("VOL" GETTRANS+1
^DPT - [#2] DEAD, GETPAT
^PRPF(470 - [#470] GETPAT+1, GETPAT+2*, EDIT+2!, CL!, DEF+2, CKINACT+2, CLEAR+1, CLEAR+2, CLEAR+4!, OUT!
^PRPFT(470.5 - [#470.5] EDIT*
^VA(200 - [#200] GETPAT+1, CLEAR+2

Label References

Name Line Occurrences
CL EDIT+1
CLEAR CLEAR+3
DEAD POST+1
DEF DEF+2, DEF+3
EDIT EDIT+1
FORM FORM+1
GETPAT GETPAT+1, POST+1, DEF+1
GETTRANS GETTRANS+2, POST+2
OUT POST+1, POST+2, EDIT, CL, DEF+1, DEF+2, DEF+3, SUSPENSE+1, FORM+1
OUTC CLEAR+1, CLEAR+4
POST EDIT+2, CL
SUSPENSE SUSPENSE+1

Naked Globals

Name Field # of Occurrence
^( DEAD, GETPAT
^(0 DEF+2
^(1 CKINACT+2
^(9 GETPAT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% POST+1*, POST+2*, EDIT+1, CLEAR+2*, CLEAR+3, OUTC!
>> %A POST+1*, CLEAR+2*
>> %A(1 CLEAR+2*
>> %B POST+1*, CLEAR+2*
%DT OUTC!
%H OUTC!
%I OUTC!
%PRPF GETPAT*, GETPAT+2*, GETTRANS+1*, GETTRANS+3*, POST+1, POST+2, DEF+1, OUTC!
%W OUTC!
%X OUTC!
%Y OUTC!
C OUTC!
COUNT GETTRANS+2*, OUTC!
D OUTC!
D0 OUTC!
D1 OUTC!
DA GETTRANS+2*, GETTRANS+3*, EDIT, DEF+3*, CKINACT+2, SUSPENSE+1*, FORM+1*, OUT+1*, OUTC!
DEFDATE OUTC!
DEP OUTC!
DFN DEAD, GETPAT!*, GETPAT+1, GETPAT+2, EDIT+1, EDIT+2, CL, DEF+2, DEF+3, CLEAR+1*
, CLEAR+2, CLEAR+4, OUT, OUTC!
DFN(0 GETPAT*, EDIT+1
DG1 OUTC!
DGA1 OUTC!
DGT OUTC!
DGX OUTC!
DI OUTC!
DIC GETPAT*, GETTRANS+1*, GETTRANS+2, POST+2, EDIT, DEF+3*, CLEAR+1*, SUSPENSE+1*, FORM+1*!, OUTC!
DIC("A" GETPAT!, FORM+1*
DIC(0 GETPAT*, GETTRANS+1*, DEF+3*, CLEAR+1*, SUSPENSE+1*, FORM+1*
DIE POST+2*, DEF+3*, SUSPENSE+1*, FORM+1*, OUTC!
DIE("NO^" EDIT*
DIK GETTRANS+2*!, EDIT*!, OUT+1*, OUTC!
DIPGM OUTC!
DIW OUTC!
DIWT OUTC!
DIYS OUTC!
DLAYGO GETPAT*!, GETTRANS+1*, FORM+1*!, OUTC!
DN OUTC!
DQ OUTC!
DR EDIT*, DEF+3*, SUSPENSE+1*, FORM+1*, OUTC!
DUOUT OUTC!
DUZ GETPAT+2
DWLW OUTC!
FORM OUTC+1!
I OUTC+1!
IOF OUT+2
ION GETPAT+2
J OUTC+1!
K OUTC+1!
N OUTC+1!
P OUTC+1!
PFHI OUTC+1!
PFLO OUTC+1!
PFNORM OUTC+1!
POP OUTC+1!
PRBAL OUTC+1!
PRPF OUTC+1!
PRPF("KILL" EDIT!
Q3 OUTC+1!
RES OUTC+1!
S OUTC+1!
SOURCE OUTC+1!
TMP OUTC+1!
TRDA GETTRANS+3*, POST+2*, OUT+1, OUTC+1!
TYPE OUTC+1!
X GETPAT+1*, GETTRANS+1*, EDIT*, DEF+2*, CKINACT+1, CKINACT+2!, CLEAR+1*, CLEAR+2*, CLEAR+4*, OUTC+1!
X1 OUTC+1!
X2 OUTC+1!
Y GETPAT, GETTRANS+2, GETTRANS+3, POST+2, EDIT, EDIT+1*, DEF+3, CLEAR+1, SUSPENSE+1, FORM+1
, OUTC+1!
Y(0 GETPAT, EDIT+1*
Z OUTC+1!
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