Routine: NURSEPIN

Package	Total	Call Graph
Nursing Service	7	EN3^NURSAGP1 (DATSEL,INS)^NURSAGP2 EN1^NURSAUTL ^NURSKILL (EN2,EN7)^NURSUT0 (CLOSE,ENDPG)^NURSUT1 EN10^NURSUT3
Kernel	1	$$REPEAT^XLFSTR
VA Fileman	1	^%DT

Package	Total	Caller Graph
Nursing Service	1	NURSE-PR-MIND

Entry Points

Name	Comments	DBIA/ICR reference
A
SORT	;
START	;
HEADER
QUIT
EN1	;

External References

Name	Field # of Occurrence
^%DT	START+1
EN3^NURSAGP1	EN1+8
DATSEL^NURSAGP2	EN1+5
INS^NURSAGP2	EN1+4
EN1^NURSAUTL	EN1+6
^NURSKILL	QUIT
EN2^NURSUT0	START+1
EN7^NURSUT0	A
CLOSE^NURSUT1	QUIT
ENDPG^NURSUT1	HEADER
EN10^NURSUT3	EN1+6
$$REPEAT^XLFSTR	HEADER+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: A+0
Function Call: WRITE	Prompt: !!,"THERE IS NO DATA FOR THIS PERSON!" Line Location: START+3
Function Call: WRITE	Prompt: !,$S(NURS132:N1,1:$E(N1,1,25)),?$S(NURS132:55,1:27),$E($P(DATA,U,4),1,20) Line Location: START+7
Function Call: WRITE	Prompt: ?$S(NURS132:85,1:50),$E(NDATE,4,5)_"/"_$E(NDATE,6,7)_"/"_$E(NDATE,2,3) Line Location: START+7
Function Call: WRITE	Prompt: ?$S(NURS132:93,1:59),"-"_$E(+Y,4,5)_"/"_$E(+Y,6,7)_"/"_$E(+Y,2,3) Condition for execution: Y Line Location: START+8
Function Call: WRITE	Prompt: ?$S(NURS132:107,1:73),$J($P(DATA,U,2),2,2) Line Location: START+8
Function Call: WRITE	Prompt: $S(NURS132:$P(DATA,U,8),1:$E($P(DATA,U,8),1,25)) Line Location: START+9
Function Call: WRITE	Prompt: ?$S(NURS132:55,1:27),$P(^(0),U),! Line Location: START+10
Function Call: WRITE	Prompt: !," CEUs: ",$J(+$P(DATA,U,5),2,2)_" Contact Hrs: ",$J(+$P(DATA,U,6),2,2) Line Location: START+11
Function Call: WRITE	Prompt: ! Line Location: START+12
Function Call: WRITE	Prompt: !! Line Location: START+13
Function Call: WRITE	Prompt: "Total CEUs = "_$J(TLCEU,0,2)_" Total Contact Hrs = "_$J(TLCONT,0,2)_" " Condition for execution: NURSEL="C"!(NURSEL="A") Line Location: START+13
Function Call: WRITE	Prompt: "Total Class Hrs = "_$J(TLEN,0,2) Line Location: START+13
Function Call: WRITE	Prompt: !,"INDIVIDUAL "_$S(NURSEL="M":"M.I.",NURSEL="C":"C.E",NURSEL="W":"UNIT",NURSEL="O":"OTHER",1:"COMPLETE")_" TRAINING REPORT FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:" ") Line Location: HEADER+2
Function Call: WRITE	Prompt: $S(TYP="C"!(TYP="F"):$G(Y(0)),1:$G(YRST(1))_" - "_$G(YREND(1))) Line Location: HEADER+3
Function Call: WRITE	Prompt: ?$S(NURS132:101,1:62),$E(NTODAY,4,5)_"/"_$E(NTODAY,6,7)_"/"_$E(NTODAY,2,3),?$S(NURS132:121,1:71),"PAGE: ",NURPAGE,!," " Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"CLASS",?$S(NURS132:55,1:27),"CLASS LOCATION",?$S(NURS132:85,1:50),"DATE(S)",?$S(NURS132:107,1:73),"CLASS HOURS" Line Location: HEADER+5
Function Call: WRITE	Prompt: !,"PRESENTER",?$S(NURS132:55,1:27),"SVC REASON" Line Location: HEADER+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",$S(NURS132:132,1:80)),!,"Employee Name: "_NAM_" "_NSTATUS,! Line Location: HEADER+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN1+2
^NURSF(210 - [#210]	START+1
^PRSE(452	SORT+3, SORT+5, SORT+6, SORT+10
^PRSE(452.1	SORT+8
^PRSE(452.6	START+10
^PRSE(452.7	EN1+1
^TMP("NURE"	START+2!, START+3, START+4, START+6, START+10, QUIT!, SORT+9, SORT+10
^VA(200 - [#200]	SORT+1, SORT+2

Label References

Name	Line Occurrences
A	EN1+6
HEADER	START+3, START+5
QUIT	EN1+4, EN1+5, EN1+6, EN1+8, A, START+3
SORT	START+2

Naked Globals

Name	Field # of Occurrence
^(0	START+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CLS	SORT+3*, SORT+5
>> DA	START+1*
>> DA(1	SORT+8*
>> DA(2	SORT+5*, SORT+6, SORT+9, SORT+10
>> DAT	SORT+5*
>> DATA	START+6, START+7, START+8, START+9, START+11, SORT+6, SORT+7, SORT+8, SORT+9
>> DATA(1	SORT+6*, SORT+8
>> DIC("S"	EN1+7*
DUZ	EN1+6
IO	START+2
IOF	HEADER+1
IOM	START+2
IOSL	START+5
IOST	HEADER, HEADER+1, SORT+1
>> LEN	SORT+8*
>> N1	START+4*, START+6, START+7
>> N2	EN1+6, EN1+8, START+1, SORT+1, SORT+2, SORT+3, SORT+5
>> NAM	HEADER+7, SORT+2*, SORT+8
>> NDATE	START+4*, START+6, START+7
NN	START+1!*, START+2!
>> NPSPOS(1	START+1
>> NS2	START+4*, START+6, START+10
NSTATUS	START+1*, QUIT+1!, HEADER+7
>> NSW2	START+2, START+7, HEADER+1*
NTODAY	START+1*, QUIT+1!, HEADER+4
>> NUROUT	EN1+3, EN1+4, EN1+5, EN1+6, EN1+8, START+2, START+3*, START+4, START+5, START+13 , HEADER
>> NURPAGE	START+2, HEADER+1, HEADER+4
>> NURQUEUE	EN1+3*, HEADER
>> NURS132	START+2*, START+7, START+8, START+9, START+10, HEADER+4, HEADER+5, HEADER+6, HEADER+7
>> NURSE	SORT+3*, SORT+4, SORT+5
>> NURSEL	START+13, HEADER+2, SORT+4
>> NURSW1	START+2, START+5, HEADER, HEADER+1
>> NURSZAP	EN1+6
>> PDA	START+10, SORT+10
>> POP	A
>> TLCEU	START+2, START+11, START+13
>> TLCONT	START+2, START+11, START+13
>> TLEN	START+2, START+11, START+13
>> TYP	HEADER+2, HEADER+3
U	EN1+8, START+7, START+8, START+9, START+10, START+11, SORT+1, SORT+2, SORT+6, SORT+7 , SORT+8, SORT+9
>> X	EN1+1, EN1+2, START+1, START+10, SORT+8*, SORT+9
>> Y	EN1+8, START+1, START+8*
>> Y(0	HEADER+3
>> YREND	SORT+7
>> YREND(1	HEADER+3
>> YRST	SORT+7
>> YRST(1	HEADER+3
>> ZTRTN	A*
>> ZTSK	A

Customize PDF page

Package: Nursing Service

Routine: NURSEPIN

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: