Routine: DGNTUT

Information

DGNTUT ;ALB/RPM - Utility functions for N/T Radium Treatments ; 7/16/01 3:04pm

Source file <DGNTUT.m>

Package	Total	Call Graph
Registration	2	$$GETCUR^DGNTAPI $$SITE^VASITE

Package	Total	Caller Graph
Registration	3	DGNTAPI DGNTAPI1 DGNTQ

Name	Comments	DBIA/ICR reference
CHNGQ
CHANGE(DGDFN,DGNTN,DGENR)	;Did the answers change? ; Input ; DGDFN - Patients DFN ; DGNTN("HNC") - Head/Neck Cancer Diagnosis "Y,N" ; DGNTN("NTR") - NTR Status code, "Y,N,U" ; DGNTN("AVI") - Aviator code, "Y,N" ; DGNTN("SUB") - Sub Training code, "Y,N" ; DGNTN("VER") - Verification method, "S,M,N" ; DGENR - Enrollment Z11 update [optional default=0]
STATUS(DGARR)	;Determine if screening status is complete ; Input ; DGARR - result array of $$GETCUR^DGNTAPI
SITE(DGSITE)	;Convert a station number into a pointer to the ; INSTITUTION file (#4). If called with a null parameter then ; the pointer to the INSTITUTION file (#4) of the primary site ; will be returned.
INTERP(DGINTR)	;Create external status interpretation

Name	Field # of Occurrence
$$GETCUR^DGNTAPI	CHANGE+27
$$SITE^VASITE	SITE+15

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SITE+12, SITE+13

Name	Field # of Occurrence
DGARR	STATUS~
DGARR("HNC"	STATUS+12
DGARR("NTR"	STATUS+11
DGARR("VER"	STATUS+13
DGCHG	CHANGE+14~, CHANGE+26, CHANGE+32, CHANGE+33, CHANGE+34*, CHNGQ
DGDFN	CHANGE~, CHANGE+19, CHANGE+27
DGENR	CHANGE~, CHANGE+25*, CHANGE+31
DGIEN	CHANGE+15~, CHANGE+27*, CHANGE+28, CHANGE+34
DGINT	INTERP+14~
DGINT(	INTERP+15*
DGINT("HNC"	INTERP+20, INTERP+24
DGINT("NTR"	INTERP+17
DGINT("VER"	INTERP+18, INTERP+22
DGINTR	INTERP~, INTERP+15
DGINTRP	INTERP+12~, INTERP+16, INTERP+19, INTERP+21, INTERP+23, INTERP+25*, INTERP+26
DGNTN	CHANGE~
DGNTN(	CHANGE+33
DGNTN("AVI"	CHANGE+22*
DGNTN("HNC"	CHANGE+20*
DGNTN("NTR"	CHANGE+21*
DGNTN("SUB"	CHANGE+23*
DGNTN("VER"	CHANGE+24*, CHANGE+31
DGNTO	CHANGE+16~
DGNTO(	CHANGE+33
DGNTO("VER"	CHANGE+31
DGRSLT	STATUS+8~, STATUS+10, STATUS+14, STATUS+16, STATUS+18, STATUS+20, STATUS+21, STATUS+22
DGSITE	SITE~, SITE+11, SITE+12, SITE+13, SITE+15, SITE+16, SITE+17
DGST	STATUS+9~
DGST("HNC"	STATUS+12*, STATUS+19
DGST("NTR"	STATUS+11*, STATUS+14, STATUS+15
DGST("VER"	STATUS+13*, STATUS+17, STATUS+20, STATUS+21
DGX	CHANGE+17~, CHANGE+32, CHANGE+33, INTERP+13~, INTERP+15
U	SITE+15