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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGRP6

Package: Registration

Routine: DGRP6


Information

DGRP6 ;ALB/MRL,LBD,TMK,JAM - REGISTRATION SCREEN 6/SERVICE INFORMATION ;5/12/11 10:49am

Source Information

Source file <DGRP6.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 6 GETMSE^DGRP61  CL^DGRP6CL2  EF^DGRP6EF  ^DGRPP  H^DGRPU  (WW,WW1,WW2)^DGRPV  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 EN^DDIOL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRP6EF  

Entry Points

Name Comments DBIA/ICR reference
DAT
YN
Q
S ;Write Military Service Episodes (DG*5.3*797)
DEN
MR
SETLNEX(Z,SEQ,LIN,LENGTH) ;

External References

Name Field # of Occurrence
EN^DDIOL DGRP6+36
GETMSE^DGRP61 DGRP6+9
CL^DGRP6CL2 DGRP6+12
EF^DGRP6EF DGRP6+15
^DGRPP Q+1
H^DGRPU DGRP6+3
WW^DGRPV DGRP6+18, DGRP6+19, DGRP6+20, DGRP6+25, DGRP6+27
WW1^DGRPV DGRP6+4, DGRP6+13, DGRP6+16, YN, DAT+2
WW2^DGRPV DGRP6+4, DGRP6+13, DGRP6+16
$$FMTE^XLFDT DAT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Discharge"
  • Line Location: DGRP6+4
Function Call: WRITE
  • Prompt: !?4,"------------------------",?30,"---------",?47,"-------",?58,"---------",?70,"---------"
  • Line Location: DGRP6+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP6+11
Function Call: WRITE
  • Prompt: !,?25,LIN(Z)
  • Line Location: DGRP6+14
Function Call: WRITE
  • Prompt: !,?4,"+ ",LIN(Z)
  • Line Location: DGRP6+17
Function Call: WRITE
  • Prompt: " POW: "
  • Line Location: DGRP6+18
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+18
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+18
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+18
Function Call: WRITE
  • Prompt: " Combat: "
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: " Mil Disab Retirement: ",$S(X=0:"NO",X=1:"YES",1:"")
  • Line Location: DGRP6+23
Function Call: WRITE
  • Prompt: DGSPACE_" Dischrg Due to Disab: ",$S(XX=0:"NO",XX=1:"YES",1:"")
  • Line Location: DGRP6+23
Function Call: WRITE
  • Prompt: " Dent Inj: "
  • Line Location: DGRP6+25
Function Call: WRITE
  • Prompt: "Teeth Extracted: "
  • Line Location: DGRP6+25
Function Call: WRITE
  • Prompt: " Purple Heart: "
  • Line Location: DGRP6+27
Function Call: WRITE
  • Prompt: ?26,"PH Status: "_$S($P($G(DGRPX),U,2)="1":"Pending",$P($G(DGRPX),U,2)="2":"In Process",$P($G(DGRPX),U,2)="3":"Confirmed",1:"")
  • Line Location: DGRP6+28
Function Call: WRITE
  • Prompt: ?26,"PH Remarks: "_$S($G(DGX)]"":$G(DGX),1:"")
  • Line Location: DGRP6+32
Function Call: WRITE
  • Prompt: !,"<9> Medal of Honor: YES"
  • Line Location: DGRP6+34
Function Call: WRITE
  • Prompt: !?3," Trt Date: "
  • Line Location: DEN+0
Function Call: WRITE
  • Prompt: "Cond.: ",$E($P(DGRPX,"^",2),1,45)
  • Line Location: DEN+0
Function Call: WRITE
  • Prompt: !,@GLBL@(DGL,0)
  • Line Location: S+12
Function Call: WRITE
  • Prompt: !," <more episodes>"
  • Line Location: S+15
Function Call: WRITE
  • Prompt: !," <more episodes>"
  • Line Location: S+16
Function Call: WRITE
  • Prompt: !?19,"Receiving Military retirement in lieu of VA Compensation."
  • Line Location: MR+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(22 - [#22] DGRP6+18, DGRP6+19
^DPT - [#2] DGRP6+3, DGRP6+26
^TMP("DGRP6" DGRP6+7!, DGRP6+8

Label References

Name Line Occurrences
DAT DGRP6+18, DGRP6+19, DGRP6+36, DEN
DEN DGRP6+26
S DGRP6+10
YN DGRP6+18, DGRP6+19, DGRP6+25, DGRP6+27, DGRP6+36

Naked Globals

Name Field # of Occurrence
^( DGRP6+3, DGRP6+26
^(0 DGRP6+18, DGRP6+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DGRP6+3, DGRP6+9, DGRP6+12, DGRP6+15, DGRP6+26
DGL S+1~, S+8*, S+10, S+12
>> DGRP( DGRP6+3*, DGRP6+18, DGRP6+20, DGRP6+25, DGRP6+27, DGRP6+34, DGRP6+36
DGRPD DGRP6+25*, DGRP6+26, Q!
>> DGRPS DGRP6+3*
DGRPSV Q!
>> DGRPW DGRP6+4*
>> DGRPX DGRP6+18*, DGRP6+19, DGRP6+25*, DGRP6+26*, DGRP6+27*, DGRP6+28, DGRP6+29, DGRP6+30, DGRP6+36*, YN
, DAT, DEN
DGSPACE DGRP6+21~, DGRP6+22*, DGRP6+23
>> DGX DGRP6+30*, DGRP6+31*, DGRP6+32
DIPA DGRP6+2~
GLBL DGRP6+2~, DGRP6+8*, DGRP6+9, S+2, S+8, S+10, S+12
>> I DGRP6+3*, DGRP6+26*
>> I1 DGRP6+26*
LENGTH SETLNEX~, SETLNEX+3*, SETLNEX+4*
LIN DGRP6+2~, DGRP6+12, DGRP6+15, SETLNEX~, SETLNEX+1*, SETLNEX+3*, SETLNEX+4
LIN( DGRP6+14, DGRP6+17, SETLNEX+3*, SETLNEX+4*
LIN(1 DGRP6+13, DGRP6+16, SETLNEX+1*
MSECNT S+1~, S+7*, S+10*, S+11, S+16
SEQ SETLNEX~, SETLNEX+2
U DGRP6+28, DGRP6+29, DGRP6+30, DGRP6+36
>> X DGRP6+18*, DGRP6+19*, DGRP6+20*, DGRP6+22, DGRP6+23, DGRP6+25*, DGRP6+27*, DGRP6+36*, YN, DAT
, DEN*
XX DGRP6+2~, DGRP6+20*, DGRP6+23
Z DGRP6+4*, DGRP6+13*, DGRP6+14*, DGRP6+16*, DGRP6+17*, DGRP6+18*, DGRP6+19*, DGRP6+20*, DGRP6+25*, DGRP6+27*
, YN*, DAT*, DAT+1*, SETLNEX~, SETLNEX+2*, SETLNEX+3, SETLNEX+4
Z1 DGRP6+2~, DGRP6+4*, DGRP6+13*, DGRP6+16*, DGRP6+18*, DGRP6+19*, DGRP6+25*, DGRP6+36*, DEN*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All