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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGENCD

Package: Registration

Routine: DGENCD


Information

DGENCD ;ALB/CJM,Zoltan,ISA/KWP,JAN,BRM - Catastrophic Disability Enter/Edit Option;May 24, 1999,Nov 14, 2001 ; 8/4/03 3:01pm

Source Information

Source file <DGENCD.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 10 ($$RANGEMET,$$VALID)^DGENA5  $$GET^DGENCDA  $$ISCD^DGENCDA1  $$STORE^DGENCDA2  ($$FILE,$$FLD)^DGENCDU  EN^DGENLCD  $$VET^DGENPTA  ($$INST,$$PROMPT)^DGENU  
GETPAT^DGRPTU  $$UPPER^DGUTL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DGENCD EDIT CATASTROP DISAB  DGENCD1  DGRPCE  

Entry Points

Name Comments DBIA/ICR reference
EDIT(DGCDIS) ;
EN ;
PATIENT() ;
EDITCD(DFN) ;
AGAIN(ERROR) ;

External References

Name Field # of Occurrence
$$RANGEMET^DGENA5 EDIT+52
$$VALID^DGENA5 EDIT+46
$$GET^DGENCDA EDITCD+7
$$ISCD^DGENCDA1 EDIT+59
$$STORE^DGENCDA2 EDITCD+18
$$FILE^DGENCDU EDIT+8, EDIT+26
$$FLD^DGENCDU EDIT+9, EDIT+27, EDIT+40
EN^DGENLCD EN+7
$$VET^DGENPTA PATIENT+8
$$INST^DGENU EDITCD+9
$$PROMPT^DGENU EDIT+10, EDIT+29, EDIT+41, EDIT+60
GETPAT^DGRPTU PATIENT+6
$$UPPER^DGUTL EDIT+12
^DIR AGAIN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Catastrophic disability can only be entered for eligible veterans!"
  • Line Location: PATIENT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+28
Function Call: WRITE
  • Prompt: !,"ERROR: This is not a valid test score.",!
  • Line Location: EDIT+47
Routine Call
  • DIR
  • Line Location:
    • AGAIN+6

Label References

Name Line Occurrences
$$AGAIN EDITCD+20
$$EDIT EDITCD+16
$$PATIENT EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN+4~, EN+6*, EN+7, EDITCD~, EDITCD+4, EDITCD+7, EDITCD+18, PATIENT+3~, PATIENT+4*, PATIENT+5
, PATIENT+6, PATIENT+7*, PATIENT+8, PATIENT+10*, PATIENT+11
DGCDIS EDITCD+7, EDITCD+16, EDITCD+18, EDIT~, EDIT+59
DGCDIS( EDIT+10, EDIT+13*, EDIT+19, EDIT+29, EDIT+31!, EDIT+32, EDIT+35, EDIT+36*, EDIT+41, EDIT+44*
, EDIT+45*, EDIT+50!, EDIT+56*
DGCDIS("COND" EDIT+46, EDIT+49, EDIT+52
DGCDIS("DATE" EDITCD+10*, EDITCD+11
DGCDIS("FACDET" EDITCD+9*
DGCDIS("METDET" EDITCD+12*
DGCDIS("PERM" EDIT+55*
DGCDIS("REVDTE" EDITCD+11*
DGCDIS("SCORE" EDIT+48, EDIT+54*
DGCDIS("VCD" EDIT+58*, EDIT+59*, EDIT+60, EDIT+61*
DIR AGAIN+3~
DIR("A" AGAIN+5*
DIR("B" AGAIN+5*
DIR(0 AGAIN+5*
DT EDITCD+10
ERROR EN+4~, EDITCD+5~, EDITCD+18, EDITCD+20, AGAIN~, AGAIN+4
EXIT EDIT+3~, EDIT+20*, EDIT+23, EDIT+29*, EDIT+33*, EDIT+42*
FILENUM EDIT+3~, EDIT+8*, EDIT+10, EDIT+26*, EDIT+29, EDIT+41
FLDNUM EDIT+3~, EDIT+9*, EDIT+10, EDIT+27*, EDIT+29, EDIT+40*, EDIT+41
FLST EDIT+3~, EDIT+16*, EDIT+18, EDIT+25, EDIT+31, EDIT+38, EDIT+39, EDIT+50, EDIT+51, EDIT+53
GETOUT EDIT+3~, EDIT+15*, EDIT+16, EDIT+29*
ITEM EDIT+3~, EDIT+18*, EDIT+19*, EDIT+21*, EDIT+29, EDIT+31, EDIT+32*, EDIT+33, EDIT+34*, EDIT+35*
, EDIT+36, EDIT+41, EDIT+44, EDIT+45, EDIT+46, EDIT+48, EDIT+49, EDIT+50, EDIT+52, EDIT+54
, EDIT+55, EDIT+56, EDIT+57*
LOOKUP EDIT+17~
LOOKUP( EDIT+19*, EDIT+34, EDIT+35*, EDIT+49!
OK EDIT+3~, EDIT+4*, EDIT+5, EDIT+10*, EDIT+14, EDIT+16, EDIT+60*, EDIT+61, EDIT+62
PC EDIT+24~, EDIT+31*, EDIT+38*, EDIT+39, EDIT+50*, EDIT+51*, EDIT+53*
QUIT EN+4~, EN+5*, EDITCD+5~, EDITCD+6*, EDITCD+14, EDITCD+16*, EDITCD+18*, EDITCD+20*, PATIENT+3~, PATIENT+4*
, PATIENT+5, PATIENT+7*
REQ EDIT+3~, EDIT+7*, EDIT+10
RESPONSE EDIT+3~, EDIT+10, EDIT+12*, EDIT+13, EDIT+29, EDIT+30, EDIT+34, EDIT+35, EDIT+36, EDIT+41
, EDIT+42, EDIT+44, EDIT+45, EDIT+46, EDIT+52, EDIT+54, EDIT+56, EDIT+60, EDIT+61
SUB EDIT+3~, EDIT+6*, EDIT+8, EDIT+9, EDIT+10, EDIT+13, EDIT+18*, EDIT+19, EDIT+25*, EDIT+26
, EDIT+27, EDIT+29, EDIT+32, EDIT+35, EDIT+36, EDIT+39*, EDIT+40, EDIT+41, EDIT+43, EDIT+44
, EDIT+45, EDIT+46, EDIT+52, EDIT+56
SUBEXIT EDIT+3~, EDIT+37*, EDIT+38, EDIT+41*, EDIT+42*, EDIT+57
VAL EDIT+3~, EDIT+5*, EDIT+6, EDIT+7, EDIT+12
Y AGAIN+3~, AGAIN+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All