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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Prosthetics 3 ($$UP60,$$UP68)^RMPRPCE1  UPFILE^RMPRPCEL  LINK^RMPRS  
VA FileMan 2 FILE^DIE  ^DIR  

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

Package Total Caller Graph
Prosthetics 5 RMPR4E21  RMPRE21  RMPREOL  RMPREOS  RMPRPCEL  

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

External References

Name Field # of Occurrence
FILE^DIE ICDT+11
^DIR RES60+15, RES60+19, CDIR+5
$$UP60^RMPRPCE1 UPFILE+10
$$UP68^RMPRPCE1 UPFILE+11
UPFILE^RMPRPCEL AUTO+9
LINK^RMPRS MAN+6

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
Routine Call
  • DIE
  • Line Location:
    • ICDT+11
Routine Call
  • DIR
  • Line Location:
    • RES60+15
    • RES60+19
    • CDIR+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] RES60+10, RES60+11
^PRC(441 - [#441] RES60+13
^RMPR(660 - [#660] SEL60+7, RES60+5, COL+7, COL+8, COL+10, COL+11, ICDT+6
^RMPR(661 - [#661] RES60+9, RES60+12
^RMPR(664 - [#664] COL+5
^RMPR(668 - [#668] COL+8, ICDT+3, ICDT+4, ICDT+5, ICDT+7, ICDT+8
^TMP($J SEL60+6, RES60+25*, RES60+26*, UPFILE+3, UPFILE+4, UPFILE+12!, UPFILE+13!, AUTO+7*, AUTO+8*, MAN+5*

Label References

Name Line Occurrences
KILL AUTO+10, MAN+7
NEWVAR SEL60+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SEL60+2, UPFILE+14*, ICDT+2~
DIC NEWVAR~
DIE NEWVAR~
DIR RES60!, CDIR!, CDIR+7!
DIR("?" CDIR+4*
DIR("A" RES60+18*, CDIR+2*
DIR("B" CDIR+3*
DIR(0 RES60+3*, RES60+17*, CDIR+1*
>> DIRUT RES60+20, CDIR+6
DLAYGO NEWVAR+1~
DR NEWVAR+1~
>> DTOUT RES60+20, CDIR+6
>> DUOUT RES60+20, CDIR+6
I UPFILE+3*, UPFILE+4, UPFILE+10, UPFILE+11, UPFILE+12, NEWVAR~
J NEWVAR~
R68 ICDT~, ICDT+3, ICDT+4, ICDT+5, ICDT+7, ICDT+8
R6I AUTO+3*, AUTO+7, MAN+4*, MAN+5, KILL+1!
RC RES60+22*, NEWVAR~
>> RGRP1 AUTO+7, MAN+5, COL+7*
RI COL+5*, ICDT+2~, ICDT+4*, ICDT+5
RM60CNT SEL60+5*, SEL60+7*, NEWVAR+2~
>> RM60D RES60+8*, RES60+14
RM60DAT UPFILE+4*, UPFILE+5, UPFILE+6, UPFILE+7, NEWVAR+1~
>> RM60DATA RES60+5*, RES60+6, RES60+7
>> RM60DATE RES60+6*, RES60+8
RM60IEN NEWVAR+2~
RM60IT RES60+4*, RES60+9*, RES60+12*, RES60+13, NEWVAR+3~
>> RM60ITEM RES60+6*, RES60+9, RES60+12
RM60L RES60+21*, RES60+22, NEWVAR~
RM60LINK KILL+1!
RM60LINK( AUTO+3, MAN+4, COL+10*, COL+11*
RM60TYP NEWVAR+3~
>> RM60TYPT RES60+7*
>> RM60VEN RES60+7*, RES60+10, RES60+11
>> RM60VEN0 RES60+4*, RES60+10*, RES60+11*, RES60+14
RM660 ICDT+2~, ICDT+5*, ICDT+6, ICDT+9, ICDT+10, ICDT+12
>> RM660I COL+6*, COL+7, COL+8, COL+10, COL+11
>> RM664DAT COL+5*, COL+6
RM668 UPFILE+7*, UPFILE+8, UPFILE+10, UPFILE+11, NEWVAR+1~
>> RM668D10 COL+8*, COL+9
RM668I AUTO+6*, AUTO+7, AUTO+8, KILL+1!
RM680 NEWVAR~
RM6810 NEWVAR~
RM68CNT NEWVAR+2~
RM68D NEWVAR+3~
RM68DATA NEWVAR+3~
>> RM68FG COL+4*, COL+9*
RM68IEN NEWVAR+2~
RM68LINK AUTO+5, AUTO+6, KILL+1!
RM68LINK( COL+9*
RM68LINK(0 AUTO+6
RM68TRAN NEWVAR+3~
RMAMIS NEWVAR+1~
RMCHK NEWVAR+1~
RMCODT ICDT+2~, ICDT+8*, ICDT+10
RMD RES60+22*, RES60+23, RES60+24, RES60+25, RES60+26, RES60+27, NEWVAR+2~
RMDAT ICDT+2~
RMDAT(660 ICDT+9*, ICDT+10*
RMDATE NEWVAR~
RMDFN NEWVAR~
RMENTSUS CDIR+5*, CDIR+6*, NEWVAR+3~
RMERR NEWVAR+1~
RMERROR ICDT+2~, ICDT+12, NEWVAR~
RMI NEWVAR~
RMINDT ICDT+2~, ICDT+7*, ICDT+9
>> RMNT RES60+1*, RES60+4*, RES60+15*
>> RMPRA COL+5
>> RMPRDFN AUTO+7, MAN+5
RMPRPRC RES60+4*, RES60+13*, RES60+14, NEWVAR+3~
RMQUIT RES60+1*, RES60+2, RES60+15*, RES60+16, NEWVAR+3~
RMSAMIS UPFILE+5*, UPFILE+9, UPFILE+11, NEWVAR+2~
>> RMSCHECK UPFILE+2*, UPFILE+10*
>> RMSCNT RES60+1*, RES60+4*, RES60+17
>> RMSEL( RES60+24*
>> RMSERR SEL60+5*, UPFILE+11*
RMSI SEL60+6*, SEL60+7, RES60+2*, RES60+5, RES60+14, NEWVAR+2~
RMSTATUS UPFILE+6*, UPFILE+10, NEWVAR+1~
RMSUCLFG MAN+3*, KILL+1!
>> RMSULINK SEL60+2*, RES60+26, UPFILE+14
RMSUS60 SEL60+1!, NEWVAR+2~
RMSUS60( SEL60+7*, RES60+2, RES60+5, RES60+23, RES60+25, RES60+26, RES60+27!
RMSUS68 NEWVAR+2~
U RES60+6, RES60+7, RES60+9, RES60+10, RES60+13, RES60+25, RES60+26, UPFILE+5, UPFILE+6, UPFILE+7
, COL+5, COL+6, COL+7, COL+8, COL+11, ICDT+4, ICDT+5, ICDT+7, ICDT+8
X NEWVAR+1~
Y RES60+15, RES60+20, RES60+21, CDIR+5, NEWVAR~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All