Routine: EASSIGDT

Information

EASSIGDT ; ALB/RTK/BRM - Means Test Signature detail report ; 1/23/02 12:26pm ; 07/22/02 9:40am

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$NOW^XLFDT
Registration	1	$$SITE^VASITE
VA FileMan	1	^DIR

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
Enrollment Application System	1	EAS MEANS TEST SIG DET RPT

Entry Points

Name	Comments	DBIA/ICR reference
END
EN	;
PASTYR
OTHERYR
PRINT	;
DEVSEL	;Select IO Device
QUEUE	;

External References

Name	Field # of Occurrence
^%ZIS	DEVSEL+2
HOME^%ZIS	QUEUE+6
^%ZISC	PRINT+21, DEVSEL+3
^%ZTLOAD	QUEUE+3
^DIR	EASSIGDT+11
$$SITE^VASITE	EN+4
$$NOW^XLFDT	EASSIGDT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,"The purpose of this report is to list those veterans at a particular site for" Line Location: PRINT+3
Function Call: WRITE	Prompt: !?2,"which a signature still needs to be obtained. A veteran will ONLY be listed" Line Location: PRINT+4
Function Call: WRITE	Prompt: !?2,"if NEITHER the local site NOR the primary site (if different) has obtained a" Line Location: PRINT+5
Function Call: WRITE	Prompt: !?2,"signature. Once a signature has been obtained by EITHER the local OR" Line Location: PRINT+6
Function Call: WRITE	Prompt: !?2,"primary (if different) site, the veteran will be removed from this list." Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,?2,"Signature Status For Means Tests Dated Within Income Year ",$S(YRSEL="A":$E(NOW,1,3)+1698,YRSEL="B":$E(NOW,1,3)+1699,YRSEL="C":$E(NOW,1,3)+1700),! Line Location: PRINT+8
Function Call: WRITE	Prompt: !,?2,"Veteran Name",?25,"SSN",?40,"MT Status",?60,"MT Sig Indicator" Line Location: PRINT+9
Function Call: WRITE	Prompt: !,?60,"(Primary/Local Site)" Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: PRINT+11
Function Call: WRITE	Prompt: "_" Line Location: PRINT+11
Function Call: WRITE	Prompt: !,?2,$E($P(^TMP("EAS SIG RPT",$J,NAME),"^"),1,23),?25,FSSN,?40,$P(^TMP("EAS SIG RPT",$J,NAME),"^",3),?65,$P(^TMP("EAS SIG RPT",$J,NAME),"^",4) Line Location: PRINT+15
Function Call: WRITE	Prompt: ! Line Location: PRINT+16
Function Call: WRITE	Prompt: "_" Line Location: PRINT+16
Function Call: WRITE	Prompt: !!,?2,"NO indicator = ",NOSIG Line Location: PRINT+17
Function Call: WRITE	Prompt: !,?2,"NULL indicator = ",NULLSIG Line Location: PRINT+18
Function Call: WRITE	Prompt: !,?2,"DELETED indicator = ",DELSIG Line Location: PRINT+19
Function Call: WRITE	Prompt: !,?2,"Count of Veterans = ",MTCNT,! Line Location: PRINT+20
Function Call: WRITE	Prompt: !!?5,"Report cancelled!" Line Location: DEVSEL+3
Function Call: WRITE	Prompt: !!?5,"Report cancelled!" Line Location: QUEUE+4
Function Call: WRITE	Prompt: !!?5,"Report queued!" Line Location: QUEUE+5
Routine Call	%ZIS Line Location: DEVSEL+2
Routine Call	%ZIS Line Location: QUEUE+6
Routine Call	DIR Line Location: EASSIGDT+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(408.32 - [#408.32]	EN+8, EN+9, EN+10, EN+11
^DGMT(408.31 - [#408.31]	PASTYR, PASTYR+1, PASTYR+3, PASTYR+5, PASTYR+7, PASTYR+9, PASTYR+10, OTHERYR, OTHERYR+1, OTHERYR+3 , OTHERYR+7, OTHERYR+9, OTHERYR+11, OTHERYR+12
^DPT - [#2]	PASTYR+10, PASTYR+11, OTHERYR+12, OTHERYR+13
^TMP("EAS SIG RPT"	END!, PASTYR+17, OTHERYR+19, PRINT+12, PRINT+14, PRINT+15

Label References

Name	Line Occurrences
DEVSEL	EASSIGDT+12
EN	DEVSEL+5
END	EASSIGDT+11
OTHERYR	EN+13
PASTYR	EN+12
PRINT	PASTYR+18, OTHERYR+20
QUEUE	DEVSEL+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVSEL+2*
ADEL	EASSIGDT+8~, EN+7*
ANO	EASSIGDT+8~, EN+7*
ANUL	EASSIGDT+8~, EN+7*
CAT	EASSIGDT+8~, PASTYR+9, PASTYR+13, OTHERYR+11, OTHERYR+15
CATA	EASSIGDT+8~, EN+7, EN+8, PASTYR+9, PASTYR+13, OTHERYR+11, OTHERYR+15
CATC	EASSIGDT+8~, EN+7, EN+9, PASTYR+9, PASTYR+13, OTHERYR+11, OTHERYR+15
>> CATTXT	PASTYR+13, PASTYR+17, OTHERYR+15, OTHERYR+19
CDEL	EASSIGDT+8~, EN+7*
CHKDT	EASSIGDT+8~, EN+2, PASTYR, PASTYR+1, OTHERYR*, OTHERYR+1
CNO	EASSIGDT+8~, EN+7*
CNUL	EASSIGDT+8~, EN+7*
DELSIG	EASSIGDT+8~, EASSIGDT+9, PASTYR+16, OTHERYR+18*, PRINT+19
DIR	EASSIGDT+10~
DIR("A"	EASSIGDT+10*
DIR("B"	EASSIGDT+10*
DIR(0	EASSIGDT+10*
DIRUT	DEVSEL+1!
>> DISPDT	EN+2*, PASTYR, OTHERYR
>> DTOUT	EASSIGDT+11
>> DUOUT	EASSIGDT+11
FSSN	EASSIGDT+8~, PRINT+14*, PRINT+15
GMT	EASSIGDT+8~, EN+7, EN+11, PASTYR+9, PASTYR+13, OTHERYR+11, OTHERYR+15
>> I	PRINT+11, PRINT+16
IO	PRINT+1
IO("Q"	DEVSEL+4
IOF	PRINT+2
IOST	PRINT+2
MTCNT	EASSIGDT+8~, EN+7, PASTYR+17, OTHERYR+19*, PRINT+20
MTIEN	EASSIGDT+8~, PASTYR+1, PASTYR+3, PASTYR+5, PASTYR+7, PASTYR+9, PASTYR+10, OTHERYR+1, OTHERYR+3, OTHERYR+7 , OTHERYR+9, OTHERYR+11, OTHERYR+12
MTSIG	EASSIGDT+8~, PASTYR+10, PASTYR+13, PASTYR+14, PASTYR+15, PASTYR+16, OTHERYR+12, OTHERYR+15, OTHERYR+16, OTHERYR+17 , OTHERYR+18
>> NAME	PASTYR+11, PASTYR+17, OTHERYR+13, OTHERYR+19, PRINT+12*, PRINT+14, PRINT+15
NOSIG	EASSIGDT+8~, EASSIGDT+9, PASTYR+14, OTHERYR+16*, PRINT+17
NOW	EASSIGDT+8~, EASSIGDT+9*, EN+2, EN+4, PRINT+8
NSSN	EASSIGDT+8~, PRINT+14*
NULLSIG	EASSIGDT+8~, EASSIGDT+9, PASTYR+15, OTHERYR+17*, PRINT+18
PADEL	EASSIGDT+8~, EN+7*
PANO	EASSIGDT+8~, EN+7*
PANUL	EASSIGDT+8~, EN+7*
>> PATPTR	PASTYR+10, PASTYR+11, OTHERYR+12, OTHERYR+13
PENDA	EASSIGDT+8~, EN+7, EN+10, PASTYR+9, PASTYR+13, OTHERYR+11, OTHERYR+15
>> POP	DEVSEL+3
>> SIGTXT	PASTYR+13, PASTYR+17, OTHERYR+15, OTHERYR+19
SITE	EASSIGDT+8~, EN+4*
>> SSN	PASTYR+11, PASTYR+17, OTHERYR+13, OTHERYR+19
>> Y	EASSIGDT+11
YRSEL	EASSIGDT+8~, EASSIGDT+11*, EN+2, EN+12, EN+13, PRINT+8
>> ZTDESC	QUEUE+1*
>> ZTRTN	QUEUE+1*
>> ZTSAVE("DELSIG"	QUEUE+2*
>> ZTSAVE("MTCNT"	QUEUE+2*
>> ZTSAVE("NOSIG"	QUEUE+2*
>> ZTSAVE("NOW"	QUEUE+2*
>> ZTSAVE("NULLSIG"	QUEUE+2*
>> ZTSAVE("YRSEL"	QUEUE+2*
>> ZTSK	QUEUE+4

Customize PDF page

Package: Enrollment Application System