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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call