Routine: NURCCP1

Package	Total	Call Graph
Nursing Service	6	SELCHC^NURCCP2 (GETPROB,GETSEL,MEDSECT)^NURCCP3 PRINT^NURCCP4 ^NURCKILL EN7^NURSUT0 CLOSE^NURSUT1
Kernel	2	^%ZISC $$UP^XLFSTR
VA Fileman	1	WAIT^DICD

Package	Total	Caller Graph
Nursing Service	1	NURCFP-CARE

Name	Comments	DBIA/ICR reference
INFO	; SELECT WHICH INFO FOR SECTION TO PRINT
Q1	;
DEV	;
EN1	; ENTRY FROM NURCFP-CARE OPTION
SECT	; SELECT WHICH SECTION TO PRINT
DX	; IF PARENT IS DX THEN STORE THIS IN CPCH ARRAY
CPDATA	; WHICH CARE PLAN DATA TO PRINT
PRINT	; BEGIN PRINTING THIS DOCUMENT
PROB	; CHOOSE SELECTED PROBLEMS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"COULD NOT FIND NURSING CARE PLAN ENTRY IN AGGREGATE TERM FILE!!",!! Line Location: EN1+2
Function Call: WRITE	Prompt: !!,$C(7),"COULD NOT FIND NURSING PROBLEM ENTRY IN TERM CLASSIFICATION FILE!!",!! Line Location: EN1+3
Function Call: WRITE	Prompt: !!,$C(7),"COULD NOT FIND MEDICAL DX/PROCEDURE ENTRY IN TERM CLASSIFICATION FILE!!",!! Line Location: EN1+4
Function Call: WRITE	Prompt: ! Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN1+1
^GMRD(124.2 - [#124.2]	EN1+2, SECT+3, DX+1
^GMRD(124.25 - [#124.25]	EN1+3, EN1+4
^TMP($J	SECT+1!, SECT+4, INFO+1!, INFO+2, INFO+4!, INFO+5, PROB+1!, PROB+2, PROB+4, CPDATA+1! , CPDATA+2, CPDATA+3, DEV+2!, Q1+1!, DX+1*

Name	Line Occurrences
CPDATA	INFO+6
DEV	SECT+3
DX	PROB+2
Q1	EN1+2, EN1+3, EN1+4, SECT+2, SECT+3, SECT+4, INFO+3, PROB+3, CPDATA+3, DEV+1
SECT	SECT+3, SECT+4, INFO+3, PROB+3, CPDATA+3, DEV+1, PRINT+3

Name	Field # of Occurrence
>> ANS	SECT+1, INFO+2, PROB+3, CPDATA+3
>> CHC	INFO+2, PROB+3, CPDATA+3*
IOSL	EN1+5
>> MULT	SECT+1, INFO+2, PROB+3, CPDATA+3
>> NURC	DX+1*
>> NURCANS	SECT+2, PROB+3
>> NURCANS(	PROB+4
>> NURCCHC	PROB+1, PROB+2, PROB+3, DX+1
>> NURCDX	EN1+4*, DX+1
>> NURCDX(0	DX+1*
>> NURCEOPG	EN1+5*
>> NURCINFO	INFO+3, INFO+5
>> NURCMS	SECT+3*
>> NURCOUT	EN1+5, SECT+4, INFO+3, PROB+3, CPDATA+3, PRINT+2, PRINT+3
>> NURCPDAT	SECT+3*, CPDATA+3
>> NURCPROB	EN1+3*
>> NURCRT	EN1+2*, SECT+1
NURCSECT	SECT+1!, SECT+2!
NURCSECT(	SECT+1, SECT+2, SECT+3
>> NUROUT	PRINT+2
>> NURXXX	EN1+5*
>> POP	DEV+1
>> TXT	SECT+1, INFO+2, PROB+3, CPDATA+3
>> X	SECT+3, INFO+5, PROB+2, PROB+4*, DX+1
>> Y	INFO+5, PROB+2, PROB+4*, DX+1
>> Z	INFO+5, PROB+2, PROB+4, DX+1
>> ZTDESC	DEV+1*
>> ZTRTN	DEV+1*
>> ZTSAVE("^TMP($J,""LVL"","	DEV+1*
>> ZTSAVE("^TMP($J,""PROB"","	DEV+1*
ZTSK	DEV+1!, PRINT+3

Information