Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 ^%DT  (H,YX)^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZIS  ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Integrated Patient Fund 17 PRPFARC  PRPFDAY  PRPFDEF  PRPFDMT  PRPFDSI  PRPFDST  PRPFED  PRPFMIN  
PRPFNQ  PRPFOBR  PRPFPNT  PRPFPURG  PRPFRES  PRPFRPT  PRPFS  PRPFSITE  
PRPFTAT  

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

External References

Name Field # of Occurrence
^%DT DQTIME+1, DRNG+1, DRNG+2, RNG+2, TO+1
H^%DTC DQTIME+2
YX^%DTC NOW+2
^%ZIS V+3, V+4
^%ZTLOAD V+6
^DIC A+2
$$GET1^DIQ A+3, A+4
^DIR SELRNG+3

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
Routine Call
  • DIC
  • Line Location:
    • A+2
Routine Call
  • DIR
  • Line Location:
    • SELRNG+3
Routine Call
  • %ZIS
  • Line Location:
    • V+3
    • V+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" CLOSE

Label References

Name Line Occurrences
@( V+4
A A+3
BRK MSG+4
CLOSE V+4, V+5
DQTIME V+5, DQTIME+1
DRNG DRNG+3, DRNG+4
EXIT V+3, V+4, V+5
RNG RNG+2, TO, TO+3, TO+4
RQ RNG+1, TO
RQ1 TO
TO TO+1
ZTKILL EXIT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% V+5, DQTIME*, DQTIME+1*, DQTIME+2*, DRNG+1*, DRNG+2*, DRNG+5*, RNG+1*, TO+2*, RQ*
, RQ1*, DIKILL+1!
%DT DQTIME+1*, DQTIME+3!, DRNG+1!*, DRNG+2!, DRNG+3!, DRNG+5!, RNG+2*, RQ!, RQ1!, DIKILL+1!
%DT("A" DRNG+1*, DRNG+2*
%H DQTIME+2, DQTIME+3!, DRNG+1!, DRNG+2!, DRNG+5!, NOW*
%I DRNG+1!, DRNG+2!, DRNG+5!
%X DIKILL+1!, NOW+2*
%Y DQTIME+3!, DIKILL+1!
%ZIS V+3*, EXIT!, ZTKILL+1!
%ZIS("B" V+3*
BY DIKILL+1!
D DIKILL+1!
D0 DIKILL+1!
D1 DIKILL+1!
D2 DIKILL+1!
DA DIKILL+1!, LOCK+1
DCC DIKILL+1!
DHD DIKILL+1!
DIC DIKILL+1!, LOCK+1, A+2*!
DIC(0 A+2*
DIE DIKILL+1!
DIJ DIKILL+1!
DIOEND DIKILL+1!
DIPT DIKILL+1!
DIR SELRNG+3!
DIR("?" SELRNG+2*
DIR("A" SELRNG+1*
DIR("B" SELRNG+1*
DIR(0 SELRNG+1*
>> DIROUT SELRNG+3, A+2
DIW DIWKILL+1!
DIWF DIWKILL+1!
DIWI DIWKILL+1!
DIWL DIWKILL+1!
DIWR DIWKILL+1!
DIWT DIWKILL+1!
DIWTC DIWKILL+1!
DIWX DIWKILL+1!
DLAYGO DIKILL+1!
DP DIKILL+1!
DQ DIKILL+1!
DR DIKILL+1!
DTIME DQTIME, RNG+1*, TO, PAUSE+2, ENCON
>> DTOUT SELRNG+3, A+2
>> DUOUT SELRNG+3, A+2
DWLW DIWKILL+1!
F DIKILL+1!
FLDS DIKILL+1!
FR DRNG+1!, DRNG+2*!, DRNG+3!, DRNG+4, RNG+1*, RNG+2*, TO+2, TO+3, TO+4, RQ!
, DIKILL+1!
I EXIT!, BRK~, BRK+1*, BRK+2, DIKILL+1!
IO V+4
IO(0 V+4
IOM V+4, MSG+2, MSG+3, MSG+4, BRK+1
ION V+3, V+4
IOP V+3!*, V+4*, EXIT!
IOSL V+4
IOST V+4, PAUSE+1, ENCON
IOX DIKILL+1!
IOY DIKILL+1!
J PAUSE+2*, DIKILL+1!
K EXIT!, DIKILL+1!
L DIKILL+1!
M RNG+1, TO, RQ1!
N EXIT!
O DIKILL+1!
P DIKILL+1!
POP V+3, DIKILL+1!, ZTKILL+1!
PRIOP V+4*, EXIT!
PRPFD RNG+1, RNG+2, TO, TO+1, RQ1!
PRPFL EXIT!, LOCK+1*
PRPFQ EXIT!
PRPFQ("FORCEQ" V+3, V+4
>> PRPFRNG SELRNG*, A*, A+1*, A+3, A+4*
TO DRNG+1!, DRNG+4*, RNG+1*, TO*, TO+1*, TO+2, TO+3, TO+4, RQ!
U DQTIME*, A+3, A+4
W DIKILL+1!
X V+3*, MSG+2*!, MSG+3, MSG+4*, BRK+1, BRK+2*, DQTIME*!, DQTIME+1*, DQTIME+2*, DQTIME+3!
, DRNG+1!, DRNG+2, RNG+2*, TO+1*, RQ!, RQ1!, PAUSE+2*, ENCON*!, DIKILL+1!, CNVD+1*
X1 MSG+2~, MSG+4!, BRK+1*, BRK+2*, DIWKILL+1!
X2 MSG+2~, BRK+2*!
XION V+3*!, V+4!
Y DQTIME+1, DQTIME+2*, DQTIME+3!, DRNG+1!, DRNG+2!, DRNG+3, DRNG+4, RNG+2, TO+1, RQ!
, RQ1!, DIKILL+1!, D+1*, NOW+2, A+1, A+2, A+3*, A+4
Z DIKILL+1!
ZTDESC ZTKILL+1!
ZTDHD ZTKILL+1!
ZTDTH DQTIME!, DQTIME+2*, ZTKILL+1!
ZTIO ZTKILL+1!
>> ZTQUEUED MSG+1
ZTREQ ZTKILL+1!
ZTRTN V+4, ZTKILL+1!
ZTSAVE ZTKILL+1!
ZTSAVE("DUZ" V+6*
ZTSAVE("PRIOP" V+6*
ZTSK V+3!, DIKILL+1!, ZTKILL+1!
ZTSKT ZTKILL+1!
ZTUCI ZTKILL+1!
ZX MSG+2~, MSG+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All