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

Package: Automated Medical Information Exchange

Routine: DVBCUTL3


Information

DVBCUTL3 ;ALB/GTS-557/THM-DVBCUTL2, CONTINUED ; 5/17/91 11:35 AM

Source Information

Source file <DVBCUTL3.m>

Entry Points

Name Comments DBIA/ICR reference
KILL
LKILL
DDIS1
DDIS ;display rated disabilities
TST
CONTST
TST1
TERM ; ** If output to CRT, display 'Continue' prompt **
BOT ;**Write form # at bottom
RMRK ;** Write remarks continued at top of page

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?2,DVBCDX,?37,$J(PCT,3,0)," %",?50,$S(DVBCSC=1:"Yes",1:"No")
  • Line Location: DDIS1+4
Function Call: WRITE
  • Prompt: ?58,DXCOD,!
  • Line Location: DDIS1+5
Function Call: WRITE
  • Prompt: !,"VA Form 21-2507"
  • Line Location: DDIS1+6
Function Call: WRITE
  • Prompt: !?25,"No rated disabilities on file",!!
  • Line Location: DDIS+1
Function Call: WRITE
  • Prompt: !?2,"Rated Disability",?37,"Percent",?50,"SC ?",?58,"Dx Code",!
  • Line Location: DDIS+2
Function Call: WRITE
  • Prompt: ?2
  • Line Location: DDIS+2
Function Call: WRITE
  • Prompt: ?2
  • Line Location: DDIS+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DDIS+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: DDIS+5
Function Call: WRITE
  • Prompt: ?3
  • Line Location: TST+0
Function Call: WRITE
  • Prompt: !,"VA Form 21-2507"
  • Line Location: TST1+0
Function Call: WRITE
  • Prompt: !?1
  • Condition for execution: (($L(PRTNM)+$L(TSTA1)+$X)>55!($D(DVBAINSF)))
  • Line Location: TST1+6
Function Call: WRITE
  • Prompt: $S(PRTNM]"":PRTNM,1:"Missing exam name")_$S(TSTA1]"":" - cancelled ("_TSTA1_")",TSTAT="T":" - Transferred",TSTAT="":" (Unknown status)",1:"")," (Exam Ref#: ",DA,")"
  • Line Location: TST1+6
Function Call: WRITE
  • Prompt: " to ",$P(X,".",1)
  • Line Location: TST1+7
Function Call: WRITE
  • Prompt: "; "
  • Line Location: TST1+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TERM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: !,"VA Form 21-2507"
  • Line Location: BOT+3
Function Call: WRITE
  • Prompt: !!?3,"Insufficient remarks, continued",!!
  • Line Location: RMRK+1
Info |  Source |  Entry Points |  Interaction Calls