SCCVEAP3 ;ALB/RMO,TMP - Appointment Conversion cont.; [ 04/05/95 10:19 AM ]
Source file <SCCVEAP3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SET(SCCVEVT,SCLOG,DFN,SCDTM,SCCLN,SCDA,SCOE,SCCV) | ; Set variables
; Input -- SCCVEVT Conversion event ; SCLOG Scheduling conversion log IEN ; DFN Patient IEN ; SCDTM Appointment date/time ; SCCLN Clinic IEN ; Output -- SCDA Clinic appt patient sub-file IEN ; SCOE Outpatient encounter IEN ; SCCV Conversion array: ; SCCV("EVT") Conversion event ; ("LOG") Scheduling conversion log IEN ; ("NEW") Outpatient encounter ; created by conversion flag ; 0 = no new encounter or visit ; 1 = new encounter and visit ; 2 = new visit only ; ("SCDA") Multiple entry in ^SC for this pt ; ("OE",0) Outpatient encounter 0th node ; ("PT",0) Patient appt 0th node ; ("PT","R") Patient appt "R" node (Remarks) ; ("CL1",0) Clinic's 0th node ; ("CL",0) Clinic appt patient 0th node ; ("CL","C") Clinic appt patient "C" node (Check in/out) ; ("ERR") Code for specific error, if any ; ("VST") Visit file IEN |
|
SETQ | ||
RECNVT(SCOE,SCOE0,SCCONS) | ;Delete data added by conversion
|
|
DELPTR(SCE) | ; Delete visit pointer if encounter still exists
; SCE = encounter IEN |