Routine: NURSUT0

Information

NURSUT0 ;HIRMFO/MD,RM,FT-NURS STAFF FILE EDIT UTILITY ; 1/17/03 2:54pm

Source Information

Source file <NURSUT0.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD EN^XQH
Nursing Service	2	EN3^NURSUT0 ($$EN11,$$EN13)^NURSUT3
VA Fileman	2	^%DT ($$GET1,D)^DIQ

Caller Graph

Caller Graph Total: 82

Package	Total	Caller Graph
Nursing Service	82	NURA5A NURA5B NURA5C NURA6A1 NURA6B1 NURA6B2 NURA6C1 NURA6C2 NURA6D1 NURA6D2 NURA6E1 NURA6F1 NURA6G NURA6H1 NURA6I1 NURA6I2 NURA6J1 NURA6K1 NURA6K2 NURA7A NURA7B NURA7C NURA9A1 NURA9B1 NURA9B2 NURA9C1 NURA9C2 NURA9D1 NURA9D2 NURA9E1 NURA9F1 NURA9G NURA9H1 NURA9I NURA9J1 NURA9K NURAAU2 NURACEW0 NURADEG NURADEG1 NURADEG2 NURADEG3 NURAED1 NURAFSD NURAMH9 NURAR11A NURAR1A NURARCR0 NURARCRW NURARMC0 NURARMH0 NURARNCT NURARPC0 NURARWL1 NURARWL4 NURASPL NURCAS0 NURCCP1 NURCES0 NURCEVE5 NURCEVP0 NURCPPS1 NURCPPS3 NURCVPR0 NURSAL0 NURSAUTL NURSCEP NURSCPLC NURSDFFS NURSDTMP NURSEP31 NURSEP3I NURSEPC1 NURSEPCA NURSEPCP NURSEPD0 NURSEPD2 NURSEPIN NURSEPML NURSUT0 NURSUT1 NURSXECP

Entry Points

Name	Comments	DBIA/ICR reference
EN1(NURSEMP,NURSDT)	; DETERMINE IF EMPLOYEE HAS ANY ACTIVE ASSIGNMENTS
EN12(DA)	; PRINT EMPLOYEE SALARY
EN13(DA)	; LATEST PROMOTION DATE
EN2	; FIND PRIMARY SERVICE POSITION
EN3	; SELECT FIRST ACTIVE PRIMARY ASSIGNMENT
EN4	;SET LOGIC FOR DE XREF OF 211.82 SUBFILE
EN5	;KILL LOGIC FOR DE XREF 0F 211.82 SUBFILE
EN6	; SELECT MULTIPLE REPORT COPIES
EN7	; NURS DEVICE HANDLING/QUEUEING LOGIC
EN8	; INPUT TRANSFORM FOR 2.1 & 2.5 SUBFIELDS OF FIELD 22.5
EN9	; FIND TOUR OF DUTY FROM STAFF FILE
EN11(D0)	; PRINT EMPLOYEE MI REVIEW GROUPS
CHECK	;
SVPOS

Name	Field # of Occurrence
^%DT	EN8+5, EN8+6
^%ZIS	EN7+2
^%ZISC	EN7+4
^%ZTLOAD	EN7+7
$$GET1^DIQ	SVPOS+4
D^DIQ	EN12+3, EN13+2
EN3^NURSUT0	EN9+1
$$EN11^NURSUT3	SVPOS+6
$$EN13^NURSUT3	SVPOS+7
EN^XQH	EN7+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"How many copies of this report are required: 1// " Line Location: EN6+1
Function Call: WRITE	Prompt: !,$C(7),?5,"ANSWER WITH A NUMBER BETWEEN 1 AND 20",!! Line Location: EN6+3
Function Call: WRITE	Prompt: $C(7) Line Location: EN7+3
Function Call: WRITE	Prompt: !,$C(7)," THIS REPORT MUST BE SENT TO A 132 COLUMN DEVICE ",! Line Location: EN7+4
Function Call: WRITE	Prompt: !?5,NURS("HELP") Line Location: EN8+5
Function Call: WRITE	Prompt: !?5,"DATE MUST BE A CURRENT OR PAST DATE" Line Location: EN8+6
Function Call: WRITE	Prompt: !,?$S($G(EDIT)=1:0,1:9),"MI REVIEW GROUP: " Line Location: EN11+2
Function Call: WRITE	Prompt: ?$S($G(EDIT)=1:18,1:26),$P($G(^PRSE(452.3,+PRSE,0)),U) Line Location: EN11+2
Function Call: WRITE	Prompt: ! Condition for execution: $O(^PRSPC(PDA,5,D1)) Line Location: EN11+2
Routine Call	%ZIS Line Location: EN7+2

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(210 - [#210]	EN2+1, EN2+2, EN3+1, EN8+2, EN8+7*, EN11+1, EN12+2, EN13+2
^NURSF(211.3 - [#211.3]	SVPOS, SVPOS+2
^NURSF(211.4 - [#211.4]	SVPOS+1
^NURSF(211.6 - [#211.6]	EN9+1
^NURSF(211.8 - [#211.8]	EN1+7, EN2+3, EN2+4, SVPOS, SVPOS+1, EN3+2, CHECK+1, EN4+1*, EN5+1!, EN9+1
^PRSE(452.3	EN11+2
^PRSPC(	EN11+2, EN12+3
^PRSPC("SSN"	EN11+1, EN12+2
^VA(200 - [#200]	EN11+1, EN12+2

Name	Line Occurrences
CHECK	EN3+2
EN3	EN2+2
EN6	EN6+3
EN7	EN7+3, EN7+4
SVPOS	EN2+2

Name	Field # of Occurrence
^(0	EN1+7, EN2+1, SVPOS, EN3+1, CHECK+1, EN8+2, EN9+1, EN11+2, EN12+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN8+5, EN8+6, EN8+8!
%DT(0	EN8+3, EN8+4, EN8+5!, EN8+6
%ZIS	EN7+1*, EN7+2!
%ZIS("B"	EN7+1*
D0	EN11~, EN11+1, EN12+1~, EN13+1~
>> D1	EN11+2*
DA	EN2+1, EN2+2, EN3+1, EN4+1, EN5+1, EN8+2, EN8+7, EN12~, EN12+2, EN12+3* , EN13~, EN13+2
DA(1	EN4+1, EN5+1, EN8+2, EN8+7
DA200	EN12+2*, EN12+3!
DC	EN12+1~, EN13+1~
DE	EN12+1~, EN13+1~
DG	EN12+1~, EN13+1~
DH	EN12+1~, EN13+1~
DI	EN12+1~, EN13+1~
DIC	EN12+1~, EN13+1~
DIE	EN12+1~, EN13+1~
DIEL	EN12+1~, EN13+1~
DIFLD	EN12+1~, EN13+1~
DK	EN12+1~, EN13+1~
DL	EN12+1~, EN13+1~
DM	EN12+1~, EN13+1~
DP	EN12+1~, EN13+1~
DQ	EN12+1~, EN13+1~
DR	EN12+1~, EN13+1~
DT	CHECK+1, EN8+6
DTIME	EN6+1
>> EDIT	EN11+2
ID	EN2+1, EN2+3, SVPOS+8!, EN3+1, EN3+2, EN3+3!
IO	EN7+3
IO("C"	EN7+4!, EN7+7!
IO("Q"	EN7+2!, EN7+3, EN7+4!, EN7+7!
IO("S"	EN7+3
IO(0	EN7+3
IOM	EN7+4, EN7+7
ION	EN7+7
IOSL	EN7+7
IOST	EN7+3, EN7+7
>> NCOPY	EN6+1, EN6+2, EN6+3
>> NI	EN1+7*
>> NI(1	EN1+7*
NOD1	EN2+1, EN2+6, SVPOS, SVPOS+1, SVPOS+5, SVPOS+6, SVPOS+7, EN3+1, CHECK+1, EN9+1 , EN9+2!
NOD2	EN2+1, EN2+6, SVPOS, EN3+1, CHECK+1, EN9+1, EN9+2!
NOD2(1	CHECK+1*
NPI	SVPOS+8!
NPI1	SVPOS+8!
NPNT	SVPOS*, SVPOS+2, SVPOS+8!
NPNT(1	SVPOS+2*, SVPOS+4
>> NPSPOS	EN2+1, SVPOS
>> NPSPOS(0	EN2+1, SVPOS
>> NPSPOS(1	EN2+1, SVPOS
>> NPSPOS(2	SVPOS+4*
>> NPSPOS(3	SVPOS+5, SVPOS+6
>> NPSPOS(4	SVPOS+5, SVPOS+7
NUI	EN3+2*, EN3+3!, CHECK+1
NUI(1	EN3+2*, CHECK+1
NUR	EN4+1!, EN5+1!, EN9+1*
NUR(1	EN9+1*
>> NUR2114D	SVPOS+1*
NURFLAG	SVPOS+2, SVPOS+8!, EN3+1, EN3+2, CHECK+1*
NURI	EN1+8!
>> NUROUT	EN7+2*
>> NURQUEUE	EN7+7*
>> NURQUIT	EN6+2, EN7+2
NURS	SVPOS+8!, EN8+2, EN8+3, EN8+4, EN8+5!, EN8+6!, EN8+8!
NURS("AE"	EN2+4*, EN2+6
NURS("HELP"	EN8+2*, EN8+5
NURS(0	EN8+2*, EN8+3
NURS(1	EN8+4*, EN8+7
>> NURS132	EN7+1, EN7+4
NURSDT	EN1~, EN1+6*, EN1+7, EN1+8!
NURSEMP	EN1~, EN1+7, EN1+8!
>> NURSTAT	EN1+6, EN1+7, EN1+10
>> NURSX	EN2+3, EN2+4, EN2+6
>> NURSZ	EN2+3*, EN2+4
PDA	EN11+1, EN11+2, EN12+2, EN12+3!
>> POP	EN7+2, EN7+7*
>> PRSE	EN11+2*
>> SC44DA	SVPOS+1*
>> SDA	EN12+2, EN12+3, EN13+2
SSN	EN11+1, EN12+2, EN12+3!
U	EN1+7, EN2+2, SVPOS, SVPOS+2, EN3+1, CHECK+1, EN4+1, EN5+1, EN6+2, EN8+2 , EN8+3, EN8+7, EN9+1, EN11+1, EN11+2, EN12+2, EN12+3
>> VA200DA	EN11+1*
X	EN4+1, EN5+1, EN7+6, EN8+5!, EN8+6*!, EN8+7, EN12+1~, EN13+1~
XQH	EN7+3*!
>> XXX	EN12+2, EN12+3, EN12+4, EN13+2*, EN13+3
Y	EN8+5, EN8+6, EN12+1~, EN12+3, EN13+1~, EN13+2
>> Z	EN13+2*
>> ZTDESC	EN7+5*
>> ZTIO	EN7+7*
>> ZTRTN	EN7+5
>> ZTSAVE(	EN7+6*
ZTSK	EN7+1!, EN7+7

Customize PDF page

Package: Nursing Service

Routine: NURSUT0

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 82

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: