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

Package: Equipment Turn-In Request

Routine: PRCNTICN


Information

PRCNTICN ;SSI/SEB-Cancel equipment turn-in request ;[ 02/25/97 5:10 PM ]

Source Information

Source file <PRCNTICN.m>

Entry Points

Name Comments DBIA/ICR reference
PR ; Prints the data for this transaction
ASK ; Ask if user is certain he/she wants to cancel request
EQUIP ; If there is an equip. request associated with this, prompt to cancel
QS
EXIT ; Kill variables and quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRCNTICN+2
Function Call: WRITE
  • Prompt: $P(^VA(200,PCMR,0),U)
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: !,"Requestor: "
  • Line Location: PR+4
Function Call: WRITE
  • Prompt: $P(^VA(200,PREQ,0),U)
  • Condition for execution: PREQ
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: ?41,"Date entered: ",Y
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: !,"Line Items:"
  • Line Location: PR+6
Function Call: WRITE
  • Prompt: !,?5,"Number: ",D1,?41,"Description: ",$P(^ENG(6914,PD1,0),U,2)
  • Line Location: PR+9
Function Call: WRITE
  • Prompt: !,"CMR Explanation:"
  • Line Location: PR+10
Function Call: WRITE
  • Prompt: !,?4,^PRCN(413.1,D0,2,D1,0)
  • Line Location: PR+11
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to cancel this turn-in"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"OK, the turn-in was not cancelled."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"Please enter 'Y' to cancel the Turn-in request"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Transaction #",DA," has been cancelled."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,"Do you want to cancel the corresponding equipment request"
  • Line Location: QS+0
Function Call: WRITE
  • Prompt: !!,"OK, the equipment request was not cancelled."
  • Line Location: QS+1
Function Call: WRITE
  • Prompt: !,"Please enter 'Y' to cancel the equipment request."
  • Line Location: QS+2
Function Call: WRITE
  • Prompt: !!,"Equipment request #",$P(^PRCN(413,DA,0),U)," cancelled."
  • Line Location: QS+4

FileMan Files Accessed Via FileMan Db Call

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