Routine: MCRH1

Information

MCRH1 ;WISC/HAG-RHEUMATOLOGY PATIENT HISTORY EDIT ;7/3/96 09:13

Source file <MCRH1.m>

Name	Comments	DBIA/ICR reference
CONS
CONSS
CONSP
MCRHMED
ALLP
DIAGP
BACKP
NARRP
LABP
HAQP
HISTP
PHYSP
DEATHP
DIAGL
NARRL
HAQL
HISTL
PHYSL
DEATHL
BRIEFL
DIAGF
BACKF
NARRF
TRETF
LABF
HAQF
HISTF
PHYSF
DEATHF
BRIEFF
SEL	; Visit Date Selection
PRT
LIN
FUL
DEL	;DELETE RHEUMATOLOGY VISIT
DISP
USURE
GETLAB	;
QUE
QSTART
LOCK	;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER
EXIT
ORDERA
ORDER
ORDER1
IM
GETDATA	; Get Patient Demographic data

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DEL+2
Function Call: WRITE	Prompt: !!,"Would you like a display of the data for this visit" Line Location: DISP+0
Function Call: WRITE	Prompt: !,"Nothing Deleted" Line Location: USURE+0
Function Call: READ	Variable: X Timeout: 2 Line Location: USURE+1
Function Call: WRITE	Prompt: !!,"Entry deleted." Line Location: USURE+1
Function Call: WRITE	Prompt: !!,*7,"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER." Line Location: LOCK+1