Routine: INHSC

Package	Total	Call Graph
IHS Generic Interface System	3	EDSCR^INHI (ASBL,EN)^INHSZ $$SC^INHUTIL1
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Uncategorized	3	^DWC SETDT^UTDT (,$$YN)^UTSRD
VA Fileman	3	^DIC ^DIE (,IX1)^DIK

Package

Total

Call Graph

IHS Generic Interface System

EDSCR^INHI (ASBL,EN)^INHSZ $$SC^INHUTIL1

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

Uncategorized

^DWC SETDT^UTDT (,$$YN)^UTSRD

VA Fileman

^DIC ^DIE (,IX1)^DIK

Package	Total	Caller Graph
IHS Generic Interface System	1	INHSGZ

Package

Total

Caller Graph

IHS Generic Interface System

INHSGZ

Entry Points

Name	Comments	DBIA/ICR reference
A
TEMP(%M)	;Load initial script template
HEAD	;Script header
MAKENEW()	;Make a new script and return its IEN
ED	;Edit DA=script number
KILL(DA)	;Kill script DA
1
ZTSK	;TaskMan entry point - enter with D0 set to entry #
ED1
TEXT	;Lines of text for initial script
PRINT	;Print a script
SDEL	;Script INDA deleted, INRMAX = number of compiled routines

External References

Name	Field # of Occurrence
^%ZIS	PRINT+4, PRINT+8
^%ZISC	PRINT+5, ZTSK+15
^%ZTLOAD	PRINT+7
^DIC	A+2, PRINT+3
^DIE	A+9, ED+5
^DIK	A+10, KILL+3
IX1^DIK	A+6
^DWC	ED+4
EDSCR^INHI	ED+4
ASBL^INHSZ	ZTSK+3
EN^INHSZ	ED1+2
$$SC^INHUTIL1	ED+4
SETDT^UTDT	TEMP+3
^UTSRD	A+1
$$YN^UTSRD	A+4, A+7, ED1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+1
Function Call: WRITE	Prompt: *7," ??" Line Location: A+3
Function Call: WRITE	Prompt: " ??",*7 Line Location: A+4
Function Call: WRITE	Prompt: ! Line Location: A+7
Function Call: WRITE	Prompt: *7,!?5,"<Script '"_$P(^INRHS(DA,0),U)_"' Deleted>" Line Location: A+10
Function Call: WRITE	Prompt: *7,!,"No space for additional scripts.",! Line Location: MAKENEW+3
Function Call: WRITE	Prompt: !,X_" routine deleted." Line Location: SDEL+2
Function Call: WRITE	Prompt: !?5,"Request "_$S($D(ZTSK):"",1:"NOT ")_"QUEUED." Line Location: PRINT+7
Function Call: WRITE	Prompt: !,I,".",?7 Line Location: ZTSK+7
Function Call: WRITE	Prompt: L Line Location: ZTSK+8
Function Call: WRITE	Prompt: $E(L,1,IOM-10) Line Location: ZTSK+9
Function Call: WRITE	Prompt: !?10,X Line Location: ZTSK+13
Function Call: WRITE	Prompt: @IOF Line Location: ZTSK+14
Function Call: READ	Timeout: DTIME Variable: X Line Location: HEAD+2
Function Call: WRITE	Prompt: !,*7 Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"Script Name:",?18,NAME Line Location: HEAD+5
Function Call: WRITE	Prompt: !,"Compiled Routine:",?18,ROU,!,"File:",?18,$E(FILE,1,30),?50,"Direction: ",DIR Line Location: HEAD+6
Function Call: WRITE	Prompt: " (Include Only)" Line Location: HEAD+7
Function Call: WRITE	Prompt: ! Line Location: HEAD+8
Function Call: WRITE	Prompt: Z Line Location: HEAD+8
Routine Call	DIE Line Location: A+9 ED+5
Routine Call	DIC Line Location: A+2 PRINT+3
Routine Call	%ZIS Line Location: PRINT+4 PRINT+8

FileNo	Call Tags
^INRHS - [#4006]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("DEL"	SDEL+2
^%ZTSK - [#14.4]	ZTSK+14!
^DD(4006	A+3, ZTSK+2
^DIC - [#1]	ZTSK+2
^DIJUSV(	A+6*
^INRHS - [#4006]	A+6, A+8, A+9, A+10, MAKENEW+2, MAKENEW+4, ED+2, ED+3, ED+4, ED+5 , ED1, KILL+1, KILL+2, TEMP+4, TEMP+5*, ZTSK+2
^INRHS(0	MAKENEW+2, MAKENEW+3, MAKENEW+4*, MAKENEW+6
^UTILITY("IN"	ZTSK+3!, ZTSK+5, ZTSK+10, ZTSK+12, ZTSK+15!

Name	Line Occurrences
$$MAKENEW	A+5
1	A+8
A	A+2, A+3, A+4, A+10, 1
ED	A+2, 1
ED1	ED+4
HEAD	ZTSK+4, ZTSK+6, ZTSK+11
SDEL	ED+4, ED+5, KILL+3
TEMP	A+11

Name	Field # of Occurrence
^(	ZTSK+7, ZTSK+12
^(0	MAKENEW+5*, ZTSK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TEMP+2~, TEMP+4*, TEMP+5
%1	TEMP+2~, TEMP+4*
%M	TEMP~, TEMP+4
>> %ZIS	PRINT+4, PRINT+8
D0	PRINT+1~, PRINT+3*, ZTSK+2, ZTSK+3
DA	INHSC+4~, A+2, A+5, A+6, A+8, A+9, A+10, ED+2, ED+3, ED+5 , ED1, ED1+2, KILL~, KILL+1, KILL+2, KILL+3, TEMP+4, TEMP+5
DIC	INHSC+4~, A, PRINT+2
DIC("A"	PRINT+2*
DIC("S"	A*
DIC(0	A, PRINT+2
DIE	INHSC+4~, A+9, A+10, ED+3
DIK	INHSC+4~, A+6, A+10, KILL+3*
DIR	PRINT+1~, ZTSK+2*, HEAD+6
DR	INHSC+4~, A+9, ED+5
DT	TEMP+3, TEMP+5
DTIME	HEAD+2
DUOUT	PRINT+1~, ZTSK+5, ZTSK+6, ZTSK+10, ZTSK+11, HEAD+1!, HEAD+2*, HEAD+3
DUZ	A+6
>> DWN	ED+4*
FILE	PRINT+1~, ZTSK+2*, HEAD+6
I	INHSC+4~, MAKENEW+1~, MAKENEW+2, MAKENEW+3, MAKENEW+4, MAKENEW+5, MAKENEW+6, SDEL+2, SDEL+3!, TEMP+2~ , TEMP+4, ZTSK+5, ZTSK+7, ZTSK+10, ZTSK+12
INDA	ED+1~, ED+3, ED+4, SDEL+1, KILL+3
INON	ED+1~, ED+2, PRINT+1~, ZTSK+2, HEAD+6
INRMAX	ED+1~, ED+3, SDEL+1, SDEL+2, KILL+2~*
IO	PRINT+5, HEAD+2
IO(0	PRINT+5, HEAD+2
IOF	ZTSK+4, ZTSK+14, HEAD+4
IOM	PRINT+4, ZTSK+8, ZTSK+9, ZTSK+12, HEAD+8
ION	PRINT+4
IOP	PRINT+1~, PRINT+4!*, PRINT+7
IOSL	PRINT+4, ZTSK+6, ZTSK+11
IOST	PRINT+4, HEAD+2
>> L	ZTSK+7, ZTSK+8, ZTSK+9, ZTSK+10, ZTSK+12*
>> N	ZTSK+7, ZTSK+10, ZTSK+12
NAME	INHSC+4~, A+4, A+6, PRINT+1~, ZTSK+2, HEAD+5
PAGE	PRINT+1~, ZTSK+1, HEAD+2, HEAD+4
>> POP	PRINT+4
R	SDEL+1*, SDEL+2, SDEL+3!
ROU	PRINT+1~, ZTSK+2*, HEAD+6
>> SCR	ED1+2*
U	A+3, A+8, A+9, A+10, MAKENEW+4, MAKENEW+5, ED+2, ED+3, ED1, KILL+2 , TEMP+5, ZTSK+1*, ZTSK+2, HEAD+2
X	INHSC+4~, A+1, A+2, A+3, A+4, A+7, A+8, A+9, A+10, A+11 , MAKENEW+1~, MAKENEW+4, MAKENEW+5, ED1+1, SDEL+2, SDEL+3!, TEMP+2~, TEMP+4, ZTSK+2, ZTSK+12* , ZTSK+13, HEAD+2*
Y	INHSC+4~, A+2, PRINT+3
Z	HEAD+8!*
>> ZTIO	PRINT+7*
>> ZTRTN	PRINT+7*
>> ZTSAVE("D0"	PRINT+6*
>> ZTSAVE("DTIME"	PRINT+6*
ZTSK	PRINT+1~, PRINT+7, ZTSK+4, ZTSK+14, HEAD+2

Customize PDF page

Package: IHS Generic Interface System

Routine: INHSC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

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