Routine: GMRAPHR2

Information

GMRAPHR2 ;HIRMFO/WAA,FT-ADD/DELETE/EDIT SUSPECT DRUGS ;9/11/96 10:49

Name	Comments	DBIA/ICR reference
EN1	;
SELECT
EDIT	;EDIT A DRUG
EDITLST	; DISPLAY TO EDIT FIELD
EEDT
QE
ADD	;SELECTION OF A DRUG OR ENTER A NEW DRUG
ADDED
ADD2	;
DEL	;
DQ
LST
EXIT	;EXIT LINE
VALST(LST,SUB)	; GIVEN LST, THIS FUNCTION RETURNS 1 IF LIST VALID, ELSE 0

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: SELECT+0
Function Call: WRITE	Prompt: ! Line Location: SELECT+6
Function Call: WRITE	Prompt: ! Line Location: SELECT+7
Function Call: WRITE	Prompt: ! Line Location: SELECT+8
Function Call: WRITE	Prompt: !,?3,"YOU CANNOT EDIT WHEN THERE IS NO DATA ON FILE.",$C(7) Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"Select the DRUG RX you want to edit:",! Line Location: EDITLST+1
Function Call: WRITE	Prompt: !,"Enter the number(s) of the RX/DRUG to ADD or ""N"" for NEW: " Line Location: ADDED+0
Function Call: READ	Variable: GMRAX Timeout: DTIME Line Location: ADDED+1
Function Call: WRITE	Prompt: !,"ENTER THE NUMBER(S) OF THE ENTRY YOU WANT OR ""N"" FOR A NEW DRUG" Line Location: ADDED+2
Function Call: WRITE	Prompt: !,$C(7),"INVALID SELECTION PLEASE SELECT ONE OF THE DRUGS LISTED OR ""N"" FOR A NEW DRUG" Line Location: ADDED+5
Function Call: WRITE	Prompt: !,"Do You still want to add this one" Line Location: ADDED+10
Function Call: WRITE	Prompt: !,"ENTER YES TO ADD THE DRUG or NO TO SELECT ANOTHER" Line Location: ADDED+10
Function Call: WRITE	Prompt: !,"THERE ARE NO DRUG SELECTED FOR THIS PATIENT" Line Location: DEL+1
Function Call: WRITE	Prompt: !,"THIS PATIENT HAS NO SUSPECTED AGENTS ON FILE" Line Location: LST+0
Function Call: WRITE	Prompt: !,"This patient has the following Drugs selected: ",! Line Location: LST+1
Function Call: WRITE	Prompt: !,?10,$P(^(GMRAX,0),U) Line Location: LST+2