Routine: AZHLSCFV

Information

AZHLSCFV ; IHS/ADC/GTH:KEU - DSM QABLE FIELD VERIFIER ;

Package	Total	Caller Graph
Local Area Programs	1	AZHLSC

Name	Comments	DBIA/ICR reference
Q
QEND	;EP - If error, probable for NODEV at Q+1^DIVR.
START	;EP - From TaskMan.
DIC
1
0
DEVICE
DEVEND

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!?4,$P($P($T(@"AZHLSCFV"),";",2),"-",2)," v ",$P($T(@"AZHLSCFV"+1),";",3),! Line Location: 0+0
Function Call: WRITE	Prompt: !! Line Location: 0+1
Function Call: WRITE	Prompt: *7," NO ENTRIES ON FILE!" Line Location: 0+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: DIC+2
Function Call: WRITE	Prompt: !,"VERIFY WHICH "_$P(^DD(A,0),U)_": " Line Location: DIC+2
Function Call: WRITE	Prompt: !!,"Report will be QUEUE'd if device other than HOME selected.",! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !,*7,"No device specified." Line Location: DEVICE+0
Function Call: WRITE	Prompt: !,"Can't Q to home device." Line Location: DEVICE+2
Function Call: WRITE	Prompt: !!,"Report being QUEUE'd to run now for you." Line Location: DEVICE+3
Function Call: WRITE	Prompt: !!,"<<<<<<< DSM QABLE FIELD VERIFIER >>>>>>>",!,"File : ",AZHLNMSP," (",$S($D(^DIC(A,0,"GL")):^("GL"),1:A),")",! Line Location: START+2
Function Call: WRITE	Prompt: !!,"--",$P(Y(0),U),"--" Line Location: START+3
Function Call: WRITE	Prompt: I Line Location: 1+1
Function Call: WRITE	Prompt: W Line Location: 1+1
Function Call: WRITE	Prompt: " ",W Line Location: 1+1
Function Call: WRITE	Prompt: !!!,"<< DSM QABLE FIELD VERIFIER >>" Line Location: QEND+2
Routine Call	%ZIS Line Location: DEVICE+6
Routine Call	DIC Line Location: 0+1 DIC+4
Routine Call	%ZIS Line Location: DEVICE DEVICE+4

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	START+1, QEND+1
^DD(	DIC+2, START+3, START+4
^DIC - [#1]	0+1, START+2
^UTILITY("DIVR"	DIC+4!

Name	Field # of Occurrence
%ZIS	DEVICE!*
%ZIS("B"	DEVICE*
A	AZHLSCFV+3~, 0+1, DIC+2, DIC+6, START+2, START+3, START+4
AZHLFLDS	AZHLSCFV+3~, DIC+3, DIC+7, START+3, START+4, 1+4
AZHLNMSP	AZHLSCFV+3~, 0+1*, DEVICE+5, START+2
B	AZHLSCFV+3~
C	AZHLSCFV+3~, Q!
D	AZHLSCFV+3~
D0	AZHLSCFV+3~
DA	AZHLSCFV+3~, 1+2!*
DDC	AZHLSCFV+3~, 1+2*
DE	AZHLSCFV+3~
DG	AZHLSCFV+3~
DIC	AZHLSCFV+3~, 0+1, DIC
DIC("S"	DIC+1*
DIC("W"	DIC*
DIC(0	0+1, DIC
DIFLD	AZHLSCFV+3~, 1+2*
DIR	AZHLSCFV+3~, Q!
DIRUT	AZHLSCFV+3~, DIC+3, Q!
DISYS	AZHLSCFV+3~
DIU	AZHLSCFV+3~, 0+1*, 0+4
DQ	AZHLSCFV+3~
DQI	AZHLSCFV+3~, DIC+4!, START+3*
DR	AZHLSCFV+3~, DIC+6, START+3, 1
DTIME	AZHLSCFV+5*, DIC+2
E	AZHLSCFV+3~
F	AZHLSCFV+3~
G	AZHLSCFV+3~
I	AZHLSCFV+3~
I(	DIC+6*
I(0	0+4*
IO	DEVICE+2, DEVICE+3, START+2
IO("DOC"	DEVICE+1
IO("Q"	DEVICE+2!, DEVICE+3*, DEVICE+4, DEVICE+6!
IO(0	DEVICE+2, DEVICE+3
IOM	DEVICE+1
ION	DEVICE+1
IOP	DEVICE!, DEVICE+1*, DEVICE+5, DEVEND!
IOSL	DEVICE+1
IOST	DEVICE+1, DEVICE+2
J	AZHLSCFV+3~, 0+3!
J(	DIC+6*
L	AZHLSCFV+3~
N	AZHLSCFV+3~, Q!
P	AZHLSCFV+3~, 0+4, DIC+6, Q!
>> POP	DEVICE
Q	AZHLSCFV+3~, 0+4*, DIC+6, Q!
S	AZHLSCFV+3~, 0+4*, DIC+6, Q!
T	AZHLSCFV+3~, 1*, 1+1
U	0+1, DIC+2, DIC+6, START+3, 1+2
V	AZHLSCFV+3~, 0+4, DIC+6, Q!
W	AZHLSCFV+3~, 1+1*
>> X	DIC+2, DIC+3, DIC+5, DIC+7, START+1, QEND+1*
>> Y	0+1, DIC+3, DIC+5, DIC+6, START+3, START+4, 1+2
>> Y(0	DIC+6, START+3*, 1+2
Z	AZHLSCFV+3~, 1+2*
>> ZTDESC	DEVICE+5*
>> ZTDTH	DEVICE+3*
>> ZTIO	DEVICE+5*
>> ZTQUEUED	QEND+3
>> ZTRTN	DEVICE+5*
>> ZTSAVE("*"	DEVICE+5*
ZTSK	DEVEND!

Name	Field # of Occurrence
$T(@"AZHLSCFV"	0
$T(@"AZHLSCFV"+1	0