Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGENCDA1

Package: Registration

Routine: DGENCDA1


Information

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

Source Information

Source file <DGENCDA1.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 6

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All