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

Package: Integrated Patient Fund

Routine: PRPFQ


Information

PRPFQ ;ALTOONA/CTB-RSD/ID TKW/BOISE QUE PRINTOUTS ;5/10/02

Source Information

Source file <PRPFQ.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6,10,13**;JUNE 1, 1989
EXIT
CLOSE
MSG ;;PRINTS MESSAGE CONTAINED IN X. IF IT DOESNT FIT ON ONE LINE, X IS PRINTED ON THE NEXT LINE.
BRK
DQTIME
DRNG ;SELECT RANGE OF DATES
RNG ; ALLOW ENTRY OF BEGINNING AND ENDING RANGE
TO
RQ
RQ1
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
LOCK ;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER
D ;CONVERTS FILEMAN INTERNAL DATE TO EXTERNAL FORMAT
CNVD ; CONVERTS DATE FROM INTERNAL (YYYMMDD) STORAGE FORMAT TO MM/DD/YY
NOW
SELRNG
A

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(PRPFQ("FORCEQ"))
  • Line Location: V+3
Function Call: WRITE
  • Prompt: " <No Device Selected>",*7,!
  • Line Location: V+3
Function Call: WRITE
  • Prompt: " <Nothing Queued>",*7
  • Line Location: V+5
Function Call: WRITE
  • Prompt: " <Request Queued>",*7,!
  • Line Location: V+6
Function Call: READ
  • Variable: X
  • Timeout: 2
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: $P(X,"*")
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: *7
  • Condition for execution: X["*"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,?(IOM-($L($P(X,"*"))+4))
  • Line Location: MSG+3
Function Call: READ
  • Formatting: !
  • Prompt: "Enter DATE & TIME to print: NOW// "
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:30)
  • Line Location: DQTIME+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DRNG+1
Function Call: WRITE
  • Prompt: "??",!,*7
  • Line Location: DRNG+3
Function Call: WRITE
  • Prompt: !,*7,"Illogical range of dates. Try again.",!
  • Line Location: DRNG+4
Function Call: READ
  • Variable: FR
  • Timeout: DTIME
  • Line Location: RNG+1
Function Call: READ
  • Variable: TO
  • Timeout: DTIME
  • Line Location: TO+0
Function Call: WRITE
  • Prompt: *7,!,"INVALID RANGE"
  • Line Location: TO+3
Function Call: WRITE
  • Prompt: *7,!,"INVALID RANGE"
  • Line Location: TO+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !!," ^ TO QUIT"
  • Line Location: PAUSE+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENCON+0
Function Call: WRITE
  • Prompt: !," ** Press RETURN to Continue **"
  • Line Location: ENCON+0
Function Call: WRITE
  • Prompt: !!,$C(7),"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER."
  • Line Location: LOCK+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !!,"You cannot select a STATION that does not have a STATION NUMBER assigned to it!"
  • Line Location: A+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call