Routine: AZCNFDPT

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZTLOAD
VA Fileman	2	WAIT^DICD ^DIE

Package

Total

Call Graph

WAIT^DICD ^DIE

Name	Field # of Occurrence
^%ZIS	DEVICE, DEVICE+5
^%ZTLOAD	DEVICE+3
WAIT^DICD	QSTART+1
^DIE	PROCESS+4, ERRORS

Name	Line Occurrences
Function Call: READ	Prompt: "[R]eport or [C]hange? R//" Formatting: ! Timeout: $S($D(DTIME):DTIME,1:60) Variable: MODE Line Location: START+0
Function Call: WRITE	Prompt: !?5,$P($T(AZCNFDPT),";",3),! Line Location: START+0
Function Call: WRITE	Prompt: ! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !,*7,"No device specified." Line Location: DEVICE+0
Function Call: READ	Prompt: "Do you really mean queue to this device? NO//" Formatting: ! Timeout: 360 Variable: X Line Location: DEVICE+1
Function Call: WRITE	Prompt: !!,"Ok, tell me again ..." Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,*7,"Device ",IO," busy." Line Location: DEVICE+6
Function Call: WRITE	Prompt: !,"Node # ",DFN,?20,"old : '",X,"'",!?20,"new : '",XNEW,"'",! Line Location: PROCESS+1
Function Call: READ	Prompt: "Confirm change <N> " Formatting: ! Timeout: $S($D(DTIME):DTIME,1:60) Variable: YN Line Location: PROCESS+2
Function Call: WRITE	Prompt: ?($X+5),"CHANGE COMPLETE.",! Line Location: PROCESS+4
Function Call: WRITE	Prompt: !!,"Type 'R' to report the name format errors in '^DPT'",!,"'C' to report them and to correct them,",!,"'??' for more help.",! Line Location: HELP+0
Function Call: WRITE	Prompt: !!,"This utility reads through the 'B' index of the VA PATIENT file (^DPT),",!,"looking for names that are in an incorrect format, i.e., 'LNAME II,FNAME M'," Line Location: HELPP+0
Function Call: WRITE	Prompt: !," (teknonym out of place) and corrects their format to 'LNAME,FNAME M,II'.",!!,"Correction of a name requires user confirmation.",! Line Location: HELPP+1
Routine Call	DIE Line Location: PROCESS+4 ERRORS
Routine Call	%ZIS Line Location: DEVICE DEVICE+5

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	QSTART+2
^DPT("B"	QSTART+1

Name	Line Occurrences
AZCNFDPT	START
DEVICE	DEVICE+1, DEVICE+6
ENDQ	DEVICE+3
HDR	QSTART+1, PROCESS+1
HELP	START
HELPP	START
PROCESS	QSTART+1
QSTART	START, DEVICE+4, DEVICE+5
START	START, HELP+1, HELPP+2

Name	Field # of Occurrence
^(	PROCESS

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE*!
%ZIS("B"	DEVICE!
DA	QSTART+2!, PROCESS+3, ERRORS
DA(1	PROCESS+3, ERRORS
DFN	QSTART+2!, PROCESS*, PROCESS+1, PROCESS+3
DFOUT	ENDQ!
DIE	QSTART+2!, PROCESS+3, ERRORS
DLOUT	ENDQ!
DQOUT	ENDQ!
DR	QSTART+2!, PROCESS+3, ERRORS
DTIME	START, PROCESS+2
DTOUT	ENDQ!
DUOUT	ENDQ!
ENTRY	QSTART+2!, PROCESS*, PROCESS+3
>> G	DEVICE+2*
I	QSTART+1*, QSTART+2!
IO	DEVICE, DEVICE+1, DEVICE+4, DEVICE+5, DEVICE+6, QSTART+1
IO("Q"	DEVICE+1!, DEVICE+2!
IOF	QSTART+2, HDR
IOP	DEVICE!, DEVICE+5*
MODE	START!*, ENDQ!, QSTART+2!, PROCESS+2, HDR
PG	QSTART+1, QSTART+2!, HDR
>> POP	DEVICE+5
PRINT	START, DEVICE+2, DEVICE+5*, ENDQ!, QSTART+1, QSTART+2!, PROCESS+1, PROCESS+2
X	DEVICE+1, ENDQ!, QSTART+1, QSTART+2!, PROCESS, PROCESS+1
XNEW	QSTART+2!, PROCESS*, PROCESS+1, PROCESS+3
Y	ENDQ!
>> YN	PROCESS+2*
>> ZTDESC	DEVICE+2*
>> ZTRTN	DEVICE+2*
>> ZTSAVE(	DEVICE+2*

Customize PDF page

Package: Local Area Programs

Routine: AZCNFDPT

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
ENDQ
ERRORS
HDR
PROCESS
START
HELPP
DEVICE
QSTART	; ENTRY POINT - TaskMan.
HELP