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
Print Page as PDF
Routine: PRPFU

Package: Integrated Patient Fund

Routine: PRPFU


Information

PRPFU ;ALTOONA/CTB FATIENT FUNDS UTILITY PROGRAM ;11/27/96 3:42 PM

Source Information

Source file <PRPFU.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1,1989
UPDATE ;
POS(DX,DY)
PERCENT ;
S(X)
TIME(X,Y) ;
BEGIN ;
END ;
CLOSE ;CLOSE ALL OPEN DEVICES OTHER THAN THE HOME DEVICE
MSG ;;PRINTS MESSAGE CONTAINED IN X. IF IT DOESNT FIT ON ONE LINE, X IS PRINTED ON THE NEXT LINE.
BRK
DIR() ;SET VARIABLE STRING RETURNING FROM DIR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IORC
  • Line Location: UPDATE+1
Function Call: WRITE
  • Prompt: CURSOR
  • Line Location: UPDATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: POS+0
Function Call: WRITE
  • Prompt: !!!,$FN($S(PERCENT=100:TREC,XCOUNT<0:0,1:XCOUNT),",")," of ",$FN(TREC,",")," ",ITEMS," processed. ",PERCENT,"% complete "
  • Line Location: PERCENT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TIME+5
Function Call: WRITE
  • Prompt: SEC_" Second"_$$S(SEC)_" "_Y_". "
  • Line Location: TIME+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !,?25,"P E R C E N T C O M P L E T E",!!?18," 50 100",!,LINE,!?14,"|",?66,"|",!,LINE,!
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: !,"100% complete."_X,!
  • Line Location: END+3
Function Call: READ
  • Variable: X
  • Timeout: 2
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: $P(X,"*")
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,?(IOM-($L($P(X,"*"))+4))
  • Line Location: MSG+2
Info |  Source |  Entry Points |  Interaction Calls