SDECAR2 ;ALB/SAT/JSM,WTC,LAB,JAS,LAB/JAS,TJB - VISTA SCHEDULING RPCS ; JUNE 20, 2025
Source file <SDECAR2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ARSET(RET,INP) | ;Appt Req Set
|
|
| LASTPIDCHECK(AREQIEN,ARDAPTDT) | ; check PID HISTORY
; check if last PID in PID HISTORY mult is different from incoming PID |
|
| FDAPRER(FDA,ARPRER,ARIEN) | ;
|
|
| DELPRER(ARIEN) | ; clear mult field #48
|
|
| GETPRER(RET,ARIEN) | ;
|
|
| ARAUD(ARIEN,ARCLIN,ARSTOP,DATE,USER) | ;populate VS AUDIT mult (#45)
|
|
| AR433(ARIEN,SDEC) | ;set MULT APPTS MADE
; ARIEN = (required) pointer to 409.85 ; SDEC = (required) child pointers to 409.84 and 409.85 separated by pipe ; each pipe piece contains the following ~ pieces: ; 1. Appointment Id pointer to 409.84 ; 2. Request Id pointer to 409.85 |
|
| AR433D(SDEC) | ;delete MULT APPTS MADE
|
|
| AR438(ARIEN,SDPARENT,SDEC) | ;set PARENT REQUEST (#43.8)
|
|
| AR435(SDDT,ARIEN) | ;
; ARIEN - Requested date ID pointer to 409.85 ; SDDT - MRTC calculated preferred dates separated by pipe |: ; Each date can be in external format with no time. |
|
| WLACT(NAME) | ;
|
|
| AR23(INP17,ARI) | ;Patient Contacts
|
|
| UPDATE(ARIEN,APPDT,SDCL,SVCP,SVCPR,NOTE,SDAPPTYP,EAS) | ;update 409.85 with appt info
; ARIEN = Appt Request pointer to 409.85 ; APPDT = Appointment date/time (Scheduled Date of appt) in fm format ; SDCL = Clinic ID pointer to file 44 ; SVCP = Service Connected % numeric 0-100 ; SVCPR = Service Connected Priority 0:NO 1:YES ; NOTE = Comment only 1st 60 characters are used ; SDAPPTYP = (optional) Appointment type ID pointer to file 409.1 ; EAS = (optional) Enterprise Appointment Scheduling Tracking Number associated to an appointment. |
|
| MRTCHILDSEQUENCE(PARENTREQUESTIEN,DFN) | ; next child
; return next sequence number for child mrtc |
| RPC Name | Call Tags |
|---|---|
| SDEC GETPRER | GETPRER |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^SD(409.2 - [#409.2] | GET1^DIQ |
| ^SDEC(409.84 - [#409.84] | GET1^DIQ |
| ^SDEC(409.85 - [#409.85] | GET1^DIQ |
| 409.854 | GET1^DIQ |
| 409.8544 | GETS^DIQ |
