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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
HINQ 3 MM^DVBHQM11  S1^DVBHQZ6  SCRHD^DVBHUTIL  
VA FileMan 2 EN^DIQ1  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
HINQ 5 DVBHCE  DVBHCE19  DVBHINQ UPDATE  DVBHQUP  DVBHQZ6  

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 ;

External References

Name Field # of Occurrence
EN^DIQ1 DVBHS3+9, DVBHS3+11
^DIR PAUSE+2
MM^DVBHQM11 DVBHS3+52
S1^DVBHQZ6 DVBHS3+56
SCRHD^DVBHUTIL DVBHS3+13

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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(31 - [#31] CHKDIS+8
^DPT - [#2] DVBHS3+11, DVBHS3+45

Label References

Name Line Occurrences
LABELS DVBHS3+45
PAUSE DVBHS3+47

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA DVBHS3+7*
>> DA( DVBHS3+11*
>> DFN DVBHS3+4, DVBHS3+7, DVBHS3+11, DVBHS3+32, DVBHS3+37, DVBHS3+42, DVBHS3+44, DVBHS3+45
>> DIC DVBHS3+7*
>> DIQ DVBHS3+7*
>> DIQ(0 DVBHS3+7*, DVBHS3+10*
DIR PAUSE+1~
DIR(0 PAUSE+2*
>> DIRUT PAUSE+3
>> DR DVBHS3+8*, DVBHS3+10*
>> DR( DVBHS3+10*
DTIME CHKDIS+12
DVBANS CHKDIS+11~, CHKDIS+12*
>> DVBBIR DVBHS3+20
DVBC CHKDIS+3~, CHKDIS+4*, CHKDIS+5*, CHKDIS+7
>> DVBDIQ( DVBHS3+5!, DVBHS3+46, DVBHS3+48, DVBHS3+49, DVBHS3+50
>> DVBDIQ(2 DVBHS3+32, DVBHS3+37, DVBHS3+42, DVBHS3+44
DVBDIS CHKDIS+6~, CHKDIS+8*, CHKDIS+9
DVBDISAB CHKDIS+6~, CHKDIS+7*, CHKDIS+8, CHKDIS+9
DVBDT CHKEFF~, CHKEFF+1, CHKEFF+2*, CHKEFF+3*, CHKEFF+6*, CHKEFF+7*, CHKEFF+8*
>> DVBDX DVBHS3+56
>> DVBDX( CHKDIS+5, CHKDIS+7
>> DVBDXPCT DVBHS3+54
>> DVBE CHKEFF+2*
DVBEDT DVBHS3+51~, DVBHS3+52*, DVBHS3+55
>> DVBEFF DVBHS3+52
DVBERR CHKDIS+3~, CHKDIS+4*, CHKDIS+9*, CHKDIS+10
>> DVBJS DVBHS3+14*
>> DVBLIT1 DVBHS3+30, DVBHS3+35, DVBHS3+40
>> DVBOFF DVBHS3+30, DVBHS3+35, DVBHS3+40
>> DVBOFFST CHKEFF+5*, CHKEFF+6
>> DVBON DVBHS3+30, DVBHS3+35, DVBHS3+40
>> DVBP(6 DVBHS3+33, DVBHS3+38
>> DVBPTI DVBHS3+28
>> DVBSCRN DVBHS3+13*
>> DVBTOTAS DVBHS3+24
>> DVBX(1 DVBHS3+3!, DVBHS3+6*, DVBHS3+12!
IOF PAUSE+4
IOSL DVBHS3+47
IOST DVBHS3+47
>> LP DVBHS3+11*, DVBHS3+46*, DVBHS3+48, DVBHS3+49, DVBHS3+50
>> LP2 DVBHS3+4*
>> M DVBHS3+52*
>> QUIT PAUSE+3*
U DVBHS3+20, DVBHS3+33, DVBHS3+38, DVBHS3+45, CHKDIS+7
>> X DVBHS3+4*
>> X(1 DVBHS3+6, DVBHS3+12*
>> Y PAUSE+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All