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

Package: Prosthetics

Routine: RMPRC21


Information

RMPRC21 ;PHX/HNB-CANCEL A 1358 PROSTHETIC REQUEST ;8/29/1994

Source Information

Source file <RMPRC21.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Prosthetics 5 CA0^RMPR29M  ^RMPRLI  $$PCED^RMPRPCEP  LINK^RMPRS  DIV4^RMPRSIT  
VA FileMan 5 NOW^%DTC  ^DIC  YN^DICN  ^DIE  ^DIK  
IFCAP 2 EN1^PRCS58  ^PRCS58CC  

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

Package Total Caller Graph
Prosthetics 2 RMPR CANCEL  RMPRE21  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for Cancel a Transaction Option
CL
A
C58 ;CLOSE OUT IFCAP DAILY RECORD
K660 ;DELETE APPLIANCE/REPAIR RECORDS
SS660 ;set new status in 660.5
K664 ;CANCEL FLAG
EXIT
H
H2
M3
M3A
M4
M6

External References

Name Field # of Occurrence
NOW^%DTC C58+4
^DIC EN+7, CL+3
YN^DICN A, M3A
^DIE K664+2
^DIK C58+2, K660+8
EN1^PRCS58 EN+2
^PRCS58CC C58+4
CA0^RMPR29M C58+1
^RMPRLI CL+5
$$PCED^RMPRPCEP K660+6
LINK^RMPRS K664+2
DIV4^RMPRSIT EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: CL+1
Function Call: WRITE
  • Prompt: !!,"Do you really want to CANCEL this Transaction"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$C(7),"DID NOT HAVE AN IFCAP DAILY RECORD"
  • Line Location: C58+3
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"FAILED TO CLOSE IFCAP DAILY RECORD FOR THE FOLLOWING REASON ",$P(Y,U,2),!,"PLEASE CONTACT YOUR APPLICATION COORDINATOR!"
  • Line Location: C58+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: K660+8
Function Call: WRITE
  • Prompt: !!,"CANCELLING THE OBLIGATION!"
  • Line Location: SS660+1
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Transaction Canceled and Deleted..."
  • Line Location: K664+2
Function Call: WRITE
  • Prompt: !,"By entering Yes, this will Delete the transaction in Prosthetics, and Cancel the Transaction in IFCAP."
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,"By entering Yes, this will Cancel the Transaction in IFCAP,and NOT UPDATE the 10-2319."
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"TRANSACTION MISSING APPLIANCE/REPAIR RECORD!"
  • Line Location: M3+0
Function Call: WRITE
  • Prompt: !,"Do you still want to CANCEL this Transaction"
  • Line Location: M3A+0
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"This Transaction has already been Closed!"
  • Line Location: M4+0
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"This transaction has already been Canceled!"
  • Line Location: M6+0
Routine Call
  • DIC
  • Line Location:
    • EN+7
    • CL+3
Routine Call
  • DIE
  • Line Location:
    • K664+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(660 - [#660] Classic Fileman Calls
^RMPR(664 - [#664] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CL+4
^RMPR(660 - [#660] K660+4
^RMPR(664 - [#664] CL, CL+1, CL+4, A+1, A+4, SS660+2, K664+1*, EXIT
^RMPR(664.2 - [#664.2] C58+2*
^TMP($J EXIT+4!

Label References

Name Line Occurrences
A H
C58 M3A
EXIT EN+1, EN+2, EN+7, CL+1, A, M3A, M4, M6
H A
H2 M3A
K660 A+2, A+4
K664 C58+3, C58+6
M3 A+4
M3A H2
M4 CL
M6 CL
SS660 K660+1

Naked Globals

Name Field # of Occurrence
^(0 CL+4, A+1*, A+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% A*, C58+4, EXIT+3!, M3A*
B2 CL*, CL+2, CL+3*, C58+3, C58+4, EXIT+3!
DA CL+2!, C58+2*, K660+8*, K664+2*, EXIT+3!
DA(1 C58+2*
DIC EN+6*, CL+2!*, EXIT+3!
DIC("A" EN+4*
DIC("S" EN+5*
DIC("W" EN+6*
DIC(0 EN+6*, CL+2*
DIE K664+2*, EXIT+2!
DIK C58+2*, K660+8*, EXIT+3!, EXIT+4!
DR K664+2*, EXIT+3!
DT K664+1
DUZ K664+1
I EXIT+4!
LINE EXIT+1!
PRC EXIT+3!
PRCS EXIT+2!
PRCS("A" EN+2*
PRCSCPAN EXIT+1!
PRCSIP EXIT+1!
PRCSX C58+4*, EXIT+2!
R1 A+4*, EXIT+3!
R90 EN+7!, EXIT+4!
RAC EXIT+4!
>> RMCHK K660+5*, K660+6*
>> RMPR("OB" EN+3*, EXIT+1!
RMPRA EN+7*, CL, CL+1, CL+4, A+1, A+3, A+4, C58+1, C58+2, SS660+2
, K664+1, K664+2, EXIT, EXIT+1!
RMPRAMIS EXIT+1!
RMPRAR A+1*, A+2, A+4*, K660+1, K660+4, K660+6, K660+8, K660+9!, EXIT+1!
RMPRC EXIT+3!
RMPRCK EXIT+3!
RMPRCNT EXIT+1!
>> RMPRDA CL+4*, C58+1
RMPRDFN CL+4*, EXIT+2!
>> RMPRF SS660+2*
RMPRI EXIT+2!
RMPRIT EXIT+2!
RMPRIT1 EXIT+2!
RMPRN EXIT+4!
RMPRNAM CL+4*, EXIT+2!
RMPROB EN+3*, EXIT+3!
>> RMPRSITE EN+5
RMPRSSN CL+4*, EXIT+3!
RMPRU EXIT+2!
>> RMPRWO CL+4*, C58+1, C58+2
RMPRX EXIT+2!
U EN+3, CL, CL+2, CL+3, CL+4, A+1, A+4, C58+2, C58+3, C58+4
, C58+5, K660+4, SS660+2
X EN+1, CL+2*, EXIT+2!
Y EN+2, EN+3, EN+7, CL+2!, CL+3, C58+5, EXIT+4!
Y(0 EN+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