Routine: PSXEDRG

Information

PSXEDRG ;BIR/BAB-Drug Enter/Edit for HOST ; 30 Oct 95 / 3:16 PM [ 04/08/97 2:06 PM ]

Source file <PSXEDRG.m>

Package	Total	Call Graph
VA FileMan	4	^DIC YN^DICN ^DIE ^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSXEDRG+3
Function Call: WRITE	Prompt: !!,"Drug is being edited by another process, try again later...",!! Line Location: PSXEDRG+4
Function Call: WRITE	Prompt: !!,"DO YOU WANT TO MARK THIS DRUG AS A"_PSIUT_" ITEM" Line Location: PSIU+2
Function Call: WRITE	Prompt: ! Line Location: PSIU+7
Function Call: WRITE	Prompt: !!," Enter `Y' to mark this drug as a"_$S($E(PSIUT)="N":"n"_$E(PSIUT,2,99),1:PSIUT)_" item.",!," or `N' to unmark as a"_$S($E(PSIUT)="N":"n"_$E(PSIUT,2,99),1:PSIUT)_" item." Line Location: MQ+1
Routine Call	DIC Line Location: PSXEDRG+3
Routine Call	DIE Line Location: PSXEDRG+6
Routine Call	DIR Line Location: CHECK

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	PSXEDRG+4, PSXEDRG+6, PSIU+1, PSIU+4, PSIU+5
^PSDRUG("AIU"	PSIU+4*, PSIU+5!
^PSDRUG("IU"	PSIU+6!*

Name	Field # of Occurrence
%	PSIU+1, PSIU+2, PSIU+3, PSIU+4, PSIU+5, END!
D0	END!
D1	END!
DA	PSXEDRG+3, PSXEDRG+4, PSXEDRG+6!, PSIU+1, PSIU+4, PSIU+5, PSIU+6, END!
DIC	PSXEDRG+3*, PSXEDRG+6, END!
DIC(0	PSXEDRG+3*
DIE	PSXEDRG+6*, END!
DIR	CHECK!, END!
DIR("A"	CHECK*
DIR("B"	CHECK*
DIR(0	CHECK*
DIROUT	END!
DIRUT	END!
>> DLAYGO	PSXEDRG+3*
DP	CHECK~
DQ	CHECK~, END!
DR	PSXEDRG+6*, END!
DT	PSXEDRG+6
DTOUT	PSXEDRG+3, END!
DUOUT	PSXEDRG+3, END!
I	END!
PSIU	PSIU+2*, DONE+1!
PSIUA	PSXEDRG+5, PSIU+3, PSIU+4, END!
>> PSIUO	PSIU+1*, PSIU+4, PSIU+5, PSIU+6
PSIUQ	PSIU+1*, PSIU+2, PSIU+4, DONE+1!
PSIUT	PSIU+1*, PSIU+2, DONE+1!, MQ+1
PSIUX	PSXEDRG+5*, PSIU+1, PSIU+4, PSIU+5, END!
PSIUY	PSIU+4, PSIU+5, PSIU+6, DONE+1!
PSXJ	PSXEDRG+2*, END!
X	CHECK, END!
Y	PSXEDRG+3, PSXEDRG+6, CHECK, CHECK+1, END!
Z	END!