Routine: DGENCDA1

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

DGENCDA1 ;ALB/CJM,RMM Zoltan,JAN,PHH,BRM,CKN,DJS - Catastrophic Disabilty API - File Data;Sep 16, 2002 ; 9/22/05 5:25pm

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

Name	Line Occurrences
Function Call: WRITE	Prompt: "ERROR updating ",$S(FILE=2.401:"CD DESCRIPTORS",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