Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRPF(470 - [#470] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call