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 |  Marked Items  | All
Print Page as PDF
Routine: PRPFOBR

Package: Integrated Patient Fund

Routine: PRPFOBR


Information

PRPFOBR ;ALTOONA/CTB-OPTION TO RECALCULATE PATIENT BALANCES ;04/15/02

Source Information

Source file <PRPFOBR.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Patient Fund 2 (,DIKILL,MSG,NOW,SELRNG,ZTKILL)^PRPFQ  ^PRPFYN  
VA FileMan 2 ^DIC  EN1^DIP  

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

Package Total Caller Graph
Integrated Patient Fund 3 PRPF OUT OF BALANCE REPORT  PRPF TASKMAN OUT OF BALANCE  PRPF VERIFY & CORRECT  

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6,13**;JUNE 1, 1989
SE
SE1
CALC
CALC1
TM
ALL ;;SCREEN ALL PATIENT FUND ACCOUNTS AND PRINT LIST OF OUT OF BALANCES
OUT
NONE
CHECK
SET
NA
QUE ;QUEUE ALL^PRPFOBR TO RUN AS TASKMAN JOB

External References

Name Field # of Occurrence
^DIC SE1
EN1^DIP ALL+8
^PRPFQ QUE+8
DIKILL^PRPFQ OUT
MSG^PRPFQ ALL+2
NOW^PRPFQ NONE
SELRNG^PRPFQ QUE+3
ZTKILL^PRPFQ OUT
^PRPFYN SE+1, SE1+3, SE1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SE1+0
Function Call: WRITE
  • Prompt: !,?10,"BALANCE IN ACCOUNT",?50,"CORRECTED BALANCE"
  • Line Location: SE1+1
Function Call: WRITE
  • Prompt: !,"TOTAL",?15,$J($P(X,U,4),8,2),?55,$J(PF("BAL"),8,2),!,"P/S",?15,$J($P(X,U,5),8,2),?55,$J(PF("PBAL"),8,2),!,"GRAT",?15,$J($P(X,U,6),8,2),?55,$J(PF("GBAL"),8,2)
  • Line Location: SE1+2
Function Call: READ
  • Variable: X
  • Timeout: 2
  • Line Location: SE1+5
Function Call: WRITE
  • Prompt: " ---Done---"
  • Line Location: SE1+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: SE1+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: "PATIENT FUNDS OUT OF BALANCE REPORT",?50,%X,!!,"No Out of Balance Accounts Were Found While Running This Report"
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E($G(IOST))="P"
  • Line Location: NONE+0
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: NA+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: (IOM-$X)<25
  • Line Location: NA+0
Function Call: WRITE
  • Prompt: " <No action taken>",*7
  • Line Location: NA+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: NA+0
Function Call: WRITE
  • Prompt: !,"This program will review all Patient Funds Accounts and print a",!,"report of all accounts which are out of balance in any way. ",!!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: "Due to the length of time that this report may take, it is suggested that it,",!," be queued.",!!
  • Line Location: QUE+2
Routine Call
  • DIC
  • Line Location:
    • SE1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRPF(470 - [#470] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRPF(470 - [#470] SE1+1, SE1+5*, CALC, CALC1, ALL+3, CHECK
^TMP("PRPFAH" ALL+1!, ALL+4, SET*

Label References

Name Line Occurrences
ALL QUE+8
CALC SE1, CHECK
CALC1 CALC
CHECK ALL+3
NA SE+1, SE1+3, SE1+4
NONE ALL+4
OUT SE1, SE1+5, ALL+4, NA, QUE+4, QUE+8
SE1 SE1+3, SE1+4, SE1+6
SET CHECK+2, CHECK+3, CHECK+4, CHECK+5

Naked Globals

Name Field # of Occurrence
^(0 CALC1*
^(1 SE1+1, CHECK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SE+1*, SE1+3*, SE1+4*, OUT!
>> %A SE*, SE1+3*, SE1+4*
>> %A(1 SE*
>> %A(2 SE*
>> %A(3 SE+1*
>> %B SE+1*, SE1+3*, SE1+4*
%W OUT!
>> %X NONE
>> BY ALL+5*, ALL+7*
>> BY(0 ALL+5*
C OUT!
DA CALC*, CALC1, OUT!
DFN SE1*, SE1+1, SE1+5, CALC, CALC1, ALL+3*, OUT!, CHECK, SET
DIC SE1*, ALL+5*, OUT!
DIC("A" SE1+3*, SE1+4*, SE1+6*
DIC(0 SE1*
>> DIOEND ALL+6*
DIYS OUT!
>> FLDS ALL+5*
>> FR ALL+5*, ALL+7*
>> I ALL+3*
IOF NONE
IOM NA
ION ALL+5, NONE
>> IOP ALL+5*, NONE*
IOST NONE
K OUT!
>> L ALL+5*
>> L(0 ALL+5*
N CALC*, OUT!
PF OUT!
PF("BAL" SE1*, SE1+2, SE1+5, CALC*, CALC1*, CHECK, CHECK+3
PF("GBAL" SE1*, SE1+2, SE1+5, CALC*, CALC1*, CHECK, CHECK+5
PF("PBAL" SE1*, SE1+2, SE1+5, CALC*, CALC1*, CHECK, CHECK+4
POP OUT!
>> PRIOP ALL+5
PRPFRNG TM*, ALL+5, ALL+7, OUT!, QUE+4, QUE+5, QUE+6, QUE+7
PRPFRNG2 TM*, ALL+5, OUT!, QUE+5*, QUE+6*, QUE+7
S OUT!
>> TO ALL+5*, ALL+7*
U SE+1*, SE1+2, SE1+5, CALC1, ALL+3*, CHECK
X SE1+1*, SE1+2, SE1+5*, CALC1*, ALL+2*, OUT!, CHECK*, CHECK+2, NA*
X1 OUT!, CHECK+1*, CHECK+2
>> X2 CHECK*
XBAL OUT!, CHECK*, CHECK+1, CHECK+3
XGBAL OUT!, CHECK*, CHECK+1, CHECK+5
XPBAL OUT!, CHECK*, CHECK+1, CHECK+4
Y SE1, OUT!
>> ZTDESC QUE+8*
>> ZTREQ ALL+9*
>> ZTRTN QUE+8*
>> ZTSAVE("PRPFRNG" QUE+7*
>> ZTSAVE("PRPFRNG2" QUE+7*

Marked Items

Name Field # of Occurrence
$T(ALL QUE+8
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 |  Marked Items  | All