Routine: INZTTC

Information

INZTTC ;WOM; 29 Nov 95 11:41; CMS Transaction Type Create

Source file <INZTTC.m>

Package	Total	Call Graph
Uncategorized	4	VAR^DWUTL (CREATE,REMARK,REPLACE)^ZCMS41 ^ZCMSENV SHORES^ZCMSFNC
IHS Generic Interface System	3	COMP^INHSYS $$ID^INHSYS04 ($$TR,ORDER)^INHUT3
Kernel	1	($$CLOSESEQ,$$OPENSEQ)^%ZTFS1
VA Fileman	1	^DIC

Package	Total	Caller Graph
IHS Generic Interface System	1	INHSYSE

Name	Comments	DBIA/ICR reference
COMP()	; Compile IBxxxxnn and IBxxxxW programs for CREATE/CIG ; Returns 1 if successful, 0 if not
CKRES(FRNAME)	;Check reservation
CRE	; Create a TRANSACTION TYPE ELEMENT ; Also used by Replace, CIG, and RIG ; Input: %ACT = The menu number corresponding to ; the CMS function requested by user. ; Possible values shown at tag CRDEF
SUM(X)	; Calculate new VMS filename based on a check sum ; if length > 35 since VMS filenames can only be ; 39 characters (not including extention)
SAVEROU(FRNAME)	;SAVE MULTIPLE ROUTINES AS ONE ELEMENT/VMS FILE ; Programs/^UTILITY($J, created in function COMP
UTL	; Get all IBxxxxnn and IBxxxxW programs into ^UTILITY($J
TR(X)	; Calculate Valid VMS filename for TRANSACTION TYPE by translating ; " " to "_", all other invalid characters to "-", and adding ; a ".TT" extension. ; Input should be the TRANSACTION TYPE NAME field
CRDEF(FRNAME)	; Update Library

Name	Line Occurrences
Function Call: WRITE	Prompt: !,B1,"Invalid UNIQUE IDENTIFIER - Aborting!",B0,! Line Location: CRE+14
Function Call: WRITE	Prompt: ! Line Location: CRE+19
Function Call: WRITE	Prompt: !!,"Attempting to update the default library...",! Line Location: CRE+26
Function Call: WRITE	Prompt: *7,!,FRNAME," not reserved!" Line Location: CKRES+4
Function Call: WRITE	Prompt: *7,!," Cannot replace ",FRNAME,"! This element is reserved by "_ZCMSRESU,! Line Location: CKRES+5
Function Call: WRITE	Prompt: !,B1,"No Transaction Type Created, aborting!",!,B0,! Line Location: COMP+3
Function Call: WRITE	Prompt: !,FRNAME," already exits in ",ULIB,! Line Location: CRDEF+10
Function Call: WRITE	Prompt: *7,!,FRNAME," not reserved!" Line Location: CRDEF+14
Function Call: WRITE	Prompt: *7,!," Cannot replace ",FRNAME,"! This element is reserved by "_ZCMSRESU,! Line Location: CRDEF+15
Function Call: WRITE	Prompt: !,B1 Line Location: CRDEF+17
Function Call: WRITE	Prompt: !,B0 Line Location: CRDEF+17
Function Call: WRITE	Prompt: "Saved by %RS from "_$ZU(0)_" on "_$P($ZH,",",3) Line Location: SAVEROU+4
Function Call: WRITE	Prompt: !,"For CMS" Line Location: SAVEROU+5
Function Call: WRITE	Prompt: !,RNAME,! Line Location: SAVEROU+6
Function Call: WRITE	Prompt: ! Line Location: SAVEROU+7
Function Call: WRITE	Prompt: ! Line Location: SAVEROU+8
Routine Call	DIC Line Location: CRE+13

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	CRE+20!, COMP+3, UTL+1!, SAVEROU+2, SAVEROU+6
^ZCMSENV($J	CRE+22, CRE+24

Name	Field # of Occurrence
%	CRE+6~, CRE+7*
>> %ACT	CRE+16, CRDEF+10, CRDEF+11, CRDEF+12, CRDEF+13, CRDEF+14, CRDEF+17
>> %DUMMY	CRDEF+17*
%EN	CRE+19~
>> %LIB	CRE+7
%RTN	CRE+6~, UTL+1*
%U	CRE+6~, CRE+10*
>> %UCI	CRE+10
%UTILITY	CRE+6~
A	SUM+3~, SUM+4*
>> B0	CRE+9, CRE+13, CRE+14, COMP+3, CRDEF+17
>> B1	CRE+8, CRE+13, CRE+14, COMP+3, CRDEF+17
>> CMS	CRDEF+17
>> CNAME	CRDEF+17
>> DEF	CRE+23*
>> DEFDIR	CRE+23*
>> DEFENV	CRE+22*
>> DEFLIB	CRE+23*
DIC	CRE+6~, CRE+12*
DIC("A"	CRE+12*
DIC(0	CRE+12*
>> ENVCNT	CRE+24*
>> FILE2	CRDEF+1*, CRDEF+10
FL	CRDEF+7~, CRDEF+9, CRDEF+11, CRDEF+13, CRDEF+14, CRDEF+15
FRNAME	CRE+6~, CRE+15*, CRE+16, CRE+27, CKRES~, CKRES+3, CKRES+4, CKRES+5, CRDEF~, CRDEF+1 , CRDEF+10, CRDEF+11, CRDEF+14, CRDEF+15, CRDEF+16, CRDEF+17, SAVEROU~, SAVEROU+3, SAVEROU+7
I	CRE+6~, SUM+3~, SUM+4*
INPOP	COMP+2~*
INSELTT	CRE+6~, CRE+15*, COMP+2
INSELTT(1	CRE+15*
>> KEEP	CRDEF+1*, CRDEF+11, CRDEF+16
PAUSE	CRE+6~, CRE+10*
>> REMARK	CRDEF+17
>> RLIB	CRE+7, CRDEF+1
RNAME	SAVEROU+2~, SAVEROU+3, SAVEROU+6
RTN	CRE+6~, CRE+15, UTL+1, UTL+2
SUM	SUM+3~, SUM+4, SUM+5
>> ULIB	CRE+22*, CRE+23, CRDEF+10
>> UNAM	CKRES+5, CRDEF+15
X	TR~, TR+4*, TR+5, SUM~, SUM+4, SUM+5
Y	CRE+6~, CRE+13, CRE+15
Y(0	CRE+14, CRE+15
ZCMSERC	CRE+6~, CRE+10*
>> ZCMSERR	CRE+20
>> ZCMSGO	CRE+19*
ZCMSRES	CKRES+2~, CKRES+4, CKRES+5, CRDEF+14, CRDEF+15
ZCMSRESU	CKRES+2~, CKRES+5, CRDEF+15