Routine: PSGFILED

Information

PSGFILED ;BIR/CML3-VARIOUS FILES' UPKEEP ;16 Mar 99 / 10:22 AM

Name	Comments	DBIA/ICR reference
DONE
GED	; generic edit
ENAT	; team file
ENAS	; schedules file - no longer used
ENMR	; med route file
ENWG	; ward group file
ENMI	; medication instruction file
ENDRG	; standard drug fields
DE	;
ENOSE	; order set enter/edit
RBCHK	; used to validate room-bed
RBQ	; show room-beds for a ward
RBNP
ENPPD	; edit pharmacy patient data ; W !!?3,"...This option is still under development...",! Q
ENCPDD	; edit patient's default stop date (wall)
ENSYS	; edit system file
ENPLSP	; edit pick list site parameters
ENCS	; change current site & parameters
DF	; Add/edit Med route, instruction... to the Dosage form file.
ENCD	;edit Clinic Definitions file
ENCG	; ward group file0

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GED+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!?3,"* WARNING, THIS DRUG IS INACTIVE. *",! Line Location: DE+1
Function Call: WRITE	Prompt: ! Line Location: DE+2
Function Call: READ	Variable: Z3 Timeout: DTIME Line Location: RBNP+0
Function Call: WRITE	Prompt: """^"" TO STOP: " Line Location: RBNP+0
Function Call: WRITE	Prompt: Z3="^" Condition for execution: '$T $C(7) S:'$T Line Location: RBNP+0
Function Call: WRITE	Prompt: $C(13)," ",$C(13) Line Location: RBNP+0
Function Call: WRITE	Prompt: !!?3,"...This option is still under development...",! Line Location: ENPPD+1
Function Call: WRITE	Prompt: $C(7),!!?2 Line Location: ENCPDD+5
Function Call: WRITE	Prompt: ! Condition for execution: $L(X(1))+$X>78 Line Location: ENCPDD+5
Function Call: WRITE	Prompt: X(1)," " Line Location: ENCPDD+5
Function Call: WRITE	Prompt: !! Line Location: ENCPDD+6
Function Call: WRITE	Prompt: ! Line Location: ENSYS+3
Function Call: WRITE	Prompt: !!,"Current site: ",$P(PSJSYSW0,"^") Line Location: ENCS+1