Routine: NURCCPU2

Package	Total	Call Graph
VA FileMan	3	NOW^%DTC YN^DICN IX1^DIK
General Medical Record - Generator	1	EN1^GMRGRUT2

Package	Total	Caller Graph
Nursing Service	1	NURSCPU2

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; DISCONTINUE ANY ORDERS FOR A PARTICULAR LIST OF ACTIVE INTERVENTIONS ; UPDATES STATUS (#1) SUBFIELD OF THE ORDER INFO (#4) FIELD OF THE ; NURS CARE PLAN (#216.8) FILE
YNDC
CHOOSE
Q1	;
CHECK
GETLIS	;
REPRINT	;
REPRT	;
EN2	; IF SELECT ORDERABLE, PUT INFO IN ORDER INFO FIELD (#4) OF THE NURS ; CARE PLAN (#216.8) FILE
Q2	;
FILE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you wish to discontinue any order(s)" Line Location: YNDC+0
Function Call: WRITE	Prompt: !?5,$C(7),"Answer Yes if want to discontinue some of the above orders",!?5,"else answer No." Line Location: YNDC+1
Function Call: READ	Variable: NURSDISC Timeout: DTIME Line Location: CHOOSE+0
Function Call: WRITE	Prompt: !?5,$C(7),"Please enter numeric selection or up-arrow to quit. ",!,?5,"Format: { 1 } or { 1,2,3,...} or { 2-7 } or { 2,3,7-9 } or { ^ } to quit" Line Location: CHOOSE+2
Function Call: WRITE	Prompt: !! Line Location: REPRINT+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: REPRT+1
Function Call: WRITE	Prompt: !?5,$J(NUR1,2),". " Line Location: REPRT+2

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

Name	Line Occurrences (* Changed, ! Killed)
^GMR(124.3 - [#124.3]	EN1+3, GETLIS+4, EN2+2
^GMRD(124.2 - [#124.2]	EN1+4, GETLIS+1
^NURSC(216.8 - [#216.8]	GETLIS+2, GETLIS+3, EN2+3, EN2+4, FILE+1, FILE+2, FILE+3*, FILE+4

Name	Field # of Occurrence
^(0	GETLIS+1, GETLIS+3, GETLIS+4, EN2+4, FILE+1*

Name	Field # of Occurrence
%	YNDC*, YNDC+1, Q1+1!, Q2+1!, FILE+3
DA	Q1+1!, Q2+1!, FILE+2*, FILE+3, FILE+4
DA(1	FILE+1*, FILE+2, FILE+3, FILE+4
DIK	FILE+4*!
DTIME	CHOOSE, REPRT+1
>> GMRGOUT	EN1+3, YNDC, CHOOSE, REPRINT+1, REPRT+1, EN2+2
>> GMRGPDA	EN1+3, GETLIS+4, EN2+2
>> GMRGTERM	EN1+3, EN1+4, GETLIS+1, EN2+2, EN2+3
>> GMRGXPRT	REPRT+3*
>> GMRGXPRT(0	REPRT+3*
>> GMRGXPRT(1	REPRT+3*
IOM	REPRT+3
IOSL	REPRT+1
NUR1	EN1+4, Q1+1!, GETLIS+1, REPRINT+1, REPRT+2
NUR2	EN1+4*, Q1+1!
NURBAD	CHOOSE+1, CHOOSE+2, Q1+1!, CHECK, CHECK+1*
NURBEG	Q1+1!, CHECK+1*, CHECK+2
NURCK	CHOOSE+1*, Q1+1!
NURCNT	EN1+3, YNDC, Q1+1!, CHECK+1, GETLIS+4
NUREND	Q1+1!, CHECK+1*, CHECK+2
NURLIN	Q1+1!, REPRINT+1, REPRT+1, REPRT+2*
NURORD	Q1+1!, REPRINT+1*, REPRT+3
NURORD(	CHECK+2, GETLIS+4*, REPRINT+1, REPRT+2
NURORSI	CHOOSE+3, Q1+1!, EN2+3, EN2+4*, Q2+1!, FILE+3
NURPRT	Q1+1!, REPRT+2*, REPRT+3
NURSCH	Q1+1!, GETLIS+1*, GETLIS+2, GETLIS+4
>> NURSCPE	GETLIS+2, GETLIS+3, EN2+3, EN2+4, FILE+1
NURSD	CHOOSE+1*, Q1+1!, CHECK, CHECK+1
NURSDISC	CHOOSE*, CHOOSE+1, Q1+1!
NURSGODA	Q1+1!, Q2+1!, FILE+3*
NURSI	Q1+1!, CHECK+2*, Q2+1!
NURSJ	Q1+1!, Q2+1!, FILE+4*
NURSLOAD	EN2+3*, EN2+4, Q2+1!
NURSNUM	Q1+1!, Q2+1!, FILE+2*, FILE+3
NURSNWDT	Q1+1!, Q2+1!, FILE+1, FILE+3
NURSOD	Q1+1!, GETLIS+2*
NURSODA	Q1+1!, GETLIS+2*, GETLIS+3
NURSOR	Q1+1!, GETLIS+4*
NURSORE	Q1+1!, GETLIS+4*
NURSTERM	CHOOSE+3, Q1+1!, EN2+3, Q2+1!, FILE+3
NURSTERM(	CHOOSE+3, CHECK+2*
NURSZN	Q1+1!, Q2+1!, FILE+2*
X	Q1+1!, REPRT+1, Q2+1!, FILE+4