Routine: DGRP6

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGRP6EF

Entry Points

Name	Comments	DBIA/ICR reference
Q
YN
DAT
DEN
S	;Write Military Service Episodes (DG5.3797)
MR
SETLNEX(Z,SEQ,LIN,LENGTH)	;

External References

Name	Field # of Occurrence
EN^DDIOL	DGRP6+56
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	DGRP6+40, DGRP6+41, DGRP6+42, DGRP6+47, 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: !,?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: !?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+56, DEN
DEN	DGRP6+26
S	DGRP6+10
YN	DGRP6+18, DGRP6+19, DGRP6+25, DGRP6+27, DGRP6+56

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
DGMOHADT	DGRP6+37~, DGRP6+38, DGRP6+39, DGRP6+40
DGMOHEDT	DGRP6+37~, DGRP6+38, DGRP6+39, DGRP6+42
DGMOHSDT	DGRP6+37~, DGRP6+38, DGRP6+41, DGRP6+44~, DGRP6+47
>> DGRP(	DGRP6+3*, DGRP6+18, DGRP6+20, DGRP6+25, DGRP6+27, DGRP6+34, DGRP6+38, DGRP6+43, DGRP6+44, DGRP6+49 , DGRP6+56
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+56*, 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+56
>> X	DGRP6+18, DGRP6+19, DGRP6+20, DGRP6+22, DGRP6+23, DGRP6+25, DGRP6+27, DGRP6+56, 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+56, DEN

Customize PDF page

Package: Registration