Routine: NURSCEP

Package	Total	Call Graph
Nursing Service	4	(,$$STAT,HDR)^NURSCEP1 ^NURSKILL $$EN1^NURSUT0 CLOSE^NURSUT1
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA Fileman	2	NOW^%DTC ^DIR

Package

Total

Call Graph

Nursing Service

(,$$STAT,HDR)^NURSCEP1 ^NURSKILL $$EN1^NURSUT0 CLOSE^NURSUT1

Kernel

(,HOME)^%ZIS ^%ZTLOAD

VA Fileman

NOW^%DTC ^DIR

Package	Total	Caller Graph
Nursing Service	1	NURS-COMP

Package

Total

Caller Graph

Nursing Service

NURS-COMP

Name	Comments	DBIA/ICR reference
QUIT	;
GETDATA	;
START
SETSTF	;
QUEUE	;
Q
EN1
ASK
TXT	;;This option generates an exception report that identifies the

Name	Field # of Occurrence
NOW^%DTC	START
^%ZIS	QUEUE+1
HOME^%ZIS	ASK+1
^%ZTLOAD	QUEUE+2
^DIR	ASK
^NURSCEP1	START+24
$$STAT^NURSCEP1	START+18
HDR^NURSCEP1	START+23
^NURSKILL	Q
$$EN1^NURSUT0	START+3
CLOSE^NURSUT1	Q

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* MISSING NURSING FILE *" Line Location: EN1+0
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: !,$P(TXT,";",3) Line Location: EN1+1
Function Call: WRITE	Prompt: !!,"Do you want the discrepancy report queued to a printer ?" Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: START+0
Function Call: WRITE	Prompt: !,"Checking the NURS Staff (#210) File..." Line Location: START+1
Function Call: WRITE	Prompt: !,"Checking the NURS Position Control (#211.8) File..." Line Location: START+12
Function Call: WRITE	Prompt: !!,"No discrepancies were found between the 210 and 211.8 files." Line Location: START+23
Routine Call	%ZIS Line Location: ASK+1
Routine Call	DIR Line Location: ASK
Routine Call	%ZIS Line Location: QUEUE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(210 - [#210]	EN1, START+2, START+3, START+4, START+6, START+9, START+19
^NURSF(211.3 - [#211.3]	START+16
^NURSF(211.8 - [#211.8]	EN1, START+13, START+14, START+15, START+16
^SC - [#44]	START+16
^TMP("INACT"	START+18*, START+23
^TMP("NOSTAFF"	START!, START+19*, START+23, Q!
^TMP("NURP"	START!, START+23, Q!, GETDATA+2
^TMP("NURPOS"	START!, START+20*, START+21, Q!
^TMP("NURS"	START!, START+5, START+6, START+23, Q!, SETSTF+1, SETSTF+2*
^VA(200 - [#200]	START+2, START+3, START+5, START+10

Name	Line Occurrences
GETDATA	START+20
QUEUE	ASK+1
QUIT	ASK, ASK+1, START+23
SETSTF	START+3, START+4, START+5, START+6, START+7, START+10
START	ASK
TXT	EN1+1

Name	Field # of Occurrence
^(	START+21, GETDATA+2, SETSTF+1*
^(0	START+2, START+10, START+13, START+14, START+16
^(1	START+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %I(1	START
>> %I(2	START
>> %I(3	START
%ZIS	QUEUE+1*!
>> DIR("B"	ASK*
>> DIR(0	ASK*
>> DIRUT	ASK
DT	START+3
>> EDAT	START+17*, START+18, START+19, GETDATA+2
>> ENDAT	START+15*, START+17
>> I	EN1+1*
IO	START
IO("C"	QUEUE+2!
IO("Q"	QUEUE+1!, QUEUE+2!
IOM	QUEUE+2
ION	QUEUE+2
>> IOP	QUEUE+1*
IOSL	QUEUE+2
IOST	START+1, START+3, START+12, QUEUE+2, GETDATA+1
>> NAM	START+2, START+10, START+14*, START+18, START+19, START+20, START+21, GETDATA+2, SETSTF+1
>> NDA	START+13, START+14, START+15, START+18, START+19, START+20, START+21, GETDATA+2
>> NDATE	START*
>> NFT	START+15*, START+18, START+19, GETDATA+2
>> NFTE	START+14*, START+20, START+21
>> NOD	START+13, START+14, START+15, START+16, START+18, START+19, START+20, START+21, GETDATA+2
>> NPDA	START+2, START+3, START+5, START+6, START+9, START+10
>> NPOS	START+15*, START+16
>> NPOS(1	START+16*, START+18, START+19, GETDATA+2
>> NSTAT	START+2*, START+7
>> NSW1	START*
>> NSWRD	START+16*
>> NUM	START+2, START+5, START+6, START+10, SETSTF+1, SETSTF+2
>> NUROUT	ASK, START
>> NURPAGE	START*
>> NURQUEUE	START*
>> NURQUIT	START*
>> NURSDA	START+2, START+3, START+4, START+5, START+6, START+9, SETSTF+1
>> NURTYPE	START+23*
>> NWRD	START+16*, START+18, START+19, GETDATA+2
>> POP	ASK+1, QUEUE+1, QUEUE+2*
>> Q	START+15*
>> SDAT	START+17*, START+18, START+19, GETDATA+2
>> STDAT	START+15*, START+17
>> SW	START+3, START+4, START+5, START+6, START+7, START+10, SETSTF+2
>> TXT	EN1+1*
U	START+2, START+3, START+4, START+10, START+13, START+14, START+15, START+16, START+18, START+19 , START+20, START+21, GETDATA+2
>> X	START+20*
>> Y	ASK, START+20*
>> ZTDESC	ASK+1*
>> ZTIO	QUEUE+2*
>> ZTRTN	ASK+1*
>> ZTSK	ASK+1, QUEUE+2

Customize PDF page

Package: Nursing Service

Routine: NURSCEP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items