Routine: NURSALED

Package	Total	Call Graph
Nursing Service	4	$$EN8^NURSAFU0 (ADDB,ADDM,ASKB,DELB,DELM,EDM)^NURSALE0 ^NURSBPO ^NURSKILL
Kernel	1	EN^XQH
Registration	1	$$SITE^VASITE
VA Fileman	1	^DIE

Package	Total	Caller Graph
Nursing Service	2	NURSAFUD NURSAL0

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;
OBED	;
MAS	;
B	;;BYPASS PROMPT
E	;;EDIT RELATIONSHIP
NAME	;
LINCK	;
BYPB	;
A	;;ADD NEW ENTRIES
ASKM0	;
EN1	; ENTRY TO EDIT LOCATION FILE ENTRY FROM NURSAFUD ROUTINE
ABED	;
OMAS	;
PMAS	;
ASKB	;
ASKM	;
D	;;DELETE EXISTING ENTRIES

External References

Name	Field # of Occurrence
^DIE	NAME+6, NAME+7, NAME+9, BYPB+1
$$EN8^NURSAFU0	NAME+5
ADDB^NURSALE0	ASKB+1
ADDM^NURSALE0	ASKM+1
ASKB^NURSALE0	ASKB+1
DELB^NURSALE0	ASKB+1
DELM^NURSALE0	ASKM+1
EDM^NURSALE0	ASKB+1
^NURSBPO	BYPB+2
^NURSKILL	Q1+1
$$SITE^VASITE	NAME+5
EN^XQH	NAME+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: NAME+1
Function Call: WRITE	Prompt: $C(7) Line Location: NAME+1
Function Call: WRITE	Prompt: $C(7),!?5,"Answer with Nursing Unit name. Answer must be 2-30 characters",!?5,"in length. You may put the letters 'NUR ' in front of the unit",!?5,"name, but if you do not the software will take care of it." Line Location: NAME+2
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: NAME+3
Function Call: WRITE	Prompt: $C(7),!?5,"Answer must be between 2 and 30 characters in length." Line Location: NAME+4
Function Call: WRITE	Prompt: !!,"Below is a listing of associated MAS wards" Line Location: OMAS+2
Function Call: WRITE	Prompt: !?2,$J(X,2),". ",$S($D(^DIC(42,+$P(OMAS(X),"^",2),0)):$P(^(0),"^"),1:"") Line Location: OMAS+3
Function Call: WRITE	Prompt: " ",$P($T(@NURSX),";;",2),! Line Location: ASKM+1
Function Call: WRITE	Prompt: !!?7,"AMIS Bed section",?43,"Associated MAS ward" Line Location: OBED+2
Function Call: WRITE	Prompt: !,$J(X,2),". ",$S($D(^NURSF(213.3,+$P(OBED(X),"^",2),0)):$P(^(0),"^"),1:"") Line Location: OBED+3
Function Call: WRITE	Prompt: " ",$P($T(@NURSX),";;",2),! Line Location: ASKB+1
Function Call: WRITE	Prompt: ! Line Location: BYPB+1
Function Call: WRITE	Prompt: Z=Z+1 Condition for execution: A'=B ! S:A'=B Line Location: PMAS+2
Function Call: READ	Timeout: DTIME Variable: Y Line Location: LINCK+1
Function Call: WRITE	Prompt: "this prompt (A"_$S(NURSOMAS:"/D",1:"")_"/B): "_$S(NURSOMAS:"B",NURSNEW:"A",1:"B")_"// " Line Location: ASKM0+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASKM0+3
Function Call: WRITE	Prompt: !?4,$C(7),"ANSWER WITH A IF YOU WOULD LIKE TO ADD MORE MAS WARDS FOR THIS UNIT" Line Location: ASKM0+4
Function Call: WRITE	Prompt: ",",!?16,"D IF YOU WOULD LIKE TO DELETE MAS WARDS FROM THE ABOVE LISTING," Condition for execution: NURSOMAS Line Location: ASKM0+4
Function Call: WRITE	Prompt: !?13,"OR B IF YOU WOULD LIKE TO DO NOTHING AND BYPASS THIS PROMPT." Line Location: ASKM0+5
Function Call: WRITE	Prompt: !?4,$C(7),"INVALID ENTRY, TYPE ? TO GET MORE HELP" Line Location: ASKM0+6
Routine Call	DIE Line Location: NAME+6 NAME+7 NAME+9 BYPB+1

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	OMAS+3, PMAS+2
^NURSF(211.4 - [#211.4]	NAME+7, NAME+11, MAS+1, OMAS+1, ABED+1, OBED+1, PMAS+1, PMAS+2
^NURSF(213.3 - [#213.3]	OBED+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	PMAS+2*
>> B	PMAS+1*, PMAS+2
>> C	PMAS+2*
>> DA	NAME+6, NAME+7, NAME+9, NAME+11, BYPB+1
>> DIE	NAME+6, NAME+7, NAME+9, BYPB+1
>> DR	NAME+6, NAME+7, NAME+9, BYPB+1
DTIME	NAME+1, LINCK+1, ASKM0+3
IOSL	LINCK+1
NURFACIL	NAME+5*, NAME+6!
>> NURLOC	NAME+6*
>> NURSNEW	EN1+1*, ASKM0+2, ASKM0+3
>> NURSOBED	ABED+1*, ASKB+1
>> NURSOMAS	MAS+1*, ASKM+1, ASKM0+1, ASKM0+2, ASKM0+3, ASKM0+4
>> NURSREV	BYPB+1
>> NURSWARD	EN1+1*, NAME+7, NAME+9, MAS+1, OMAS+1, ABED+1, OBED+1, BYPB+1, PMAS+1, PMAS+2
>> NURSWARD(0	EN1+1*, NAME+1, NAME+6
>> NURSX	ASKM+1, ASKB+1, ASKM0+3*, ASKM0+4
OBED	OBED+1!, OBED+2*
OBED(	OBED+1*, OBED+3, PMAS+1, PMAS+2
OMAS	OMAS+1!, OMAS+2*
OMAS(	OMAS+1*, OMAS+3
U	NAME+7
>> X	NAME+1, NAME+2, NAME+3, NAME+4, NAME+6, NAME+11, OMAS+1, OMAS+3, OBED+1, OBED+3 , PMAS+1, PMAS+2, ASKM0+3*
XQH	NAME+1*!
>> Y	EN1+1, NAME+6, NAME+8, NAME+10, OMAS+1, OMAS+3, OBED+1, OBED+3, PMAS+1, PMAS+2 , LINCK+1
>> Y(0	EN1+1
>> Z	OMAS+1, OMAS+2, OMAS+3, OBED+1, OBED+2, OBED+3, PMAS+2, LINCK+1

Customize PDF page

Package: Nursing Service

Routine: NURSALED

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Line Occurrences
ABED	ASKM+1, ASKB+1
ASKB	ABED+1
ASKM	MAS+1
ASKM0	ASKM+1, ASKM0+5, ASKM0+6
BYPB	ASKB+1
LINCK	OMAS+3, OBED+3, PMAS+2
MAS	ASKM+1
NAME	NAME+1, NAME+2, NAME+3, NAME+4
PMAS	OBED+3
Q1	NAME+1, NAME+6, NAME+8, NAME+10, NAME+11, ASKM+1, ASKB+1, BYPB+1