Routine: PRSPDM

Information

PRSPDM ; HISC/MGD - DISPLAY PT PHYSICIAN MEMORANDUM ;06/28/05

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
PAID	4	(,QUE)^PRSAUTL ($$MIEN,A1,HDR,MEM)^PRSPUT1 PPSUM^PRSPUT2 AL^PRSPUT3
VA FileMan	4	(,DD)^%DT (,IX)^DIC $$EXTERNAL^DILFD ^DIR
Kernel	2	^%ZIS ^%ZISC

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

Package	Total	Caller Graph
PAID	6	PRSP HR MR PRSP PS MR PRSP PTP DM PRSP SUP MR PRSP TK MR PRSPDEM

Entry Points

Name	Comments	DBIA/ICR reference
PAY	; Payroll Entry
P1
TK	; TimeKeeper Entry
SUP	; Supervisor Entry
T0
T1
EMP	; Employee Entry
TOP
L1
DIS	; Display Memorandum
DISPLAY	; Display memorandum information
ESRCHK	; Check for any incomplete ESR within the memoranda.
PSE	; Pause for screen breaks
H1
TEXT(HEADER,MESSAGE)	;
EX	; Clean up variables

External References

Name	Field # of Occurrence
^%DT	T1+3, EMP+5
DD^%DT	ESRCHK+49, ESRCHK+64, ESRCHK+110
^%ZIS	L1+1
^%ZISC	L1+9
^DIC	P1+1, P1+4
IX^DIC	T1+1
$$EXTERNAL^DILFD	ESRCHK+87
^DIR	DISPLAY+10, PSE+3
^PRSAUTL	T0+1
QUE^PRSAUTL	L1+5
$$MIEN^PRSPUT1	DIS+4
A1^PRSPUT1	ESRCHK+18, ESRCHK+20, ESRCHK+22, ESRCHK+28, ESRCHK+36, ESRCHK+40, ESRCHK+53, ESRCHK+55, ESRCHK+60, ESRCHK+68 , ESRCHK+74, ESRCHK+78, ESRCHK+86, ESRCHK+89, ESRCHK+94, ESRCHK+103, ESRCHK+106, ESRCHK+114, ESRCHK+122, ESRCHK+126
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: ! Line Location: P1+1
Function Call: WRITE	Prompt: ! Line Location: P1+4
Function Call: WRITE	Prompt: ! Line Location: T1+1
Function Call: WRITE	Prompt: ! Line Location: T1+3
Function Call: WRITE	Prompt: !!,*7,"Your SSN was not found in both the New Person & Employee File!" Line Location: EMP+3
Function Call: WRITE	Prompt: ! Line Location: EMP+5
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: !?25,"DISPLAY PT PHYSICIAN MEMORANDA" Line Location: TOP+1
Function Call: WRITE	Prompt: ! Line Location: L1+0
Function Call: WRITE	Prompt: !!,"The employee did not have a memorandum during the date specified." Line Location: DIS+6
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+11
Function Call: WRITE	Prompt: ! Line Location: PSE+2
Function Call: WRITE	Prompt: @IOF Line Location: PSE+4
Function Call: READ	Formatting: !! Prompt: "Press RETURN to Continue." Variable: X Timeout: DTIME Line Location: H1+0
Routine Call	DIC Line Location: P1+1 P1+4
Routine Call	DIC Line Location: T1+1
Routine Call	DIR Line Location: DISPLAY+10 PSE+3
Routine Call	%ZIS Line Location: L1+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRSPC - [#450]	Classic Fileman Calls
^PRST(458 - [#458]	Classic Fileman Calls
^PRST(458.7 - [#458.7]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRSPC - [#450]	P1+2, EMP+4
^PRSPC("SSN"	EMP+2
^PRST(458 - [#458]	T1+5, T1+7, EMP+7, EMP+9, DIS+2, DIS+3, ESRCHK+3, ESRCHK+7, ESRCHK+11
^PRST(458.7 - [#458.7]	ESRCHK+3, ESRCHK+5, ESRCHK+33, ESRCHK+45, ESRCHK+71, ESRCHK+82, ESRCHK+99, ESRCHK+119
^TMP($J	ESRCHK+6, ESRCHK+12, ESRCHK+15, ESRCHK+23, ESRCHK+26, ESRCHK+29!
^VA(200 - [#200]	EMP+1, ESRCHK+58, ESRCHK+104

Label References

Name	Line Occurrences
DIS	L1+6
EX	P1+1, P1+4, T0+1, T1+2, T1+4, T1+6, EMP+3, EMP+6, EMP+8, EMP+10
H1	L1+8
L1	P1+7, T1+8, EMP+10
P1	P1+8
PSE	ESRCHK+41, ESRCHK+69, ESRCHK+79, ESRCHK+98, ESRCHK+107, ESRCHK+115
T0	TK+1
T1	T1+10
TEXT	ESRCHK+39, ESRCHK+77, ESRCHK+93, ESRCHK+125
TOP	PAY+2, T0, EMP+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	T1+3, EMP+5, EX+6!
%DT("A"	T1+3, EMP+5
%DT(0	EMP+5*
%ZIS	L1!*, L1+1!, L1+9!, EX+6!
%ZIS("A"	L1*
ARRAY	DISPLAY+3*, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7, EX+1!
BREAK	TEXT+1~, TEXT+2, TEXT+6, TEXT+10
D	T1+1*, EX+1!
D1	T1+5, EMP+7, EX+1!
DASH	EX+1!
DATA0	EX+1!
DATA2	ESRCHK+82*, ESRCHK+83, EX+1!
DATA3	ESRCHK+99*, ESRCHK+100, EX+1!
DATA4	ESRCHK+45*, ESRCHK+46, EX+1!
DAY	ESRCHK+10*, ESRCHK+11, EX+1!
DAY1	DIS+2*, DIS+4, EX+2!
DFN	P1+1, P1+2, T1+2, EMP+1, EMP+2, EMP+3, EMP+4, EX+2!
DIC	P1!, P1+1!, P1+3, P1+4!, T1!*, T1+2!
DIC("A"	P1, P1+3, T1*
DIC("S"	T1+1*
DIC(0	P1, P1+3, T1*
DIR	DISPLAY+10!, PSE+3!
DIR("A"	DISPLAY+10, PSE+3
DIR(0	DISPLAY+10, PSE+3
DIRUT	L1+8, DISPLAY+8, DISPLAY+11, DISPLAY+12, ESRCHK+41, ESRCHK+69, ESRCHK+79, ESRCHK+98, ESRCHK+107, ESRCHK+115 , EX+2!
DTIME	H1
DUZ	EMP+1
ESRSTAT	ESRCHK+11*, ESRCHK+12, EX+2!
HEADER	ESRCHK+38, ESRCHK+39, ESRCHK+76, ESRCHK+77, ESRCHK+92, ESRCHK+93, ESRCHK+124, ESRCHK+125, TEXT~, TEXT+3 , TEXT+4, TEXT+6, TEXT+8, EX+2!
HRS	EX+2!
I	ESRCHK+4, ESRCHK+5, TEXT+6, TEXT+7, TEXT+8, TEXT+9, EX+2!
ICOM	EX+2!
IDAYS	EX+2!
INDEX	DISPLAY+3, DISPLAY+4, ESRCHK+16, EX+2!
IO	L1+6
IO("Q"	L1+3
IOF	TOP, DISPLAY+1, DISPLAY+11, PSE+4
IOP	L1!, L1+1!, L1+9!
IOSL	ESRCHK+41, ESRCHK+69, ESRCHK+79, ESRCHK+98, ESRCHK+107, ESRCHK+115
IOST	TOP, L1+8, DISPLAY+1, DISPLAY+9, PSE+1, H1
J	ESRCHK+37, ESRCHK+38, ESRCHK+75, ESRCHK+76, ESRCHK+91, ESRCHK+92, ESRCHK+123, ESRCHK+124, EX+2!
MESSAGE	ESRCHK+33, ESRCHK+34, ESRCHK+39, ESRCHK+71, ESRCHK+72, ESRCHK+77, ESRCHK+83, ESRCHK+90, ESRCHK+93, ESRCHK+119 , ESRCHK+120, ESRCHK+125, TEXT~, TEXT+3, TEXT+4, TEXT+5, TEXT+7, TEXT+8, TEXT+9, EX+2!
MIEN	DIS+4*, DIS+5, DISPLAY+5, DISPLAY+7, ESRCHK+3, ESRCHK+5, ESRCHK+33, ESRCHK+45, ESRCHK+71, ESRCHK+82 , ESRCHK+99, ESRCHK+119, EX+3!
MT	EX+3!
PDT	DIS+2*, EX+3!
PG	L1+8, DIS+4, H1, H1+1*, EX+3!
POP	L1+2, EX+3!
PPE	P1+6, T1+7, EMP+9, ESRCHK+5, ESRCHK+6, ESRCHK+7, ESRCHK+12, ESRCHK+21, ESRCHK+23, ESRCHK+24 , EX+3!
PPEX	ESRCHK+21, ESRCHK+24, ESRCHK+25, EX+3!
PPI	P1+5, T1+5, T1+6, T1+7, EMP+7, EMP+8, EMP+9, DIS+2, DIS+3, DISPLAY+4 , ESRCHK+7, ESRCHK+8, ESRCHK+9, ESRCHK+11, EX+3!
PPIT	ESRCHK+3*, ESRCHK+9, EX+3!
PRSALST	L1+4*, EX+3!
PRSAPGM	L1+4*, EX+3!
PRSIEN	P1+1, T1+2, EMP+2*, DIS+3, DIS+4, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7, ESRCHK+11 , EX+3!
PRSTLV	PAY+1, TK+1, SUP+1, EMP+1, L1+8, ESRCHK+32, ESRCHK+44, ESRCHK+97, ESRCHK+118, EX+3!
PTPRC	ESRCHK+83*, ESRCHK+84, ESRCHK+87, EX+4!
PTPRCOM	EX+4!
PTPRMKS	EX+4!
QT	L1+8, DIS+4, H1, EX+4!
QUIT	ESRCHK+2, ESRCHK+6, ESRCHK+10, ESRCHK+12*, EX+4!
RC	EX+4!
RCEX	EX+4!
RECONBY	ESRCHK+100, ESRCHK+101, ESRCHK+104, ESRCHK+105, EX+4!
RECONDAT	ESRCHK+100, ESRCHK+108, ESRCHK+109, ESRCHK+111, ESRCHK+112, ESRCHK+113, EX+4!
SCRTTL	DISPLAY+2*, DISPLAY+4, EX+4!
SEG	EX+4!
SSN	EMP+1*, EMP+2, EX+5!
START	EX+5!
STAT	DIS+3*, EX+5!
STATEX	EX+5!
STOP	EX+5!
T1	EX+5!
T1EX	EX+5!
TDAT	ESRCHK+46, ESRCHK+47, ESRCHK+48, ESRCHK+50, ESRCHK+51, ESRCHK+54, EX+5!
TERMBY	ESRCHK+46, ESRCHK+57, ESRCHK+58, ESRCHK+59, EX+5!
TERMDT	ESRCHK+46, ESRCHK+62, ESRCHK+63, ESRCHK+65, ESRCHK+66, ESRCHK+67, EX+5!
TEXT	ESRCHK+17, ESRCHK+19, ESRCHK+22, ESRCHK+25, ESRCHK+27, ESRCHK+35, ESRCHK+52, ESRCHK+54, ESRCHK+59, ESRCHK+67 , ESRCHK+73, ESRCHK+85, ESRCHK+87, ESRCHK+88, ESRCHK+102, ESRCHK+105, ESRCHK+113, ESRCHK+121, TEXT+4, TEXT+8 , EX+5!
TLE	P1+2, T1+1, EMP+4, EX+5!
TLI	T0+1, EX+5!
TLSCREEN	EX+6!
TOT	EX+6!
TOTEX	EX+6!
U	P1+6, T1+7, EMP+9, DIS+2, ESRCHK+5, ESRCHK+11, ESRCHK+46, ESRCHK+58, ESRCHK+83, ESRCHK+100 , ESRCHK+104
X	H1*, EX+6!
Y	P1+1, P1+4, P1+5, P1+6, T1+2, T1+4, T1+5, EMP+6, EMP+7, ESRCHK+48* , ESRCHK+50, ESRCHK+63, ESRCHK+65, ESRCHK+109, ESRCHK+111, EX+6!

Customize PDF page

Package: PAID

Routine: PRSPDM

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: