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
Print Page as PDF
Routine: RTQ1

Package: Record Tracking

Routine: RTQ1


Information

RTQ1 ;MJK/TROY ISC;Record Request Option; ; 1/30/87 10:11 AM ;

Source Information

Source file <RTQ1.m>

Entry Points

Name Comments DBIA/ICR reference
MISS
MISS1
MISSQ
NOASK ;
CANCEL
TEST ;This entry point is used by the input transform for the REQUESTOR and
CHK1 ;check for if the borrower already has a request pending for the
CHK2 ;check to see if the REQUESTOR is the CURRENT BORROWER
ASK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"* no processing allowed on the record until flag is removed"
  • Line Location: NOASK+1
Function Call: WRITE
  • Prompt: !?5,"* please notify the file room if you have found this record"
  • Line Location: NOASK+2
Function Call: WRITE
  • Prompt: !,"The request (#",RTQ,") for ",RTD("N"),"'s ",RTD("T"),!?10,"was cancelled by ",$S($D(^VA(200,+$P(X,"^",8),0)):$P(^(0),"^"),1:"UNKNOWN")," on "
  • Line Location: CANCEL+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: CANCEL+2
Function Call: WRITE
  • Prompt: !,*7,"Borrower already has a request pending for this record on this date:",!?5,"User Requesting Record : ",$S($D(^VA(200,+$P(Y,"^",3),0)):$P(^(0),"^"),1:"UNKNOWN"),!?5,"Date Request was Filed : "
  • Line Location: CHK1+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: CHK1+5
Function Call: WRITE
  • Prompt: !?5,"Record Request Number : ",RTQ,!?5,"Date/Time Record Needed: ",Y
  • Line Location: CHK1+6
Function Call: WRITE
  • Prompt: !,"REQUESTOR is the CURRENT BORROWER of the record."
  • Line Location: CHK2+8
Function Call: WRITE
  • Prompt: !?5,"DATE/TIME Record was CHARGED to Requestor: ",Y,!?5,"USER RESPONSIBLE for the Charge : ",$S($D(^VA(200,U1,0)):$P(^(0),"^"),1:"UNKNOWN")
  • Line Location: CHK2+9
Function Call: WRITE
  • Prompt: !!,"Request is not allowed for date/time specified. TOO SOON!"
  • Line Location: CHK2+10
Info |  Source |  Entry Points |  Interaction Calls