Routine: GMRCYP9

Package	Total	Call Graph
Kernel	3	^%ZTLOAD $$FMTE^XLFDT MES^XPDUTL
VA Fileman	3	^DIE ENALL^DIK $$GET1^DIQ
Consult Request Tracking	1	($$TERM,INFO)^GMRCYP9B
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
RBLDIXS	; Rebuild indices for ^GMR(123.5 file.
BF	; Remove Entries for all Terminated Users (By File) ; ; FILENUM File # ; FIELDNUM Field # ; LCNT Line Counter ; RTS( Array of Global Roots ; GTOT Grand Total Terminated Users ; GMRCMSG Array for Bulletin Message ; GMRCCNT Counter Variable ; XMvars Set for Bulletin Message ;
FILE(X)	; Get File Number
REMDAT	; Get Removal Data (Name and Termination Date) ; ; LVL Current Level ; RTS( Array of Global Roots ;
FIELD(X)	; Get Field Number
REMOVE	; Remove Terminated User ; ; DA Current DA Array ; DIC Current Global Root ; LVL Current Level ; IND Indentation (for write statements) ; TERM Terminated Entries Found in File ; TOT Total Terminated Entries Found
DEL	; Delete Entry ; ; DIC Current Global Root ; OLDDIC Former DIC (Global Root) ; DIC(0) Lookup Parameters ; DIC("P") Subfile Specifiers ; DIC("DR") Data Field String ; OLDDA Former DA Array ; DA Current DA Array ; ; DIE Global Root ; DIK Global Root ; DR Data Field String ; DTOUT Timeout Flag ; DUOUT Up-Arrow Out Flag ; DLAYGO "Learn As You Go" Flag ; OLDDUZ Former User ; DUZ Current User ; DUZ(0) Current User Access ; GL Fileman Global Location ; UDA Uppermost DA ; LN Node to Lock ; VAR Field Value ; X Input Data ; Y Output Data ; I Counter ;
DATC	; Data (FILE/FIELDS) for pointer removal (Consults)
NEXTDAT	; Next Data (for subfiles) ; ; DA Current DA Array ; DIC Current Global Root ; DICP Current Global Specifier ; LVL Current Level ; IEN Current Internal Entry Number ; OLDDA Previous DA Array ; OLDDIC Previous Global Root ; OLDLVL Previous Level ; CNT Counter ;
GETDAT	; Get Data ; ; DA Current DA Array ; DIC Current Global Root ; DICP Current Global Specifier ; LVL Current Level ; IEN Current Internal Entry Number ; RTS( Array of Global Roots ;
POST	; Further post-install action for patch GMRC39.
CHECK	; Check users in <FILE> and <FIELD> ; ; FILENUM File # ; FIELDNUM Field # ; LCNT Line Counter ; RTS( Array of Global Roots ;
EXTDAT	; Extract Data ; ; GMRCERR Error Message Array ; CDA DA Counter ; LDA Last DA ; NODE Fully Specified Global Node ; NODEDAT Data Stored at Global Node ; NODESUB Node Subscript # ; NODELOC Node Location ($PIECE # of Node) ; GBLLOC Global Subscript Location (#;#) ; DIC Fully Specified Global Root ; DICP Global Specifier ; USRP Pointer to New Person File ; USRNAME User's Name ; USRITD Internal form of User's Termination Date ; USRETD External form of User's Termination Date ; USRSTA User Status ; USRACT User Action ; GMRCUSRP Pointer Holder ;

External References

Name	Field # of Occurrence
^%ZTLOAD	POST+9
^DIE	DEL+45
ENALL^DIK	RBLDIXS+8, RBLDIXS+11, RBLDIXS+14, RBLDIXS+17
$$GET1^DIQ	EXTDAT+30, EXTDAT+31
$$TERM^GMRCYP9B	EXTDAT+32
INFO^GMRCYP9B	CHECK+10
$$FMTE^XLFDT	EXTDAT+33
^XMD	BF+31
MES^XPDUTL	DEL+47

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.5 - [#123.5]	RBLDIXS+6
^VA(200 - [#200]	EXTDAT+28, EXTDAT+34

Label References

Name	Line Occurrences
$$FIELD	CHECK+8
$$FILE	CHECK+7
CHECK	BF+15
DEL	EXTDAT+33
EXTDAT	GETDAT+13
GETDAT	REMDAT+5
NEXTDAT	GETDAT+13
POST	BF+11
REMDAT	REMOVE+10, NEXTDAT+19
REMOVE	CHECK+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CDA	EXTDAT+20~
CNT	NEXTDAT+12~, NEXTDAT+14, NEXTDAT+15, NEXTDAT+17, NEXTDAT+18
DA	REMOVE+9~, GETDAT+12, NEXTDAT+13, NEXTDAT+16~, EXTDAT+23, EXTDAT+26, DEL+27, DEL+30, DEL+31~, DEL+37 , RBLDIXS+2~
DA(	NEXTDAT+15, NEXTDAT+18, DEL+30, DEL+31, DEL+37
DA(" "	NEXTDAT+14, EXTDAT+35, DEL+37
DA(1	NEXTDAT+19, EXTDAT+24, DEL+37, RBLDIXS+7, RBLDIXS+10, RBLDIXS+13, RBLDIXS+16*
DIC	REMOVE+9~, GETDAT+9, GETDAT+11, NEXTDAT+13, NEXTDAT+19~, EXTDAT+23, EXTDAT+24, EXTDAT+26, DEL+27, DEL+35 , DEL+36~*
DIC("DR"	DEL+43*
DIC("P"	DEL+40*
DIC(0	DEL+41*
DICP	GETDAT+10*, NEXTDAT+13, NEXTDAT+19~, EXTDAT+25, DEL+40
DIE	DEL+33~, DEL+36*
DIFROM	BF+13~
DIK	DEL+33~, DEL+36, RBLDIXS+2~, RBLDIXS+7, RBLDIXS+10, RBLDIXS+13, RBLDIXS+16*
DIK(1	RBLDIXS+7, RBLDIXS+10, RBLDIXS+13, RBLDIXS+16
DLAYGO	DEL+33~, DEL+42*
DR	DEL+33~, DEL+43*
DT	BF+14
DTOUT	DEL+33~
DUOUT	DEL+33~
DUZ	BF+18
DUZ(0	DEL+34
FIELDNUM	BF+13~, BF+15, CHECK+8*, CHECK+10, REMOVE+14, REMOVE+15, DEL+47
FILENUM	BF+13~, BF+15, CHECK+7*, CHECK+10, REMOVE+14, REMOVE+15, DEL+47
GBLLOC	EXTDAT+20~, EXTDAT+21*, EXTDAT+22
GL	DEL+33~, DEL+36*, DEL+38
GMRCCNT	BF+13~, BF+14, BF+20, BF+21, BF+22, BF+23, BF+24, BF+25, BF+26, BF+27 , BF+28, BF+29, BF+30, REMOVE+13, REMOVE+14, REMOVE+15
GMRCERR	EXTDAT+20~, EXTDAT+30!, EXTDAT+31!
GMRCMSG	BF+13~
GMRCMSG(	BF+20, BF+21, BF+22, BF+23, BF+24, BF+25, BF+26, BF+27, BF+28, BF+29 , BF+30, REMOVE+14, REMOVE+15*
GMRCUSRP	EXTDAT+20~, EXTDAT+29*, EXTDAT+30, EXTDAT+31
GTOT	BF+13~, BF+14, REMOVE+11
I	DEL+29~, DEL+30, DEL+31
IEN	REMOVE+9~, GETDAT+11, GETDAT+12, NEXTDAT+19~, RBLDIXS+2~, RBLDIXS+5, RBLDIXS+6*, RBLDIXS+7, RBLDIXS+10, RBLDIXS+13 , RBLDIXS+16
IND	REMOVE+9~, REMOVE+10*
LCNT	BF+13~, BF+14, BF+15, CHECK+7, CHECK+8
LDA	EXTDAT+20~, EXTDAT+35*
LN	DEL+29~, DEL+38*, DEL+44, DEL+46
LVL	REMOVE+9~, REMOVE+10, REMDAT+5, GETDAT+9, GETDAT+10, GETDAT+13, NEXTDAT+13, NEXTDAT+19~*
NODE	EXTDAT+20~, EXTDAT+26*
NODEDAT	EXTDAT+20~, EXTDAT+26*, EXTDAT+27
NODELOC	EXTDAT+20~, EXTDAT+22*, EXTDAT+23, EXTDAT+24, EXTDAT+27
NODESUB	EXTDAT+20~, EXTDAT+22*, EXTDAT+23, EXTDAT+24, EXTDAT+26
NOW	BF+13~, BF+14*
OLDDA	NEXTDAT+12~, NEXTDAT+13, NEXTDAT+19, DEL+30, DEL+31
OLDDA(	NEXTDAT+15, NEXTDAT+18, DEL+30, DEL+31
OLDDA(" "	NEXTDAT+17
OLDDIC	NEXTDAT+12~, NEXTDAT+13, NEXTDAT+19, DEL+33~, DEL+35, DEL+36
OLDDICP	NEXTDAT+12~, NEXTDAT+13*
OLDDUZ	DEL+33~, DEL+34*
OLDLVL	NEXTDAT+12~, NEXTDAT+13*, NEXTDAT+19
ROOT	RBLDIXS+2~, RBLDIXS+3*, RBLDIXS+7, RBLDIXS+10, RBLDIXS+13, RBLDIXS+16
RTS	BF+13~, CHECK+9!, CHECK+10, CHECK+11
RTS("DIC"	REMDAT+5, GETDAT+9, GETDAT+10, GETDAT+13, DEL+36, DEL+40
RTS("FIELD"	DEL+27, DEL+43
RTS("FILE"	DEL+27, DEL+42
RTS("LOC"	EXTDAT+21
TAG	BF+13~, FILE+1, FIELD+1
TERM	REMOVE+9~, REMOVE+10, REMOVE+11, EXTDAT+33
TOT	REMOVE+9~, REMOVE+10, REMOVE+11, REMOVE+14, REMOVE+15
UDA	DEL+29~, DEL+37*, DEL+38
USR	BF+13~, REMOVE+12, EXTDAT+28, EXTDAT+34
USRACT	EXTDAT+20~, EXTDAT+32*, EXTDAT+33
USRETD	EXTDAT+20~, EXTDAT+33*
USRITD	EXTDAT+20~, EXTDAT+31*, EXTDAT+33
USRNAME	EXTDAT+20~, EXTDAT+30*, DEL+47
USRP	EXTDAT+20~, EXTDAT+27*, EXTDAT+28, EXTDAT+29, EXTDAT+32, DEL+47
USRSTA	EXTDAT+20~, EXTDAT+32*
VAR	DEL+33~, DEL+43*
X	FILE~, FILE+2, FILE+3, FIELD~, FIELD+2, FIELD+3, DEL+33~
XMDUZ	BF+13~, BF+18*
XMSUB	BF+13~, BF+18*
XMTEXT	BF+13~, BF+19*
XMY	BF+13~
XMY(	BF+18*
Y	DEL+33~
>> ZTDESC	POST+5*
>> ZTDTH	POST+4*
>> ZTIO	POST+6*
>> ZTRTN	POST+3*

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCYP9

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items