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.
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