Routine: PRSPDEM

Information

PRSPDEM ; HISC/MGD - DISPLAY PT PHYSICIAN EXPIRING MEMORANDUMS ;06/28/05

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
PAID	5	QUE^PRSAUTL TEXT^PRSPDM (A1,HDR,MEM)^PRSPUT1 PPSUM^PRSPUT2 AL^PRSPUT3
Kernel	2	^%ZIS ^%ZISC
VA FileMan	2	(,DD)^%DT ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
PAID	1	PRSP HR DEM

Entry Points

Name	Comments	DBIA/ICR reference
PAY	; Payroll Entry
TOP
EDAT	;
PRCNT	; Prompt for optional off by percentage
L1
DIS	; Display Memorandum
DISPLAY	; Display memorandum information
ESRCHK	; Check for any incomplete ESR within the memoranda.
PSE	; Pause for screen breaks
H1
EX	; Clean up variables

External References

Name	Field # of Occurrence
^%DT	EDAT+2
DD^%DT	ESRCHK+40, ESRCHK+55
^%ZIS	L1
^%ZISC	L1+7
^DIR	PRCNT+8, PRCNT+13, DISPLAY+9, PSE+3
QUE^PRSAUTL	L1+3
TEXT^PRSPDM	ESRCHK+31, ESRCHK+68
A1^PRSPUT1	ESRCHK+13, ESRCHK+15, ESRCHK+19, ESRCHK+21, ESRCHK+28, ESRCHK+32, ESRCHK+44, ESRCHK+46, ESRCHK+51, ESRCHK+59 , ESRCHK+65, ESRCHK+69
HDR^PRSPUT1	DISPLAY+4
MEM^PRSPUT1	DISPLAY+5
PPSUM^PRSPUT2	DISPLAY+7
AL^PRSPUT3	DISPLAY+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: TOP+0
Function Call: WRITE	Prompt: !?26,"VA TIME & ATTENDANCE SYSTEM" Line Location: TOP+0
Function Call: WRITE	Prompt: !?19,TEXT Line Location: TOP+3
Function Call: WRITE	Prompt: !!,"This report identifies PT Physician memorandums that will expire" Line Location: TOP+5
Function Call: WRITE	Prompt: !,"within the next 30 days. You may specify a date range other " Line Location: TOP+6
Function Call: WRITE	Prompt: "than 30." Line Location: TOP+7
Function Call: WRITE	Prompt: ! Line Location: TOP+8
Function Call: WRITE	Prompt: !!,"You have the option to enter an Off By Percentage that will only" Line Location: PRCNT+1
Function Call: WRITE	Prompt: !,"list memorandums that are expiring within the specified date and" Line Location: PRCNT+2
Function Call: WRITE	Prompt: !,"that are only off by more than the percentage you specify." Line Location: PRCNT+3
Function Call: WRITE	Prompt: !! Line Location: PRCNT+4
Function Call: WRITE	Prompt: ! Line Location: PRCNT+10
Function Call: WRITE	Prompt: ! Line Location: L1+0
Function Call: WRITE	Prompt: !!,"There were "_CNT_" PT Physician Memorandums expiring in the" Line Location: DIS+26
Function Call: WRITE	Prompt: " date range specified" Line Location: DIS+27
Function Call: WRITE	Prompt: !,"who were more than "_PRCNT_"% off target" Line Location: DIS+29
Function Call: WRITE	Prompt: "." Line Location: DIS+30
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+1
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+10
Function Call: WRITE	Prompt: ! Line Location: PSE+2
Function Call: WRITE	Prompt: @IOF Line Location: PSE+5
Function Call: READ	Formatting: !! Prompt: "Press RETURN to Continue." Variable: X Timeout: DTIME Line Location: H1+0
Routine Call	DIR Line Location: PRCNT+8 PRCNT+13 DISPLAY+9 PSE+3
Routine Call	%ZIS Line Location: L1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRST(458 - [#458]	ESRCHK+5, ESRCHK+9
^PRST(458.7 - [#458.7]	DIS+3, DIS+4, DIS+5, ESRCHK+3, ESRCHK+25, ESRCHK+36, ESRCHK+62
^TMP($J	ESRCHK+4, ESRCHK+10, ESRCHK+17, ESRCHK+22!
^VA(200 - [#200]	ESRCHK+49

Label References

Name	Line Occurrences
DIS	L1+4
DISPLAY	DIS+21
H1	L1+6
PSE	DIS+23, ESRCHK+33, ESRCHK+60, ESRCHK+70

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EDAT+1*, EX+7!
%DT("A"	EDAT+1*
%DT("B"	EDAT+1*
%DT(0	EDAT+1*
%ZIS	L1!*, L1+7!, EX+7!
%ZIS("A"	L1*
ARRAY	DISPLAY+3*, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7, EX+1!
CNT	DIS+2, DIS+20, DIS+26, EX+1!
D	EX+1!
D1	EX+1!
DASH	EX+1!
DATA0	DIS+4*, DIS+9, DIS+10, EX+1!
DATA2	EX+1!
DATA3	DIS+5*, DIS+6, EX+1!
DATA31	EX+1!
DATA4	DIS+4, DIS+10, ESRCHK+36, ESRCHK+37, EX+1!
DATA41	EX+1!
DATA4580	EX+1!
DAY	ESRCHK+8*, ESRCHK+9, EX+2!
DAY1	EX+2!
DFN	EX+2!
DIR	PRCNT+8!
DIR("A"	PRCNT+5, PRCNT+12, DISPLAY+9, PSE+3
DIR(0	PRCNT+6, PRCNT+11, DISPLAY+9, PSE+3
DIRUT	DIS+22, DIS+25, DISPLAY+10, DISPLAY+11, ESRCHK+33, ESRCHK+60, ESRCHK+70, PSE+4, EX+2!
DT	EDAT+1
DTIME	H1
EDAT	EDAT+3*, DIS+11, DIS+14, EX+2!
ENDAT	DIS+10*, DIS+14, EX+2!
ESRSTAT	ESRCHK+9*, ESRCHK+10, EX+2!
HEADER	ESRCHK+30, ESRCHK+31, ESRCHK+67, ESRCHK+68, EX+2!
HRS	EX+2!
I	ESRCHK+2*, ESRCHK+3, EX+2!
ICOM	EX+2!
IDAYS	EX+3!
IEN	EX+3!
INDEX	DISPLAY+3, DISPLAY+4, ESRCHK+11, EX+3!
IO	L1+4
IO("Q"	L1+1
IOF	TOP, DISPLAY+1, DISPLAY+10, PSE+5
IOP	L1!, L1+7!
IOSL	ESRCHK+33, ESRCHK+60, ESRCHK+70
IOST	TOP, L1+6, DISPLAY+8, PSE+1, H1
J	ESRCHK+29, ESRCHK+30, ESRCHK+66, ESRCHK+67, EX+3!
MESSAGE	ESRCHK+25, ESRCHK+26, ESRCHK+31, ESRCHK+62, ESRCHK+63, ESRCHK+68, EX+3!
MIEN	DIS+2, DIS+3, DIS+4, DIS+5, DISPLAY+5, DISPLAY+7, ESRCHK+3, ESRCHK+25, ESRCHK+36, ESRCHK+62 , EX+3!
MT	EX+3!
PDT	EX+3!
PG	L1+6, DIS+2, H1, H1+1*, EX+3!
POP	L1, EX+3!
POT	DIS+9*, DIS+17, EX+3!
PPE	ESRCHK+3, ESRCHK+4, ESRCHK+5, ESRCHK+10, ESRCHK+16, ESRCHK+17*, ESRCHK+18, EX+5!
PPERIOD	PAY+1~
PPEX	ESRCHK+16, ESRCHK+18, ESRCHK+20, EX+3!
PPI	ESRCHK+5*, ESRCHK+6, ESRCHK+9, EX+5!
PRCNT	PRCNT+7, PRCNT+14, DIS+17, DIS+28, DIS+29, EX+3!
PRSALST	L1+2*, EX+5!
PRSAPGM	L1+2*, EX+5!
PRSIEN	DIS+9*, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7, ESRCHK+9, EX+3!
PRSTLV	PAY+2*, L1+6, EX+5!
PTPRC	EX+4!
PTPRCOM	EX+4!
PTPRMKS	EX+5!
QT	L1+6, DIS+2, DIS+3, DIS+22, PSE+4, H1, EX+5!
QUIT	ESRCHK+7, ESRCHK+8, ESRCHK+10, EX+5!
RC	EX+5!
RCEX	EX+5!
RECONBY	EX+4!
RECONDAT	EX+4!
SCRTTL	TOP+2, DISPLAY+2, DISPLAY+4, EX+5!
SDAT	EX+4!
SEG	EX+6!
SSN	EX+6!
START	EX+6!
STAT	EX+6!
STATEX	EX+6!
STOP	EX+6!
T1	EX+6!
T1EX	EX+6!
TDAT	DIS+10, DIS+11, DIS+14, ESRCHK+37, ESRCHK+38, ESRCHK+39, ESRCHK+41*, ESRCHK+42, ESRCHK+45, EX+4!
TERMBY	ESRCHK+37, ESRCHK+48, ESRCHK+49, ESRCHK+50, EX+4!
TERMDT	ESRCHK+37, ESRCHK+53, ESRCHK+54, ESRCHK+56, ESRCHK+57, ESRCHK+58, EX+4!
TEXT	TOP+1, TOP+2, TOP+3, ESRCHK+12, ESRCHK+14, ESRCHK+19, ESRCHK+20, ESRCHK+27, ESRCHK+43, ESRCHK+45 , ESRCHK+50, ESRCHK+58, ESRCHK+64*, EX+4!
TL	EX+4!
TLI	EX+6!
TLSCREEN	EX+6!
TOT	EX+6!
TOTEX	EX+6!
U	DIS+6, DIS+9, DIS+10, ESRCHK+3, ESRCHK+9, ESRCHK+37, ESRCHK+49
X	PRCNT+9, PRCNT+14, H1*, EX+7!
Y	EDAT+3, ESRCHK+39, ESRCHK+41, ESRCHK+54, ESRCHK+56, EX+7!

Customize PDF page

Package: PAID