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

Package: HINQ

Routine: DVBHS3


Information

DVBHS3 ; ALB/JLU;Routine for HINQ screen 3 ; 8/22/05 9:46pm

Source Information

Source file <DVBHS3.m>

Entry Points

Name Comments DBIA/ICR reference
PAUSE ;
CHKDIS ;check to see if any of the disabilities comng from VBA are absent
CHKEFF(DVBDT) ;
LABELS ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: +DVBDXPCT
  • Line Location: DVBHS3+18
Function Call: WRITE
  • Prompt: !,"Act. Duty Training: "
  • Line Location: DVBHS3+19
Function Call: WRITE
  • Prompt: $S($P(DVBBIR,U,24)["Y":"YES",$P(DVBBIR,U,24)["N":"NO",1:"")
  • Line Location: DVBHS3+20
Function Call: WRITE
  • Prompt: ?24,"Tot. Act. Ser.: "
  • Line Location: DVBHS3+23
Function Call: WRITE
  • Prompt: ?40,DVBTOTAS
  • Line Location: DVBHS3+24
Function Call: WRITE
  • Prompt: ?63,"Perm. & Tot.: "
  • Line Location: DVBHS3+26
Function Call: WRITE
  • Prompt: ?56,$S(DVBPTI=2:"No",DVBPTI=3:"Yes",1:"")
  • Line Location: DVBHS3+28
Function Call: WRITE
  • Prompt: !,DVBON,"[1]",DVBOFF
  • Line Location: DVBHS3+30
Function Call: WRITE
  • Prompt: ?4,"Ver. SVC data: "
  • Line Location: DVBHS3+31
Function Call: WRITE
  • Prompt: ?21,DVBDIQ(2,DFN,.322,"E")
  • Line Location: DVBHS3+32
Function Call: WRITE
  • Prompt: ?49,$S($P(DVBP(6),U,8)["Y":"YES",$P(DVBP(6),U,8)["N":"NO",1:"")
  • Line Location: DVBHS3+33
Function Call: WRITE
  • Prompt: !,DVBON,"[2]",DVBOFF
  • Line Location: DVBHS3+35
Function Call: WRITE
  • Prompt: ?4,"Vietnam Ser.:"
  • Line Location: DVBHS3+36
Function Call: WRITE
  • Prompt: ?21,DVBDIQ(2,DFN,.32101,"E")
  • Line Location: DVBHS3+37
Function Call: WRITE
  • Prompt: ?49,$S($P(DVBP(6),U,4)["Y":"YES",$P(DVBP(6),U,4)["N":"NO",1:"")
  • Line Location: DVBHS3+38
Function Call: WRITE
  • Prompt: !,DVBON,"[3]",DVBOFF
  • Line Location: DVBHS3+40
Function Call: WRITE
  • Prompt: ?4,"Rated Disab.(Pat. File)-Comb. SC%: "
  • Line Location: DVBHS3+41
Function Call: WRITE
  • Prompt: ?37,$S(DVBDIQ(2,DFN,.302,"E")]"":+DVBDIQ(2,DFN,.302,"E"),1:"")
  • Line Location: DVBHS3+42
Function Call: WRITE
  • Prompt: ?42,"Eff. Date Comb. Eval.: "_DVBDIQ(2,DFN,.3014,"E")
  • Line Location: DVBHS3+44
Function Call: WRITE
  • Prompt: !,$E(DVBDIQ(2.04,LP,.01,"E"),1,40),?42,DVBDIQ(2.04,LP,2,"E")
  • Line Location: DVBHS3+48
Function Call: WRITE
  • Prompt: ?50,$G(DVBDIQ(2.04,LP,4,"I")),?55,$G(DVBDIQ(2.04,LP,5,"E"))
  • Line Location: DVBHS3+49
Function Call: WRITE
  • Prompt: ?68,$G(DVBDIQ(2.04,LP,6,"E"))
  • Line Location: DVBHS3+50
Function Call: WRITE
  • Prompt: !,?4,"Rated Disab. (HINQ)- Comb. SC%: "
  • Line Location: DVBHS3+53
Function Call: WRITE
  • Prompt: ?39,$S($G(DVBDXPCT)]"":+DVBDXPCT,1:"")
  • Line Location: DVBHS3+54
Function Call: WRITE
  • Prompt: ?44,"Eff. Date Comb. Eval.: "_$G(DVBEDT)
  • Line Location: DVBHS3+55
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: !,"Disability code "_DVBDISAB_" is missing from this site's DISABILITY",!,"CONDITIONS file (#13). "_DVBDISAB_" not updated to VistA. Check with ADPAC."
  • Line Location: CHKDIS+9
Function Call: WRITE
  • Prompt: !?55,"Original",?68,"Current"
  • Line Location: LABELS+1
Function Call: WRITE
  • Prompt: !?3,"Disability",?43,"%",?49,"Extr.",?54,"Eff. Date",?67,"Eff. Date"
  • Line Location: LABELS+2

FileMan Files Accessed Via FileMan Db Call

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