Routine: LRPOS1

Information

LRPOS1 ;SLC/FHS - CLEAN UP DIC("S") FROM DD ;7/17/89 12:46

Source file <LRPOS1.m>

Package	Total	Call Graph
VA Fileman	1	^DIK

Package	Total	Caller Graph
Lab Service	1	LRPOS

Name	Comments	DBIA/ICR reference
NM	;Clean up "NM" nodes of DD
W	;Set WRITE access to @ on mumps fields
KID	;Remove unneeded fields and x-references

Name	Field # of Occurrence
^DIK	KID+1, KID+2, KID+3, KID+4

Name	Line Occurrences (* Changed, ! Killed)
^DD(60	LRPOS1+20!
^DD(62.07	W+1*
^DD(62.1	W+2, W+3
^DD(62.31	LRPOS1+4!
^DD(62.4	W+4*
^DD(62.41	NM+1!
^DD(62.43	W+5*
^DD(62.46	NM+2!
^DD(63.017	LRPOS1+5!
^DD(63.12	LRPOS1+7!
^DD(63.13	LRPOS1+9!
^DD(63.14	LRPOS1+8!
^DD(63.16	LRPOS1+10!
^DD(63.2	LRPOS1+12!
^DD(63.3	LRPOS1+15!
^DD(63.34	LRPOS1+16!
^DD(63.37	LRPOS1+11!
^DD(63.39	LRPOS1+13!
^DD(63.43	LRPOS1+14!
^DD(63.46	LRPOS1+17!
^DD(63.8122	LRPOS1+18!
^DD(63.822	LRPOS1+6!
^DD(64.01	NM+3!
^DD(64.03	NM+4!, NM+5!
^DD(64.53	NM+13!
^DD(64.55	NM+6!
^DD(65	NM+11*, NM+12!
^DD(68.04	LRPOS1+19!
^DD(68.21	NM+7!
^DD(68.22	NM+8!
^DD(69.04	NM+9!
^DD(69.9001	NM+10!

Name	Field # of Occurrence
^(12.1	LRPOS1+4!, LRPOS1+5!, LRPOS1+6!, LRPOS1+7!, LRPOS1+8!, LRPOS1+9!, LRPOS1+10!, LRPOS1+11!, LRPOS1+12!, LRPOS1+13! , LRPOS1+14!, LRPOS1+15!, LRPOS1+16!, LRPOS1+17!, LRPOS1+18!, LRPOS1+19!