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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPRS

Package: Prosthetics

Routine: RMPRS


Information

RMPRS ;PHX/HNC/RFM,RN,RVD,ATG/JPN-ADD SUSPENSE RECORD ;July 29, 2020@10:00

Source Information

Source file <RMPRS.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Prosthetics 6 EN^RMPREO  VIEWCP^RMPREO23  EN^RMPREOL  $$STATUS^RMPREOU  DIV4^RMPRSIT  $$DAT1^RMPRUTL1  
VA FileMan 5 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
Kernel 2 HOME^%ZIS  KILL^XUSCLEAN  
List Manager 1 FULL^VALM1  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Prosthetics 19 RMPR INQ SUSPENSE  RMPR21  RMPR29  RMPR29LE  RMPR29LI  RMPR37  RMPR421  RMPR4C21  
RMPRAUT  RMPRAVR  RMPRAVR1  RMPRC21  RMPRDP  RMPRE21  RMPRPCE1  RMPRPCEL  
RMPRPIYI  RMPRSTI  RMPRSTK  

Entry Points

Name Comments DBIA/ICR reference
EN ;ADD SUSPENSE RECORD
; VSR (RN) patch RMPR*3.0*200 change four slashes to three slashes for validation before filing adding back tic to station
EX
CL ;CLOSE OUT SUSPENSE RECORD
EX1
EXIT
EN2 ;EDIT SUSPENSE RECORD
REV ;reverse look-up.--HNC--change to $O(^RMPR(668,"C",ien,n),-1)
ENT ;sort/display
PROC ;
INQ ;Inquire to Suspense entry point
EXT
ACT
LINK ;CLOSE OUT SUSPENSE ENTRY FOR SELECTED PATIENT
SUSP
WRI ;write
DIS ;continue
DICDPT ;ask patient from file #2
SMESS ;print message for mandatory suspense entry.

External References

Name Field # of Occurrence
HOME^%ZIS INQ+4
^DIC EN+3, DICDPT+4
FILE^DICN EN+4
YN^DICN SUSP+10
^DIE EN+7, CL+6, CL+7, PROC+12, SUSP+12
^DIK EN+8
^DIR DIS+1
EN^RMPREO SUSP+1
VIEWCP^RMPREO23 INQ+12
EN^RMPREOL SUSP
$$STATUS^RMPREOU PROC+8, WRI+7
DIV4^RMPRSIT EN+2, CL+1, EN2+1, INQ+3
$$DAT1^RMPRUTL1 PROC+5, WRI+4
DEM^VADPT PROC+6, WRI+5
FULL^VALM1 SUSP, SUSP+2
KILL^XUSCLEAN INQ+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),?5,!,"Someone else is editing this record"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$C(7),?5,"Deleted..."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: CL+5
Function Call: WRITE
  • Prompt: !!,"SUSPENSE RECORD WAS NOT CLOSED OUT",$C(7)
  • Line Location: EX1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EX1+1
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:"
  • Line Location: ENT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENT+9
Function Call: WRITE
  • Prompt: !!,"***** PATIENT HAS NO SUSPENSE RECORD!!!!"
  • Line Location: ENT+14
Function Call: WRITE
  • Prompt: !!,"***** NO SELECTION MADE!!!"
  • Line Location: ENT+15
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENT+17
Function Call: WRITE
  • Prompt: !!,"***** NO SELECTION MADE!!!"
  • Line Location: ENT+18
Function Call: WRITE
  • Prompt: !,$C(7),"****INVALID RESPONSE, Please choose a NUMBER within the range!!!!"
  • Line Location: ENT+19
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: " ",$$DAT1^RMPRUTL1(Y)
  • Line Location: PROC+5
Function Call: WRITE
  • Prompt: " ",VADM(1)
  • Line Location: PROC+7
Function Call: WRITE
  • Prompt: " ",$$STATUS^RMPREOU(+IEN)
  • Line Location: PROC+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INQ+2
Function Call: WRITE
  • Prompt: !,^RMPR(668,IEN,2,RO,0)
  • Line Location: EXT+0
Function Call: WRITE
  • Prompt: !!,"ACTION TAKEN: "
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !,^RMPR(668,IEN,3,RO,0)
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: "NONE RECORDED"
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+3
Function Call: WRITE
  • Prompt: $C(7),!,"Suspense Records exist on this Patient. Do you wish to View/Edit them"
  • Line Location: SUSP+10
Function Call: WRITE
  • Prompt: !,"Answer `YES` or `NO`"
  • Line Location: SUSP+10
Function Call: WRITE
  • Prompt: !,RMI,".",?5,$$DAT1^RMPRUTL1(Y)
  • Line Location: WRI+4
Function Call: WRITE
  • Prompt: ?16,$E(VADM(1),1,19)
  • Line Location: WRI+6
Function Call: WRITE
  • Prompt: ?37,$$STATUS^RMPREOU(RMPR668,9)
  • Line Location: WRI+7
Function Call: WRITE
  • Prompt: ?48,$E(^RMPR(668,RMPR668,2,1,0),1,31)
  • Line Location: WRI+9
Routine Call
  • %ZIS
  • Line Location:
    • INQ+4
Routine Call
  • DIC
  • Line Location:
    • EN+3
    • DICDPT+4
Routine Call
  • DIE
  • Line Location:
    • EN+7
    • CL+6
    • CL+7
    • PROC+12
    • SUSP+12
Routine Call
  • DIR
  • Line Location:
    • DIS+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^RMPR(668 - [#668] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(668 - [#668] EN+6, EN+7, EN+8, CL+4, CL+5, CL+7, EX1, ENT+4, PROC+1, PROC+4
, PROC+12, PROC+13, EXT, ACT+1, SUSP+6, SUSP+8, SUSP+11, SUSP+12, WRI+3, WRI+9
^TMP("RMSU" CL+2!, CL+4*, EXIT!, ENT+8*, SUSP+5!, SUSP+11*, DIS+3, DICDPT+2!
^TMP($J SUSP, SUSP+1

Label References

Name Line Occurrences
CL EX1+1
DICDPT CL+3, EN2+2, INQ+7
DIS ENT+9, ENT+16
EN EX
EN2 PROC+13
ENT CL+5, ENT+12, SUSP+12
EX EN+4, EN+6
EX1 CL+6
EXIT EN+2, EN+3, CL+1, CL+3, CL+5, EN2+1, EN2+2, INQ+3, INQ+7, INQ+9
, SUSP+10, SUSP+12, SUSP+13
LINK SUSP+10, SUSP+14
PROC ENT+13
REV INQ+9
WRI ENT+10

Naked Globals

Name Field # of Occurrence
^(0 CL+4, EX1*, PROC+4, PROC+12*, SUSP+11, SUSP+12*, WRI+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT!, SUSP+10*
CITN EXIT!
D0 EN+4!
DA EN+4*, EN+8*, CL+2!, CL+6*, CL+7*, EXIT!, PROC+12*, INQ+11~, INQ+12*, SUSP+12*
DD EN+4!
>> DFN PROC+6*, WRI+5*
DIC EN+3*, EN+4*, EX!, CL+6, EXIT!, PROC+10*, PROC+12, DICDPT+2!, DICDPT+3*
DIC("A" DICDPT+4*
DIC("DR" EN+4*
DIC(0 EN+3*, EN+4*, DICDPT+3*
DIE EN+5*, EX!, CL+2!, CL+6*, EXIT!, PROC+12*, SUSP+12*
>> DIK EN+8*
DINUM EN+4!
DIR DIS+1!
DIR(0 DIS+1*
DLAYGO EN+4*!
DO EN+4!
DR EN+5*, EX!, CL+2!, CL+6*, CL+7*, EXIT!, PROC+12*, SUSP+12*
DT EN+4
>> DTOUT CL+3, EN2+2, INQ+7, SUSP+10, SUSP+13
>> DUOUT SUSP+13, DIS+2
DUZ SUSP+12
FL1 EXIT!
FLAG PROC+11, SUSP+5~, SUSP+8*, SUSP+9
I CL+3*, CL+4*, EXIT!, SUSP+11*
IEN CL+5, CL+6, EXIT!, ENT+1*, ENT+4, ENT+11, ENT+13, PROC+1, PROC+4, PROC+8
, PROC+9, PROC+13, INQ+9, INQ+12, EXT, ACT+1, SUSP+12, DIS+3*
IOF EXIT, ENT+9, INQ+2
J EXIT!, SUSP+5~
>> OUT ENT+1*, ENT+4, DIS+2*
RB EXIT!, SUSP+5~
RD EXIT!, SUSP+5~, SUSP+8*
RDA EN+4*, EN+6, EN+7, EN+8, EXIT!
RI SUSP+5~, SUSP+8*
RIE EXIT!, SUSP+5~
RMDES EXIT!
RMI EXIT!, ENT+1*, ENT+6*, ENT+8, ENT+14, WRI+4, DIS+1
RMIEN EXIT!
RML EXIT!, ENT+1*
RMPR668 WRI+2~, WRI+3*, WRI+7, WRI+9
RMPRA CL+2!, CL+6*, CL+7, EX1
RMPRCLOS CL+3*, EXIT!, PROC+11
RMPRDFN EN+3*, EX!, ENT+4, ENT+8, PROC+6, INQ+7!, INQ+8*, INQ+9!, SUSP+6, SUSP+8
, SUSP+11
RMPREOY INQ+11~, INQ+12*
RMPRFLAG EXIT!, PROC+11, INQ+5*
>> RMPRJ ENT+3*, ENT+4*, ENT+8, WRI+3
RMQUIT EXIT!, ENT+1*, ENT+11
RMSEL EXIT!, ENT+1*, ENT+11, ENT+12
RMTOI CL+3*, CL+4*, EXIT!, ENT+1*, ENT+5*, SUSP+11*
RO EXIT!, PROC+4*, EXT*, ACT+1*, SUSP+5~, WRI+3*, WRI+5
RP EXIT!
RR EXIT!, SUSP+5~
RT EXIT!, SUSP+5~
RX EXIT!, SUSP+5~
RZ EXIT!, SUSP+5~, SUSP+7*
U EN+8, CL+4, EX1, ENT+8, PROC+4, PROC+12, SUSP+8, SUSP+11, SUSP+12, WRI+3
, WRI+5, DIS+3
>> VADM(1 PROC+7, WRI+6
X EN+2, EN+4*, EX!, CL+1, EN2+1, INQ+3
Y EN+3, EN+4, EX!, CL+2!, CL+3, CL+4, CL+6, EXIT!, EN2+2, PROC+3*
, PROC+4*, PROC+5, PROC+9*, PROC+12, INQ+7, INQ+8, SUSP+5~, SUSP+11*, WRI+3*, WRI+4
, DIS+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All