Routine: DGJSUM

Information

DGJSUM ;ALB/MAF - Interface routine with Discharge Summary Package - Jan 26 1993

Source file <DGJSUM.m>

Package	Total	Call Graph
VA Fileman	2	FILE^DICN ^DIE

Package	Total	Caller Graph
Text Integration Utility	1	TIUDIRT

Name	Comments	DBIA/ICR reference
STAT
STAT1	;check on the status of the report after a change has been made.
DOC	;provider resp.
DCSDEL(DGJIRTDA,DGJPARM)	;If DCS is Deleted, IRT Rec should just contain a stub	ICR #219 Status: Active Usage: Controlled Subscription
EDIT(DGJIRTDA,DGJVDD,DGJVDB,DGJVDT,DGJVTB,DGJPARM)	;Edit an IRT file entry.	ICR #219 Status: Active Usage: Controlled Subscription
ADD	;Create an IRT entry
CHECK(DFN,DGJTDT,DGJPARM,DGJIRTDA,DGJT,DGJFLG,DGJTYP)	;Check to see if there is an IRT entry for a deficiency type.	ICR #219 Status: Active Usage: Controlled Subscription
SIGUP(DGJIRTDA,DGJDS,DGJSB,DGJDR,DGJRB,DGJPARM)	;Update Signed and Reviewed fields.	ICR #219 Status: Active Usage: Controlled Subscription

Name	Line Occurrences (* Changed, ! Killed)
^DG(393.1 - [#393.1]	ADD+3
^DG(393.2 - [#393.2]	STAT
^DG(40.8 - [#40.8]	CHECK+14
^DGPM - [#405]	ADD+4
^DGPM("ATS"	ADD+4
^DIC(42 - [#42]	ADD+2, ADD+7
^VAS(393 - [#393]	CHECK+17, CHECK+18, CHECK+19, CHECK+20, ADD+10, ADD+13, EDIT+1, EDIT+4, DCSDEL+1, DCSDEL+4 , SIGUP+1, SIGUP+4, STAT1+2
^VAS(393.3 - [#393.3]	CHECK+16

Name	Field # of Occurrence
>> DA	ADD+12, EDIT+3, DCSDEL+3, SIGUP+3, STAT*
DFN	CHECK~, CHECK+19, ADD+4, ADD+8
DGJDR	SIGUP~, SIGUP+2
DGJDS	SIGUP~, SIGUP+2
DGJFLG	CHECK~, CHECK+17, ADD+14
DGJIRTDA	CHECK~, CHECK+17, CHECK+18, CHECK+19, CHECK+20, CHECK+21, ADD+9, ADD+10, ADD+12, ADD+13 , EDIT~, EDIT+1, EDIT+3, EDIT+4, DCSDEL~, DCSDEL+1, DCSDEL+3, DCSDEL+4, SIGUP~, SIGUP+1 , SIGUP+3, SIGUP+4, STAT1+2, STAT
DGJNODE	STAT1+1~, STAT1+2*, STAT1+3, STAT1+4, STAT1+5, STAT1+7
DGJOUT	CHECK+13~, CHECK+19, CHECK+20*
DGJPARM	CHECK~, CHECK+14*, CHECK+15, ADD+6, EDIT~, DCSDEL~, SIGUP~, STAT1+6, STAT1+8, DOC+1
DGJRB	SIGUP~, SIGUP+2
DGJSB	SIGUP~, SIGUP+2
DGJSTAT	STAT1+1~, STAT1+3, STAT1+4, STAT1+5, STAT1+6, STAT1+7, STAT1+8, STAT
DGJSTAT1	STAT1+1~, STAT*!
DGJT	CHECK~
DGJT("AD#"	CHECK+20, ADD+4, ADD+11
DGJT("ADDT"	ADD+7
DGJT("DIV"	CHECK+14, ADD+11
DGJT("TS"	ADD+11
DGJT("WARD"	ADD+2, ADD+7
DGJT10	ADD+1~, ADD+6*, ADD+11
DGJT9	ADD+1~, ADD+5*, ADD+11
DGJTDT	CHECK~, ADD+7
DGJTEV	ADD+1~, ADD+7*, ADD+11
DGJTSP	ADD+1~, ADD+4*, DOC+2
DGJTSV	ADD+1~, ADD+2, ADD+3, ADD+11
DGJTWARD	ADD+1~, ADD+7*, ADD+11
DGJTYP	CHECK~, CHECK+16*, CHECK+20, ADD+11
DGJVDB	EDIT~, EDIT+2
DGJVDD	EDIT~, EDIT+2
DGJVDT	EDIT~, EDIT+2
DGJVTB	EDIT~, EDIT+2
DGJX	ADD+1~, ADD+5, ADD+6
DGJY	ADD+1~, ADD+5, ADD+6, DOC+1
DIC	ADD+1~, ADD+8*
DIC(0	ADD+8*
DIE	ADD+1~, ADD+12, EDIT+3, DCSDEL+3, SIGUP+3, STAT*!
DLAYGO	ADD+1~, ADD+8*
DR	ADD+1~, ADD+11, EDIT+2, DCSDEL+2, SIGUP+2, STAT*!
>> X	ADD+5, ADD+6, ADD+8, DOC+1, DOC+2
>> Y	ADD+9