Routine: ZISG1

Package	Total	Call Graph
Kernel	2	(B2,CHGRAD,SUB)^%ZISG3 ^XGLMSG

Entry Points

Name	Comments	DBIA/ICR reference
ERR	;K ^$W("ZISGTRM")
SUBTYPE	;
B2
DEV	; Callback for DEV item.
SUB	; Callback for SUB item
CHGRAD	;CHANGE IN MARGIN
OK	; Callback for exit item in menu
CANCEL
HELP	;Callback for help.
INIT	;create names of devices into ACDEV
SPL	;Entry point for SPOOL devices.
SPLOK	; Callback for exit item in menu
SPLNOK
MT	;Magtape device setup
MTOK	; Callback for exit item in menu
MTNOK
SDP	;SDP device setup
SDPOK	; Callback for exit item in menu
SDPNOK
HFS	;HOST FILE device setup
HFSOK	; Callback for exit item in menu
HFSNOK

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"EXIT^%ZISG1 CALLED UPON CANCEL OF MORE" Line Location: OK+1
Function Call: WRITE	Prompt: !,"JUST BEFORE ESTOP OF TAG EXIT^%ZISG1" Line Location: OK+4
Function Call: WRITE	Prompt: !,"OK BUTTON CALLED IN SPOOL SETUP" Line Location: SPLOK+1
Function Call: WRITE	Prompt: !,"OK BUTTON CALLED IN SPOOL SETUP" Line Location: MTOK+1
Function Call: WRITE	Prompt: !,"JUST BEFORE ESTOP OF TAG MTOK^%ZISG1" Line Location: MTOK+5
Function Call: WRITE	Prompt: !,"OK BUTTON CALLED IN SPOOL SETUP" Line Location: SDPOK+1
Function Call: WRITE	Prompt: !,"JUST BEFORE ESTOP OF TAG SDPOK^%ZISG1" Line Location: SDPOK+5
Function Call: WRITE	Prompt: !,"OK BUTTON CALLED IN SPOOL SETUP" Line Location: HFSOK+1
Function Call: WRITE	Prompt: !,"JUST BEFORE ESTOP OF TAG HFSOK^%ZISG1" Line Location: HFSOK+5

Name	Line Occurrences (* Changed, ! Killed)
^$DI(	%ZISG1+13, SPL+16, MT+7, SDP+7, HFS+7*
^$W("ZISGDEV"	%ZISG1+5, MT+3, SDP+3, HFS+3
^$W("ZISGHFS"	HFS+5, HFS+6, HFSOK+2, HFSOK+4*, HFSNOK!
^$W("ZISGMT"	MT+5, MT+6, MTOK+2, MTOK+4*, MTNOK!
^$W("ZISGSDP"	SDP+5, SDP+6, SDPOK+2, SDPOK+4*, SDPNOK!
^$W("ZISGSPL"	SPL+5, SPL+6, SPL+14, SPL+15, SPLOK+2, SPLOK+4, SPLNOK!
^$W("ZISGTRM"	%ZISG1+11, %ZISG1+12, %ZISG1+19, OK+3, CANCEL!
^%ZIS(1 - [#3.5]	%ZISG1+6, %ZISG1+7, MT+4, MT+6, SDP+4, SDP+6, HFS+4, HFS+6
^%ZIS(2 - [#3.2]	INIT+3
^%ZOSF("OS"	%ZISG1+14
^DD(3.51	SPL+13
^VA(200 - [#200]	SPL+2
^XMB(3.51 - [#3.51]	SPL+7

Name	Field # of Occurrence
^("SCR"	SPL+13
^("SPL"	SPL+2

Name	Field # of Occurrence
%	INIT+1~, INIT+3*
%1	INIT+1~, INIT+3*
%2	INIT+1~, INIT+3*
DUZ	SPL+1, SPL+2
>> TMP("NEW"	SPL+13*, SPL+14
>> TMP("OLD"	SPL+7*, SPL+10, SPL+11
>> TMP("ZISGHFS"	HFS+5
>> TMP("ZISGMT"	MT+5
>> TMP("ZISGSDP"	SDP+5
>> TMP("ZISGSPL"	SPL+6
>> TMP("ZISGTRM"	%ZISG1+12, INIT+2!, INIT+3*
>> X	SPL+8, SPL+10, SPL+11, SPL+13
>> XGDA	%ZISG1+3, %ZISG1+6, %ZISG1+7, %ZISG1+8, MT+1, MT+4, MT+6, SDP+1, SDP+4, SDP+6 , HFS+1, HFS+4, HFS+6
>> XGDIC("S"	SPL+9*, SPL+13
>> XGDOC	SPLOK+2*
>> XGION	%ZISG1+4, %ZISG1+5, %ZISG1+6, MT+2, MT+3, MT+4, SDP+2, SDP+3, SDP+4, HFS+2 , HFS+3, HFS+4
>> XGIOT	%ZISG1+7*, %ZISG1+8, %ZISG1+9
>> XGPAR	MTOK+2, SDPOK+2, HFSOK+2*
>> Y	SPL+8, SPL+11, SPL+13