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 |  Local Variables  | All
Print Page as PDF
Routine: RMPREOSA

Package: Prosthetics

Routine: RMPREOSA


Information

RMPREOSA ;HINES-IOFO/HNC,RN,ATG/JPN - Clone, Auto Adaptive, Clothing Allowance ;July 29, 2020@10:00

Source Information

Source file <RMPREOSA.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 7 NOW^%DTC  FILE^DICN  (,FILE)^DIE  ^DIK  EN1^DIP  GETS^DIQ  ^DIR  
Prosthetics 1 VALL^RMPREO24  

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

Package Total Caller Graph
Prosthetics 1 RMPREO23  

Entry Points

Name Comments DBIA/ICR reference
EN ;Add Auto Adaptive Suspense
;
; VSR (RN) patch RMPR*3.0*200 change four slashes to three slashes for validation before filing adding back tic to station
EX
EN1 ;Add Clothing Allowance Suspense
EN2 ;Create Clone CPRS Suspense
ST2
KILL ;get rid of new clone if error

External References

Name Field # of Occurrence
NOW^%DTC EN+3, EN1+3, ST2+5
FILE^DICN EN+6, EN1+6, ST2+7
^DIE EN+9, EN1+9
FILE^DIE ST2+66
^DIK EN+10, EN1+10, KILL+1
EN1^DIP ST2+80
GETS^DIQ ST2+2
^DIR ST2+81
VALL^RMPREO24 ST2+84

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),?5,!,"Someone else is editing this record"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,$C(7),?5,"Deleted..."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: $C(7),?5,!,"Someone else is editing this record"
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !,$C(7),?5,"Deleted..."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !!!,"Only CPRS Suspense Can Be Cloned!",!!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !!!,"This was a Manual Request, not a CPRS Suspense. Please create another Manual.",!!
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !,ERROR("DIERR",1,"TEXT",1),!,"Could NOT CLONE DUE TO BAD DATA!"
  • Line Location: ST2+67
Function Call: WRITE
  • Prompt: $C(7),?5,!,"Someone else is editing this record"
  • Line Location: ST2+72
Function Call: WRITE
  • Prompt: !!,"Done... Please select a device to print the new SUSPENSE Record."
  • Line Location: ST2+75
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ST2+82
Routine Call
  • DIE
  • Line Location:
    • EN+9
    • EN1+9
Routine Call
  • DIE
  • Line Location:
    • ST2+66
Routine Call
  • DIR
  • Line Location:
    • ST2+81

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(668 - [#668] Classic Fileman Calls,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(668 - [#668] EN+8, EN+9, EN+10, EN1+8, EN1+9, EN1+10, EN2+3, EN2+4, EN2+5, ST2+54
^TMP($J ST2+83

Label References

Name Line Occurrences
EX EN+6, EN+8, EN1+6, EN1+8
KILL ST2+67

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+3, EN1+3, ST2+5
>> BY ST2+79*
D0 EN+6!, EN1+6!
DA EN+6*, EN+10*, EN1+6*, EN1+10*, EN2+3, EN2+4, EN2+5, ST2, ST2+76*, ST2+79
, ST2+83*, ST2+84, ST2+85!, KILL+1*
DD EN+6!, EN1+6!, ST2+7!
DFN ST2+85!
DIC EN+4*, EX!, EN1+4*, EN1+11!, ST2+6*, ST2+65*, ST2+78*, ST2+85!
DIC("DR" EN+5*, EN1+5*
DIC(0 EN+4*, EN1+4*, ST2+6*, ST2+65*
DIE EN+7*, EX!, EN1+7*, EN1+11!
>> DIK EN+10*, EN1+10*, KILL+1*
DINUM EN+6!, EN1+6!
DIR ST2+81~
DIR(0 ST2+81*
DLAYGO EN+4*, EN+6!, EN1+4*, EN1+6!
DO EN+6!, EN1+6!, ST2+7!
DR EN+7*, EX!, EN1+7*, EN1+11!
DUZ ST2+30
ERROR ST2+67!
ERROR("DIERR" ST2+67
>> FLDS ST2+78*
>> FR ST2+79*
IOF ST2+82
>> L ST2+77*, ST2+84
OUT ST2+3, ST2+17!
OUT(668 ST2+9
R668 ST2+67!
R668(668 ST2+12*, ST2+13*, ST2+15*, ST2+16*, ST2+20!, ST2+22!, ST2+24!, ST2+26!, ST2+28!, ST2+30*
, ST2+32!, ST2+34!, ST2+36!, ST2+38!, ST2+40!, ST2+42!, ST2+44!, ST2+46!, ST2+48!, ST2+52!
, ST2+54*, ST2+56!, ST2+58!, ST2+60*, ST2+62*
>> R6681(668 ST2+9*, ST2+10, ST2+11, ST2+12, ST2+13
>> RDA EN+6*, EN+8, EN+9, EN+10, EN1+6*, EN1+8, EN1+9, EN1+10
RMPR9 EN2+2~, EN2+3*, EN2+4
RMPRA ST2+8*, ST2+9, ST2+10, ST2+11, ST2+12, ST2+13, ST2+14, ST2+15, ST2+16, ST2+20
, ST2+22, ST2+24, ST2+26, ST2+28, ST2+30, ST2+32, ST2+34, ST2+36, ST2+38, ST2+40
, ST2+42, ST2+44, ST2+46, ST2+48, ST2+52, ST2+54, ST2+56, ST2+58, ST2+60, ST2+62
, ST2+76, ST2+85!, KILL+1
RMPRC ST2+14*, ST2+15, ST2+16, ST2+85!
>> RMPRFI ST2+1*, ST2+11*, ST2+12, ST2+13
>> RMPRFLD ST2+1*, ST2+10*, ST2+11, ST2+12, ST2+13
>> RMPRFW ST2+1*
>> RMPRH ST2*, ST2+2, ST2+9, ST2+54
>> TO ST2+79*
U EN+10, EN1+10, EN2+3, EN2+4, EN2+5, ST2+54
X EN+3*, EX!, EN1+3*, EN1+11!, ST2+5*, ST2+85!
>> XDA ST2+83
Y EN+6, EX!, EN1+6, EN1+11!, ST2+8, ST2+85!
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 |  Local Variables  | All