Routine: XUSECAD

Package	Total	Call Graph
VA Fileman	4	$$FIND1^DIC EN1^DIP GETS^DIQ ^DIR
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
Kernel	3	XUSEC ISO Q TERMINATION REPORT XUSEC ISO TERMINATION REPORT XUSEC UP ARROW TERM REPORT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;Get Beginning Date
TERM
END	; Kill variables
ED	;Get Ending Date
BEG	; Initialize ; XUSECF = 0 - User changed ; 1 - Same user
UPARROW	; Uparrow delimited report
EP1	;Ask user Beginning and Ending report dates
QUEUE	;Queued report for last 7 days
TEST	; Test if user changed
UPRPT	; Build Uparrow report line
MENU
REPORT	;Do the report
LINE	; Build Report Line
USERH	; Stadic User Information

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Terminated User Audit Report"_$S($D(XUSECU):" Uparrow Delimited",1:"") Line Location: EP1+1
Function Call: WRITE	Prompt: !,"User: "_$G(Z(200,IEN,.01))_" SSN: "_$G(Z(200,IEN,9)) Line Location: USERH+8
Function Call: WRITE	Prompt: !,"Date Entered: "_$G(Z(200,IEN,30))_" Service/Section: "_$G(Z(200,IEN,29)) Line Location: USERH+9
Function Call: WRITE	Prompt: !?4,"Division: None Listed" Line Location: USERH+12
Function Call: WRITE	Prompt: !?4,"Division: "_$G(Z(200.02,IEN,.01))_" Default: "_$S($G(Z(200.02,IEN,1))["Y":"Yes",1:"No") Line Location: USERH+14
Routine Call	DIC Line Location: MENU+1 UPRPT+4
Routine Call	DIR Line Location: BD+6 ED+6

Name	Line Occurrences
REPORT	QUEUE+3
UPARROW	ED+10

Name	Field # of Occurrence
BD	EP1+2~, BD+8, REPORT+7, QUEUE+1, QUEUE+4!, UPARROW+5
BY	REPORT+1~, REPORT+7, UPARROW+1~, UPARROW+5
DIA	REPORT+2~, UPARROW+2~
DIC	REPORT+1~, REPORT+6, UPARROW+1~, UPARROW+4
DIERR	USERH+1~, USERH+10!, MENU~, UPRPT+1~
DIOBEG	REPORT+1~, REPORT+3*
DIOEND	REPORT+1~, REPORT+4*
>> DIPA("DTR"	LINE+3
>> DIPA("MIEN"	MENU+1, UPRPT+4
>> DIPA("NPIEN"	TEST+1, TEST+2, TEST+3, USERH+2, UPRPT+2
>> DIPA("OVALUE"	TERM, LINE+4
>> DIPA("USER"	LINE+5
DIR	BD+1~, ED+1~, ED+9!
DIR("?"	BD+4, ED+4
DIR("??"	BD+5, ED+5
DIR("A"	BD+3, ED+3
DIR(0	BD+2, ED+2
DIRUT	BD+1~, ED+1~, ED+9!
DT	BD+2, ED+2, QUEUE+1, QUEUE+2
DTOUT	BD+1~, ED+1~, ED+9!
DUOUT	BD+1~, ED+1~, ED+9!
ED	EP1+2~, ED+8, REPORT+7, QUEUE+2, QUEUE+4!, UPARROW+5
FLDS	REPORT+1~, REPORT+7, UPARROW+1~, UPARROW+5
FR	REPORT+1~, REPORT+7, UPARROW+1~, UPARROW+5
IEN	USERH+1~, USERH+2, USERH+7, USERH+8, USERH+9, USERH+11, USERH+13, USERH+14, MENU~, MENU+1 , MENU+2*, MENU+3, MENU+4
L	REPORT+1~, REPORT+5, UPARROW+1~, UPARROW+3
LN	LINE+1~, LINE+2, LINE+3, LINE+4, LINE+5*, LINE+6
MIEN	UPRPT+1~, UPRPT+4, UPRPT+5, UPRPT+6, LINE+5
NPIEN	UPRPT+1~, UPRPT+2*, UPRPT+3, LINE+2, LINE+3
TO	REPORT+1~, REPORT+7, UPARROW+1~, UPARROW+5
U	LINE+2, LINE+3, LINE+4, LINE+5
>> X	TERM, MENU+4, LINE+6*
XUSECF	BEG+3, END+1!, TEST+2, TEST+4*
XUSECO	BEG+3, END+1!, TEST+1, TEST+2, TEST+3*
XUSECU	EP1+1, ED+10!
>> Y	BD+7, BD+8, ED+7, ED+8
Z	USERH+1~, USERH+10!, MENU~, UPRPT+1~
Z(	USERH+12, USERH+14
Z(19	MENU+4, LINE+5
Z(200	USERH+8, USERH+9, LINE+2, LINE+3
ZERR	USERH+1~, USERH+10!, MENU~, UPRPT+1~