Routine: NURAGE

Package	Total	Call Graph
Kernel	1	$$REPEAT^XLFSTR
Nursing Service	1	($$CAT,$$CNTR,$$FACL,$$PROD)^NURSUT2

Package	Total	Caller Graph
Nursing Service	4	NURA6B1 NURA6B2 NURA9B1 NURA9B2

Entry Points

Name	Comments	DBIA/ICR reference
WRTCAT	;
FINCAT	; SELECT SVC CATEGORY
NURSBYP	;
BGNCALC	;
PSUBTL	; PRODUCT LINE SUBTOTALS
ENDPG	; HANDLE EOP
HDGBYP	;
FSUBTL	; FACILITY SUBTOTALS
PRTOT
HDGING	; HEADINGS
WRTWARD	;
SUB	;

External References

Name	Field # of Occurrence
$$CAT^NURSUT2	HDGBYP+2
$$CNTR^NURSUT2	HDGING+4, HDGING+8
$$FACL^NURSUT2	FSUBTL+1, HDGING+4
$$PROD^NURSUT2	PSUBTL+1, HDGING+8
$$REPEAT^XLFSTR	HDGING+7, HDGING+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(NURN1,1,20),?NHIT,"X" Line Location: NURSBYP+2
Function Call: WRITE	Prompt: !!,?(17-$L(X)),X,?18,"SUB-TOTAL:" Line Location: PSUBTL+1
Function Call: WRITE	Prompt: ?(33-$L(NURSPOLD(8))),NURSPOLD(8),?(39-$L(NURSPOLD(1))),NURSPOLD(1),?(45-$L(NURSPOLD(2))),NURSPOLD(2),?(51-$L(NURSPOLD(3))),NURSPOLD(3),?(57-$L(NURSPOLD(4))),NURSPOLD(4),?(63-$L(NURSPOLD(5))),NURSPOLD(5) Line Location: PSUBTL+2
Function Call: WRITE	Prompt: ?(69-$L(NURSPOLD(6))),NURSPOLD(6),?(75-$L(NURSPOLD(7))),NURSPOLD(7) Line Location: PSUBTL+3
Function Call: WRITE	Prompt: !!,?(17-$L(NURFAC)),$E($$FACL^NURSUT2(NURFAC),1,16),?18,"SUB-TOTAL:" Line Location: FSUBTL+1
Function Call: WRITE	Prompt: ?(33-$L(NURSMOLD(8))),NURSMOLD(8),?(39-$L(NURSMOLD(1))),NURSMOLD(1),?(45-$L(NURSMOLD(2))),NURSMOLD(2),?(51-$L(NURSMOLD(3))),NURSMOLD(3),?(57-$L(NURSMOLD(4))),NURSMOLD(4),?(63-$L(NURSMOLD(5))),NURSMOLD(5) Line Location: FSUBTL+2
Function Call: WRITE	Prompt: ?(69-$L(NURSMOLD(6))),NURSMOLD(6),?(75-$L(NURSMOLD(7))),NURSMOLD(7) Line Location: FSUBTL+3
Function Call: WRITE	Prompt: !?$$CNTR^NURSUT2(NURFAC),$$FACL^NURSUT2(NURFAC) Line Location: HDGING+4
Function Call: WRITE	Prompt: !,"NURSING SERVICE AGE PROFILE BY " Line Location: HDGING+5
Function Call: WRITE	Prompt: $S(NSEL["W":"LOCATION/SVC ",1:"SERVICE "),$S(NSEL["C":"CATEGORY",NSEL["S":"POSITION",1:"") Line Location: HDGING+5
Function Call: WRITE	Prompt: $S(NSEL["W":"LOCATION/SVC ",1:"SERVICE "),$S(NSEL["C":"CATEGORY",NSEL["S":"POSITION",1:"") Line Location: HDGING+5
Function Call: WRITE	Prompt: !!,"NAME",?29,"NO DOB",?36,"18-20",?42,"21-29",?48,"30-39",?54,"40-49",?60,"50-59",?66,"60-69",?73,"70+" Line Location: HDGING+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDGING+7
Function Call: WRITE	Prompt: !,?$$CNTR^NURSUT2(Z),$G(Z),!,?$$CNTR^NURSUT2(Z),$$REPEAT^XLFSTR("-",$L(Z)+1) Line Location: HDGING+8
Function Call: WRITE	Prompt: !!,?20,"SERVICE " Line Location: HDGBYP+2
Function Call: WRITE	Prompt: "CATEGORY: ",$$CAT^NURSUT2(NCATPOS) Condition for execution: (NSEL["C") Line Location: HDGBYP+2
Function Call: WRITE	Prompt: "POSITION: ",NCATPOS Condition for execution: (NSEL["S") Line Location: HDGBYP+2
Function Call: WRITE	Prompt: ! Line Location: HDGBYP+2
Function Call: WRITE	Prompt: !!!,?4,"ASSIGNMENTS FINAL TOTAL:" Line Location: FINCAT+1
Function Call: WRITE	Prompt: !!,?6,"PERSONNEL FINAL TOTAL:" Line Location: FINCAT+4
Function Call: WRITE	Prompt: !!,"Enter RETURN to continue " Line Location: FINCAT+5
Function Call: WRITE	Prompt: ?(33-$L(NURSFOLD(8))),NURSFOLD(8),?(39-$L(NURSFOLD(1))),NURSFOLD(1),?(45-$L(NURSFOLD(2))),NURSFOLD(2),?(51-$L(NURSFOLD(3))),NURSFOLD(3),?(57-$L(NURSFOLD(4))),NURSFOLD(4) Line Location: PRTOT+0
Function Call: WRITE	Prompt: ?(63-$L(NURSFOLD(5))),NURSFOLD(5),?(69-$L(NURSFOLD(6))),NURSFOLD(6),?(75-$L(NURSFOLD(7))),NURSFOLD(7) Line Location: PRTOT+1
Function Call: READ	Timeout: DTIME Variable: NX Line Location: ENDPG+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDGING+5
^TMP("NURA"	SUB+3, SUB+4, SUB+5, SUB+6, FINCAT+2
^TMP($J	SUB+3, SUB+4, SUB+5, SUB+6, HDGING+9

Label References

Name	Line Occurrences
ENDPG	HDGING+1
HDGBYP	NURAGE+3
HDGING	NURAGE+3, NURSBYP+1, HDGBYP+1
NURSBYP	BGNCALC+1, BGNCALC+2, BGNCALC+3, BGNCALC+4, BGNCALC+5, BGNCALC+6, BGNCALC+7, BGNCALC+8
PRTOT	FINCAT+3, FINCAT+4
SUB	BGNCALC+1, BGNCALC+2, BGNCALC+3, BGNCALC+4, BGNCALC+5, BGNCALC+6, BGNCALC+7, BGNCALC+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AN	SUB+2, SUB+5, SUB+6
>> DA	SUB+3, SUB+4, SUB+5, SUB+6
DT	NURAGE+2, HDGING+5
DTIME	FINCAT+5, ENDPG+2
>> I	WRTCAT+3, WRTWARD+3, PSUBTL+4, FSUBTL+4
IOF	HDGING+3
IOSL	NURAGE+3, NURSBYP+1, HDGBYP+1
IOST	HDGING+1, HDGING+3, FINCAT+5, ENDPG+1
>> NCATPOS	SUB+4, SUB+5, SUB+6, HDGBYP+2
>> NHIT	BGNCALC+1, BGNCALC+2, BGNCALC+3, BGNCALC+4, BGNCALC+5, BGNCALC+6, BGNCALC+7, BGNCALC+8, NURSBYP+2
>> NPRI	SUB+6
>> NSEL	SUB+2, SUB+3, HDGING+5, HDGING+9, HDGBYP+2
>> NURDOB	NURAGE+2, SUB+4, SUB+5, SUB+6
>> NURFAC	SUB+5, SUB+6, FSUBTL+1, HDGING+4, HDGING+9
>> NURMDSW	HDGING+4
>> NURN1	SUB+3, SUB+4, SUB+5, SUB+6, NURSBYP+2
>> NURNL1	HDGING+9
>> NUROUT	ENDPG+2*
>> NURPAGE	HDGING+3*, HDGING+5
>> NURPLSW	HDGING+8
>> NURQUEUE	HDGING+1
>> NURQUIT	NURAGE+3, NURSBYP+1, HDGING+1, HDGBYP+1, FINCAT+5, ENDPG+1, ENDPG+2*
>> NURSCAT	HDGBYP+2*
>> NURSFOLD(	WRTWARD+3, FINCAT+2, FINCAT+3*
>> NURSFOLD(1	PRTOT
>> NURSFOLD(2	PRTOT
>> NURSFOLD(3	PRTOT
>> NURSFOLD(4	PRTOT
>> NURSFOLD(5	PRTOT+1
>> NURSFOLD(6	PRTOT+1
>> NURSFOLD(7	PRTOT+1
>> NURSFOLD(8	PRTOT
>> NURSI	BGNCALC+1, BGNCALC+2, BGNCALC+3, BGNCALC+4, BGNCALC+5, BGNCALC+6, BGNCALC+7, BGNCALC+8, SUB+1, SUB+3 , SUB+4, SUB+5, SUB+6
>> NURSMOLD(	WRTCAT+3, FSUBTL+4
>> NURSMOLD(1	FSUBTL+2
>> NURSMOLD(2	FSUBTL+2
>> NURSMOLD(3	FSUBTL+2
>> NURSMOLD(4	FSUBTL+2
>> NURSMOLD(5	FSUBTL+2
>> NURSMOLD(6	FSUBTL+3
>> NURSMOLD(7	FSUBTL+3
>> NURSMOLD(8	FSUBTL+2
>> NURSOLD(	SUB+1, WRTCAT+3
>> NURSOLD(1	WRTCAT+1
>> NURSOLD(2	WRTCAT+1
>> NURSOLD(3	WRTCAT+1
>> NURSOLD(4	WRTCAT+1
>> NURSOLD(5	WRTCAT+1
>> NURSOLD(6	WRTCAT+2
>> NURSOLD(7	WRTCAT+2
>> NURSOLD(8	WRTCAT+1
>> NURSORT(1	SUB+2, SUB+3, SUB+4, SUB+5, SUB+6*
>> NURSPOLD(	WRTCAT+3, PSUBTL+4
>> NURSPOLD(1	PSUBTL+2
>> NURSPOLD(2	PSUBTL+2
>> NURSPOLD(3	PSUBTL+2
>> NURSPOLD(4	PSUBTL+2
>> NURSPOLD(5	PSUBTL+2
>> NURSPOLD(6	PSUBTL+3
>> NURSPOLD(7	PSUBTL+3
>> NURSPOLD(8	PSUBTL+2
>> NURSPROG	SUB+5, SUB+6, PSUBTL+1, HDGING+8, HDGING+9
>> NURSUMSW	NURSBYP+1, WRTCAT+1, WRTCAT+2, WRTWARD+1, WRTWARD+2, HDGING+4, HDGING+8, HDGBYP+1
>> NURSW1	NURAGE+3, HDGING+1, HDGING+2*
>> NURSW1(1	HDGING+7*
>> NURSWOLD(	WRTCAT+3, WRTWARD+3, FINCAT+2*, FINCAT+3
>> NURSWOLD(1	WRTWARD+1
>> NURSWOLD(2	WRTWARD+1
>> NURSWOLD(3	WRTWARD+1
>> NURSWOLD(4	WRTWARD+1
>> NURSWOLD(5	WRTWARD+1
>> NURSWOLD(6	WRTWARD+2
>> NURSWOLD(7	WRTWARD+2
>> NURSWOLD(8	WRTWARD+1
>> NX	ENDPG+2*
>> X	SUB+3, SUB+4, SUB+5, SUB+6, PSUBTL+1, FINCAT+2, FINCAT+3, FINCAT+5
>> XAGE	NURAGE+2*, BGNCALC+1, BGNCALC+2, BGNCALC+3, BGNCALC+4, BGNCALC+5, BGNCALC+6, BGNCALC+7, BGNCALC+8
>> Y	SUB+3, SUB+5, HDGING+5, FINCAT+2
Z	HDGING+8~, FINCAT+2

Customize PDF page

Package: Nursing Service

Routine: NURAGE

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: