Routine: WIIACT4

Information

WIIACT4 ;VISN20/WDE/WHN/WII Admission & Discharges or OIE-OEF PTS TO VISN CONTACT

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	6	(C,NOW)^%DTC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
MailMan	2	KILL^XM ^XMD
Kernel	1	$$FMTE^XLFDT
Registration	1	($$TESTPAT,ADD,DEM,ELIG,KVAR)^VADPT

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: 2

Package	Total	Caller Graph
Wounded Injured and Ill Warriors	2	WII BUILD ADT EVENTS WIILM02

Entry Points

Name	Comments	DBIA/ICR reference
EN	; set a default past 7 days time frame
JUMP	;
VERPAT1(DFN)	;
ELIG	;
FORCE2	;this tag can be called with the wiient
ADD	; ADD ENTRY INTO FILE ;
CLEAN	;
REMOVE	;---------------------------------------------------------------------------------------------------
FORCE(DFN,WIIENT)
XMD	; send out message using XMD API ; XMY..........RECIPIENTS OF MSG ; XMDUZ........MESSAGE SENDER ; XMSUB........MESSAGE SUBJECT ; XMTEXT.......MESSAGE TEXT ; The XMB API listed below is used to send mail out
DATE	;
DATE2	;
RESET	; ; Enter 1 for PENDING 2 for READY TO SEND and 3 DO NOT SEND

External References

Name	Field # of Occurrence
C^%DTC	EN+1
NOW^%DTC	EN+1, EN+2
FILE^DICN	ADD+4
^DIE	ADD+9, RESET+6
^DIK	REMOVE+6
$$GET1^DIQ	FORCE2+3, FORCE2+9, FORCE2+10, FORCE2+11, FORCE2+12, FORCE2+13, FORCE2+14, FORCE2+16, FORCE2+18, FORCE+1 , FORCE+2, XMD+16, XMD+24
^DIR	DATE+1, DATE2+1
$$TESTPAT^VADPT	VERPAT1+2
ADD^VADPT	FORCE2+21
DEM^VADPT	FORCE2+17
ELIG^VADPT	ELIG+3, FORCE+3
KVAR^VADPT	JUMP+1, JUMP+17, ELIG+2, ELIG+15, CLEAN+6
$$FMTE^XLFDT	FORCE2+13, FORCE2+16, XMD+7, XMD+14, XMD+15
KILL^XM	XMD+19, XMD+26
^XMD	XMD+19, XMD+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"To Date must follow From Date",!! Line Location: DATE2+2
Function Call: WRITE	Prompt: ! Line Location: DATE2+5
Routine Call	DIE Line Location: ADD+9 RESET+6
Routine Call	DIR Line Location: DATE+1 DATE2+1

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^DIC(42 - [#42]	GET1^DIQ
^WII(987.5 - [#987.5]	Classic Fileman Calls
^WII(987.6 - [#987.6]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	XMD+12, XMD+19, XMD+23, XMD+26
^DGPM - [#405]	JUMP+8, JUMP+9
^DPT - [#2]	FORCE2+23
^WII(987.5 - [#987.5]	FORCE2+6, REMOVE+4, XMD+6, RESET+3

Label References

Name	Line Occurrences
CLEAN	JUMP+18, ELIG+14, FORCE+6, XMD+27
DATE2	DATE2+2
FORCE2	FORCE+5
JUMP	DATE2+5
REMOVE	FORCE2+6
VERPAT1	JUMP+10
XMD	JUMP+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+2!
A	CLEAN+2!
DA	CLEAN+1!, REMOVE+5, REMOVE+7!, RESET+4, RESET+7!
DFN	JUMP+9*, JUMP+10, JUMP+16!, VERPAT1~, VERPAT1+2, FORCE2+23, ADD+8, FORCE~
DIC	ADD+1*, ADD+6, CLEAN+1!
DIC(0	ADD+2*
DIE	ADD+6, CLEAN+1!, RESET+4, RESET+7!
DIK	REMOVE+5*, REMOVE+7!
DINUM	ADD+3*, CLEAN+2!
DIR	DATE+1!, DATE2+1!
DIR("A"	DATE+1, DATE2+1
DIR(0	DATE+1, DATE2+1
DIRUT	CLEAN+2!, DATE+1, DATE2+1, DATE2+4
DR	ADD+7, ADD+8, CLEAN+1!, RESET+5*, RESET+7!
DT	EN+2*, ADD+7, XMD+14, XMD+23
DUZ	ADD+7
U	ELIG+5, ELIG+11, ELIG+12, ELIG+13, FORCE2+6, FORCE2+18, FORCE2+19, FORCE2+20, FORCE2+23, FORCE2+24 , ADD+7, REMOVE+4, FORCE+4
VADM	JUMP+14!
VADM(1	FORCE2+18, ADD+7
VADM(2	FORCE2+18, FORCE2+24, ADD+7
VADM(3	FORCE2+19
VADM(5	FORCE2+20
VAEL	JUMP+14!
VAEL(1	ELIG+5, ELIG+10, ELIG+11, ELIG+12, ELIG+13, FORCE+4
VAPA	CLEAN+5!
VAPA("P"	FORCE2+21*
VAPA(6	FORCE2+21
WII1	ELIG+4!, ELIG+5, ELIG+6, ELIG+7, ELIG+8, ELIG+10, ELIG+11, ELIG+12, ELIG+13
WII1A	FORCE2+13*, ADD+7, CLEAN+2!
WII3	FORCE2+14*, FORCE2+15, FORCE2+16, CLEAN+3!
WII3A	FORCE2+15, FORCE2+16, ADD+7, CLEAN+2!
WIIACT	JUMP+8, JUMP+9, JUMP+12!, JUMP+16!, FORCE2+6, FORCE+1
WIIADAT	FORCE2+18*, CLEAN+1!
WIIADM	FORCE2+3*, FORCE2+6, FORCE2+9, FORCE2+13, FORCE2+14, CLEAN+3!, REMOVE+4, REMOVE+5
WIIANS	CLEAN+2!, RESET+2*, RESET+5
WIIAZ	CLEAN+1!
WIICNT	JUMP+13!, CLEAN+3!, XMD+6*, XMD+8, XMD+9, XMD+13, XMD+23
WIICOMP	CLEAN+4!
WIIDIV	FORCE2+9, FORCE2+10, FORCE2+11, FORCE2+12, ADD+7, CLEAN+1!, CLEAN+2!
WIIDOB	FORCE2+19*, ADD+8, CLEAN+4!
WIIELG	ELIG+6, ELIG+7, ELIG+8, ELIG+11, ELIG+12, ELIG+13, ADD+8, CLEAN+4!, FORCE+4*
WIIENDT	EN+1, JUMP+8, JUMP+12!, XMD+7, XMD+15, XMD+23, DATE2+3
WIIENT	JUMP+9, JUMP+12!, JUMP+16!, FORCE2+3, FORCE2+18, ADD+3, FORCE~, FORCE+1, FORCE+2, XMD+6 , RESET+3*, RESET+4
WIIMODT	JUMP+8, JUMP+9, JUMP+12!, JUMP+16!, ADD+7, FORCE+2
WIIMVT	CLEAN+1!
WIINAM	FORCE2+18*, CLEAN+3!
WIIREV	CLEAN+3!, XMD+16, XMD+17, XMD+18, XMD+24*, XMD+25
WIISEX	FORCE2+20*, ADD+8, CLEAN+4!
WIISORC	ELIG+4!, CLEAN+1!
WIISSN	FORCE2+18*, CLEAN+3!
WIISTRT	EN+1, JUMP+8, JUMP+12!, XMD+7, XMD+15, XMD+23, DATE+2, DATE2+2
WIISTS	CLEAN+1!
WIITMP	JUMP+15!, XMD+21!
WIITMP("GWOT"	XMD+7, XMD+8, XMD+9, XMD+10, XMD+11, XMD+12, XMD+13, XMD+14, XMD+15, XMD+23
WIITRAN	ELIG+4!, CLEAN+1!
WIITST	JUMP+12!, VERPAT1+3, ELIG+6, ELIG+7, ELIG+8, ELIG+10, ELIG+11, ELIG+12, ELIG+13*, ELIG+14
WIIVALD	JUMP+10*, JUMP+12!
WIIZIP	FORCE2+21*, ADD+8, CLEAN+4!
WWICN	FORCE2+23*, ADD+7, CLEAN+1!, CLEAN+2!
WWISSN	FORCE2+24*, CLEAN+1!
X	EN+1!, EN+2!, ADD+3*
X1	EN+1*!
X2	EN+1*!
XMDUZ	JUMP+13!, XMD+19, XMD+26
XMSUB	JUMP+13!, XMD+19, XMD+26
XMTEXT	JUMP+13!, XMD+19, XMD+26
XMY	JUMP+13!
XMY(	XMD+18, XMD+25
Y	EN+2!, JUMP+13!, ADD+5, DATE+2, DATE2+2, DATE2+3

Customize PDF page

Package: Wounded Injured and Ill Warriors