INHSYS09 ;JPD; 5 Nov 98 13:29;gis sys con data installation utility
Source file <INHSYS09.m>
Package | Total | Call Graph |
---|---|---|
IHS Generic Interface System | 3 | (FLD,HEAD,PRINT)^INHSYS03 $$DIC^INHSYS05 ($$RUT,$$UP,$$WP,DATA,MSG)^INHSYSUT |
VA Fileman | 2 | ^DIC ^DIE |
Kernel | 1 | $$YN^%ZTF |
Uncategorized | 1 | ENV^UTIL |
Name | Comments | DBIA/ICR reference |
---|---|---|
MULT2(%NDPC,%FILE,%FLD,%NBFR,%DATA,%SVIEN,INREPRT,%FND) | ;Process multiple
; Input: ; %NDPC - The node;piece ; %FILE - Source file number ; %FLD - Source field number ; %NBFR - Buffer of data ; %DATA - ien to be expanded ; %SVIEN - top level ien, used in PRINT^INHSYS03 ; INREPRT - 0 no report 1 report ; %FND - 1 - Target file not in package ; 0 - Target file in package ; Site specific files may not be exported. If ; this is an entry in one of those files, %FND will ; be equal to one. ex) DEVICE FILE |
|
MULT(%NBFR,%NODE,%ROOT,DA,%FILE,%FLDNUM,%LEVL,%SVIEN,%FND) | ;Process multiple
|
|
SETDA(DA,%LEVL,Y) | ;Set DA level so fileman doesn't choke
; Input: ; DA - ien and "Multiple" entry #'s ; %LEVL - level in multiple ; Y - New entry number ; Output: ; DA - IEN and "Multiple" entry #'s |
|
GETFLE(INNTRIES) | ;Get file entry
; Output: ; INNTRIES - Array of Files and entries ; format - INNTRIES(FILE,IEN)="ENTRY NAME" |
|
EXPND(INY,%FILE,%ROOT,%BFR,%LEVL,DA,INREPRT,%SVIEN,%FND,INOMIT) | ;Expand pointers
|
|
START | ;Single element transaction mover entry point
; This routine copy data from file entry to ^UTILITY($J,%FILE,%IEN ; Then expand the pointer fields to their actual value |
|
GETELE(INNTRIES,Y) | ;Get file element
; Output: ; INNTRIES - Array of Files and entries ; format - INNTRIES(FILE,IEN)="ENTRY NAME" ; Y - File element entry |
|
COPY(%FILE,%OIEN,INREPRT,INOMIT) | ;Front end expand any pointer any file
; %FILE - File Number ; %OIEN - Internal Entry Number ; INREPRT - 0 no report 1 yes ; INOMIT - Array of file and field to omit from transporting |
|
DEBOFF | ;Turn off debug for all background process
|
Name | Field # of Occurrence |
---|---|
$$YN^%ZTF | START+11 |
^DIC | GETFLE+7, GETELE+8 |
^DIE | DEBOFF+9 |
FLD^INHSYS03 | EXPND+54 |
HEAD^INHSYS03 | START+12 |
PRINT^INHSYS03 | MULT2+30 |
$$DIC^INHSYS05 | MULT+23, MULT+24 |
$$RUT^INHSYSUT | EXPND+50, MULT+12, MULT2+26 |
$$UP^INHSYSUT | MULT2+26, MULT2+29 |
$$WP^INHSYSUT | EXPND+44 |
DATA^INHSYSUT | EXPND+50 |
MSG^INHSYSUT | MULT+20, MULT+24 |
ENV^UTIL | START+5 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC - [#1] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | EXPND+32, EXPND+39, EXPND+42, EXPND+47, MULT+18, MULT+19, MULT+21, MULT2+17, MULT2+19 |
^DIC - [#1] | GETELE+7, COPY+7, MULT2+22 |
^INTHPC - [#4004] | DEBOFF+4, DEBOFF+5 |
^INTHPC("B" | DEBOFF+2, DEBOFF+3 |
^UTILITY($J | COPY+6! |
Name | Line Occurrences |
---|---|
COPY | START+15 |
DEBOFF | START+6 |
EXPND | COPY+12, MULT+29 |
GETELE | GETFLE+9 |
GETFLE | START+8 |
MULT | EXPND+46 |
MULT2 | EXPND+53 |
SETDA | MULT+26 |
Name | Field # of Occurrence |
---|---|
^( | MULT+15 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%BFR | EXPND~, EXPND+36 |
%DATA | EXPND+29~, EXPND+50, EXPND+51, EXPND+53, MULT2~, MULT2+21 |
%DIC0 | MULT+10~, MULT+11*, MULT+23, MULT+24 |
%FIL | GETFLE+4~, GETFLE+5, GETFLE+8*, GETFLE+9, GETELE+7, GETELE+9 |
%FILE | START+13*, START+14, START+15, COPY~, COPY+6, COPY+7, COPY+9, COPY+12, EXPND~, EXPND+32 , EXPND+39, EXPND+42, EXPND+44, EXPND+46, EXPND+47, EXPND+53, EXPND+54, MULT~, MULT+18, MULT+19 , MULT2~, MULT2+17, MULT2+19, MULT2+22, MULT2+26, MULT2+29, MULT2+30 |
%FLD | MULT2~, MULT2+17, MULT2+19, MULT2+22, MULT2+30 |
%FLDNUM | EXPND+29~, EXPND+40*, EXPND+42*, EXPND+44, EXPND+46, EXPND+47, EXPND+53, EXPND+54, MULT~, MULT+18 , MULT+19 |
%FND | EXPND~, EXPND+46, EXPND+53, EXPND+54, MULT~, MULT+29, MULT2~, MULT2+30 |
%GBFR | MULT2+14~, MULT2+26*, MULT2+27* |
%GBL | GETELE+7*, MULT+10~, MULT+21*, MULT+23, MULT2+14~, MULT2+17*, MULT2+21 |
%GBLN | MULT2+14~, MULT2+21*, MULT2+22, MULT2+24, MULT2+30 |
%LEVL | EXPND~, EXPND+46, EXPND+53, MULT~, MULT+23, MULT+24, MULT+26, MULT+29, SETDA~, SETDA+8 |
%NBFR | EXPND+29~, EXPND+36*, EXPND+46, EXPND+50, EXPND+53, MULT~, MULT+12, MULT+29, MULT2~, MULT2+25 |
%NDPC | EXPND+53, EXPND+54, MULT2~, MULT2+15 |
%NFLN | MULT+10~, MULT+18*, MULT+20, MULT+21, MULT+23, MULT+24, MULT+29 |
%NOD | MULT2+14~, MULT2+25*, MULT2+26 |
%NODE | EXPND+29~, EXPND+31*, EXPND+32*, EXPND+33, EXPND+34*, EXPND+36, EXPND+46, EXPND+55*, MULT~, MULT+17 |
%NODE1 | EXPND+29~, EXPND+33*, EXPND+39, EXPND+42, EXPND+55 |
%NRT | EXPND+29~, MULT+10~, MULT+13~, MULT+17*, MULT+24, MULT+29 |
%OIEN | START+14*, START+15, COPY~, COPY+6, COPY+7, COPY+9, COPY+12, EXPND+29~, MULT+10~, MULT+12* , MULT+15, MULT+29 |
>> %PC | MULT2+15*, MULT2+27 |
%PIECE | EXPND+29~, EXPND+38*, EXPND+39*, EXPND+42, EXPND+46, EXPND+50 |
%PTO | EXPND+54, MULT2+14~, MULT2+19*, MULT2+20*, MULT2+30 |
%ROOT | COPY+5~, COPY+7*, COPY+9, COPY+12, EXPND~, EXPND+46, MULT~, MULT+17 |
%SVIEN | COPY+5~, COPY+7*, COPY+12, EXPND~, EXPND+46, EXPND+53, MULT~, MULT+29, MULT2~, MULT2+30 |
%UPFL | MULT2+14~, MULT2+29*, MULT2+30 |
%X | COPY+5~, COPY+9*, COPY+10, MULT+10~, MULT+25*, MULT+30* |
%Y | COPY+5~, COPY+9*, COPY+10, MULT+10~, MULT+25*, MULT+30* |
%Z0 | EXPND+30~, EXPND+47*, EXPND+49, EXPND+52, MULT+10~, MULT+19*, MULT+20, MULT+24 |
DA | EXPND~, EXPND+46, MULT~, MULT+17, MULT+23, MULT+24, MULT+25, MULT+26, MULT+29, MULT+30!* , SETDA~, SETDA+9*, DEBOFF+9* |
DA( | SETDA+8* |
DA(1 | SETDA+9* |
DIC | GETFLE+4~, GETFLE+6*, GETELE+5~, GETELE+7* |
DIC("A" | GETFLE+6*, GETELE+6* |
DIC(0 | GETFLE+6*, GETELE+6* |
DIE | EXPND+29~, DEBOFF+9* |
DR | EXPND+29~, DEBOFF+9* |
DTIME | DEBOFF+8 |
I | EXPND+29~, SETDA+7~, SETDA+8* |
INBD | DEBOFF+1~, DEBOFF+3*, DEBOFF+4, DEBOFF+5, DEBOFF+9 |
INBN | DEBOFF+1~, DEBOFF+2*, DEBOFF+3, DEBOFF+7 |
INBP | DEBOFF+1~, DEBOFF+5*, DEBOFF+6 |
INCR | START+3~, START+4* |
INNTRIES | START+3~, START+8, START+9, GETFLE~, GETFLE+9, GETELE~ |
INNTRIES( | START+13, START+14, GETELE+9* |
INOMIT | COPY~, COPY+12, EXPND~, EXPND+54 |
INP01 | MULT2+14~, MULT2+24*, MULT2+27, MULT2+30 |
INPOP | START+3~, START+4*, EXPND+32, EXPND+39, EXPND+42, EXPND+55, MULT2+22* |
INREPRT | START+3~, START+11*, START+12, START+15, COPY~, COPY+12, EXPND~, EXPND+53, MULT+29, MULT2~ , MULT2+30 |
INY | EXPND~ |
IOF | START+7 |
J | EXPND+29~ |
>> K | EXPND+52* |
NFLN | MULT+10~ |
ODA | MULT+13~, MULT+25*, MULT+30 |
P01 | EXPND+29~ |
U | GETELE+7, GETELE+9, EXPND+49, EXPND+52, MULT+18, MULT+20, MULT+21, MULT+23, MULT+24, MULT2+17 , MULT2+19, MULT2+22, MULT2+24, MULT2+27, DEBOFF+5 |
X | MULT+10~, MULT+15*, MULT+20, MULT+22*, MULT+23, MULT+24, DEBOFF+8* |
Y | GETFLE+4~, GETFLE+8, GETFLE+9, GETELE~, GETELE+9, SETDA~, SETDA+9 |
YY | EXPND+29~, MULT+10~, MULT+20, MULT+23*, MULT+24*, MULT+26, MULT+29 |