Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: INHSC

Package: IHS Generic Interface System

Routine: INHSC


Information

INHSC ;JSH; 11 Jul 94 15:55;Create/Edit a script

Source Information

Source file <INHSC.m>

Call Graph

Call Graph Total: 12

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Generic Interface System 1 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

FileMan Files Accessed Via FileMan Db Call

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!

Label References

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

Naked Globals

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

Marked Items

Name Field # of Occurrence
$T(TEXT+I TEMP+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All