Routine: PRSNRLOS

Package	Total	Call Graph
PAID	5	$$ASK^PRSLIB00 ($$ISNURSE,$$POCRANGE)^PRSNUT01 $$PRIMLOC^PRSNUT03 PIKGROUP^PRSNUT04 $$AMT^PRSPSAPU
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	1	^DIR

Package	Total	Caller Graph
PAID	1	PRSNR NURLOC OT

Name	Comments	DBIA/ICR reference
COORD	;Entry point for VANOD Coordinator ; Coordinator has no access limits so let them pick any group
MAIN	;
REPORT	;for group of location
EXIT	;
INFO	;Find nurse information to display in report
DATA	;Extract display data from POCD array
TOTTIM1	; ; save hours into work array
TOTTIM2	; ; save hours into work array
HDRSUM1	;Display header for report of Individual Nurse Activity
PRTSUM1	; Loop through Totals array and print each one
PPP1	;
HDRSUM2	;Display header for report of Individual Nurse Activity
PRTSUM2	; Loop through Totals array and print each one
PPP2	;
PRTSUM3	; Loop through Totals array and print each one
PPP3	;
TYPE	;Choose summary or detailed group activity report
DATE	; User is prompted for a date range
QUE	;call to generate and display report for individual activity

Name	Field # of Occurrence
^%ZIS	QUE+3
^%ZISC	EXIT+2
^%ZTLOAD	QUE+17
^DIR	TYPE+6
$$ASK^PRSLIB00	PRTSUM1+10, PPP1+8, PRTSUM2+16, PPP2+6, PRTSUM3+10, PPP3+3
$$ISNURSE^PRSNUT01	INFO+7
$$POCRANGE^PRSNUT01	DATE+2
$$PRIMLOC^PRSNUT03	INFO+11
PIKGROUP^PRSNUT04	COORD+3
$$AMT^PRSPSAPU	DATA+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?TAB,GHD,! Line Location: REPORT+41
Function Call: WRITE	Prompt: ?TAB Line Location: REPORT+42
Function Call: WRITE	Prompt: "-" Line Location: REPORT+42
Function Call: WRITE	Prompt: !,?2,"GRAND TOTAL:",?43,$J($P(HOURS,U,1),7,2),?53,$J($P(HOURS,U,2),7,2),?63,$J($P(HOURS,U,3),7,2),?73,$J(TOTHRS,7,2) Line Location: REPORT+50
Function Call: WRITE	Prompt: !,?2,"GRAND TOTAL:",?66,$J(HOURS,7,2) Line Location: REPORT+54
Function Call: WRITE	Prompt: !!,"End of Report" Line Location: EXIT+1
Function Call: WRITE	Prompt: @IOF Line Location: HDRSUM1+2
Function Call: WRITE	Prompt: ?20,"All Overtime at a Nurse Location Summary Report" Line Location: HDRSUM1+4
Function Call: WRITE	Prompt: !,?15,EXTBEG_" - "_EXTEND,?45,"Run Date: ",TODAY,?70,"Page: ",$J(PG,3) Line Location: HDRSUM1+5
Function Call: WRITE	Prompt: ! Line Location: HDRSUM1+6
Function Call: WRITE	Prompt: !,?10,"Reason for",?45,"# Of",?55,"# Of",?65,"# Of",?75,"Total" Line Location: HDRSUM1+7
Function Call: WRITE	Prompt: !,?10,"Overtime",?45,"Hours",?55,"Hours",?65,"Hours",?75,"Hours" Line Location: HDRSUM1+8
Function Call: WRITE	Prompt: !,?46,"RN",?56,"LPN",?66,"UAP" Line Location: HDRSUM1+9
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: HDRSUM1+10
Function Call: WRITE	Prompt: ! Line Location: PRTSUM1+8
Function Call: WRITE	Prompt: !,?4," TOTAL: ",PICK,?43,$J($P(HOURS,U,1),7,2),?53,$J($P(HOURS,U,2),7,2),?63,$J($P(HOURS,U,3),7,2),?73,$J(TOTHRS,7,2),! Line Location: PRTSUM1+14
Function Call: WRITE	Prompt: ! Line Location: PPP1+3
Function Call: WRITE	Prompt: ?10,PRSNTT Line Location: PPP1+4
Function Call: WRITE	Prompt: ?10,"TOTAL: ",PRSNTT Line Location: PPP1+5
Function Call: WRITE	Prompt: ?43,$J($P(HOURS,U,1),7,2),?53,$J($P(HOURS,U,2),7,2),?63,$J($P(HOURS,U,3),7,2),?73,$J(TOTHRS,7,2) Line Location: PPP1+6
Function Call: WRITE	Prompt: @IOF Line Location: HDRSUM2+2
Function Call: WRITE	Prompt: ?20,"All Overtime at a Nurse Location Detail Report" Line Location: HDRSUM2+4
Function Call: WRITE	Prompt: !,?15,EXTBEG_" - "_EXTEND,?45,"Run Date: ",TODAY,?70,"Page: ",$J(PG,3) Line Location: HDRSUM2+5
Function Call: WRITE	Prompt: ! Line Location: HDRSUM2+6
Function Call: WRITE	Prompt: !,"Nurse Name",?21,"Type Time-",?32,"Type",?48,"Primary Location",?68,"# of",?75,"T&L" Line Location: HDRSUM2+7
Function Call: WRITE	Prompt: !,"Skill Mix",?21,"OT-Reason",?32,"Work",?68,"Hours",?75,"Unit" Line Location: HDRSUM2+8
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: HDRSUM2+9
Function Call: WRITE	Prompt: ! Line Location: PRTSUM2+14
Function Call: WRITE	Prompt: !,$E(PRSNAME,1,19) Line Location: PPP2+1
Function Call: WRITE	Prompt: ?21,$P(PRSNTT,"-",1,3),?32,$E($P(PRSNTT,"-",4),1,14),?48,$E($P(PRIMLOC,U,3),1,18),?67,$J(HOURS,6,2),?75,PRSNTL,! Line Location: PPP2+2
Function Call: WRITE	Prompt: " ",$E(SKILMIX,1,17) Line Location: PPP2+3
Function Call: WRITE	Prompt: ! Line Location: PRTSUM3+8
Function Call: WRITE	Prompt: !,?4," TOTAL: ",PICK,?67,$J(HOURS,6,2),! Line Location: PRTSUM3+13
Function Call: WRITE	Prompt: !,?6," TOTAL: ",PRSNTT,?67,$J(HOURS,6,2) Line Location: PPP3+1
Function Call: WRITE	Prompt: !,"Request "_ZTSK_" queued." Line Location: QUE+18
Routine Call	%ZIS Line Location: QUE+3
Routine Call	DIR Line Location: TYPE+6

Name	Line Occurrences (* Changed, ! Killed)
^PRSN(451 - [#451]	REPORT+17, REPORT+20, REPORT+23, REPORT+25, REPORT+27, REPORT+28
^PRSN(451.5 - [#451.5]	DATA+30, DATA+33
^PRSN(451.6 - [#451.6]	DATA+40, DATA+43
^PRSPC - [#450]	INFO+3, INFO+10
^PRST(457.3 - [#457.3]	DATA+19, DATA+23
^PRST(458 - [#458]	REPORT+10, REPORT+11, REPORT+21
^TMP($J	REPORT+7!, REPORT+38, REPORT+48, REPORT+53, EXIT+3!, TOTTIM1+2, TOTTIM1+3, TOTTIM1+4, TOTTIM1+5, TOTTIM1+6* , TOTTIM2+2, TOTTIM2+3, TOTTIM2+4, TOTTIM2+5, TOTTIM2+6, TOTTIM2+7, PRTSUM1+5, PRTSUM1+6, PRTSUM1+12, PRTSUM2+4 , PRTSUM2+6, PRTSUM2+9, PRTSUM2+11, PRTSUM3+5, PRTSUM3+6, PRTSUM3+12

Name	Line Occurrences
DATA	REPORT+29
DATE	MAIN+7
EXIT	REPORT+46
HDRSUM1	REPORT+35, PRTSUM1+10, PPP1+8
HDRSUM2	REPORT+36, PRTSUM2+16, PPP2+6, PRTSUM3+10, PPP3+3
INFO	REPORT+18, PRTSUM2+7
MAIN	COORD+7
PPP1	PRTSUM1+7
PPP2	PRTSUM2+12
PPP3	PRTSUM3+7
PRTSUM1	REPORT+43
PRTSUM2	REPORT+44
PRTSUM3	PRTSUM2+18
QUE	MAIN+9
REPORT	QUE+20
TOTTIM1	REPORT+32
TOTTIM2	REPORT+33
TYPE	MAIN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	QUE+1~, QUE+2*
BEG	MAIN+1~, MAIN+3~, REPORT+10, DATE+6*
BEGDAY	REPORT+2~, REPORT+10*, REPORT+22
BEGPP	REPORT+2~, REPORT+10*, REPORT+19, REPORT+22
CNT	PRTSUM2+2~, PRTSUM2+8, PRTSUM2+10, PRTSUM2+14
DAYBEG	MAIN+2~
DAYEND	MAIN+2~
DIR	TYPE+2~
DIR("?"	TYPE+5*
DIR("A"	TYPE+4*
DIR(0	TYPE+3*
DIRUT	TYPE+2~, TYPE+7
DT	REPORT+9
END	MAIN+1~, MAIN+3~, REPORT+11, DATE+7*
ENDDAY	REPORT+2~, REPORT+11*, REPORT+23
ENDPP	REPORT+2~, REPORT+11*, REPORT+20, REPORT+23
EXTBEG	MAIN+1~, HDRSUM1+5, HDRSUM2+5, DATE+8*
EXTEND	MAIN+1~, HDRSUM1+5, HDRSUM2+5, DATE+9*
GHD	REPORT+6~, REPORT+39*, REPORT+40, REPORT+41, REPORT+42
GROUP	COORD+2~, COORD+3
GROUP(	REPORT+13, REPORT+14, REPORT+15
GROUP(0	COORD+5, COORD+6, REPORT+14
HOURS	REPORT+4~, REPORT+48, REPORT+49, REPORT+50, REPORT+53, REPORT+54, DATA+12, TOTTIM1+2, TOTTIM1+3, TOTTIM1+4 , TOTTIM1+5, TOTTIM1+6, TOTTIM2+2, TOTTIM2+3, TOTTIM2+4, TOTTIM2+5, TOTTIM2+6, TOTTIM2+7, PRTSUM1+6, PRTSUM1+12* , PRTSUM1+13, PRTSUM1+14, PPP1+2, PPP1+6, PRTSUM2+11, PPP2+2, PRTSUM3+6, PRTSUM3+12*, PRTSUM3+13, PPP3+1
I	REPORT+6~, REPORT+42, REPORT+49, PRTSUM1+13, PPP1+2
IEN200	REPORT+6~, INFO+10*, INFO+11
IO	REPORT+8
IO("Q"	QUE+5, QUE+6!
IOF	HDRSUM1+2, HDRSUM2+2
IOM	REPORT+40
IOP	QUE+1~
IOSL	PRTSUM1+10, PPP1+8, PRTSUM2+16, PPP2+6, PRTSUM3+10, PPP3+3
LOCIEN	REPORT+2~, REPORT+15*, REPORT+17, REPORT+20, REPORT+23, REPORT+25, REPORT+27
MEAL	REPORT+5~, DATA+9*, DATA+12
PG	REPORT+2~, REPORT+9, HDRSUM1+3, HDRSUM1+5, HDRSUM2+3*, HDRSUM2+5
PICK	REPORT+2~, REPORT+12, REPORT+13, REPORT+14, REPORT+15, REPORT+37, REPORT+38, REPORT+39, TOTTIM1+3, TOTTIM1+4 , TOTTIM1+5, TOTTIM1+6, TOTTIM2+3, TOTTIM2+4, TOTTIM2+5, TOTTIM2+6, TOTTIM2+7, PRTSUM1+5, PRTSUM1+6, PRTSUM1+12 , PRTSUM1+14, PRTSUM2+4, PRTSUM2+6, PRTSUM2+9, PRTSUM2+11, PRTSUM3+5, PRTSUM3+6, PRTSUM3+12, PRTSUM3+13
POP	QUE+1~, QUE+4
PPIEN	REPORT+2~, REPORT+19, REPORT+20, REPORT+21, REPORT+22, REPORT+23, REPORT+25, REPORT+27, REPORT+28
PRIMLOC	REPORT+6~, INFO+11*, PPP2+2
>> PRSD	REPORT+26*
PRSIEN	REPORT+2~, REPORT+16, REPORT+17, REPORT+20, REPORT+23, REPORT+25, REPORT+27, REPORT+28, INFO+3, INFO+7 , INFO+10, TOTTIM2+7, PRTSUM2+5, PRTSUM2+6, PRTSUM2+9, PRTSUM2+11
PRSL	REPORT+3~, INFO+2, HDRSUM1+3, HDRSUM2+3, PPP2+1, PPP2+3, PPP2+5
PRSNAME	REPORT+3~, INFO+4, TOTTIM2+7, PRTSUM2+3, PRTSUM2+4*, PRTSUM2+6, PRTSUM2+9, PRTSUM2+11, PPP2+1
PRSNARY	REPORT+6~, INFO+3*, INFO+4, INFO+5, INFO+6
PRSNDATE	REPORT+3~, REPORT+24*
PRSNDAY	REPORT+2~, REPORT+22, REPORT+23, REPORT+24, REPORT+25, REPORT+27, REPORT+28
PRSNDAYS	REPORT+3~, REPORT+21*, REPORT+24
PRSNG	REPORT+2~, REPORT+14*
PRSNLNG	REPORT+6~, DATA+15, DATA+23
PRSNM	REPORT+5~, REPORT+31, DATA+36*, TOTTIM1+5, TOTTIM2+5, TOTTIM2+6, TOTTIM2+7
PRSNRE	REPORT+5~, DATA+37, DATA+43, TOTTIM1+6
PRSNREC	REPORT+5~, DATA+37, DATA+40, TOTTIM2+6, TOTTIM2+7
PRSNRIEN	REPORT+5~, DATA+37*, DATA+38, DATA+40, DATA+43
PRSNSP	REPORT+4~, DATA+6*, DATA+12
PRSNSSN	REPORT+3~, INFO+5*
PRSNST	REPORT+4~, DATA+3*, DATA+12
PRSNTIEN	REPORT+4~, DATA+19*, DATA+20, DATA+23
PRSNTL	REPORT+3~, INFO+6*, PPP2+2
PRSNTS	REPORT+2~, REPORT+26, REPORT+27, REPORT+28
PRSNTT	REPORT+4~, DATA+15, DATA+16, DATA+19, TOTTIM1+4, TOTTIM1+5, TOTTIM2+4, TOTTIM2+5, TOTTIM2+6, TOTTIM2+7 , PRTSUM1+4, PRTSUM1+5, PRTSUM1+6, PPP1+4, PPP1+5, PRTSUM2+8, PRTSUM2+9, PRTSUM2+11, PPP2+2, PRTSUM3+4 , PRTSUM3+5*, PRTSUM3+6, PPP3+1
PRSNTW	REPORT+5~, DATA+26, DATA+30
PRSNTWD	REPORT+5~, DATA+26, DATA+33, TOTTIM2+7
PRSNVER	REPORT+2~, REPORT+25*, REPORT+27, REPORT+28
PRSNWIEN	REPORT+4~, DATA+26*, DATA+27, DATA+30, DATA+33
RANGE	MAIN+1~, DATE+2*, DATE+4, DATE+6, DATE+7, DATE+8, DATE+9
SKILMIX	REPORT+3~, INFO+7, INFO+8, INFO+9, PPP2+3
SKILTYP	REPORT+6~, INFO+9*, TOTTIM1+2, TOTTIM1+3, TOTTIM1+4, TOTTIM1+5, TOTTIM1+6
STOP	MAIN+1~, MAIN+4, MAIN+6, MAIN+8, REPORT+12, REPORT+13, REPORT+17, REPORT+20, REPORT+23, REPORT+27 , REPORT+38, REPORT+46, PRTSUM1+3, PRTSUM1+5, PRTSUM1+9, PRTSUM1+10, PRTSUM1+11, PPP1+8, PRTSUM2+4, PRTSUM2+6 , PRTSUM2+9, PRTSUM2+15, PRTSUM2+16, PRTSUM2+17, PPP2+6, PRTSUM3+3, PRTSUM3+5, PRTSUM3+9, PRTSUM3+10, PRTSUM3+11 , PPP3+3, TYPE+7, DATE+4
>> TAB	REPORT+40*, REPORT+41, REPORT+42
TIMEREC	REPORT+2~, REPORT+28*, DATA+3, DATA+6, DATA+9, DATA+15, DATA+26, DATA+36, DATA+37
TODAY	REPORT+2~, REPORT+9*, HDRSUM1+5, HDRSUM2+5
TOTHRS	REPORT+6~, REPORT+48, REPORT+49, REPORT+50, PRTSUM1+12, PRTSUM1+13, PRTSUM1+14, PPP1+1, PPP1+2, PPP1+6
TOTYP	PRTSUM1+2~, PRTSUM1+3, PRTSUM1+5, PRTSUM1+6, PPP1+4, PPP1+5, PRTSUM3+2~, PRTSUM3+3, PRTSUM3+5, PRTSUM3+6
TYPE	MAIN+3~, REPORT+32, REPORT+33, REPORT+35, REPORT+36, REPORT+43, REPORT+44, REPORT+47, REPORT+52, TYPE+8* , QUE+8
U	COORD+5, COORD+6, REPORT+10, REPORT+11, REPORT+24, REPORT+49, REPORT+50, INFO+4, INFO+5, INFO+6 , INFO+7, DATA+3, DATA+6, DATA+9, DATA+15, DATA+23, DATA+26, DATA+30, DATA+33, DATA+36 , DATA+37, DATA+40, DATA+43, TOTTIM1+2, TOTTIM1+3, TOTTIM1+4, TOTTIM1+5, TOTTIM1+6, PRTSUM1+13, PRTSUM1+14 , PPP1+2, PPP1+6, PPP2+2, DATE+6, DATE+7, DATE+8, DATE+9
X	TYPE+2~
Y	TYPE+2~, TYPE+8
ZTCPU	QUE+7~
ZTDESC	QUE+7~, QUE+8*
ZTDTH	QUE+7~
ZTIO	QUE+7~
ZTKIL	QUE+7~
ZTPRI	QUE+7~
>> ZTREQ	QUE+18*
ZTRTN	QUE+7~, QUE+9*
ZTSAVE	QUE+7~
ZTSAVE("BEG"	QUE+13*
ZTSAVE("END"	QUE+14*
ZTSAVE("EXTBEG"	QUE+15*
ZTSAVE("EXTEND"	QUE+16*
ZTSAVE("GROUP"	QUE+10*
ZTSAVE("GROUP("	QUE+11*
ZTSAVE("TYPE"	QUE+12*
ZTSK	QUE+7~, QUE+18
ZTSYNC	QUE+7~
ZTUCI	QUE+7~

Customize PDF page

Package: PAID

Routine: PRSNRLOS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: