Routine: EDPCONV

Information

EDPCONV ;SLC/MKB - Process incoming mail to convert local ED Visits ;2/28/12 08:33am

Source file <EDPCONV.m>

Name	Comments	DBIA/ICR reference
AREA(DIV)	; -- Return #231.9 ien for DIVision (#4 ien)
VST(OLD)	; -- Copy OLD(node) ER visit entry into ^EDP(230)
HIST(MVTI,LOG)	; -- Copy OLD(MVTI) into ^EDP(230.1)
NEW(FILE,X)	; -- Return ien of new entry in FILE
XREF(FILE,DA)	; -- Set all xrefs for DA in FILE
PID(NM,ID)	; -- Return brief id (L0000) for patient
TZONE(X)	; -- Return #minutes local offset for time zone
ACU(X)	; -- Return[/add] #233.1 ien for Acuity X
STS(X)	; -- Return[/add] #233.1 ien for Status X
DEL(X)	; -- Return[/add] #233.1 ien for Delay Reason X
ARR(X)	; -- Return[/add] #233.1 ien for Arrival Mode X
DISP(X)	; -- Return[/add] #233.1 ien for Disposition code X
LOC(X)	; -- Return[/add] #231.8 ien for Location X
LCQ	;exit
NOVALUE()
ORDERS(LOG,NODE)	; -- build Orders multiple
ICD	; -- convert ICD codes to #80 iens
SHOWICD(BEG,END)	; -- show Dx nodes from BEG to END
MARK(STN)	; -- mark duplicate locations with correct ien, ; for repointing from STN to Institution ien set
LOOP	; -- loop through Log,History files and repoint if FIX node exists
DIK	; -- remove duplicate entries from #231.8

Name	Line Occurrences
Function Call: WRITE	Prompt: !,IEN,?10,DA,?15,X0 Line Location: SHOWICD+6