Routine: DGENCDA1

Package	Total	Call Graph
Registration	2	($$LIMBCODE,$$LIMBOK,$$RANGEMET,$$TYPE,$$VALID)^DGENA5 $$UPPER^DGUTL
VA Fileman	2	(,CHK)^DIE $$EXTERNAL^DILFD

Package	Total	Caller Graph
Registration	6	DGENCD DGENCD1 DGENCDA2 DGENUPL4 DGENUPL9 DGRPCE

Entry Points

Name	Comments	DBIA/ICR reference
DELETE(DFN)	;
ISCD(DGCDIS)	; Returns 1/0, is the patient CD? ; DGCDIS("DIAG",N)=CD REASON for Diagnosis. ; DGCDIS("COND",N)=CD REASON for Condition. ; DGCDIS("SCORE",N)=SCORE (for condition.) ; DGCDIS("PERM",N)=Permanant Indicator (for condition). ; DGCDIS("PROC",N)=CD REASON for procedure. ; DGCDIS("EXT",N)=Affected Extremity (for procedure.)
LOCK(DFN)	;
CHECK(DGCDIS,ERROR)	;
ERRDISP(FILE)	; Display error.
UNLOCK(DFN)	;

External References

Name	Field # of Occurrence
$$LIMBCODE^DGENA5	ISCD+21
$$LIMBOK^DGENA5	CHECK+60
$$RANGEMET^DGENA5	ISCD+28
$$TYPE^DGENA5	CHECK+53, CHECK+58, CHECK+65, ISCD+11, ISCD+14, ISCD+27
$$VALID^DGENA5	CHECK+66
$$UPPER^DGUTL	CHECK+25
^DIE	DELETE+23, DELETE+32
CHK^DIE	CHECK+33, CHECK+43
$$EXTERNAL^DILFD	CHECK+31, CHECK+37, CHECK+41

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "ERROR updating ",$S(FILE=2.396:"CD DIAGNOSES",FILE=2.397:"CD PROCEDURES",FILE=2.398:"CD CONDITIONS",FILE=2.399!(FILE=2.409):"CD HISTORY",1:"PATIENT CD DATA"),! Line Location: ERRDISP+4
Function Call: WRITE	Prompt: ?5,DGCDERR("DIERR",1,"TEXT",LINE),! Line Location: ERRDISP+5
Function Call: WRITE	Prompt: ! Line Location: ERRDISP+6
Routine Call	DIE Line Location: DELETE+23 DELETE+32
Routine Call	DIE Line Location: CHECK+33 CHECK+43

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, CHK^DIE, EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGEN(27.17 - [#27.17]	ISCD+19
^DPT - [#2]	LOCK+7, UNLOCK+6, DELETE+9, DELETE+25, DELETE+27

Label References

Name	Line Occurrences
$$ISCD	CHECK+72
$$LOCK	DELETE+11
UNLOCK	DELETE+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CD	ISCD+7~, ISCD+12, ISCD+25, ISCD+29, ISCD+30*, ISCD+32
D0	DELETE+6~
DA	DELETE+6~, DELETE+22, DELETE+28~, DELETE+31
DA(1	DELETE+31*
DFN	LOCK~, LOCK+7, UNLOCK~, UNLOCK+6, DELETE~, DELETE+9, DELETE+11, DELETE+22, DELETE+25, DELETE+27 , DELETE+29, DELETE+31, DELETE+34
>> DGCDERR("DIERR"	ERRDISP+5
DGCDIS	CHECK~, CHECK+72, ISCD~
DGCDIS(	CHECK+18
DGCDIS("BY"	CHECK+23, CHECK+24, CHECK+25
DGCDIS("COND"	CHECK+20, CHECK+63, CHECK+64, CHECK+65, CHECK+66, CHECK+70, ISCD+26, ISCD+27, ISCD+28
DGCDIS("DATE"	CHECK+28, CHECK+29, CHECK+30, CHECK+31, CHECK+45
DGCDIS("DIAG"	CHECK+20, CHECK+51, CHECK+52, CHECK+53, CHECK+70, ISCD+10, ISCD+11
DGCDIS("EXT"	CHECK+59, CHECK+60, ISCD+16, ISCD+17
DGCDIS("FACDET"	CHECK+37
DGCDIS("METDET"	CHECK+47, CHECK+48
DGCDIS("PERM"	CHECK+67, ISCD+28
DGCDIS("PROC"	CHECK+20, CHECK+56, CHECK+57, CHECK+58, CHECK+60, CHECK+70, ISCD+13, ISCD+14, ISCD+19, ISCD+21
DGCDIS("REVDTE"	CHECK+39, CHECK+40, CHECK+41, CHECK+45
DGCDIS("SCORE"	CHECK+66, ISCD+28
DGCDIS("VCD"	CHECK+11, CHECK+16, CHECK+23, CHECK+28, CHECK+37, CHECK+39, CHECK+47, CHECK+70, CHECK+73, CHECK+74
DIC	DELETE+6~
DIE	DELETE+6~, DELETE+12, DELETE+28~, DELETE+29
DR	DELETE+6~, DELETE+13, DELETE+14, DELETE+15, DELETE+16, DELETE+17, DELETE+18, DELETE+19, DELETE+20, DELETE+21* , DELETE+28~, DELETE+30*
EIEN	CHECK+9~, CHECK+59*, CHECK+60
ERROR	CHECK~, CHECK+10, CHECK+19, CHECK+21, CHECK+23, CHECK+24, CHECK+25, CHECK+28, CHECK+35, CHECK+37* , CHECK+39, CHECK+40, CHECK+42, CHECK+44, CHECK+45, CHECK+47, CHECK+48, CHECK+53, CHECK+58, CHECK+60* , CHECK+65, CHECK+66, CHECK+67, CHECK+70, CHECK+73, CHECK+74
EXCLUDE	ISCD+8~
EXCLUDE(	ISCD+23, ISCD+24*
EXIT	CHECK+9~, CHECK+49, CHECK+51, CHECK+53, CHECK+54, CHECK+56, CHECK+58, CHECK+60, CHECK+61, CHECK+63 , CHECK+65, CHECK+66, CHECK+68
EXT	ISCD+8~, ISCD+17*, ISCD+18, ISCD+19, ISCD+22
EXTERNAL	CHECK+9~, CHECK+27, CHECK+31, CHECK+32, CHECK+33, CHECK+41*, CHECK+42, CHECK+43
FILE	ERRDISP~, ERRDISP+4
FLD	CHECK+9~, CHECK+17*, CHECK+18
ISCD	CHECK+9~, CHECK+72*, CHECK+73, CHECK+74
ITEM	CHECK+9~, CHECK+49, CHECK+51, CHECK+52, CHECK+53, CHECK+56, CHECK+57, CHECK+58, CHECK+59, CHECK+60 , CHECK+63, CHECK+64, CHECK+65, CHECK+66, CHECK+67
LCODE	ISCD+8~, ISCD+15, ISCD+16, ISCD+17
LIEN	ISCD+8~, ISCD+19*, ISCD+20, ISCD+21
LIMB	ISCD+8~, ISCD+21*, ISCD+22, ISCD+23, ISCD+24
LINE	ERRDISP+1~, ERRDISP+2, ERRDISP+5
OK	CHECK+9~, CHECK+27, CHECK+30, CHECK+32, CHECK+34, CHECK+35
POP	CHECK+9~, CHECK+15, CHECK+16, CHECK+17, CHECK+18, CHECK+19, CHECK+21*
RESULT	CHECK+9~, CHECK+33, CHECK+34, CHECK+43, CHECK+44
SIEN	DELETE+24~, DELETE+26, DELETE+27, DELETE+31
SUB	ISCD+8~, ISCD+9, ISCD+10, ISCD+11, ISCD+13, ISCD+14, ISCD+16, ISCD+17, ISCD+19, ISCD+21 , ISCD+23, ISCD+24, ISCD+26, ISCD+27, ISCD+28
SUBFILE	DELETE+24~, DELETE+25*, DELETE+27, DELETE+29
SUCCESS	DELETE+6~, DELETE+7, DELETE+10, DELETE+11*, DELETE+35
VALID	CHECK+9~, CHECK+13, CHECK+75, CHECK+76

Customize PDF page

Package: Registration

Routine: DGENCDA1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: