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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Local Variables |  All
Print Page as PDF
Routine: DGVPTDV3

Package: Registration

Routine: DGVPTDV3


Information

DGVPTDV3 ;alb/mjk - DVBHS2 for export with PIMS v5.3; 4/21/93

Source Information

Source file <DGVPTDV3.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
HINQ 2 MM^DVBHQM11  SCRHD^DVBHUTIL  
VA Fileman 1 EN^DIQ1  

Entry Points

Name Comments DBIA/ICR reference
DVBHS2 ;ALB/JLU;This is the display for screen 2;10/7/91

External References

Name Field # of Occurrence
EN^DIQ1 DVBHS2+9
MM^DVBHQM11 DVBHS2+23, DVBHS2+34, DVBHS2+35
SCRHD^DVBHUTIL DVBHS2+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DVBON,"[1]",DVBOFF
  • Line Location: DVBHS2+15
Function Call: WRITE
  • Prompt: ?4,"Claim Num. :"
  • Line Location: DVBHS2+16
Function Call: WRITE
  • Prompt: ?19,DVBDIQ(2,DFN,.313,"E")
  • Line Location: DVBHS2+17
Function Call: WRITE
  • Prompt: ?49,DVBCN
  • Line Location: DVBHS2+18
Function Call: WRITE
  • Prompt: !,DVBON,"[2]",DVBOFF
  • Line Location: DVBHS2+20
Function Call: WRITE
  • Prompt: ?4,"Date of Birth:"
  • Line Location: DVBHS2+21
Function Call: WRITE
  • Prompt: ?19,DVBDIQ(2,DFN,.03,"E")
  • Line Location: DVBHS2+22
Function Call: WRITE
  • Prompt: ?49,M_" "_$E(DVBDOB,3,4)_", "_$E(DVBDOB,5,8)
  • Line Location: DVBHS2+23
Function Call: WRITE
  • Prompt: !,DVBON,"[3]",DVBOFF
  • Line Location: DVBHS2+25
Function Call: WRITE
  • Prompt: ?4,"Sex:"
  • Line Location: DVBHS2+26
Function Call: WRITE
  • Prompt: ?19,DVBDIQ(2,DFN,.02,"E")
  • Line Location: DVBHS2+27
Function Call: WRITE
  • Prompt: ?49,$S($P(DVBVET,U,3)="M":"MALE",$P(DVBVET,U,3)="F":"FEMALE",1:"")
  • Line Location: DVBHS2+28
Function Call: WRITE
  • Prompt: ?49,$S($P(DVBBIR,U,25)="M":"MALE",$P(DVBBIR,U,25)="F":"FEMALE",1:"")
  • Line Location: DVBHS2+29
Function Call: WRITE
  • Prompt: !,DVBON,"[4]",DVBOFF
  • Line Location: DVBHS2+31
Function Call: WRITE
  • Prompt: ?4,"Date of Death:"
  • Line Location: DVBHS2+32
Function Call: WRITE
  • Prompt: ?19,DVBDIQ(2,DFN,.351,"E")
  • Line Location: DVBHS2+33
Function Call: WRITE
  • Prompt: ?49,M_" "_$E(M2,7,8)_", "_$E(M2,1,4)
  • Line Location: DVBHS2+34
Function Call: WRITE
  • Prompt: ?49,M_" "_$E(DVBP(6),3,4)_", "_$E(DVBP(6),5,8)
  • Line Location: DVBHS2+35
Function Call: WRITE
  • Prompt: !,DVBON,"[5]",DVBOFF
  • Line Location: DVBHS2+37
Function Call: WRITE
  • Prompt: ?4,"Rated Incomp.:"
  • Line Location: DVBHS2+38
Function Call: WRITE
  • Prompt: ?19,DVBDIQ(2,DFN,.293,"E")
  • Line Location: DVBHS2+39
Function Call: WRITE
  • Prompt: ?49,$S("1"[DVBCI:"Competent, or not an issue","2"[DVBCI:"Incompetent",1:DVBCI)
  • Line Location: DVBHS2+40
Function Call: WRITE
  • Prompt: !,DVBON,"[6]",DVBOFF
  • Line Location: DVBHS2+42
Function Call: WRITE
  • Prompt: ?4,"POW:"
  • Line Location: DVBHS2+43
Function Call: WRITE
  • Prompt: ?19,DVBDIQ(2,DFN,.525,"E")
  • Line Location: DVBHS2+44
Function Call: WRITE
  • Prompt: ?49,$S(DVBPOW=0:"No Prisoner of war",DVBPOW=1:"Less than 30 days",DVBPOW=2:"30 days or more",DVBPOW=" ":"Not applicable",1:DVBPOW)
  • Line Location: DVBHS2+45
Function Call: WRITE
  • Prompt: ?49,DVBPOWD
  • Line Location: DVBHS2+46
Function Call: WRITE
  • Prompt: !,DVBON,"[7]",DVBOFF
  • Line Location: DVBHS2+53
Function Call: WRITE
  • Prompt: ?4,"Folder Loc. :"
  • Line Location: DVBHS2+54
Function Call: WRITE
  • Prompt: ?19,DVBDIQ(2,DFN,.314,"E")
  • Line Location: DVBHS2+55
Function Call: WRITE
  • Prompt: ?49,DVBFL
  • Line Location: DVBHS2+56
Function Call: WRITE
  • Prompt: !,DVBON,"[8]",DVBOFF
  • Line Location: DVBHS2+58
Function Call: WRITE
  • Prompt: ?4,"Unemployable:"
  • Line Location: DVBHS2+59
Function Call: WRITE
  • Prompt: ?19,DVBDIQ(2,DFN,.305,"E")
  • Line Location: DVBHS2+60
Function Call: WRITE
  • Prompt: ?49,$S(DVBEI=1:"Employable",DVBEI=2:"Unemployable",1:DVBEI)
  • Line Location: DVBHS2+61

FileMan Files Accessed Via FileMan Db Call

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA DVBHS2+7*
>> DFN DVBHS2+5, DVBHS2+7, DVBHS2+17, DVBHS2+22, DVBHS2+27, DVBHS2+33, DVBHS2+39, DVBHS2+44, DVBHS2+55, DVBHS2+60
>> DIC DVBHS2+7*
>> DIQ DVBHS2+7*
>> DIQ(0 DVBHS2+7*
>> DR DVBHS2+8*
>> DVBBIR DVBHS2+29
>> DVBCAP DVBHS2+45
>> DVBCI DVBHS2+40
>> DVBCN DVBHS2+18
>> DVBDIQ(2 DVBHS2+17, DVBHS2+22, DVBHS2+27, DVBHS2+33, DVBHS2+39, DVBHS2+44, DVBHS2+55, DVBHS2+60
>> DVBDOB DVBHS2+23
>> DVBEI DVBHS2+61
>> DVBFL DVBHS2+56
>> DVBJS DVBHS2+13*
>> DVBLIT1 DVBHS2+15, DVBHS2+20, DVBHS2+25, DVBHS2+31, DVBHS2+37, DVBHS2+42, DVBHS2+53, DVBHS2+58
>> DVBOFF DVBHS2+15, DVBHS2+20, DVBHS2+25, DVBHS2+31, DVBHS2+37, DVBHS2+42, DVBHS2+53, DVBHS2+58
>> DVBON DVBHS2+15, DVBHS2+20, DVBHS2+25, DVBHS2+31, DVBHS2+37, DVBHS2+42, DVBHS2+53, DVBHS2+58
>> DVBP(6 DVBHS2+35
>> DVBPOW DVBHS2+45
>> DVBPOWD DVBHS2+46
>> DVBSCRN DVBHS2+12*
>> DVBVET DVBHS2+28, DVBHS2+34
>> DVBX(1 DVBHS2+4!, DVBHS2+6*, DVBHS2+10!
>> LP2 DVBHS2+5*
M DVBHS2+23*!, DVBHS2+34*!, DVBHS2+35*!
M2 DVBHS2+34*!
U DVBHS2+28, DVBHS2+29, DVBHS2+34, DVBHS2+35
>> X DVBHS2+5*
>> X(1 DVBHS2+6, DVBHS2+10*
Y DVBHS2+3~, DVBHS2+62!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Local Variables |  All