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

Package: Prosthetics

Routine: RMPRDP


Information

RMPRDP ;PHX/HNC-RECORD PICKUP AND DELIVERY CHARGES ;8/29/1994

Source Information

Source file <RMPRDP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Prosthetics 6 CPT^RMPRCPTU  ^RMPRPAT  (BAL,PRCS)^RMPRPSC  LINK^RMPRS  DIV4^RMPRSIT  GETPAT^RMPRUTIL  
VA FileMan 4 (FILE,YN)^DICN  ^DIE  (,IX1)^DIK  ^DIR  
IFCAP 1 (EN1,EN2)^PRCS58  

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 DELIVERY  RMPROP  

Entry Points

Name Comments DBIA/ICR reference
EN ;ENTRY POINT FOR PICKUP AND DELIVERY. CALLED FROM RMPROP.
A
ADD
HC
CPT
PD
PC
SC
POST
FILE
DIK60
DEL
HLP
ERROR
KILL
EXIT

External References

Name Field # of Occurrence
FILE^DICN ADD+1, FILE+6
YN^DICN A+1, POST, DEL
^DIE CPT+1
^DIK KILL
IX1^DIK FILE+5, DIK60, DIK60+1
^DIR HC, PD, PC, SC, KILL+1
EN1^PRCS58 EN+3
EN2^PRCS58 FILE+2
CPT^RMPRCPTU CPT
^RMPRPAT ADD
BAL^RMPRPSC EN+3
PRCS^RMPRPSC EXIT+1
LINK^RMPRS DIK60+7
DIV4^RMPRSIT EN+2
GETPAT^RMPRUTIL ADD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This will Post Pickup and Delivery Charges to the 1358 and 10-2319 ",!
  • Line Location: A+0
Function Call: READ
  • Variable: "Do you wish to Continue" D YN^DICN S RMPRACT=$S(%=-1
  • Timeout: "EXIT",%=1:"ADD",%=2:"EXIT",%=0:"HLP",1:"EXIT")
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,"Deleted..."
  • Line Location: ADD+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: HC+0
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Please Try Later!"
  • Line Location: CPT+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: PD+0
Function Call: READ
  • Prompt: !
  • Variable: "Are you ready to POST to IFCAP and 10-2319 now" D YN^DICN G
  • Timeout: $D(DTOUT)
  • Line Location: POST+0
Function Call: WRITE
  • Prompt: !!,"This will post an Est. $",$J($P(^RMPR(664,RMPRA,0),U,10),0,2)," on the 1358 Transaction and,",!,"$",$J($P(^(0),U,10),0,2)," on the 10-2319 Record.",!,"Type '^' to delete and exit.",!
  • Line Location: POST+1
Function Call: WRITE
  • Prompt: !,"Posting Now..."
  • Line Location: FILE+0
Function Call: WRITE
  • Prompt: !?5,"1358 Transaction has been assigned Number: ",RMPRTRN
  • Line Location: FILE+3
Function Call: WRITE
  • Prompt: !?5,"Updated 10-2319 Record"
  • Line Location: DIK60+3
Function Call: READ
  • Prompt: !
  • Variable: "Do you want to Delete this Transaction" D YN^DICN G
  • Timeout: %=1!(%<0)
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !,"Enter `YES` to delete the transaction, `NO` to continue."
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !,"This will create a 1358 Daily Transaction and post to Veteran's 10-2319 Record that AMIS will be counted from.",!
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),?5,"*** PLEASE CONTACT YOUR FISCAL SERVICE ***",!,?5,Y
  • Line Location: ERROR+0
Function Call: WRITE
  • Prompt: !,$C(7),?20,"Deleted..."
  • Line Location: KILL+0
Routine Call
  • DIE
  • Line Location:
    • CPT+1
Routine Call
  • DIR
  • Line Location:
    • HC
    • PD
    • PC
    • SC
    • KILL+1

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)
^PRC(424 - [#424] FILE+2
^RMPR(660 - [#660] FILE+7*, FILE+8*, FILE+12*
^RMPR(664 - [#664] ADD+1*, POST+1, FILE+1, FILE+5*, FILE+7, DIK60+1*
^RMPR(669.9 - [#669.9] FILE+9, FILE+10, FILE+11*
^TMP($J EN+1!, DIK60+6*, EXIT+2!

Label References

Name Line Occurrences
@( A+1
A HLP, EXIT+1
DEL POST
DIK60 FILE+9
ERROR FILE+2
EXIT EN+2, EN+3, ADD, DIK60+8
FILE POST
HC HC
KILL HC, CPT+2, PD, PC, SC, POST, DEL
PD PD
POST POST+1, DEL+1

Naked Globals

Name Field # of Occurrence
^("AM" FILE+8*
^(0 POST+1, FILE+1, FILE+7, DIK60+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% A+1*, POST*, DEL*, EXIT!
D0 FILE+2!
DA HC!, CPT+1*, PD!, FILE+5*, DIK60*, DIK60+1*, KILL*, EXIT!
DD ADD+1!, FILE+2!, FILE+6!
DIC ADD+1*, CPT+1, FILE+6*, EXIT!
DIC("DR" ADD+1*
DIC(0 ADD+1*, FILE+6*
DIE CPT+1*, EXIT!
DIK FILE+5*, DIK60*, DIK60+1*, KILL*, EXIT!
DINUM ADD+1!, FILE+6!
DIR HC!, PD!, PC!, SC!, KILL!, EXIT!
DIR("A" HC*, PD*
DIR(0 HC*, PD*, PC*, SC*, KILL+1*
DIRUT EXIT!
DLAYGO ADD+1*!, FILE+6*!
DO ADD+1!, FILE+2!, FILE+6!
DR CPT+1*, EXIT!
DT ADD+1, FILE+1, FILE+6, FILE+7, FILE+9
DTOUT HC, CPT+2, PD, PC, SC, POST, EXIT!
>> DUOUT HC, PD, PC, SC
DUZ FILE+7
IOF EXIT+1
PRC EXIT+3!
PRCRI EXIT+3!
PRCS EXIT+3!
PRCS("A" EN+3*!
PRCS("TYPE" FILE+2*, EXIT!
PRCSCPAN FILE+5, EXIT!
PRCSIP EXIT!
RBL EXIT+3!
RDA HC+1*, CPT, EXIT+3!
RMCPT FILE+8, EXIT+3!
RMHCPC HC+1*, FILE+8, EXIT+3!
>> RMPR("STA" ADD+1, FILE+7
RMPR660 FILE+6*, FILE+7, FILE+8, FILE+12, DIK60, DIK60+1, DIK60+6, EXIT!
RMPRA ADD+1*, CPT+1, POST+1, FILE+1, FILE+5, FILE+7, DIK60+1, EXIT!
RMPRACT A+1*, EXIT!
RMPRBAC1 ADD*, EXIT+3!
RMPRBACK EXIT+3!
RMPRDFN ADD, FILE+7, DIK60+6, EXIT!
RMPRDOB EXIT!
RMPREL PC*, SC, FILE+8, EXIT!
RMPRF A*, EXIT!
RMPRFLAG ADD*, EXIT!
>> RMPRG FILE+9*, FILE+10*, FILE+11, FILE+12, DIK60+6
RMPRK ADD+1*, KILL, EXIT!
RMPRKILL ADD, EXIT!
RMPRNAM FILE+1, EXIT!
RMPROB EN+3*, A+1!, FILE+1, DIK60+1, EXIT+1, EXIT+3!
RMPRPC EXIT!
RMPRPD PD+1*, FILE+7, EXIT!
RMPRSC EXIT!
RMPRSE SC*, FILE+8, EXIT!
>> RMPRSITE FILE+9, FILE+10, FILE+11
RMPRSSN FILE+1, EXIT!
RMPRSSNE EXIT+3!
RMPRTN FILE+2*, EXIT!
RMPRTRN FILE+2*, FILE+3, FILE+5, FILE+8, EXIT!
RMPRV FILE+5*, FILE+7, EXIT!
>> RMTYPE HC+1*
RVA EXIT+3!
RX EXIT+3!
U EN+3, ADD+1, POST+1, FILE+1, FILE+2, FILE+5, FILE+7, FILE+8, FILE+10, FILE+11
, FILE+12, DIK60+1
>> X EN+2, ADD+1*, HC, HC+1*, PD, FILE+1*, FILE+6*, EXIT+1
Y EN+3, ADD+1, HC!, HC+1, CPT+2, PD!, PD+1, PC!, SC, FILE+2
, FILE+6, ERROR, EXIT!
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