Routine: NURSCPLD

Information

NURSCPLD ;HIRMFO/RM-DISCHARGE MODULE TO DISCHARGE PATIENT FROM NURSING ;SEPTEMBER 1986

Source file <NURSCPLD.m>

Package	Total	Caller Graph
Nursing Service	1	NURSPT-INAC

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LOCATE+1
Function Call: WRITE	Prompt: !,"PATIENT HAS ALREADY BEEN DISCHARGED FROM THE NURSING SYSTEM.",!,"DO YOU WANT TO CHANGE THE DISCHARGE DATE? NO//" Line Location: DISQUES+0
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: DISQUES+2
Function Call: WRITE	Prompt: !,VADM(1)," is discharged from the Nursing System." Line Location: DISQUES1+5
Function Call: WRITE	Prompt: !!,*7,"THIS PATIENT IS NOT ADMITTED CURRENTLY IN THE NURSING SYSTEM - CANNOT DISCHARGE" Line Location: ERRSTAT+1
Routine Call	DIE Line Location: DISQUES1+4 DISEDIT+1

FileNo	Call Tags
^NURSF(214 - [#214]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN1+1
^NURSF(214 - [#214]	DISCONT+1, DISCONT+2, DISCONT+3, DISQUES1+1

Name	Line Occurrences
DISEDIT	DISQUES+1
DISQUES	DISQUES+2
DISQUES1	DISCONT+3
ERRSTAT	DISCONT+1
NURSCPLD	DISQUES+1, DISQUES1+2, DISQUES1+6, DISEDIT+2
QUIT	EN1+2, LOCATE+2, DISCONT+1, DISQUES+1

Name	Field # of Occurrence
%DT	DISQUES1+1*!, QUIT+1!
%DT("A"	DISQUES1+1*
%DT("B"	DISQUES1+1*
%DT(0	DISQUES1+1*
%Y	QUIT+1!
D	QUIT+1!
D0	QUIT+1!
DA	DISQUES1+4, DISEDIT+1, QUIT+1!
DFN	LOCATE+2, DISCONT+1, DISCONT+2, DISCONT+3, DISQUES1+1, DISQUES1+4, DISEDIT+1, QUIT+1!
DI	QUIT+1!
DIC	QUIT+1!
DIC(0	LOCATE+1*
DIE	DISQUES1+4, DISEDIT+1, QUIT+1!
DIPGM	QUIT+1!
DR	DISQUES1+4, DISEDIT+1, QUIT+1!
DTIME	DISQUES
I	QUIT+1!
NACT	LOCATE+1*, QUIT+1!
NASK	LOCATE+1*, QUIT+1!
NURSDIS	DISCONT+2, DISCONT+3, DISQUES, DISQUES1+3, QUIT+1!
VA	QUIT+1!
VADM	QUIT+1!
VADM(1	DISQUES1+5
VAERR	QUIT+1!
>> X	DISQUES*, DISQUES+1, DISQUES1+2
>> Y	DISQUES1+2, DISQUES1+3