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: DGENCD1

Package: Registration

Routine: DGENCD1


Information

DGENCD1 ;ALB/CJM,Zoltan,PHH,BRM,DJS - Catastrophic Disability Protocols; 02/17/2005

;;5.3;Registration;**121,232,387,451,610,894**;Aug 13,1993;Build 48

Source Information

Source file <DGENCD1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 6 $$PRIORITY^DGENA  EDITCD^DGENCD  ($$CDTYPE,$$CHKSITE,$$GET,$$HASCAT)^DGENCDA  $$STORE^DGENCDA2  BLD^DGENL  (EN,INIT)^DGENLCD  
Kernel 2 (BMES,MES)^XPDUTL  $$NS^XUAF4  
VA FileMan 2 YN^DICN  ^DIR  
List Manager 1 FULL^VALM1  

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: 5

Package Total Caller Graph
Registration 4 DGENCD ADD/EDIT CATASTROPHIC DISABILITY  DGENCD CATASTROPHIC DISABILITY  DGENCD DELETE CATASTROPHIC DISABILITY  DGENU  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN) ;Entry point for DGENCD CATASTROPHIC DISABILITY protocol
DELETECD ;Entry point for DGENCD DELETE CATASTROPHIC DISABILITY protocol
; Input -- DFN Patient IEN
; Output -- VALMBCK R =Refresh screen
YN(PROMPT,DFLT) ; Ask user a yes/no question.
RUSURE(DFN) ;
ADDCD ;Entry point for DGENCD ADD/EDIT CATASTROPHIC DISABILITY protocol
; Input -- DFN Patient IEN
; Output -- VALMBCK R =Refresh screen

External References

Name Field # of Occurrence
$$PRIORITY^DGENA ADDCD+28
EDITCD^DGENCD ADDCD+36
$$CDTYPE^DGENCDA ADDCD+6, RUSURE+14
$$CHKSITE^DGENCDA ADDCD+7, RUSURE+6
$$GET^DGENCDA DELETECD+6
$$HASCAT^DGENCDA RUSURE+26
$$STORE^DGENCDA2 DELETECD+18
BLD^DGENL EN+2
EN^DGENLCD EN+1
INIT^DGENLCD ADDCD+36, DELETECD+19
YN^DICN YN+6
^DIR ADDCD+25, DELETECD+9, RUSURE+12, RUSURE+19, RUSURE+29
FULL^VALM1 ADDCD+5, DELETECD+5
BMES^XPDUTL ADDCD+9, ADDCD+14, ADDCD+21, RUSURE+9, RUSURE+15
MES^XPDUTL ADDCD+10, ADDCD+11, ADDCD+15, ADDCD+16, ADDCD+17, ADDCD+22, ADDCD+23, RUSURE+10, RUSURE+11, RUSURE+16
$$NS^XUAF4 ADDCD+20, RUSURE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"According to the veteran's current enrollment record, the",!
  • Line Location: ADDCD+31
Function Call: WRITE
  • Prompt: "assignment of a Catastrophically Disabled Status will not",!
  • Line Location: ADDCD+32
Function Call: WRITE
  • Prompt: "improve his/her enrollment priority.",!!
  • Line Location: ADDCD+33
Function Call: WRITE
  • Prompt: !!,">>> Deleting the Catastrophic Disability information will <<<",!
  • Line Location: RUSURE(DFN)+27
Function Call: WRITE
  • Prompt: ">>> also delete all supporting fields, including Descriptors. <<<",!
  • Line Location: RUSURE(DFN)+28
Function Call: WRITE
  • Prompt: PROMPT
  • Line Location: YN(PROMPT,DFLT)+4
Function Call: WRITE
  • Prompt: !
  • Line Location: YN(PROMPT,DFLT)+7
Function Call: WRITE
  • Prompt: ?5,"You can just enter 'Y' or 'N'.",!!
  • Line Location: YN(PROMPT,DFLT)+9
Routine Call
  • DIR
  • Line Location:
    • ADDCD+25
    • DELETECD+9
    • RUSURE+12
    • RUSURE+19
    • RUSURE+29

Label References

Name Line Occurrences
$$RUSURE DELETECD+13
$$YN ADDCD+12, ADDCD+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% YN+2~, YN+5*, YN+8
%Y YN+2~
CDSITE ADDCD+3~, ADDCD+7*, ADDCD+8, ADDCD+20
DFLT YN~, YN+1*, YN+5
DFN EN~, EN+1, EN+2, ADDCD+6, ADDCD+7, ADDCD+28, ADDCD+36, DELETECD+6, DELETECD+13, DELETECD+18
, RUSURE~, RUSURE+6, RUSURE+14, RUSURE+26
DGCDIS DELETECD+3~, DELETECD+6, DELETECD+18
DGCDIS( DELETECD+11*, DELETECD+16*
DGCDIS("DESCR" DELETECD+6, DELETECD+17!
DGCDIS("VCD" DELETECD+10*, DELETECD+14*
DIR RUSURE+5~, RUSURE+21!
DIR("A" ADDCD+25*, DELETECD+9*, RUSURE+12*, RUSURE+18*, RUSURE+24*
DIR("B" RUSURE+17*, RUSURE+25*
DIR(0 ADDCD+25*, DELETECD+9*, RUSURE+12*, RUSURE+17*, RUSURE+23*
DIROUT RUSURE+5~, RUSURE+20
DIRUT RUSURE+5~, RUSURE+20, RUSURE+30
DTOUT RUSURE+5~, RUSURE+20
DUOUT RUSURE+5~, RUSURE+20
ERROR DELETECD+15~, DELETECD+18
EXIT ADDCD+3~, ADDCD+4*, ADDCD+18*, ADDCD+24*, ADDCD+26, ADDCD+35*, ADDCD+36
I DELETECD+11~*, DELETECD+15~, DELETECD+16*, DELETECD+17*
NOERR RUSURE+5~, RUSURE+14, RUSURE+20*
PRI ADDCD+3~, ADDCD+28*, ADDCD+29
PROMPT YN~, YN+4
SITE RUSURE+5~, RUSURE+6*, RUSURE+7, RUSURE+8
SITEINF ADDCD+20*, ADDCD+21, ADDCD+22, RUSURE+5~, RUSURE+8*, RUSURE+9, RUSURE+10
>> VALMBCK ADDCD+4*, ADDCD+26*, ADDCD+37*, DELETECD+4*, DELETECD+20*
Y RUSURE+20, RUSURE+21!, RUSURE+31
YN ADDCD+3~, ADDCD+12*, ADDCD+13, ADDCD+34*, ADDCD+35, YN+2~, YN+3, YN+8*, YN+9, YN+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All