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

Package: Prosthetics

Routine: RMPR421


Information

RMPR421 ;PHX/HNB,RVD -CREATE PURCHASE CARD TRANSACTION, POST TO 2319 ;3/1/1996

Source Information

Source file <RMPR421.m>

Entry Points

Name Comments DBIA/ICR reference
EN1
2529 ;called from RMPR29P init from lab
VIEW ;VIEW 10-2319
CHK
ASK ;POST TRANSACTION QUESTION
DEL ;
L
CHK1 ;CHECK FOR EXISTENCE OF ITEMS ON PURCHASING FORMS
KILL ;DELETE PURCHASING ENTRY
EXIT ;Common Exit Point
EXT ;K RMPRFLAG,RMPRG,RD,RMPRPSC,RMPRCONT,RMPRSH,RMPRDS,RMPRTO,RMPRCT,RMPRQT,R1,B2,D1,RMPRI,%,B1,DA,DIC,DIK,PRCS,PRCSCPAN,RMPRIN,RMPRPC,RMPRAMIS,RMPRARD,RMPRCNT,RMPRIT,RMPRIT1,RMPRU,SR,TYPE,RAC,FL,RMPRCTK,PRCSIP,PQTY,FL1,RMPRNOB,HY,RMPRGO

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You are not an authorized Purchase Card User, CONTACT FISCAL!"
  • Line Location: RMPR421+9
Function Call: WRITE
  • Prompt: !!,"The IFCAP SITE has not been defined to Prosthetics yet!"
  • Line Location: RMPR421+11
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Please Try Later!"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !!,"Are you ready to POST to 10-2319 NOW"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"This will Create an Entry on the Prosthetic 10-2319 Record."
  • Line Location: ASK+3
Function Call: READ
  • Prompt: !
  • Variable: "Do you want to Delete this Transaction" D YN^DICN I $D(DTOUT)!(%=1) S
  • Timeout: $D(RMPRA)
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"ENTER YES OR NO!!",$C(7)
  • Line Location: DEL+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: L+8
Function Call: WRITE
  • Prompt: !,$C(7),?20,"Deleted..."
  • Line Location: KILL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: KILL+3

FileMan Files Accessed Via FileMan Db Call

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