Routine: NURA6D1

Package	Total	Call Graph
Nursing Service	10	NHDR1^NURA9D1 EN2^NURA9D11 EN2^NURAED3 ^NURAKILL EN5^NURSAGP0 (EN12,EN3,EN5,EN9,PRD)^NURSAGSP (EN1,EN7)^NURSAUTL EN7^NURSUT0 (CLOSE,ENDPG)^NURSUT1 ($$CAT,$$CNTR)^NURSUT2
VA Fileman	2	^%DT D^DIQ
Kernel	1	$$REPEAT^XLFSTR

Entry Points

Name	Comments	DBIA/ICR reference
SORT
QUIT
NJ
NK
NL
NM
NN
NO
FSUB	; FACILITY SUBTOTAL ROUTINE
NHDR	;
START	;
PSUB	; PRODUCT LINE SUBTOTAL ROUTINE
NP
NPRINT
NSUB	; SUBTOTAL ROUTINE
NPPRINT

External References

Name	Field # of Occurrence
^%DT	NHDR+4
D^DIQ	NHDR+4
NHDR1^NURA9D1	NHDR+9
EN2^NURA9D11	SORT
EN2^NURAED3	START+4
^NURAKILL	QUIT
EN5^NURSAGP0	NURA6D1+9
EN12^NURSAGSP	NURA6D1+6
EN3^NURSAGSP	NURA6D1+8
EN5^NURSAGSP	NURA6D1+6
EN9^NURSAGSP	NURA6D1+5
PRD^NURSAGSP	NURA6D1+7
EN1^NURSAUTL	NURA6D1+4
EN7^NURSAUTL	NPPRINT+1
EN7^NURSUT0	NURA6D1+10
CLOSE^NURSUT1	QUIT
ENDPG^NURSUT1	NHDR+1
$$CAT^NURSUT2	NPPRINT+8
$$CNTR^NURSUT2	NHDR+3
$$REPEAT^XLFSTR	NHDR+8, NSUB+1, PSUB+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NURA6D1+10
Function Call: WRITE	Prompt: !!,?20,NURLINE,!,"TOTAL",?18,$J(NCT,8,3),!!,"COUNT - ASSIGN.",?18,$J(NTCT,8,3),?36,"PERSONNEL",?61,$J(NTOT,8,3) Line Location: START+4
Function Call: WRITE	Prompt: !!,"MEAN - ASSIGN.",?18,$S(NCT>0&(NTCT>0):$J((NCT/NTCT),8,3),1:" 0.000"),?36,"PERSONNEL",?61,$S(NCT>0&(NTOT>0):$J((NCT/NTOT),8,3),1:" 0.000") Line Location: START+5
Function Call: WRITE	Prompt: !,$S(+NFTEE:" ",1:"** ") Line Location: NPPRINT+7
Function Call: WRITE	Prompt: !,?$$CNTR^NURSUT2(NURFAC(2)),$S($G(NURFAC(2))=" BLANK":"NO FACILITY",1:$G(NURFAC(2))) Line Location: NHDR+3
Function Call: WRITE	Prompt: !,"FTEE PROFILE BY SERVICE CATEGORY" Line Location: NHDR+4
Function Call: WRITE	Prompt: ?56,Y,?72,"PAGE: ",NURPAGE Line Location: NHDR+4
Function Call: WRITE	Prompt: ! Line Location: NHDR+5
Function Call: WRITE	Prompt: !!,"SERVICE",?36,"EMPLOYEE" Line Location: NHDR+6
Function Call: WRITE	Prompt: !,"CATEGORY",?22,"FTEE",?36,"NAME",?64,"LOCATION" Line Location: NHDR+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: NHDR+8
Function Call: WRITE	Prompt: !?21,$$REPEAT^XLFSTR("-",5) Line Location: NSUB+1
Function Call: WRITE	Prompt: !,$S($E(NURPROG(2),1)=" ":$E(NURPROG(2),2,99),1:NURPROG(2))_" TOTALS" Line Location: PSUB+1
Function Call: WRITE	Prompt: !?20,$$REPEAT^XLFSTR("*",6) Line Location: PSUB+1
Function Call: WRITE	Prompt: !,"SUBTOTAL",?18,$J(PSUBT,8,3) Line Location: PSUB+2
Function Call: WRITE	Prompt: !,NURFAC(2)_" TOTALS" Line Location: FSUB+1
Function Call: WRITE	Prompt: !?20,NURLINE Line Location: FSUB+1
Function Call: WRITE	Prompt: !,"SUBTOTAL",?18,$J(FSUBT,8,3) Line Location: FSUB+2
Function Call: WRITE	Prompt: !,"THERE IS NO DATA FOR THIS REPORT" Line Location: SORT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	NURA6D1+2
^NURSF(211.8 - [#211.8]	NPPRINT+1
^TMP("NURA"	START+1!, QUIT!, NPPRINT+2*
^TMP($J	START+1!, QUIT!, NPRINT, NJ, NK, NL, NM, NN, NO, NP , SORT+1

Label References

Name	Line Occurrences
FSUB	NPRINT
NHDR	START+2, NJ, NPPRINT, NSUB+1, PSUB+1, FSUB+1, SORT+1
NJ	NPRINT
NK	NJ
NL	NK
NM	NL
NN	NM
NO	NN
NP	NO
NPPRINT	NP
NPRINT	START+2
NSUB	NK
PSUB	NJ
QUIT	NURA6D1+4, NURA6D1+6, NURA6D1+7, NURA6D1+8, NURA6D1+9, NURA6D1+10, START+2
SORT	START+2

Naked Globals

Name	Field # of Occurrence
^(	NN

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D1	NP*
>> DA(1	NM*, NN, NPPRINT+2
>> DA(2	NN*, NPPRINT+1
>> DIC(0	NURA6D1+6*
>> FCT	START+1, FSUB+3
>> FSUBC	START+1, NPPRINT+5, FSUB+2, FSUB+4*
>> FSUBM	NPPRINT+5, FSUB+4
>> FSUBT	START+1, NPPRINT+5, FSUB+2, FSUB+3, FSUB+4*
IO	START+1
IOF	NHDR+2
IOSL	START+2, NPPRINT, NSUB+1, PSUB+1, FSUB+1
IOST	NHDR+1, NHDR+2
>> N1	NO*, NP, NPPRINT+10
>> NBRK	START+1*
>> NCT	START+1, START+2, START+4, START+5, NSUB+3*
>> NFTEE	NL*, NM, NN, NPPRINT+3, NPPRINT+4, NPPRINT+5, NPPRINT+7, NPPRINT+9
>> NL1	NPPRINT+1*, NPPRINT+11
>> NPWARD	NPPRINT+1*
>> NRPT	SORT*
>> NSUBC	START+1, NPPRINT+3, NSUB+2, NSUB+3, NSUB+4*
>> NSUBM	NPPRINT+3, NSUB+4
>> NSUBT	START+1, START+2, NPPRINT+3, NSUB+2, NSUB+3, NSUB+4*
>> NTCT	START+1, START+4, START+5, NSUB+3
>> NTOT	START+4, START+5
>> NURCAT	NK*, NL, NM, NN, NPPRINT+8
>> NURFAC	SORT+1
>> NURFAC(1	SORT+1
>> NURFAC(2	NPRINT, NJ, NK, NL, NM, NN, NHDR+3, FSUB+1, SORT+1
>> NURLINE	START+3, START+4, FSUB+1
>> NURMDSW	NURA6D1+3*, NURA6D1+6, NURA6D1+7, NPRINT, NHDR+3
>> NURNEN	SORT*
>> NUROUT	NURA6D1+3, NURA6D1+4, NURA6D1+6, NURA6D1+7, NURA6D1+8, NURA6D1+9, START+2, NHDR+1, SORT+1
>> NURPAGE	START+1, NHDR+2, NHDR+4
NURPLSCR	NURA6D1+6!, NURA6D1+7!
>> NURPLSW	NURA6D1+3*, NURA6D1+7, NJ, NHDR+9
>> NURPROG	SORT+1
>> NURPROG(1	SORT+1
>> NURPROG(2	NPRINT, NJ, NK, NL, NM, NN, PSUB+1, SORT+1*
>> NURQUEUE	NURA6D1+3*, NHDR+1
>> NURQUIT	START+1, START+2, NPRINT, NJ, NK, NL, NM, NN, NO, NP , NPPRINT, NPPRINT+11, NHDR+1, NSUB+1, PSUB+1, FSUB+1
>> NURSORT	NN*, NO, NP, NPPRINT+2
>> NURSUMSW	NURA6D1+3*, START+2, NJ, NK, NPPRINT+6, NHDR+3, NHDR+9, NSUB+1, NSUB+2, FSUB+5
>> NURSW1	START+1, NPPRINT+2, NHDR+1
>> PCT	START+1, PSUB+3
>> POP	NURA6D1+10
>> PSUBC	START+1, NPPRINT+4, PSUB+2, PSUB+4*
>> PSUBM	NPPRINT+4, PSUB+4
>> PSUBT	START+1, NPPRINT+4, PSUB+2, PSUB+3, PSUB+4*
>> X	NHDR+4, SORT+1
>> Y	NHDR+4
>> ZTDESC	NURA6D1+10*
>> ZTRTN	NURA6D1+10*
>> ZTSK	NURA6D1+10

Customize PDF page

Package: Nursing Service

Routine: NURA6D1

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: