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

Package: Prosthetics

Routine: RMPR37


Information

RMPR37 ;PHX/HNC,JLT-POST AN ECMS 2237 TO 10-2319 ;8/29/1994

Source Information

Source file <RMPR37.m>

Entry Points

Name Comments DBIA/ICR reference
OBL ;get obligation number
DSP ;display obligation line items
DSP0 ;DISPLAY BUT WITHOUT CLEARING THE SCREEN.
ASK ;ask item to post
PAT ;get patient
AB
POST
H
KILL
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"OBILIGATION TRANSACTION CANCELED",!
  • Line Location: OBL+6
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"**WARNING -- THIS 2237 DOES NOT HAVE AN IFCAP PURCHASE ORDER **",!
  • Line Location: OBL+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSP+1
Function Call: WRITE
  • Prompt: !,"All lines of this 2237 have been posted.",!
  • Line Location: DSP0+2
Function Call: WRITE
  • Prompt: !?34,"TOTAL EST. COST: ",X
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !?34,"OBLIGATED AMOUNT: ",X
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"REMARKS:",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,R410("RM",D1,0)
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,"VENDOR: ",$P(R410(2),U,1)
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !,"Please Try Later!"
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: !!,"** LINE ITEM UNIQUE ID "_RMPREIID_" has already been posted! **",!!
  • Line Location: ASK+17
Function Call: WRITE
  • Prompt: !," Posting Now ..."
  • Line Location: POST+0
Function Call: WRITE
  • Prompt: !!,"*** Request failed to post. Please contact support. ***"
  • Line Location: POST+4
Function Call: WRITE
  • Prompt: !?5,"Updated 10-2319 Record"
  • Line Location: POST+19
Function Call: WRITE
  • Prompt: !,"Enter `Y` for YES if you want to post this request to the Patient's 10-2319 Record."
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,$C(7),"** Did Not POST 2237 to Veterans 2319 Record! **"
  • Line Location: KILL+0

FileMan Files Accessed Via FileMan Db Call

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