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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DVBHS5

Package: HINQ

Routine: DVBHS5


Information

DVBHS5 ; ALB/JLU;Routine for HINQ screen 5 ; 7/13/05 12:58pm

Source Information

Source file <DVBHS5.m>

Entry Points

Name Comments DBIA/ICR reference
LINE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Check Amt.: ",$S($D(DVBCHECK):"$"_DVBCHECK,1:"")
  • Line Location: DVBHS5+19
Function Call: WRITE
  • Prompt: ?28,"Combined %: ",$S($D(DVBDXPCT):+DVBDXPCT_"%",1:"")
  • Line Location: DVBHS5+20
Function Call: WRITE
  • Prompt: ?48,"Net Award Amt.: ",$S($D(DVBBAS(1)):"$"_$P(DVBBAS(1),U,20),1:"")
  • Line Location: DVBHS5+21
Function Call: WRITE
  • Prompt: !,"Benefit Type:",?15,$S($D(DVBENT):DVBENT,1:"")
  • Line Location: DVBHS5+26
Function Call: WRITE
  • Prompt: ?40,"Income for VA Purposes: $"_$S($P($G(DVBINC),U,15)>0:$P(DVBINC,U,15)_".00",1:"0.00")
  • Line Location: DVBHS5+27
Function Call: WRITE
  • Prompt: !,"Aid & Attendance: "
  • Line Location: DVBHS5+28
Function Call: WRITE
  • Prompt: Y
  • Line Location: DVBHS5+28
Function Call: WRITE
  • Prompt: !!,"--- ",DVBON,"Patient Data",DVBOFF," ---"
  • Line Location: DVBHS5+32
Function Call: WRITE
  • Prompt: !,DVBON,"(1)",DVBOFF," Elig. Stat.: ",$E(DVBDIQ(2,DFN,.3611,"E"),1,20)
  • Line Location: DVBHS5+33
Function Call: WRITE
  • Prompt: ?38,"Elig. Stat. ent. by: ",$E(DVBDIQ(2,DFN,.3616,"E"),1,18)
  • Line Location: DVBHS5+34
Function Call: WRITE
  • Prompt: !,?5,"Stat. date: ",DVBDIQ(2,DFN,.3612,"E")
  • Line Location: DVBHS5+35
Function Call: WRITE
  • Prompt: ?37,"Monetary Ben. Verif.: ",DVBDIQ(2,DFN,.306,"E")
  • Line Location: DVBHS5+36
Function Call: WRITE
  • Prompt: !,?3,"Verif. Meth.: ",$E(DVBDIQ(2,DFN,.3615,"E"),1,50)
  • Line Location: DVBHS5+37
Function Call: WRITE
  • Prompt: ?44,"Patient Elig.: "
  • Line Location: DVBHS5+38
Function Call: WRITE
  • Prompt: $S($G(DVBOH)]"":$E(DVBOH,1,18),1:"")
  • Line Location: DVBHS5+47
Function Call: WRITE
  • Prompt: !!,DVBON,"(2)",DVBOFF," Pat. Type: ",$E(DVBDIQ(2,DFN,391,"E"),1,20)
  • Line Location: DVBHS5+48
Function Call: WRITE
  • Prompt: ?36,"Vet.(Y/N)?: ",DVBDIQ(2,DFN,1901,"E")
  • Line Location: DVBHS5+49
Function Call: WRITE
  • Prompt: !,?4,"Ser. Con.: ",DVBDIQ(2,DFN,.301,"E")
  • Line Location: DVBHS5+50
Function Call: WRITE
  • Prompt: ?36,"Elig. Code: ",$E(DVBDIQ(2,DFN,.361,"E"),1,30)
  • Line Location: DVBHS5+52
Function Call: WRITE
  • Prompt: !!,DVBON,"(3)",DVBOFF," A&A: ",DVBDIQ(2,DFN,.36205,"E")
  • Line Location: DVBHS5+53
Function Call: WRITE
  • Prompt: ?41,"VA Pension: ",DVBDIQ(2,DFN,.36235,"E")
  • Line Location: DVBHS5+55
Function Call: WRITE
  • Prompt: !,"House Bound: ",DVBDIQ(2,DFN,.36215,"E")
  • Line Location: DVBHS5+57
Function Call: WRITE
  • Prompt: ?38,"VA Disability: ",DVBDIQ(2,DFN,.3025,"E")
  • Line Location: DVBHS5+59
Function Call: WRITE
  • Prompt: !,"Tot.Ann. VA Check Amt.: $",DVBDIQ(2,DFN,.36295,"E")
  • Line Location: DVBHS5+61
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------------------------"
  • Line Location: LINE+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call