Routine: NURA6I1

Package	Total	Call Graph
Nursing Service	6	^NURAKILL EN3^NURSAGP1 (EN1,EN7)^NURSAUTL (EN3,EN7)^NURSUT0 (CLOSE,ENDPG)^NURSUT1 $$CAT^NURSUT2
VA FileMan	2	^%DT D^DIQ
Kernel	1	$$REPEAT^XLFSTR

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NURA6I1+7
Function Call: WRITE	Prompt: !?5," NO RECORD FOUND FOR THIS EMPLOYEE " Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: W2+1
Function Call: WRITE	Prompt: $E($P(^VA(200,N2,0),U),1,20) Condition for execution: +N2 Line Location: W2+1
Function Call: WRITE	Prompt: ?25,$E(NURSSN,1,3),"-",$E(NURSSN,4,5),"-",$E(NURSSN,6,9),?39,NL1,?51,$S($G(NPSPOS(1))="R"!($G(NPSPOS(1))="L"):$$CAT^NURSUT2(NPSPOS(1)),1:"") Condition for execution: +NURSSN Line Location: W2+1
Function Call: WRITE	Prompt: ?ZZ,Y Line Location: W2+2
Function Call: WRITE	Prompt: !,"NURSING SERVICE NPSB PROFILE" Line Location: HEADER+2
Function Call: WRITE	Prompt: ?91,Y,?109,"PAGE: ",NURPAGE Line Location: HEADER+2
Function Call: WRITE	Prompt: !!,?93,"TENTATIVE",!,?51,"SERVICE",?61,"DATE WORK COPY",?77,"DATE RETURNED",?93,"DATE FOR",?109,"ACTUAL DATE",!,?2,"NAME",?25,"SSN",?39,"LOCATION",?51,"CATEGORY",?61,"IS SENT OUT",?77,"FOR TYPING",?93,"FOR BOARD ACT.",?109,"OF BOARD ACT." Line Location: HEADER+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",132),! Line Location: HEADER+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	NURA6I1+2
^NURSF(210 - [#210]	PRINT, WRITE+4, W2+2
^NURSF(211.8 - [#211.8]	WRITE+1
^TMP($J	START+1!, QUIT!
^VA(200 - [#200]	WRITE+2, W2+1

Name	Field # of Occurrence
^(0	WRITE+1
^(1	WRITE+2

Name	Field # of Occurrence
>> D1	WRITE+4*, W2+2
>> DA	WRITE+1*
>> DATA	W2+2*
>> DIC("S"	NURA6I1+5*
>> I	W2+2*
IO	START+2
IOF	HEADER+1
IOSL	WRITE
IOST	HEADER, HEADER+1
>> N1	PRINT, WRITE+1, WRITE+4, W2+2
>> N2	WRITE+2, W2+1
>> NL1	WRITE+3*, W2+1
>> NLO	WRITE+1*, WRITE+3
>> NOD1	WRITE+1
>> NPSPOS(1	W2+1
>> NPWARD	WRITE+3*
>> NUROUT	NURA6I1+3, NURA6I1+4, NURA6I1+6, START+2, HEADER
>> NURPAGE	START+2, HEADER+1, HEADER+2
>> NURQUEUE	NURA6I1+3*, HEADER
>> NURQUIT	START+2, WRITE, HEADER
>> NURS132	NURA6I1+7*
>> NURSSN	WRITE+2*, W2+1
>> NURSW1	START+2, WRITE+1, HEADER
>> POP	NURA6I1+7
U	WRITE+1, WRITE+2, W2+1, W2+2
>> X	HEADER+2*
>> Y	W2+2*, HEADER+2
>> ZTDESC	NURA6I1+7*
>> ZTRTN	NURA6I1+7*
>> ZTSK	NURA6I1+7
>> ZZ	W2+2*