Routine: PRSDV459

Information

PRSDV459 ;HISC/MGD-VIEW PAID PAYRUN DATA ;09/09/04

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	4	^DIC WAIT^DICD EN^DIQ1 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
PAID	3	OT^PRSDUTIL ^PRSDV459 DESC^PRSDW450

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

Package	Total	Caller Graph
PAID	2	PRSD 04 PAYRUN DATA INQUIRY PRSDV459

Entry Points

Name	Comments	DBIA/ICR reference
PP	;select pay period
EMP
CAT
SAN
DISPLAY	;display payrun data
KILL1	;kill most variables and close the device
KILL2	;kill the remaining variables
WRITE	;write the data
CHECK
PRTC	;press return to continue
HEADER	;print header
LD	; Display Labor Distribution codes
DESC	;write description
TABLE	;set subfile dr variable
P1	;;1;GENERAL INFORMATION;P1;1
P2	;;2;EARNINGS;P2;2
P3	;;3;DEDUCTIONS;P3;4
P4	;;4;LEAVE;P4;1
P5	;;5;LABOR DISTRIBUTION;

External References

Name	Field # of Occurrence
^%ZIS	SAN+17
^%ZISC	SAN+24, DISPLAY+11
^%ZTLOAD	SAN+20
^DIC	PP+1, EMP+1
WAIT^DICD	SAN+21
EN^DIQ1	DISPLAY+5, LD+8
^DIR	SAN+3, PRTC+1
OT^PRSDUTIL	LD+15
^PRSDV459	SAN+9
DESC^PRSDW450	LD+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,NAME,?TAB,CCORG,?61,"DUTY STATION: ",STATION_DS Line Location: CAT+1
Function Call: WRITE	Prompt: !,SSN,?71,"T&L: ",TLU,!,DASHES,!,"PAY PERIOD: ",PPNAME Line Location: CAT+2
Function Call: WRITE	Prompt: !! Line Location: CAT+3
Function Call: WRITE	Prompt: !,?20,$P(CHOICE(LOOP),";",3),?23,$P(CHOICE(LOOP),";",4) Line Location: CAT+3
Function Call: WRITE	Prompt: ! Line Location: SAN+0
Function Call: WRITE	Prompt: !!,*7,DIR("?")_"." Line Location: SAN+4
Function Call: WRITE	Prompt: @IOF Line Location: SAN+25
Function Call: WRITE	Prompt: !,$P(NODEDD,U,1) Line Location: WRITE+6
Function Call: WRITE	Prompt: ?30,$S($P(NODEDD,U,5)["""$""":$J($FN(INTERNAL,",",2),14),$P(NODEDD,U,2)["NJ":$J(INTERNAL,14,2),$P(NODEDD,U,2)["D":$J(DESC,14),1:$J(INTERNAL,14)) Line Location: WRITE+7
Function Call: WRITE	Prompt: ! Line Location: PRTC+1
Function Call: WRITE	Prompt: !,NAME,?TAB,CCORG,?61,"DUTY STATION: ",STATION_DS Line Location: HEADER+3
Function Call: WRITE	Prompt: !,SSN,?71,"T&L: ",TLU,!,DASHES Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"PAY PERIOD: ",PPNAME,?TAB,CATEGORY,?73,"PAGE ",PAGE Line Location: HEADER+6
Function Call: WRITE	Prompt: !,DASHES Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"LABOR DIST CODE-",PRSLD," ",$P(NODEDD,U,1) Line Location: LD+17
Function Call: WRITE	Prompt: ?30,$S($P(NODEDD,U,5)["""$""":$J($FN(INTERNAL,",",2),14),$P(NODEDD,U,2)["NJ":$J(INTERNAL,14,2),$P(NODEDD,U,2)["D":$J(DESC,14),1:$J(INTERNAL,14)) Line Location: LD+18
Function Call: WRITE	Prompt: ?47,DESC Line Location: DESC+1
Function Call: WRITE	Prompt: ! Condition for execution: $L($P(DESC," ",LOOP1))>(80-COLUMN) Line Location: DESC+3
Function Call: WRITE	Prompt: ?COLUMN,$P(DESC," ",LOOP1) Line Location: DESC+3
Routine Call	%ZIS Line Location: SAN+17
Routine Call	DIC Line Location: PP+1 EMP+1
Routine Call	DIR Line Location: SAN+3 PRTC+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRST(459 - [#459]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(450	EMP+5
^DD(459.01	WRITE+1
^DD(459.1173	LD+10
^PRSPC - [#450]	EMP+2, EMP+4, EMP+5, EMP+6
^PRST(459 - [#459]	PP+2, EMP+2
^UTILITY("DIQ1"	EMP+1!, KILL1+1!, WRITE+1, WRITE+3

Label References

Name	Line Occurrences
CAT	SAN+20, SAN+22, SAN+23, SAN+25
CHECK	DISPLAY+10, WRITE+10
DESC	WRITE+8
DISPLAY	SAN+22
EMP	SAN+3, SAN+5
HEADER	DISPLAY+6, WRITE+5
KILL1	PP+1, SAN+3, SAN+17, SAN+20
KILL2	PP+1, SAN+17
LD	DISPLAY+9
PP	EMP+1
PRTC	SAN+23, CHECK
SAN	SAN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SAN+17!*, KILL1+1!
%ZIS("B"	SAN+17*
CATEGORY	SAN+7*, DISPLAY+7, DISPLAY+12, KILL2+1!, HEADER+5, HEADER+6
CCORG	EMP+5*, CAT, CAT+1, KILL2+1!, HEADER+2, HEADER+3
CHOICE	PRSDV459+3!, KILL2+1!
CHOICE(	PRSDV459+3*, CAT+3, SAN+7, SAN+8
CLNGTH	CAT, KILL2+1!, HEADER+2, HEADER+5*, HEADER+8!
COLUMN	DESC+2, DESC+3, DESC+4!
D0	KILL1+1!
DA	DISPLAY+4, KILL2+1!, LD+1, LD+4
DA(	DISPLAY+4, LD+5, LD+6*
DASHES	EMP!*, CAT+2, KILL2+1!, HEADER+4, HEADER+7
DESC	WRITE+1, WRITE+2!, WRITE+4!, WRITE+7, WRITE+8, WRITE+9!, LD+12, LD+16*, LD+18, LD+19 , DESC+1, DESC+3
DIC	PP+1!, EMP+1!, DISPLAY+4, KILL1+1!, LD+4
DIC(0	PP+1, EMP+1
DIQ	KILL1+1!, LD+7*
DIQ(0	DISPLAY+4, LD+7
DIQ2	KILL1+1!
DIR	SAN!, KILL1+1!, PRTC+1!
DIR("?"	SAN+2*, SAN+4
DIR("A"	SAN+1, PRTC+1
DIR(0	SAN+1, PRTC+1
DIROUT	SAN!, SAN+3, KILL1+1!, PRTC+1!
DIRUT	SAN!, KILL1+1!, PRTC+1!
DR	DISPLAY+4, KILL1+1!, LD+4
DR(	DISPLAY+4, LD+5, LD+6*
DRIEN	DISPLAY+1~, DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+13, DISPLAY+14, DISPLAY+15
DRSUB	KILL1+1!
DRSUB(	SAN+9, SAN+10, SAN+11, SAN+12, SAN+13, SAN+14, SAN+15, DISPLAY+3, DISPLAY+4
DS	EMP+6*, CAT+1, KILL2+1!, HEADER+3
DTOUT	SAN!, SAN+3, KILL1+1!, PRTC+1!
DUOUT	SAN!, SAN+3, KILL1+1!, PRTC+1!
EMP	EMP+2*, EMP+4, EMP+5, EMP+6, DISPLAY+4, KILL2+1!, WRITE+1, WRITE+3, LD+5
FIELDN	DISPLAY+6*, KILL1+1!, WRITE+1, WRITE+3
INTERNAL	WRITE+3, WRITE+4, WRITE+7, WRITE+8, WRITE+9!, LD+11, LD+14, LD+18, LD+19
IO	SAN+22
IO("Q"	SAN+20
IOF	CAT+1, SAN+16, SAN+18*, SAN+25, DISPLAY+6, HEADER+1
IOFSAV	SAN+16*, SAN+18, KILL1+1!
ION	SAN+20
IOP	SAN+17!, KILL1+1!
IOSL	CHECK
IOST	SAN+21, SAN+23, SAN+24, DISPLAY+6, DISPLAY+10, DISPLAY+11, CHECK
L	SAN+6~, SAN+9*, SAN+10, SAN+11, SAN+12, SAN+13, SAN+14, SAN+15
LAB	SAN+6~, SAN+7*
LDCNT	LD+2~, LD+9*, LD+10, LD+11, LD+12, LD+13
LDDATA	LD+2~
LDDATA(	LD+11, LD+12
LGTH	DESC+2, DESC+3, DESC+4!
LOOP	PRSDV459+3, CAT+3, SAN+19*, KILL1+1!
LOOP1	DESC+3*, DESC+4!
NAME	EMP+2*, CAT+1, KILL2+1!, HEADER+3
NODEDD	WRITE+1, WRITE+2!, WRITE+4!, WRITE+6, WRITE+7, WRITE+8, WRITE+9!, LD+10, LD+17, LD+18 , LD+19
NOL	SAN+6~, SAN+8*, SAN+9
PAGE	SAN+8, KILL2+1!, HEADER+1, HEADER+6
POP	SAN+17, KILL1+1!
PP	PP+2*, EMP+1, EMP+2, DISPLAY+4, KILL2+1!, LD+4
PPNAME	PP+2*, CAT+2, KILL2+1!, HEADER+6
PRNTORDR	KILL1+1!
PRNTORDR(	SAN+9*, DISPLAY+14, DISPLAY+15
PRNTVALS	DISPLAY+15*, DISPLAY+16, KILL1+1!
PRSLD	LD+2~, LD+3*, LD+6, LD+11, LD+12, LD+17
PRTC	SAN+22, SAN+23, DISPLAY+8, DISPLAY+13, KILL2+1!, WRITE+5, PRTC+1
SSN	EMP+3*, CAT+2, KILL2+1!, HEADER+4
STATION	EMP+4*, CAT+1, KILL2+1!, HEADER+3
SUB454	LD+14*, LD+15!
TAB	CAT, CAT+1, KILL2+1!, HEADER+2, HEADER+3, HEADER+5*, HEADER+6, HEADER+8!
TLU	EMP+4*, CAT+2, KILL2+1!, HEADER+4
U	PP+2, EMP+2, EMP+3, EMP+4, EMP+5, EMP+6, WRITE+4, WRITE+6, WRITE+7, WRITE+8 , LD+17, LD+18, LD+19
X	SAN+4, SAN+5, KILL1+1!
Y	PP+1, PP+2, EMP+1, EMP+2, EMP+5, SAN+7, SAN+8, KILL1+1!, PRTC+1, LD+2~ , LD+14, LD+16
ZERO	EMP+2*, EMP+3, EMP+4, KILL1+1!
ZTDESC	SAN+20*, KILL1+1!
ZTIO	SAN+20*, KILL1+1!
ZTREQ	SAN+20*, KILL2+1!
ZTRTN	SAN+20*, KILL1+1!
ZTSAVE	KILL1+1!
ZTSAVE(	SAN+19*
ZTSAVE("ZTREQ"	SAN+20*
ZTSK	SAN+20, KILL1+1!

Marked Items

Name	Field # of Occurrence
$T(@LAB+L^PRSDV459	SAN+9
$T(TABLE+LOOP	PRSDV459+3

Customize PDF page

Package: PAID

Routine: PRSDV459

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items