; Direct edit of a patient in the PRE-REGISTRATION CALL LIST, bypassing the call list.
EH
; Edit call log information
; Variables
; PTIFN - Patients IEN returned form the SELPAT procedure
UPDLOG(DFN,DGPS,DGPDV)
; Update PRE-REGISTRATION CALL LOG File, #41.43
EDIT
; Edit Patient Information
; Variables
; DGPDIV - Division IEN from ^TMP
; DGPSTMP - Date/Time stamp from UPDLOG function
; DGPIFN - Patients IEN from ^TMP
; DGPP1-3,5 - Local Var's for $O
; DGPNEW -
; DGPFLG - Flag used to indicate a connect status of 'C'
; DGPST - Call status returned by SELST function
; DGPDA - IEN of Call log entry returned from UPDLOG function
; DGPCH - Entry in the VALMY, selected entries, array
;
SELPAT
; Select patient if no patient is passed in
UNLCK
INITLE(DGPY)
; Initialize for Load/Edit
; Variables
; Input:
; DGPY - Null value
SELST()
; Function to select status for call log
; Returns:
; Status code as a SOC