Routine: XPDPROT

Information

XPDPROT ;SFISC/RWF,RSD - Manage Protocol Items ;05/24/2010

Package	Total	Call Graph
VA Fileman	3	FILE^DICN (,FILE)^DIE ^DIK

Package	Total	Caller Graph
Clinical Reminders	1	PXRMDIEV

Name	Comments	DBIA/ICR reference
OUT(PROT,TXT)	;Disable protocol	ICR #5567 Status: Active Usage: Supported
DELETE(PARENT,CHILD)	;EF. Delete entry from ITEM multiple	ICR #5567 Status: Active Usage: Supported
TYPE(X)	;EF. Return protocol type, Pass IFN.	ICR #5567 Status: Active Usage: Supported
LKPROT(X)	;EF. To lookup on "B"	ICR #5567 Status: Active Usage: Supported
FIND(RESULT,PROT)	;Find all parents for PROT ; Input: RESULT - Results array name, passed by reference (req) ; PROT - name of protocol (req) ; Output: RESULT(0)= number of parents found ; OR ; -1 ^ error message	ICR #5567 Status: Active Usage: Supported
RENAME(OLD,NEW)	;Rename protocol	ICR #5567 Status: Active Usage: Supported
ADD(PARENT,CHILD,MNE,SEQ)	;EF. Add Child to Item multiple of Parent	ICR #5567 Status: Active Usage: Supported

Name	Line Occurrences (* Changed, ! Killed)
^DD(101	ADD+9
^ORD(101 - [#101]	ADD+8, ADD+11, LKPROT+1, TYPE+1, DELETE+6, FIND+13, FIND+14

Name	Line Occurrences
$$LKPROT	ADD+3, ADD+6, DELETE+3, DELETE+5, OUT+3, RENAME+3, FIND+10
$$TYPE	ADD+5, DELETE+4

Name	Field # of Occurrence
CHILD	ADD~, ADD+1, ADD+6, DELETE~, DELETE+1, DELETE+5
D0	ADD+2~, ADD+9*
DA	ADD+2~, ADD+12, DELETE+2~, DELETE+6
DA(1	ADD+9, ADD+12, DELETE+7*
DIC	ADD+2~, ADD+9*
DIC("P"	ADD+9*
DIC(0	ADD+9*
DIE	ADD+2~, ADD+12*
DIK	DELETE+2~, DELETE+7*
DLAYGO	ADD+2~, ADD+9*
DR	ADD+2~, ADD+12*
MNE	ADD~, ADD+12
NEW	RENAME~, RENAME+1, RENAME+4
OLD	RENAME~, RENAME+1, RENAME+3
PARENT	ADD~, ADD+1, ADD+3, DELETE~, DELETE+1, DELETE+3
PROT	OUT~, OUT+1, OUT+3, FIND~, FIND+8, FIND+10
RESULT	FIND~
RESULT(	FIND+14*
RESULT(0	FIND+8, FIND+11, FIND+15*
SEQ	ADD~, ADD+12
TXT	OUT~, OUT+4
U	FIND+14
X	ADD+2~, ADD+9*, LKPROT~, LKPROT+1, TYPE~, TYPE+1, DELETE+2~
XPD	OUT+2~, RENAME+2~
XPD(101	OUT+4, RENAME+4
XPD1	ADD+2~, ADD+3, ADD+5, ADD+8, ADD+9, ADD+11, ADD+12, DELETE+2~, DELETE+3, DELETE+4 , DELETE+6, DELETE+7, OUT+2~, OUT+3, OUT+4, RENAME+2~, RENAME+3, RENAME+4, FIND+9~, FIND+10* , FIND+11, FIND+13
XPD2	ADD+2~, ADD+6, ADD+8, ADD+9, ADD+11, DELETE+2~, DELETE+5, DELETE+6
XPD3	ADD+2~, ADD+11*, ADD+12, ADD+13
XPDCNT	FIND+9~, FIND+12, FIND+14, FIND+15
XPDIEN	FIND+9~, FIND+12, FIND+13, FIND+14