Routine: XBRSELM

Package	Total	Call Graph
Uncategorized	2	^%DI ^%DO
VA Fileman	1	^%DT

Entry Points

Name	Comments	DBIA/ICR reference
DOTS
HELP	;
INT	;
XB1	;;S X=$T(@RTN),X=$P($P(X,";",2,99)," ",2,99) F I=1:1:$L(X," ") S %DS=$P(X," ",I) Q:%DS?1.2N1"/"1.2N1"/"2N
IHS1
LIST	;
ERROR	;
XB	;;S %RN=0,(RTN,%DN)="" F S RTN=$O(^UTILITY($J,RTN)) Q:RTN="" ZL @RTN X XB1 D:%DS?1.2N1"/"1.2N1"/"2N ^%DI K:$D(%ER)!'%DN!(%DN<(DN1)) ^UTILITY($J,RTN) K %ER I %DN>(DN1-1) D ^%DO W !,RTN,?10,"last edited on ",%DS S %RN=%RN+1
DEL	;
L0	;
L1	;
DATE	;IHS/THL ALLOWS SELECTION OF ROUTINES BY DATE LAST EDITED
EXIT	;
OUT
DISPLAY	;
XBX	;;S:Y Y=$S($E(Y,4,5):$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",+$E(Y,4,5))_" ",1:"")_$S($E(Y,6,7):+$E(Y,6,7)_",",1:"")_($E(Y,1,3)+1700)

External References

Name	Field # of Occurrence
^%DI	DATE+12
^%DO	DATE+6
^%DT	DATE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7," ...Invalid routine name selection criteria, Specify '?' for help" Line Location: L1+4
Function Call: WRITE	Prompt: !!,?10,%RN," routine",$S(%RN=1:"",1:"s")," selected." Line Location: L1+8
Function Call: WRITE	Prompt: *7 Condition for execution: %RN=0 Line Location: L1+8
Function Call: WRITE	Prompt: *7," ...Invalid routine name selection criteria, Specify '?' for help" Line Location: DEL+2
Function Call: WRITE	Prompt: !!,?10,%RN," routine",$S(%RN=1:"",1:"s")," de-selected." Line Location: DEL+6
Function Call: WRITE	Prompt: *7 Condition for execution: %RN=0 Line Location: DEL+6
Function Call: WRITE	Prompt: $E("..............................",1,24-$X) Line Location: DOTS+0
Function Call: WRITE	Prompt: !!?10,%RN," routines edited after ",XBDAT Line Location: IHS1+0
Function Call: WRITE	Prompt: !,"No routines selected" Line Location: LIST+1
Function Call: WRITE	Prompt: ?(X-1)#8*10,%RS Line Location: LIST+2
Function Call: WRITE	Prompt: !!,?10,%RN," routine",$S(%RN=1:"",1:"s")," selected so far.",! Line Location: LIST+3
Function Call: WRITE	Prompt: ?(X-1)#8*10,%RS Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !!,?10,%RN," routine",$S(%RN=1:"",1:"s"),"." Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !!,"...Aborted." Line Location: ERROR+1
Function Call: WRITE	Prompt: !,"Respond with routine selection criteria.",!,"Valid responses:" Line Location: HELP+1
Function Call: WRITE	Prompt: !?5,"Routine name" Line Location: HELP+2
Function Call: WRITE	Prompt: "Eg: ABC" Line Location: HELP+2
Function Call: WRITE	Prompt: !?5,"Routine range" Line Location: HELP+3
Function Call: WRITE	Prompt: "Eg: AAA-HZZZ" Line Location: HELP+3
Function Call: WRITE	Prompt: !?5,"Routine pattern" Line Location: HELP+4
Function Call: WRITE	Prompt: "Eg: PROG? PRGAA AC?D *XYZ ?" Line Location: HELP+4
Function Call: WRITE	Prompt: !?24,"Where '?' matches any single character," Line Location: HELP+5
Function Call: WRITE	Prompt: !?24,"and '*' matches zero or more characters" Line Location: HELP+6
Function Call: WRITE	Prompt: !?5,"All routines" Line Location: HELP+7
Function Call: WRITE	Prompt: " * (selects ALL routines)" Line Location: HELP+7
Function Call: WRITE	Prompt: !,"Precede any of the above with a '-' to unselect previously selected routines." Line Location: HELP+8
Function Call: WRITE	Prompt: !,"Enter '^L' for display of previously selected routines." Line Location: HELP+10
Function Call: WRITE	Prompt: !,"Enter '^D' to display all routine names." Line Location: HELP+11
Function Call: WRITE	Prompt: !,"Enter '^' or '^Q' to exit." Line Location: HELP+12
Function Call: READ	Prompt: "Screen ROUTINES by date last edited? NO// " Formatting: !! Timeout: 300 Variable: X Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"No date selected." Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"Type 'Y'es to select ROUTINES edited on or after a specified date.",!,"Type '^' or strike <RETURN> to continue without selecting by date." Line Location: DATE+3
Function Call: WRITE	Prompt: !,RTN,?10,"last edited on ",%DS Line Location: XB+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	L0+4!, L0+5!, L1+1!, L1+6*, DEL+4!, DEL+5!, IHS1, IHS1+1, LIST+1, LIST+2

Label References

Name	Line Occurrences
$$	L1+3, DEL+1
DATE	IHS1, DATE+3
DEL	L1+2
DISPLAY	L0+6
DOTS	HELP+2, HELP+3, HELP+4, HELP+7
EXIT	L0+4, L0+5, ERROR+1
HELP	L0+7
L0	L0+2, L0+3, L0+6, L0+7, L1+4, L1+9, DEL+2, DEL+7
LIST	L0+2, L0+3
OUT	IHS1, DATE+9, DATE+17
XB	DATE+15
XB1	DATE+16
XBX	DATE+10

Naked Globals

Name	Field # of Occurrence
^	L1+3, L1+6, L1+7, DEL+1, DISPLAY+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DA	OUT!
%DN	DATE+5*, DATE+13, DATE+14, OUT!
%DS	DATE+7, DATE+12*, OUT!
%DT	DATE+7*, OUT!
%DT("A"	DATE+7*
%DT("B"	DATE+7*
>> %ER	DATE+13, DATE+17
%P	INT+1~, L1+3, L1+6, DEL+1, DEL+4, DEL+5
%RN	INT+1~, L1+5, L1+6, L1+8, DEL+1, DEL+3, DEL+4, DEL+5, DEL+6, IHS1 , LIST+2, LIST+3, DISPLAY+1, DISPLAY+2, OUT!
%RS	INT+1~, L0+1, L0+2, L0+3, L0+4, L0+5, L0+6, L0+7, L1+2, L1+3 , DEL+1, LIST+2, DISPLAY+1*
%RSN	INT+1~, L0+2, L0+3, L0+5, L1+1*, HELP+9
>> %SRCHPAT	L1+3, DEL+1
>> %SRCHPAT(	L1+3, DEL+1
DN1	DATE+14*, OUT!
DTIME	L0+1
FIRST	INT+1~, L1+4, L1+5, L1+6, DEL+2, DEL+3
I	OUT!
LAST	INT+1~, L1+6, DEL+4, DEL+5
>> QUIT	IHS1+1*
RTN	OUT!
X	INT+1~, L1+5, L1+6, DEL+3, DEL+4, DEL+5, LIST+2, DISPLAY+1, DATE+1, DATE+2 , DATE+3, DATE+4, OUT!
XB	IHS1, DATE+15*, OUT!
XB1	DATE+16*, OUT!
XBDAT	IHS1, DATE+12*, OUT!
XBX	DATE+10*, DATE+11, OUT!
Y	DATE+9, DATE+12, OUT!

Marked Items

Name	Field # of Occurrence
$T(XB	DATE+15
$T(XB1	DATE+16
$T(XBX	DATE+10

Customize PDF page

Package: IHS VA Utilities

Routine: XBRSELM

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items