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

Package: Prosthetics

Routine: RMPRPCEL


Information

RMPRPCEL ;HCIOFO/RVD - LINK SUSPENSE UTILITY; 08/14/01

Source Information

Source file <RMPRPCEL.m>

Entry Points

Name Comments DBIA/ICR reference
LINK60 ;link suspense to 2319 records
SEL60 ;
RES60
UPFILE ;call update 660 & 668
SMESS8
SMESS0
CDIR
AUTO ;auto-link a suspense record.
MAN ;link record.
KILL ;kill link variables
COL ;collect PREVIOUS items for CO & CPO options only.
ICDT(R68) ;update the initial and completion date in #660
NEWVAR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"List of 2319 Records:"
  • Line Location: SEL60+4
Function Call: WRITE
  • Prompt: !!,"***NO Link to Suspense!!",!!
  • Line Location: RES60+20
Function Call: WRITE
  • Prompt: !!,"*********************************************************"
  • Line Location: SMESS8+1
Function Call: WRITE
  • Prompt: !,"** No suspense record has been selected for this trans-**"
  • Line Location: SMESS8+2
Function Call: WRITE
  • Prompt: !,"** action. You must select an entry from the list to **"
  • Line Location: SMESS8+3
Function Call: WRITE
  • Prompt: !,"** complete this transaction, otherwise transaction **"
  • Line Location: SMESS8+4
Function Call: WRITE
  • Prompt: !,"** will not be linked to SUSPENSE.................... **"
  • Line Location: SMESS8+5
Function Call: WRITE
  • Prompt: !,"*********************************************************"
  • Line Location: SMESS8+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: SMESS8+7
Function Call: WRITE
  • Prompt: !!,"*********************************************************"
  • Line Location: SMESS0+1
Function Call: WRITE
  • Prompt: !,"** Patient record(s) still exist...................... **"
  • Line Location: SMESS0+2
Function Call: WRITE
  • Prompt: !,"** You must select an entry from the list to complete **"
  • Line Location: SMESS0+3
Function Call: WRITE
  • Prompt: !,"** all transactions, otherwise some transactions will **"
  • Line Location: SMESS0+4
Function Call: WRITE
  • Prompt: !,"** not be linked to SUSPENSE!!! **"
  • Line Location: SMESS0+5
Function Call: WRITE
  • Prompt: !,"*********************************************************"
  • Line Location: SMESS0+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: SMESS0+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: CDIR+7
Function Call: WRITE
  • Prompt: !!,"*** Error in 2319 Record = ",RM660," !!!",!!
  • Line Location: ICDT+12
Info |  Source |  Entry Points |  Interaction Calls