Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DGENCD1

Package: Registration

Routine: DGENCD1


Information

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

Source Information

Source file <DGENCD1.m>

Entry Points

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

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+27
Function Call: WRITE
  • Prompt: ">>> also delete all supporting fields, including Descriptors. <<<",!
  • Line Location: RUSURE+28
Function Call: WRITE
  • Prompt: PROMPT
  • Line Location: YN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: YN+7
Function Call: WRITE
  • Prompt: ?5,"You can just enter 'Y' or 'N'.",!!
  • Line Location: YN+9
Info |  Source |  Entry Points |  Interaction Calls