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

Package: IFCAP

Routine: PRCFQ


Information

PRCFQ ;WISC@ALTOONA/CTB/ID/RSD/BOISE/TKW/DL-QUE PRINTOUTS ;1/23/98 1400

Source Information

Source file <PRCFQ.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
TIME
EXIT
CLOSE
DQTIME
MSG ;;PRINTS MESSAGE CONTAINED IN X. IF IT DOESNT FIT ON ONE LINE, X IS PRINTED ON THE NEXT LINE.
BRK
PAUSE ; MAKES TERMINAL PAUSE WHEN DISPLAYING DATA ONLINE
ENCON
DIKILL ; KILL STANDARD FILE MANAGER VARIABLES
DIWKILL ; KILL FILE MANAGER WORD PROCESSING VARIABLES
ZTKILL ; KILL VARIABLES USED BY UNIVERSAL TASK MANAGER
CNVD ; CONVERTS DATE FROM INTERNAL (YYYMMDD) STORAGE FORMAT TO MM/DD/YY
NOW
TT ;D 7 S %I(1)=%M,%I(2)=%D,%I(3)=%Y Q
7 ;S %=%H>21608+%H-.1,%Y=%\365.25+141,%=%#365.25\1
D ;CONVERTS FILEMAN INTERNAL DATE TO EXTERNAL FORMAT
HILO

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: 2
  • Line Location: V+3
Function Call: WRITE
  • Prompt: !,"QUEUE TO PRINT ON:"
  • Condition for execution: $D(PRCFQ("FORCEQ"))
  • Line Location: V+3
Function Call: WRITE
  • Prompt: " <No Device Selected>",$C(7),!
  • Line Location: V+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: (IOM-$X)<20
  • Line Location: TIME+0
Function Call: WRITE
  • Prompt: " <Nothing Queued>",$C(7)
  • Line Location: TIME+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: (IOM-$X)<20
  • Line Location: TIME+1
Function Call: WRITE
  • Prompt: " <Request Queued>",$C(7),!
  • Line Location: TIME+1
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:30)
  • Line Location: DQTIME+0
Function Call: WRITE
  • Prompt: !,"Enter DATE & TIME to ",$S('$D(ZTIO):"print",ZTIO]"":"print",1:"run"),". NOW// " R X:$S($D(DTIME):DTIME,1:30) I X[U!('$T)
  • Line Location: DQTIME+0
Function Call: READ
  • Variable: X
  • Timeout: 2
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: $P(X,"*")
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,?(IOM-($L($P(X,"*"))+4))
  • Line Location: MSG+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENCON+0
Function Call: WRITE
  • Prompt: !," ** Press RETURN to Continue **"
  • Line Location: ENCON+0
Info |  Source |  Entry Points |  Interaction Calls