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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: GMRCYP9

Package: Consult Request Tracking

Routine: GMRCYP9


Information

GMRCYP9 ; SLC/PKS-KR Remove Terminated Users ; [2/18/00 3:17pm]

Source Information

Source file <GMRCYP9.m>

Call Graph

Call Graph

Call Graph Total: 8

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
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
;
CHECK ; Check users in <FILE> and <FIELD>
;
; FILENUM File #
; FIELDNUM Field #
; LCNT Line Counter
; RTS( Array of Global Roots
;
FILE(X) ; Get File Number
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
REMDAT ; Get Removal Data (Name and Termination Date)
;
; LVL Current Level
; RTS( Array of Global Roots
;
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
;
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
;
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
;
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)
POST ; Further post-install action for patch GMRC*3*9.
RBLDIXS ; Rebuild indices for ^GMR(123.5 file.

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*

Marked Items

Name Field # of Occurrence
$T(@TAG+X FILE+2, FIELD+2
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All