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

Package Total Caller Graph
Prosthetics 2 RMPR DELIVERY  RMPROP  
Prosthetics Vision 4 Sight II 1 RMPV0RMPROP  

Entry Points

Name Comments DBIA/ICR reference
EN ;ENTRY POINT FOR PICKUP AND DELIVERY. CALLED FROM RMPROP.
  • ICR #7565
    • Status: Active
    • Usage: Controlled Subscription
    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