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

Package: Registration

Routine: DGENCD


Information

DGENCD ;ALB/CJM,Zoltan,ISA/KWP,JAN,BRM,DJS - 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

Call Graph Total: 11

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 3 DGENCD EDIT CATASTROP DISAB  DGENCD1  DGRPCE  
Kernel 1 ^DIC(19  

Entry Points

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

External References

Name Field # of Occurrence
$$ICDVER^DGENA5 DBPROC+1
$$GET^DGENCDA EDITCD+7
DELETE^DGENCDA1 EDIT+37
$$STORE^DGENCDA2 EDITCD+18
$$FILE^DGENCDU EDIT+8, EDIT+23
$$FLD^DGENCDU EDIT+9, EDIT+24
EN^DGENLCD EN+7
$$VET^DGENPTA PATIENT+8
$$INST^DGENU EDITCD+9
$$PROMPT^DGENU EDIT+10, EDIT+26
GETPAT^DGRPTU PATIENT+6
$$UPPER^DGUTL EDIT+12
^DIR EDITCD+21, 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+21
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: !!,"Must enter at least one CD Descriptor or ""^"" to exit"
  • Line Location: EDIT+28
Function Call: WRITE
  • Prompt: !!,"CD Descriptor previously selected, cannot select same CD Descriptor twice"
  • Line Location: EDIT+34
Function Call: WRITE
  • Prompt: !!,"VETERAN IS CATASTROPHICALLY DISABLED",!
  • Line Location: EDIT+49
Function Call: WRITE
  • Prompt: !!,"VETERAN IS NOT CATASTROPHICALLY DISABLED",!
  • Line Location: EDIT+53
Function Call: WRITE
  • Prompt: !,"Has the Amputation, Disarticulation or Detachment occurred on more "
  • Line Location: CKDOAD+3
Function Call: WRITE
  • Prompt: !,"than one limb? "
  • Line Location: CKDOAD+4
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' or 'NO'.",!
  • Line Location: CKDOAD+6
Function Call: WRITE
  • Prompt: !!,"The Descriptor does not meet the criteria to be added."
  • Line Location: CKDOAD+8
Routine Call
  • DIR
  • Line Location:
    • EDITCD+21
    • AGAIN+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGEN(27.17 - [#27.17] EDIT+30, DBPROC+1

Label References

Name Line Occurrences
$$AGAIN EDITCD+20
$$CKDOAD EDIT+30
$$EDIT EDITCD+16
$$PATIENT EN+6
QEXIT EDIT+27, EDIT+28, EDIT+30, EDIT+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CK CKDOAD+1~, CKDOAD+2, CKDOAD+5*, CKDOAD+6*, CKDOAD+7*, CKDOAD+8, CKDOAD+9
CNT EDIT+37~, EDIT+39*, EDIT+41*
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, EDIT+37
DGCDIS EDITCD+7, EDITCD+16, EDITCD+18, EDIT~
DGCDIS( EDIT+10, EDIT+13*, EDIT+18, EDIT+26, EDIT+27!, EDIT+29, EDIT+37, EDIT+40, EDIT+41, EDIT+42!
, EDIT+43!, EDIT+45, EDIT+46*, EDIT+52*, QEXIT+1, QEXIT+2*
DGCDIS("DATE" EDITCD+10*, EDITCD+11
DGCDIS("DESCR" EDIT+31, EDIT+32, EDIT+33, EDIT+49, EDIT+50
DGCDIS("FACDET" EDITCD+9*
DGCDIS("METDET" EDITCD+12*
DGCDIS("REVDTE" EDITCD+11*
DGCDIS("VCD" EDIT+49*, EDIT+51*
DIR AGAIN+3~
DIR("A" EDITCD+21*, AGAIN+5*
DIR("B" AGAIN+5*
DIR(0 EDITCD+21*, AGAIN+5*
DT EDITCD+10
ENTRY EDIT+31~, EDIT+32*, EDIT+33
ERROR EN+4~, EDITCD+5~, EDITCD+18, EDITCD+20, AGAIN~, AGAIN+4
EXIT EDIT+3~, EDIT+19*, EDIT+22, EDIT+27*, EDIT+28*, EDIT+30*, EDIT+35*, EDIT+38*
EXIT1 EDIT+31~*, EDIT+32, EDIT+35*, EDIT+36
FILENUM EDIT+3~, EDIT+8*, EDIT+10, EDIT+23*, EDIT+26
FLDNUM EDIT+3~, EDIT+9*, EDIT+10, EDIT+24*, EDIT+26
FLST EDIT+3~, EDIT+15*, EDIT+17
HIT EDIT+28~*, EDIT+29*
I EDIT+29~*, EDIT+52~*
ITEM EDIT+3~, EDIT+17*, EDIT+18*, EDIT+20*, EDIT+26, EDIT+27, EDIT+29, EDIT+31, EDIT+37~, EDIT+39*
, EDIT+40*, EDIT+41, EDIT+42, EDIT+43, EDIT+44*, EDIT+45*, EDIT+46, EDIT+48*, QEXIT+1*, QEXIT+2*
LOOKUP EDIT+16~
LOOKUP( EDIT+18*, EDIT+30, EDIT+44, EDIT+45*
OK EDIT+3~, EDIT+4*, EDIT+5, EDIT+10*, EDIT+14, EDIT+27*, EDIT+28*, EDIT+30*, EDIT+35*, EDIT+38*
, EDIT+49*, EDIT+51*, EDIT+54
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+26*, EDIT+28, EDIT+30*, EDIT+31, EDIT+33, EDIT+35*
, EDIT+37, EDIT+44, EDIT+45, EDIT+46
SUB EDIT+3~, EDIT+6*, EDIT+8, EDIT+9, EDIT+10, EDIT+13, EDIT+17*, EDIT+18, EDIT+23, EDIT+24
, EDIT+26, EDIT+27, EDIT+29, EDIT+30, EDIT+31, EDIT+37, EDIT+40, EDIT+41, EDIT+42, EDIT+43
, EDIT+45, EDIT+46, QEXIT+1, QEXIT+2
SUBEXIT EDIT+3~, EDIT+47*, EDIT+48
U EDIT+30, DBPROC+1
VAL EDIT+3~, EDIT+5*, EDIT+6, EDIT+7, EDIT+12
>> X EDIT+26, EDIT+27
Y AGAIN+3~, AGAIN+7, DBPROC+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All