SDES CREATE APPOINTMENTS (4644)    REMOTE PROCEDURE (8994)

This RPC creates an appointment entry in File 409.84, File 44, and File 2.
 
Can only be invoked by Acheron

• APPTARRAY
  PARAMETER TYPE:   LIST
  MAXIMUM DATA LENGTH:   32000
  REQUIRED:   YES
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  ;(APPTARRAY(1)=            APPT START TIME - (REQUIRED) - ISO FORMAT
   ;(APPTARRAY(10)=           CLINIC IEN (REQUIRED)
   ;(APPTARRAY(11)=           NOTE - FREE TEXT 1-150
   ;(APPTARRAY(12)=           APPT TYPE (REQUIRED) - POINTER FROM ^SD(809.1
   ;(APPTARRAY(13)=           PATIENT STATUS - (N/E) N:NEW E:ESTABLISHED
   ;(APPTARRAY(14)=           APPT LENGTH (REQUIRED) - IN MINUTES (5-120)
   ;(APPTARRAY(15)=           SERVICE CONNECTED - YES/NO
   ;(APPTARRAY(16)=           SERVICE CONNECTED PERCENTAGE - 0-100
   ;(APPTARRAY(17)=           MRTC (TRUE/FALSE)
   ;(APPTARRAY(18)=           PARENT REQUEST (APPT REQUEST IEN)
   ;(APPTARRAY(19)=           EAS TRACKING NUMBER
   ;(APPTARRAY(2)=            APPT END TIME - (REQUIRED) - ISO FORMAT
   ;(APPTARRAY(20)=           RESERVED FOR FUTURE USE
   ;(APPTARRAY(21)=           PATIENT ELIGIBILITY IEN - POINTER TO ^DIC(8
   ;(APPTARRAY(22)=           OVERBOOK (0 for no, 1 for yes)
   ;(APPTARRAY(23)=           LAB DATE/TIME - ISO FORMAT
   ;(APPTARRAY(24)=           XRAY DATE/TIME - ISO FORMAT
   ;(APPTARRAY(25)=           EKG DATE/TIME - ISO FORMAT
   ;(APPTARRAY(26)=           PURPOSE (REQUIRED)- '1' FOR C&P; '2' FOR 
  10-10; '3' FOR SCHEDULED VISIT; '4' FOR UNSCHED. VISIT; 
   ;(APPTARRAY(27)=           COLLATERAL - 1 FOR YES
   ;(APPTARRAY(28)=           SCHEDULE REQUEST TYPE (REQUIRED) -
   ;(APPTARRAY(3)=            DFN - (REQUIRED) - PATIENT IEN
   ;                          'N' FOR 'NEXT AVAILABLE' APPT.;
   ;                          'C' FOR OTHER THAN 'NEXT AVA.' (CLINICIAN 
  REQ.)
   ;                          'P' FOR OTHER THAN 'NEXT AVA.' (PATIENT REQ.);
   ;                          'W' FOR WALKIN APPT.;
   ;                          'M' FOR MULTIPLE APPT. BOOKING;
   ;                          'A' FOR AUTO REBOOK;
   ;                          'O' FOR OTHER THAN 'NEXT AVA.' APPT.;
   ;(APPTARRAY(29)=           NEXT AVAILABLE APPT (REQUIRED) -
   ;                          '0' FOR NOT INDICATED TO BE A 'NEXT AVA.' 
   ;(APPTARRAY(4)=            SDEC RESOURCE IEN
  APPT.
   ;                          1' FOR 'NEXT AVA.' APPT. INDICATED BY USER;
   ;                          '2' FOR 'NEXT AVA.' APPT. INDICATED BY 
  CALCULATION;
   ;                          '3' FOR 'NEXT AVA.' APPT. INDICATED BY USER & 
  C
   ;(APPTARRAY(30)=           FOLLOWUP - 1 FOR YES 0 FOR NO
   ;(APPTARRAY(5)=            WALKIN - (Y/N)
   ;(APPTARRAY(6)=            DESIRED DATE/TIME - ISO FORMAT
   ;(APPTARRAY(7)=            EXTERNAL ID - (FREE TEXT 1-50)
   ;(APPTARRAY(8)=            SD REQUEST TYPE (REQUIRED) - REQTYPE|REQIEN
   ;(APPTARRAY(9)=            PROVIDER IEN
  

NEW IEN FROM 409.84 APPOINTMENT ENTRY IN JSON FORMAT
If CPRS order and type is "RTC" (RTC and MRTC) and order is unable to 
update:
 
{
 "Appointment":
 {
  "IEN": "",
  "Message": ""
 }
}
 
{
 "Appointment":
 {
  "IEN": ""
 }
}