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

Package: Prosthetics

Routine: RMPR4E21


Information

RMPR4E21 ;PHX/HNC - CLOSE OUT PURCHASE CARD TRANSACTION; MAR 1, 1996

Source Information

Source file <RMPR4E21.m>

Entry Points

Name Comments DBIA/ICR reference
START
CL
L ;**** ask for final posting *****************************************
L1
IC() ;DETERMINE NUMBER OF ITEMS FOR PURCHASING AND CLOSE-OUT
IC1 ;DISPLAY TEXT FOR DELETE (@) ATTEMPTS FOR MULTIPLES OF ONLY 1 ITEM
PROC
FILE
ENT
CHK ;ADD DUPLICATE LINE ITEM
LKP
DS ;**** update shipping cost, % discount and bank authorization ********
CHK1 ;delete imcomplete items
POST1 ;SET AMOUNT FOR IFCAP AMENDMENT.
EX ;***reindex record in 664 here
EX1 ;
EXIT ;KILL VARIABLES AND EXIT ROUTINE
KTMP
BRK
UNK
M4
M6
M442

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You are not an authorized Purchase Card User, CONTACT FISCAL!"
  • Line Location: RMPR4E21+9
Function Call: WRITE
  • Prompt: !!,"You may also make a selection by Purchase Card Transaction"
  • Line Location: CL+3
Function Call: WRITE
  • Prompt: !,"(Example, PO number), or Bank Authorization Number (6 digit number).",!
  • Line Location: CL+4
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: CL+7
Function Call: WRITE
  • Prompt: !!,$C(7),"ERROR** This transaction was not posted to 2319, please contact your IRM..",!!
  • Line Location: CL+10
Function Call: WRITE
  • Prompt: !,"Transaction NOT Closed-Out!"
  • Line Location: L+4
Function Call: WRITE
  • Prompt: !,"** No Item selected.."
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: !!,"You may not delete the single remaining item in the BILLING ITEM"
  • Line Location: IC1+1
Function Call: WRITE
  • Prompt: !,"sub-file. If you want to change the existing item to a different"
  • Line Location: IC1+2
Function Call: WRITE
  • Prompt: !,"item, add the new item and then delete the desired item.",!!
  • Line Location: IC1+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: LKP+0
Function Call: WRITE
  • Prompt: !,"***** NOT CLOSED-OUT !!!!"
  • Line Location: POST1+10
Function Call: WRITE
  • Prompt: !!,"**** NOT CLOSED-OUT!! ****"
  • Line Location: POST1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: POST1+28
Function Call: WRITE
  • Prompt: !!,"**** TRANSACTION NOT CLOSED-OUT!! ****"
  • Line Location: EX+6
Function Call: WRITE
  • Prompt: !!,"Enter Next Transaction to Close-out, or <RETURN> to continue."
  • Line Location: EX1+8
Function Call: WRITE
  • Prompt: !,$C(7),"INCOMPLETE RECORD..file 664..entry..",RMPRA,"...PLEASE CONTACT YOUR IRM or CANCEL THIS ENTRY!!!"
  • Line Location: BRK+0
Function Call: WRITE
  • Prompt: !,$C(7),"UNKNOWN 2319 RECORD TO UPDATE, 2319 NOT UPDATED!"
  • Line Location: UNK+0
Function Call: WRITE
  • Prompt: !,$C(7),"This Transaction has already been CLOSED!"
  • Line Location: M4+0
Function Call: WRITE
  • Prompt: !,$C(7),"This Transaction has been CANCELED!"
  • Line Location: M6+0
Function Call: WRITE
  • Prompt: !,$C(7),"This order cannot be Reconciled. The Purchase Order no longer exists."
  • Line Location: M442+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