DGENCDA1 ;ALB/CJM,RMM Zoltan,JAN,PHH,BRM,CKN - Catastrophic Disabilty API - File Data;Sep 16, 2002 ; 9/22/05 5:25pm
Source file <DGENCDA1.m>
Package | Total | Call Graph |
---|---|---|
Registration | 2 | ($$LIMBCODE,$$LIMBOK,$$RANGEMET,$$TYPE,$$VALID)^DGENA5 $$UPPER^DGUTL |
VA Fileman | 2 | (,CHK)^DIE $$EXTERNAL^DILFD |
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) | ;
|
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, CHK^DIE, EXTERNAL^DILFD |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGEN(27.17 - [#27.17] | ISCD+19 |
^DPT - [#2] | LOCK+7, UNLOCK+6, DELETE+9, DELETE+25, DELETE+27 |
Name | Line Occurrences |
---|---|
$$ISCD | CHECK+72 |
$$LOCK | DELETE+11 |
UNLOCK | DELETE+34 |
>> | 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 |