Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGENCDA1

Package: Registration

Routine: DGENCDA1


Information

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

Source Information

Source file <DGENCDA1.m>

Entry Points

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) ;

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] CHK^DIE,  EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call