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

Package: Equipment Turn-In Request

Routine: PRCNCNCL


Information

PRCNCNCL ;SSI/SEB-Cancel equipment request ;[ 02/26/97 5:59 PM ]

Source Information

Source file <PRCNCNCL.m>

Entry Points

Name Comments DBIA/ICR reference
REQ ; Requestor cancel
PPM ; PPM cancel
EN
PR ; Prints the data for this transaction
ASK ; Ask if user is certain he/she wants to cancel request
REP ; If replacement, ask if user wants to cancel turn-in
QS
EXIT ; Kill variables and quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!,"Service: ",$P(^DIC(49,$P(PRCNDATA,U,3),0),U),?41,"CMR Official: "
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: $P(^VA(200,$P(PRCNDATA,U,6),0),U)
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,"Requestor: ",$P(^VA(200,$P(PRCNDATA,U,2),0),U)
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: ?41,"Date entered: "
  • Line Location: PR+4
Function Call: WRITE
  • Prompt: Y,!,"Line Items:"
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: !,?5,$P($G(^PRCN(413,D0,1,D1,0)),U),?10,$G(^PRCN(413,D0,1,D1,1,1,0))
  • Line Location: PR+7
Function Call: WRITE
  • Prompt: ?55,"$",$J(X,9,2)
  • Line Location: PR+12
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to cancel this transaction"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Please enter 'Y' to cancel this transaction."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"OK, the transaction was not cancelled."
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Transaction #",NUM," has been cancelled."
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !!,"Do you want to cancel the corresponding turn-in request"
  • Line Location: QS+0
Function Call: WRITE
  • Prompt: !!,"OK, the turn-in request was not cancelled."
  • Line Location: QS+1
Function Call: WRITE
  • Prompt: !,"Please enter 'Y' to cancel the corresponding Turn-in request."
  • Line Location: QS+2
Function Call: WRITE
  • Prompt: !!,"Turn-in request #",$P(^PRCN(413.1,DA,0),U)," cancelled."
  • Line Location: QS+8

FileMan Files Accessed Via FileMan Db Call

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