Routine: NURA7B

Information

NURA7B ;HIRMFO/MD/RM/JH/MD,FT-HOME PHONE NUMBER(S) BY LOCATION ;8/8/96 13:48

Source file <NURA7B.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NURA7B+7
Function Call: WRITE	Prompt: ! Line Location: NURA7B+7
Function Call: WRITE	Prompt: ! Line Location: NURA7B+9
Function Call: WRITE	Prompt: ! Line Location: P3+0
Function Call: WRITE	Prompt: ?56,$P(^(0),"^",1) Condition for execution: $D(^NURSF(210,DA(1),2,NS2,0)) Line Location: PRINT1+4
Function Call: WRITE	Prompt: ?69,$S(NO="S":"SELF",NO="R":"RELATIVE",NO="N":"NEIGHBOR",NO="O":"OTHER",1:"") Line Location: PRINT1+4
Function Call: WRITE	Prompt: !?$$CNTR^NURSUT2(NURFAC(2)),$$FACL^NURSUT2(NURFAC(2)) Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"STAFF PHONE NUMBERS BY LOCATION" Line Location: HEADER+3
Function Call: WRITE	Prompt: ?56,Y,?69,"PAGE: ",NURPAGE Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,"LOCATION",?15,"EMPLOYEE",?41,"SERVICE",?56,"TELEPHONE",?69,"OWNER OF" Line Location: HEADER+4
Function Call: WRITE	Prompt: !,?15,"NAME",?41,"POSITION",?56,"NUMBER",?69,"PHONE NO." Line Location: HEADER+4
Function Call: WRITE	Prompt: !,?15,"NAME",?41,"POSITION",?56,"NUMBER",?69,"PHONE NO." Line Location: HEADER+4
Function Call: WRITE	Prompt: !,?$$CNTR^NURSUT2(Z),$G(Z),!,?$$CNTR^NURSUT2(Z),$$REPEAT^XLFSTR("-",$L(Z)+1) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,"THERE IS NO DATA FOR THIS REPORT" Line Location: SORT+1