Routine: NURAED1

Package	Total	Call Graph
Nursing Service	8	(EN1,VALE0,VALENT,VALSEL)^NURAED2 (MORHELP,STST)^NURAED4 EN1^NURAED6 EN9^NURSAGSP EN7^NURSAUTL EN2^NURSUT0 EN1^NURSUT2 $$EN13^NURSUT3
VA Fileman	2	YN^DICN $$GET1^DIQ
Kernel	1	^%ZIS

Package	Total	Caller Graph
Nursing Service	4	NURAED-STF-LOC NURAED0 NURAED2 NURASPL

Entry Points

Name	Comments	DBIA/ICR reference
NOPOS
WRT1	; POSITION DISPLAY
MSG
SETARY	; SET NURSASS ARRAY FROM NURAS ARRAY
WRITE	; CALL TO DISPLAY THE POSITIONS FOR THIS STAFF MEMBER ; +NURSDBA=210 FILE ENTRY, NURSTDT=DATE FOR WHICH LISTING BEGINS
HEADER	;HEADER FOR ALL INPUTS
QC	; KILL VARIABLES
QB
NOPOS1
CKASN	; SET NURAS ARRAY FOR POSITIONS ACTIVE AFTER NURSTDT
DISPLAY	; DATA DISPLAY
SELECT

External References

Name	Field # of Occurrence
^%ZIS	HEADER+1
YN^DICN	NOPOS1
$$GET1^DIQ	DISPLAY+9
EN1^NURAED2	NOPOS1+4
VALE0^NURAED2	NOPOS1+5
VALENT^NURAED2	NOPOS1+6
VALSEL^NURAED2	NOPOS1+3
MORHELP^NURAED4	NOPOS1+3
STST^NURAED4	NURAED1+2
EN1^NURAED6	NOPOS1+7
EN9^NURSAGSP	DISPLAY+1
EN7^NURSAUTL	DISPLAY+5
EN2^NURSUT0	HEADER+1, WRT1+4
EN1^NURSUT2	WRT1+9
$$EN13^NURSUT3	DISPLAY+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THERE ARE NO ",$S(NURLS="P":"PAST ",NURLS="C":"CURRENT ",1:""),"EMPLOYEE ASSIGNMENTS " Line Location: NOPOS+0
Function Call: WRITE	Prompt: "AFTER SELECTED DATE" Condition for execution: NURLS="P" Line Location: NOPOS+0
Function Call: READ	Timeout: DTIME Variable: NURAES Line Location: NOPOS1+1
Function Call: WRITE	Prompt: $C(7),!!,"NEW ASSIGNMENTS MUST BE ADDED FROM THE CURRENT DISPLAY SCREEN" Line Location: NOPOS1+2
Function Call: WRITE	Prompt: ! Line Location: NOPOS1+3
Function Call: WRITE	Prompt: @IOF,!!,?25,"EMPLOYEE: ",$P(^VA(200,$P(^NURSF(210,+NURSDBA,0),U),0),U) Line Location: HEADER+2
Function Call: WRITE	Prompt: ?$X+2,NPSPOS Condition for execution: $D(NPSPOS) Line Location: HEADER+2
Function Call: WRITE	Prompt: !,?25,"SSN: ",NSSN,!! Line Location: HEADER+2
Function Call: WRITE	Prompt: !!?24,"STATUS: ",$S($P(^NURSF(210,+NURSDBA,0),U,2)="A":"ACTIVE",$P(^(0),U,2)="I":"INTERMITTENT",1:"INACTIVE") Line Location: WRT1+3
Function Call: WRITE	Prompt: !?6,"PRIMARY SERVICE POSITION: ",$E($P(^NURSF(211.3,NPSPOS(0),0),U,2),1,24) Line Location: WRT1+5
Function Call: WRITE	Prompt: !,"PRIMARY SVC. POS. PRODUCT LINE: ",NPSPOS(2) Line Location: WRT1+6
Function Call: WRITE	Prompt: !?1,"PRIMARY LOCATION PRODUCT LINE: ",NPSPOS(4) Line Location: WRT1+7
Function Call: WRITE	Prompt: !?14,"PRIMARY FACILITY: ",$G(NPSPOS(3)) Line Location: WRT1+8
Function Call: WRITE	Prompt: ! Line Location: WRT1+10
Function Call: WRITE	Prompt: !!,"LOCATION"_$S($G(NURPLSW):"/",1:""),?16,"POSITION"_$S($G(NURPLSW):"/",1:""),?33,"DUTY",?49,"START",?59,"VACANCY",?70,"FTEE" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+3
Function Call: WRITE	Prompt: "PRODUCT LINE" Condition for execution: NURPLSW Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ?16,"PRODUCT LINE" Condition for execution: NURPLSW Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ?33,"TOUR",?49,"DATE",?59,"DATE",! Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ?33,"TOUR",?49,"DATE",?59,"DATE",! Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,NURSANM,$S($P(NDATA,U,9):" (P)",1:"") Line Location: DISPLAY+4
Function Call: WRITE	Prompt: ?19,$S($D(^NURSF(211.3,+$P(NDATA,U,3),0)):$P(^(0),U),1:$P(NDATA,U,3)) Line Location: DISPLAY+6
Function Call: WRITE	Prompt: ?33,$S($D(^NURSF(211.6,+$P(NDATA,U,10),0)):$E($P(^(0),U),1,15),1:$P(NDATA,U,10)) Line Location: DISPLAY+7
Function Call: WRITE	Prompt: ?49,$E(+NDATA,4,5)_"/"_$E(+NDATA,6,7)_"/"_$E(+NDATA,2,3) Line Location: DISPLAY+8
Function Call: WRITE	Prompt: ?59,$E(+$P(NDATA,U,6),4,5)_"/"_$E(+$P(NDATA,U,6),6,7)_"/"_$E(+$P(NDATA,U,6),2,3) Condition for execution: +$P(NDATA,U,6) Line Location: DISPLAY+8
Function Call: WRITE	Prompt: ?70,$J($P(NDATA,U,4),2,3) Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !,?2,$E($$EN13^NURSUT3(+$G(NURSASS(NURSANM))),1,17) Line Location: DISPLAY+9
Function Call: WRITE	Prompt: ?21,$E($$GET1^DIQ(212.7,+Y,.01,"I"),1,17) Line Location: DISPLAY+9
Function Call: WRITE	Prompt: $C(7),!!,"NEW ASSIGNMENTS MUST BE ADDED FROM THE CURRENT DISPLAY SCREEN." Line Location: MSG+0
Routine Call	%ZIS Line Location: HEADER+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^NURSF(212.7 - [#212.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	WRT1+8
^NURSF(210 - [#210]	NURAED1+2, HEADER+1, HEADER+2, WRT1+3
^NURSF(211.3 - [#211.3]	WRT1+5, DISPLAY+6, DISPLAY+9
^NURSF(211.6 - [#211.6]	DISPLAY+7
^NURSF(211.8 - [#211.8]	WRITE+3, WRT1+9, CKASN+3, CKASN+4
^VA(200 - [#200]	HEADER+1, HEADER+2

Label References

Name	Line Occurrences
CKASN	WRITE+3
DISPLAY	WRT1+1
NOPOS	NOPOS1
QB	NURAED1+2, NOPOS1+1, NOPOS1+3, NOPOS1+4
SELECT	NOPOS1+2, NOPOS1+3, NOPOS1+4, NOPOS1+6, NOPOS1+7
SETARY	WRITE+4
WRITE	SELECT, NOPOS1
WRT1	NOPOS1+1

Naked Globals

Name	Field # of Occurrence
^(0	NURAED1+2, HEADER+1, WRITE+3, WRT1+3, DISPLAY+6, DISPLAY+7, CKASN+3, CKASN+4
^(1	HEADER+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOPOS1*, QB!
DA	QC+1!, WRT1+4*
DT	CKASN+2
DTIME	NOPOS1+1
I	QC+1!, WRITE+4*, SETARY+1
IOF	HEADER+2
ION	HEADER+1
IOP	HEADER+1*!
J	QC+1!, WRITE+4*, SETARY+1
MSG	NOPOS1+4, QB!
NCNT	QC+1!, WRITE+2, SETARY+1
NDA	QC+1!, WRITE+3, WRITE+4, SETARY+1, CKASN+3, CKASN+4
NDATA	QC+1!, WRITE+3, DISPLAY+1, DISPLAY+4, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, CKASN+1, CKASN+2 , CKASN+3, CKASN+4
NID	NURAED1+2*, QC+1!, WRITE+3, WRT1+9
NL1	QB!
NNM	HEADER+1*, HEADER+3!
NOD	QC+1!, WRITE+3, WRITE+4, SETARY+1, CKASN+3, CKASN+4
NOD1	QC+1!
NOD2	QC+1!
NPSPOS	QC+1!, HEADER+2, HEADER+3!, WRT1+4!, WRT1+5
NPSPOS(0	WRT1+5
NPSPOS(2	WRT1+6
NPSPOS(3	WRT1+8
NPSPOS(4	WRT1+7
NPTR	HEADER+3!
NPWARD	QC+1!, DISPLAY+5*
NSSN	HEADER+1*, HEADER+2, HEADER+3!
>> NUR("CNTR"	NOPOS1+5*
>> NUR("DA"	WRT1+9*
NUR1	QB!
NUR10	QB!
NUR2	QB!
NUR3	QB!
NURAES	NOPOS, NOPOS1+1, NOPOS1+2, QB!
NURAS	QB!, WRITE+2!, WRT1+11!
NURAS(	WRITE+4, SETARY+1
NURAS(9999999	CKASN+3, CKASN+4
NURASS	WRITE+2!
NURCAT	QB!
NURFLAG	QC+1!
NURLS	NOPOS, NOPOS1*, NOPOS1+2, QC+1!, WRT1+9, CKASN+1, CKASN+2, CKASN+3
>> NURMDSW	DISPLAY+1*
>> NUROUT	NURAED1+2, NOPOS1+1, NOPOS1+3, NOPOS1+4, NOPOS1+6*, NOPOS1+7
>> NURPLSW	WRT1+6, WRT1+7, DISPLAY+1*, DISPLAY+2, DISPLAY+3, DISPLAY+9
NURSANM	NOPOS1+5, QC+1!, WRT1+1, DISPLAY+1, DISPLAY+4, DISPLAY+5, DISPLAY+9
NURSASS	SELECT!, QC+1!
NURSASS(	NOPOS1+5, WRT1+1, DISPLAY+1, DISPLAY+5, DISPLAY+9, SETARY+1*
NURSASS(""	NOPOS, NOPOS1, NOPOS1+1, NOPOS1+7, WRT1+2
NURSBAD	NOPOS1+3*, QB!
>> NURSDBA	NURAED1+2, HEADER+1, HEADER+2, WRT1+3, WRT1+4, WRT1+9
NURSDFLT	QC+1!
NURSNPOS	QC+1!
NURSOPOS	QC+1!
NURSPOS	QC+1!
NURST	QC+1!
NURSTDT	QC+1!, CKASN+1, CKASN+2
NURSUL	SELECT!, QB!
NURSW1	QC+1!, WRITE+2, DISPLAY+2, DISPLAY+3
NURSX	QC+1!
NURTFTEE	QC+1!, WRT1+9
NURY	QB!
NWARD	QB!
NX	QB!
NZ	QC+1!
U	NURAED1+2, NOPOS1+1, HEADER+1, HEADER+2, WRT1+3, WRT1+5, WRT1+8, DISPLAY+1, DISPLAY+4, DISPLAY+5 , DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, SETARY+1, CKASN+1, CKASN+2, CKASN+3, CKASN+4
X	QB!, DISPLAY+9*
Y	QB!, DISPLAY+9*
Z	QB!, DISPLAY+3*

Customize PDF page

Package: Nursing Service

Routine: NURAED1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: