Routine: PSN5ND

Information

PSN5ND ;BIR/MAM - Clean up "ND" nodes ;[ 01/12/98 5:18 PM ]

Source file <PSN5ND.m>

Name	Comments	DBIA/ICR reference
PSNDF	; clean up "ND" nodes in PSNDF
PSDRUG	; update "ND" nodes in ^PSDRUG
RESET	; reset the proper 10th piece in ^PSDRUG(IFN,"ND")

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	PSDRUG+3, RESET+2, RESET+3, RESET+4, RESET+5*
^PSDRUG("AQ1"	PSDRUG+2!, RESET+5*
^PSNDF(	PSNDF+1!, RESET+5

Name	Line Occurrences
RESET	PSDRUG+3

Name	Field # of Occurrence
IFN	PSNDF+1, PSDRUG+3, PSDRUG+4!, RESET+2, RESET+3, RESET+4, RESET+5
MMM	PSDRUG+4!, RESET+3*, RESET+5
NNN	PSDRUG+4!, RESET+4*, RESET+5