Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^RMPR(660 - [#660] Classic Fileman Calls
    ^RMPR(664 - [#664] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call