Routine: NURSAFLL

Information

NURSAFLL ;HIRMFO/RM,MD,FT-LOOKUP FOR FILE 211.4 ;10/10/96 13:03

Package	Total	Call Graph
VA Fileman	6	%XY^%RCR (,IX)^DIC YN^DICN FIELD^DID ^DIK $$VFIELD^DILFD
Nursing Service	2	$$EN8^NURSAFU0 $$EN12^NURSUT3
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Nursing Service	1	NURSAFUD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Need to add Nursing to the LOCATION TYPE (#40.9) File" Line Location: EN1+1
Function Call: WRITE	Prompt: *7,!?5,"Cannot identify your Primary Station Number.",!?5,"Please contact your ADPAC or IRM Support Person.",! Line Location: READ+2
Function Call: WRITE	Prompt: !,$S('$D(DIC("A")):"Select NURSING UNIT NAME: ",1:DIC("A"))_$S('$D(DIC("B")):"",1:$S(DIC("B")?1"NUR ".E:$P(DIC("B"),"NUR ",2),1:DIC("B"))_"// ") Line Location: READ+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: READ+5
Function Call: WRITE	Prompt: !?5,"ANSWER YES OR NO" Line Location: HP1+0
Function Call: READ	Prompt: "'^' TO STOP " Formatting: ! Timeout: DTIME Variable: NURZ Line Location: UPS+1
Function Call: WRITE	Prompt: !?5,$P(NURX,"NUR ",2),?32,$S(YY="I":"INACTIVE",1:""),?50,$S($P($G(^DIC(213.9,1,0)),U,9)="Y":$E(ZZ,1,15),1:"") Line Location: SCR+2
Routine Call	DIC Line Location: READ+7 READ+12 READ+15
Routine Call	DIC Line Location: MULT+1

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	Classic Fileman Calls, FIELD^DID, VFIELD^DILFD
^DIC(42 - [#42]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	SCR+2
^DIC(40.9 - [#40.9]	EN1+1
^NURSF(211.4 - [#211.4]	Q+2, HP1, HP1+1, SCR+1
^SC - [#44]	Q+2
^SC("B"	HP1+1

Name	Field # of Occurrence
^(0	Q+2

Name	Field # of Occurrence
>> %	HP1*
>> %X	EN1+4, Q
>> %Y	EN1+4, Q
>> D	MULT+1*
>> DA	READ+15*
DIC	EN1+2, EN1+5, READ+3!, READ+7, READ+10!, READ+15, Q+1!, MULT+1!
DIC(	EN1+5, READ+3, Q+1
DIC("A"	READ+4
DIC("B"	READ+4, READ+5
DIC("DR"	READ+11, READ+12!
DIC("S"	READ+10, READ+12!, HP1, SCR+2, MULT+1*
DIC("W"	READ+10, READ+15
DIC(0	EN1+2, EN1+3, EN1+5, READ+4, READ+6, READ+7, READ+10, READ+13, READ+15, Q+2 , MULT+1
DICR	EN1+4!, Q!*
>> DIK	READ+15*
DLAYGO	READ+8, READ+9, READ+10, READ+12!
DTIME	READ+5, UPS+1
DTOUT	EN1+1!, READ+5*
DUOUT	EN1+1!, READ+5*
NUR	EN1+1, EN1+5, READ+3, READ+14, READ+15, Q+1*, Q+3!
NUR(0	EN1+5, READ+3, Q+1*
NURA	Q+3!, HP1+1, UPS+1, SCR+2*
NURDIC	EN1+5*, READ+3, READ+15, Q+1, Q+3!
NURDIC(	EN1+5*, READ+3, Q+1
NURDIC("DR"	READ+12
NURDIC("S"	READ+12, MULT+1
NURDIC("W"	READ+15
NURDIC(0	READ+3, READ+8, READ+15, MULT+1
NURDICR	EN1+4!*, Q, Q+3!
NUREXIT	EN1+1, Q+3!, HELP+1, HP1+1, UPS+1, SCR+2, CHK+1
NURLAY	READ+9!*, READ+12!
>> NURMDSW	READ+1*
NURTMX	EN1+5, READ+3, READ+5, READ+8, READ+10, Q+2, Q+3!, MULT+1
NURX	Q+3!, HP1+1*, SCR+2
NURX("HELP-PROMPT"	HELP+1
NURX(0	HP1+1*
NURY	Q+3!, HP1+1*
NURY("XECUTAB	LE HELP" , HELP+1
NURZ	Q+3!, UPS+1*
U	HELP+1*, SCR+2
X	EN1+3, EN1+5, READ+1, READ+3!, READ+5, READ+6, READ+7, READ+10, READ+14, Q+2* , HP1, CHK+1, MULT+1
Y	EN1+1, EN1+3, EN1+4!, READ+2, READ+5, READ+8, READ+9, READ+13, READ+14, READ+15 , Q+2, HP1+1, SCR+1, CHK+1, MULT+1
Y(0	Q+2*
>> YY	SCR+1*, SCR+2
>> ZZ	SCR+1*, SCR+2