Routine: NURCCPU0

Package	Total	Call Graph
VA Fileman	5	^%DT NOW^%DTC YN^DICN IX1^DIK D^DIQ
General Medical Record - Generator	1	EN1^GMRGRUT2

Package

Total

Call Graph

^%DT NOW^%DTC YN^DICN IX1^DIK D^DIQ

Package	Total	Caller Graph
Nursing Service	1	NURSCPU0

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
RETARG	; IS GOAL TO BE REDONE ??
Q5
DCD
TDATE	; TARGET DATE
MET	; GOAL MET ??
EN3	; IF A NURSING PROBLEM HAS BEEN SELECTED IN THE GMR SYSTEM, THEN ; IT MUST BE ADDED TO THE PROBLEM LIST IN THE NURS CARE PLAN FILE.
EN5	; IF GOAL HAS BEEN SELECTED, THEN EDIT ITS TARGET DATE.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"has no target date information." Line Location: EN5+9
Function Call: WRITE	Prompt: !?5,$C(7),"Answer Yes if this goal has been met by the patient, else answer No." Line Location: MET+2
Function Call: WRITE	Prompt: !?5,$C(7),"Answer Yes if this goal is no longer appropriate for this patient,",!?5,"else answer No." Line Location: DCD+1
Function Call: WRITE	Prompt: !?5,$C(7),"Answer Yes if this goal is once again pertinent for this patient,",!?5,"else answer No." Line Location: RETARG+2

FileNo	Call Tags
^NURSC(216.8 - [#216.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	TDATE+1
^GMR(124.3 - [#124.3]	EN5+1, EN5+5
^NURSC(216.8 - [#216.8]	EN3+2, EN3+3, EN3+4, EN3+5, EN5+2, EN5+3, EN5+15, EN5+16, EN5+17*, EN5+18

Name	Field # of Occurrence
^(0	EN5+3, EN5+5, EN5+15*

Name	Field # of Occurrence
%	EN5+17, Q5!, MET+1, MET+2, DCD, RETARG+1*
%DT	Q5!, TDATE+3*!
%DT("A"	TDATE+3*
%DT("B"	TDATE+2*
%DT(0	TDATE+3*
>> DA	EN3+4, EN3+5, EN5+16, EN5+17, EN5+18
>> DA(1	EN3+5, EN5+16, EN5+17, EN5+18
DIK	EN3+5, EN3+6!, EN5+18, Q5!
DT	EN5+13, TDATE+2, TDATE+3, TDATE+4
DUZ	EN5+14
>> GMRGOUT	EN5+1, EN5+10, EN5+11, EN5+12, EN5+13, MET+1, DCD, RETARG+1, TDATE+3
>> GMRGPDA	EN5+1, EN5+5
>> GMRGTERM	EN3+2, EN3+5, EN5+1, EN5+2, EN5+4, EN5+5, EN5+14, EN5+17
>> GMRGXPRT	EN5+4, EN5+6
>> GMRGXPRT(0	EN5+5*
>> GMRGXPRT(1	EN5+4*
IOM	EN5+4
NURDFLT	Q5!, TDATE+1*, TDATE+2
NURFLAG	EN5+10*, EN5+11, EN5+12, EN5+13, Q5!, TDATE+2
NURFLAG(0	EN5+10, EN5+11, EN5+13
>> NURSCPE	EN3+2, EN3+3, EN3+4, EN3+5, EN5+2, EN5+3, EN5+15, EN5+16
NURSD	EN3+4*, EN3+6!
NURSGOAL	EN5+2*, Q5!
NURSGODA	EN5+2*, EN5+3, Q5!
NURSGOMT	EN5+3, EN5+8, EN5+11, EN5+14, EN5+17, Q5!, MET+1, DCD, RETARG+1, TDATE+4*
NURSGOND	EN5+3*, EN5+10, EN5+14, Q5!, TDATE+2
NURSI	EN3+6!, Q5!
NURSJ	EN5+18*, Q5!
NURSNUM	EN3+4, EN3+5, EN3+6!, EN5+16, EN5+17, Q5!
NURSNWDT	EN5+13, EN5+14, EN5+17, Q5!, TDATE+4*
NURSNWDT(0	EN5+17*
>> NURSPROB	EN3+2*
>> NURSPROB(	EN3+2*
NURSTARG	EN5+3*, EN5+4, EN5+8, Q5!
>> NURSZN	EN5+16*
U	TDATE+1
>> X	EN3+5, EN5+18, TDATE+3
>> Y	EN5+3, TDATE+2, TDATE+3, TDATE+4

Information