Routine: MDPSUL

Information

MDPSUL ; HOIFO/NCA - HS Component Utility;5/18/04 09:48 ;10/5/09 09:33

Source file <MDPSUL.m>

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA FileMan	2	NOW^%DTC ^DIR

Name	Comments	DBIA/ICR reference
EN2	; Print the List of Components that should be created in HS
QUE	; Queue List
EX	; Exit
GETLIST	; [Procedure] Loop through Instruments and get active list
HDR	; List Header
PAUSE	; Pause For Scroll

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN2+2
Function Call: WRITE	Prompt: !,"Request Queued",! Line Location: QUE+3
Function Call: WRITE	Prompt: !,DTP,?52,"Page ",PG,!!?10,"LIST OF HS COMPONENTS NEEDED",!! Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Name",?27,"Print Routine",?45,"Abbreviation",!,LN Line Location: HDR+4
Routine Call	DIR Line Location: PAUSE+1
Routine Call	%ZIS Line Location: EN2+2

Name	Line Occurrences (* Changed, ! Killed)
^MDS(702.09 - [#702.09]	GETLIST+5, GETLIST+7

Name	Field # of Occurrence
^(	GETLIST+5

Name	Field # of Occurrence
%	GETLIST+4~
%ZIS	EN2+2*!, EN2+4!
%ZIS("A"	EN2+2*
%ZIS("B"	EN2+2*
ANS	GETLIST+1~, GETLIST+3, GETLIST+5, GETLIST+8, HDR+1, PAUSE+1
DIC	EN2+1~
DIR	PAUSE+1!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1*
DTOUT	EN2+1~
DTP	GETLIST+1~, GETLIST+4*, HDR+3
DUOUT	EN2+1~
IO	EN2+4, QUE+3
IO("Q"	EN2+3, QUE+1!
IOF	HDR+2
IOP	EN2+2!, EN2+4!
IOSL	GETLIST+2, GETLIST+8
IOST	GETLIST+2, HDR+2, PAUSE+1
LN	GETLIST+1~, GETLIST+3*, HDR+4
MDLL	GETLIST+1~, GETLIST+5*, GETLIST+7, GETLIST+9
MDSPEC	EN2+1~
MDX	GETLIST+1~, GETLIST+5*, GETLIST+6, GETLIST+9
PG	GETLIST+1~, GETLIST+4, HDR+2, HDR+3
>> POP	EN2+2
S1	GETLIST+1~, GETLIST+2*, HDR+1
X	EN2+1~
Y	EN2+1~, PAUSE+1
ZTDESC	QUE+1!, QUE+2*
ZTDTH	QUE+1!
ZTIO	QUE+1!
>> ZTREQ	QUE+1*
>> ZTRTN	QUE+1*
ZTSAVE	QUE+1!
ZTSAVE("ZTREQ"	QUE+1*
ZTSK	QUE+1!, QUE+3!
ZTUCI	QUE+1!