SDES2SETCHECKOUT ;ALB/JAS,LAB,ANU - SDES2 SET APPT CHECKOUT DATE/TIME ; MAY 20,2024
Source file <SDES2SETCHECKOUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETCHECKOUT(JSONRETURN,SDCONTEXT,PARAMS) | ; Set Checkout Date/Time for Appointment
|
|
| VALAPPTIEN(APPTIEN,SDERRORS) | ; Validate Appt IEN
|
|
| VALCHCKOUT(CHKOUTDT,CHKIN,CLINICIEN,SDERRORS) | ; Validate and Process Checkout Date/Time
|
|
| FIND(DFN,APPTDTTM,CLINICIEN) | ; return appt ifn for pat
; input: DFN := ifn of pat. ; APPTDTTM := appt d/t ; CLINICIEN := ifn of clinic ; output: [returned] := ifn if pat has appt on date/time |
|
| VALID(DFN,CLINICIEN,APPTDTTM,SDDA) | ; return valid appt.
; input: DFN := ifn of pat. ; APPTDTTM := appt d/t ; CLINICIEN := ifn of clinic ; SDDA := ifn of appt ; output: [returned] := 1 for valid appt., 0 for not valid |
|
| CHKOUT(DFN,APPTDTTM,CLINICIEN,SDDA,SDASK,CHKOUTDT,SDCOACT,SDLNE,SDECAPTID,SDQUIET,VPRV,SDERRORS) | ;Appt Check Out
; Input ; DFN Patient file IEN ; APPTDTTM Appointment Date/Time ; CLINICIEN Hospital Location file IEN for Appt ; SDDA IEN in ^SC multiple or null [Optional] ; SDASK Ask Checkout Date/Time [Optional] ; CHKOUTDT Date/Time of Checkout [Optional] ; SDCOACT Appt Mgmt Checkout Action [Optional] ; SDLNE Appt Mgmt Line Number [Optional] ; SDECAPTID Appointment ID ; SDQUIET No Terminal output 0=allow display 1=do not allow ; VPRV V Provider IEN - pointer to V PROVIDER file ; SDERRORS Returned Array of errors |
|
| CODT(DFN,SDT,SDCL,SDDA) | ; does appt have co date
|
|
| NEW(DATE) | ; This function will return 1 if SD is turned on for
; Visit Tracking and optionally check if the date is past ; the cut over date for the new PCE interface. ; INPUT : DATE (Optional) Date to check for cut over. ; OUTPUT: 1 Yes, 0 No |
|
| GETAPT(DFN,SDT,SDCL,SDVIEN,SDERRORS) | ;Look-up Outpatient Encounter IEN for Appt
; This utility will return the existing IEN for an Outpatient ; Encounter. If it fails to find an existing encounter, ; it will create a new Encounter and return the new IEN. |
|
| APPT(DFN,SDT,SDCL,SDVIEN,SDERRORS) | ; process appt
; input DFN = ien of patient file entry ; SDT = visit date internal format ; SDCL = ien of hospital location file entry ; SDVIEN = Visit file pointer [optional] |
|
| LOCK(SDLOCK) | ; lock "ADFN" node
|
|
| UNLOCK(SDLOCK) | ; unlock "ADFN" node
|
|
| SDOE(SDT,SDVSIT,SDVIEN,SDOEP) | ; get visit & encounter
|
|
| INP(DFN,VDATE) | ; determine inpatient status ; dom is not an inpatient appt
|
|
| DIV(DIV) | ; determine med div
; multi-div |
|
| CSTOP(SDOE,SDCL,SDVSIT,SDT) | ;Process credit stop
; SDOE=encounter ien ; SDCL0=zeroeth node of HOSPITAL LOCATION file record ; SDVSIT=visit data array ; SDT=encounter date/time ; does clinic have a credit stop code? ; process only if non non-count and not equal to credit |
|
| LOGDATA(SDOE,SDLOG) | ; log user, date/time and other data
|
|
| VIEN(SDOE,SDVIEN) | ; stuff in Visit IEN if not already set
; needed for those sites that don't have scheduling turned on in Visit Tracking ; Required input SDOE = Outpatient Encounter pointer ; SDVIEN = Visit file pointer or null or zero |
|
| CHKOUT2(SDOE,DFN,APPTDTTM,CLINICIEN,CHKOUTDT,SDECAPTID,SDQUIET,VPRV,SDERRORS) | ;EP; called to ask check-out date/time
; SDOE = Outpatient Encounter IEN ; DFN = Patient IEN ; APPTDTTM = Appointment Date/Time ; CLINICIEN = Clinic IEN ; CHKOUTDT = APPOINTMENT CHECKOUT TIME [OPTIONAL - USED WHEN SDQUIET=1] USER ENTERED FORMAT ; SDECAPTID = APPOINTMENT ID - POINTER TO ^SDECAPPT ; SDQUIET = ALLOW NO TERMINAL INPUT/OUTPUT 0=ALLOW; 1=DO NOT ALLOW ; VPRV = V Provider IEN - pointer to V PROVIDER file ; SDERRORS = Returned Array of errors |
|
| SCIEN(PAT,CLINIC,DATE) | ;PEP; returns ien for appt in ^SC
|
|
| CHK(SDSTB) | ; is appointment checked out
|
|
| STATUS(DFN,SDT,SDCL,SDATA,SDDA) | ; return appt status
; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; SDATA := 0th node of pat appt entry ; SDDA := ifn for ^SC(clinic,"S",date,1,ifn) {optional} ; output: [returned] := appt status ifn ^ status name ^ print status ^ ; check-in d/t ^ checkout d/t ^ adm mvt ifn |
| RPC Name | Call Tags |
|---|---|
| SDES2 SET APPT CHECKOUT | SETCHECKOUT |
| FileNo | Call Tags |
|---|---|
| 2.98 | GET1^DIQ |
| ^DIC(40.7 - [#40.7] | GET1^DIQ |
| ^DGPM - [#405] | GET1^DIQ |
| ^SCE - [#409.68] | Classic Fileman Calls, GET1^DIQ |
| ^SDEC(409.831 - [#409.831] | GET1^DIQ |
| ^SDEC(409.84 - [#409.84] | GET1^DIQ, GETS^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| ^DG(43 - [#43] | GET1^DIQ |
| ^SC - [#44] | GETS^DIQ |
| 44.003 | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | GET1^DIQ, GETS^DIQ |
