Routine: LREPIPI

Information

LREPIPI ;VA/DALOI/CKA - Local Pathogens Input;7/2/03

Package	Total	Call Graph
VA Fileman	7	^DDS ^DIC FILE^DICN ^DIK EN1^DIP EN^DIQ ^DIR
Lab Service	1	PAUSE^LREPIRS2
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Lab Service	3	LREPI DELETE LOCAL PATHOGEN LREPI ENTER/EDIT LOCAL PATH LREPI PATHOGEN INQUIRY

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EDIT+5
Function Call: WRITE	Prompt: !,"This pathogen is already entered as a local pathogen.",! Line Location: FND+0
Function Call: WRITE	Prompt: !! Line Location: FND+3
Function Call: WRITE	Prompt: !! Line Location: YN1+4
Function Call: WRITE	Prompt: !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!" Line Location: NOU+0
Function Call: WRITE	Prompt: !! Line Location: NOU+0
Function Call: WRITE	Prompt: !,"NO MATCH FOUND." Line Location: DELETE+11
Function Call: WRITE	Prompt: !!,"Entry ",$P(LRY,U,2)," deleted." Line Location: KILL+2
Routine Call	DDS Line Location: EDIT+3
Routine Call	DIC Line Location: LKUP+1 DELETE+9 INQUIRY
Routine Call	DIR Line Location: EN+4 ADD+1 FND+2 YN1+1 DELETE+14

FileNo	Call Tags
^LAB(69.5 - [#69.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.5 - [#69.5]	ADD+4, ADD+14, ADD+15, ADD+17*
^ORD(101 - [#101]	ADD+16

Name	Line Occurrences
ADD	LKUP+6
DELETE	DELETE+11, DELETE+17, DELETE+18, DELETE+19
EDIT	LKUP+8
EN	LKUP+3, LKUP+6, LKUP+8, LKUP+9, ADD+13, NOU, DELETE+2
EXIT	EN+4, LKUP+3, LKUP+6, EDIT+6, NOU, DELETE+3, DELETE+5, DELETE+16
FND	LKUP+5
INQUIRY	INQ1+5
KILL	DELETE+18
NOU	LKUP+4, LKUP+7, ADD+1, ADD+13

Name	Field # of Occurrence
D0	INQUIRY+1!, INQ1+2!
DA	EDIT, EXIT!, FND+1, DELETE+18, INQUIRY+1!, INQ1, INQ1+2!, INQ1+4!
DD	ADD+6!, EXIT!
DDSFILE	EDIT+1*, EXIT!
DDSFILE(1	EDIT+4!
DIC	LKUP+1!, ADD+7, EXIT!, FND+1, DELETE+6, DELETE+10!, INQUIRY!, INQUIRY+1!, INQ1, INQ1+2! , INQ1+4!, PRINT*
DIC("A"	INQUIRY*
DIC("S"	LKUP+1, DELETE+8
DIC(0	LKUP+1, ADD+8, DELETE+7, INQUIRY
DIK	EXIT!, KILL*, KILL+3!
DINUM	ADD+10*, EXIT!
DIR	EN+4!, ADD+1!, EXIT!, FND+2!, YN1+2!, NOU!, DELETE+15!
DIR("?"	EN+2*
DIR("??"	EN+3*
DIR("A"	EN+2, ADD+1, FND+2, YN1, DELETE+13*
DIR("B"	ADD+1, YN1
DIR(0	EN+2, ADD+1, FND+2, YN1, DELETE+13*
>> DIRUT	EN+4
DLAYGO	ADD+9*, EXIT!
DO	ADD+6!, EXIT!, INQ1+4!
DR	EDIT+2, EXIT!, FND+1, INQUIRY+1!, INQ1, INQ1+2!, INQ1+3, INQ1+4!
DTOUT	LKUP+4, LKUP+7, ADD+1, EXIT!, NOU, DELETE+5, DELETE+16
DUOUT	EXIT!, DELETE+5, DELETE+16
L	EXIT!, PRINT*
LRDA	ADD+5*, ADD+10, ADD+14, ADD+15, ADD+17, ADD+18, EXIT!
LRDEL	LKUP+2, EXIT!, DELETE+1*
LREPIFN	LKUP+1, ADD+18, EDIT, EXIT!
LRNO	EN+1, LKUP+8, EXIT!, FND+3
LRNUM	ADD+3, ADD+4, ADD+5, EXIT!
LRNUM1	ADD+4*, EXIT!
LRPROT	ADD+16*, ADD+17, EXIT!
LRQUIT	INQ1+2!, INQ1+4!
LRX	EN+5*, ADD+11, EXIT!
LRXX	EXIT!, DELETE+4*
LRY	LKUP+8, EXIT!, YN1+3, DELETE+12, DELETE+18, KILL+2
SITE	EN+1*, ADD+11, EXIT!
U	EN+1, ADD+14, ADD+15, ADD+17, KILL+2
X	ADD+11*, EXIT!
Y	EN+5, LKUP+1, LKUP+3, LKUP+5, LKUP+6, LKUP+7, ADD+2, ADD+13, EXIT!, FND+1 , FND+3, YN1+3, DELETE+3, DELETE+4, DELETE+5, DELETE+11, DELETE+12, DELETE+17, INQUIRY+1!, INQ1 , INQ1+2!, INQ1+4!