Routine: NURCROP0

Package	Total	Call Graph
Nursing Service	6	^NURCKILL ($$ACTIVE,$$GETLST,$$GETTRM,$$HEADER)^NURCROP1 ($$RPRTID,$$SORTYP,PRINT)^NURCROP2 $$CENSUS^NURSACE0 $$MDIC^NURSAGS0 CLOSE^NURSUT1
Kernel	4	^%ZIS ^%ZISC (,KILL)^%ZTLOAD EN^XQH
VA FileMan	2	^%DT NOW^%DTC
Registration	1	(DEM,KVAR)^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; ENTRY FROM OPTION TO PRINT RANK ORDER LISTING OF CARE PLAN
ENDT
DEV	; Ask device and allow to queue ; If QUEUE then call ^%ZTLOAD and exit
PRINT	; ENTRY FROM TASK TO PRINT RANK ORDER PRINT IF QUEUED TO DEVICE
EXIT	; ; Clean up variables

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEV+2
Function Call: WRITE	Prompt: $C(7) Line Location: DEV+3
Function Call: WRITE	Prompt: !!,"There is no data for this report." Line Location: PRINT+6
Function Call: WRITE	Prompt: !!,"There is no data for this report." Line Location: PRINT+39
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	ENDT+6
^GMR(124.3 - [#124.3]	PRINT+11, PRINT+13, PRINT+17, PRINT+25
^GMRD(124.2 - [#124.2]	PRINT+5
^GMRD(124.25 - [#124.25]	PRINT+5
^NURSF(211.4 - [#211.4]	ENDT+5, ENDT+6
^TMP($J	PRINT+4!, PRINT+11, PRINT+27!, PRINT+28, PRINT+31!, PRINT+32, PRINT+39, EXIT+3!

Name	Line Occurrences
DEV	DEV+3
ENDT	ENDT
EXIT	EN1+3, ENDT+1, ENDT+4, ENDT+9, ENDT+12, DEV+2, DEV+5, PRINT+6, PRINT+39

Name	Field # of Occurrence
>> %	PRINT+5
>> %DT	EN1+3, ENDT
>> %DT("A"	EN1+3, ENDT
>> %DT(0	EN1+3, ENDT
>> %ZIS	DEV+2*
>> DFN	PRINT+11*, PRINT+13
DIRUT	ENDT+9!
IO	PRINT+6, PRINT+38
IO("Q"	DEV+2!, DEV+3, DEV+4!
IO("S"	DEV+3
ION	DEV+4
IOST	DEV+3
>> NURC	ENDT+5*, ENDT+6
>> NURCBGDT	EN1+4*, ENDT, PRINT+6, PRINT+17
>> NURCBS5	PRINT+11*, PRINT+28, PRINT+32
>> NURCDATE	PRINT+11*, PRINT+13
>> NURCENDT	ENDT*, PRINT+6, PRINT+11, PRINT+17
>> NURCINT	PRINT+5*, PRINT+6, PRINT+20
>> NURCITRM	PRINT+20*, PRINT+25
>> NURCLID	ENDT+9*
>> NURCNCP	PRINT+5*, PRINT+6, PRINT+11, PRINT+13
>> NURCNOW	PRINT+5*, PRINT+6
>> NURCORD	PRINT+5*, PRINT+6, PRINT+25
>> NURCOTRM	PRINT+25*, PRINT+27, PRINT+28
>> NURCPAGE	PRINT+6, PRINT+38
>> NURCPDA	PRINT+13*, PRINT+17, PRINT+25
>> NURCPDA1	PRINT+17*
>> NURCPTRM	PRINT+17*, PRINT+20, PRINT+27, PRINT+28, PRINT+31, PRINT+32
>> NURCSORT	ENDT+12*, PRINT+6
>> NURSLIST(	PRINT+25
>> NURSMAS	ENDT+6*
>> NURSMAS(	ENDT+6*
>> NURSMAS(0	ENDT+6*
>> NURSNLOC(	ENDT+5
>> POP	DEV+2
>> VADM(1	PRINT+11
>> VADM(2	PRINT+11
>> X	ENDT, ENDT+5
XQH	DEV+3*!
>> Y	EN1+3, EN1+4, ENDT, ENDT+5*, ENDT+6
>> ZTDESC	DEV+4*
>> ZTIO	DEV+4*
>> ZTRTN	DEV+4*
>> ZTSAVE("NURCBGDT"	DEV+4*
>> ZTSAVE("NURCENDT"	DEV+4*
>> ZTSAVE("NURCLID"	DEV+4*
>> ZTSAVE("NURCSORT"	DEV+4*
>> ZTSAVE("NURSMAS*"	DEV+4*
ZTSK	DEV+5!, EXIT+2