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 - REGISTRATION SCREEN 6/SERVICE INFORMATION ;12 SEP 05

Source Information

Source file <DGRP6.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 7 $$SVCCOMP^DGRP6CL  CL^DGRP6CL2  EF^DGRP6EF  $$FV^DGRPMS  ^DGRPP  H^DGRPU  (WW,WW1,WW2)^DGRPV  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRP6EF  

Entry Points

Name Comments DBIA/ICR reference
DAT
YN
Q
S
DEN
MR
SETLNEX(Z,SEQ,LIN,LENGTH) ;

External References

Name Field # of Occurrence
$$SVCCOMP^DGRP6CL S+5
CL^DGRP6CL2 DGRP6+8
EF^DGRP6EF DGRP6+11
$$FV^DGRPMS S+8
^DGRPP Q+1
H^DGRPU DGRP6+3
WW^DGRPV DGRP6+4, DGRP6+14, DGRP6+15, DGRP6+16, DGRP6+21, DGRP6+23
WW1^DGRPV DGRP6+4, DGRP6+9, DGRP6+12, YN, DAT+2
WW2^DGRPV DGRP6+9, DGRP6+12
$$FMTE^XLFDT DAT+1, S+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Discharge"
  • Line Location: DGRP6+4
Function Call: WRITE
  • Prompt: !?4,"------------------------",?30,"---------",?46,"-------",?58,"---------",?70,"---------"
  • Line Location: DGRP6+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP6+7
Function Call: WRITE
  • Prompt: !,?25,LIN(Z)
  • Line Location: DGRP6+10
Function Call: WRITE
  • Prompt: !,?4,"+ ",LIN(Z)
  • Line Location: DGRP6+13
Function Call: WRITE
  • Prompt: " POW: "
  • Line Location: DGRP6+14
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+14
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+14
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+14
Function Call: WRITE
  • Prompt: " Combat: "
  • Line Location: DGRP6+15
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+15
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+15
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: DGRP6+15
Function Call: WRITE
  • Prompt: " Mil Disab Retirement: ",$S(X=0:"NO",X=1:"YES",1:"")
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: DGSPACE_" Dischrg Due to Disab: ",$S(XX=0:"NO",XX=1:"YES",1:"")
  • Line Location: DGRP6+19
Function Call: WRITE
  • Prompt: " Dent Inj: "
  • Line Location: DGRP6+21
Function Call: WRITE
  • Prompt: "Teeth Extracted: "
  • Line Location: DGRP6+21
Function Call: WRITE
  • Prompt: " Purple Heart: "
  • Line Location: DGRP6+23
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+24
Function Call: WRITE
  • Prompt: ?26,"PH Remarks: "_$S($G(DGX)]"":$G(DGX),1:"")
  • Line Location: DGRP6+28
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: !?4,Z
  • Line Location: S+9
Function Call: WRITE
  • Prompt: ?30,$S($P(DGRPX,"^",DGRPSV+4)]"":$P(DGRPX,"^",DGRPSV+4),1:DGRPU)
  • Line Location: S+10
Function Call: WRITE
  • Prompt: ?$S(I=2:46,1:58),X
  • Line Location: S+11
Function Call: WRITE
  • Prompt: ?70,$S($D(^DIC(25,+$P(DGRPX,"^",DGRPSV),0)):$E($P(^(0),"^",1),1,9),1:"UNKNOWN")
  • Line Location: S+12
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+14, DGRP6+15
^DIC(23 - [#23] S+1
^DIC(25 - [#25] S+12
^DPT - [#2] DGRP6+3, DGRP6+22, S+2, S+5

Label References

Name Line Occurrences
DAT DGRP6+14, DGRP6+15, DEN
DEN DGRP6+22
S DGRP6+6
YN DGRP6+14, DGRP6+15, DGRP6+21, DGRP6+23

Naked Globals

Name Field # of Occurrence
^( DGRP6+3, DGRP6+22
^(0 DGRP6+14, DGRP6+15, S+1, S+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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