Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDESAPTREQSET

Package: Scheduling

Routine: SDESAPTREQSET


Information

SDESAPTREQSET ;ALB/TAW - APPOINTMENT REQUEST CREATE / UPDATE ;Aug 18, 2021

Source Information

Source file <SDESAPTREQSET.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^%DT  UPDATE^DIE  ^DIK  ($$GET1,GETS)^DIQ  
Scheduling 3 $$FNUM^SDECAR  $$NETTOFM^SDECDATE  (ENCODE,ERRLOG)^SDESJSON  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDES  

Entry Points

Name Comments DBIA/ICR reference
ARSET(RETURN,ARIEN,DFN,AREDT,ARINST,ARTYPE,ARCLIN,ARUSER,ARREQBY,ARPROV,ARDAPTDT,ARCOMM,ARENPRI,ARMAR,ARMAI,AMRAN,ARPATCONT,ARSVCCON,ARSVCCOP,MRTCPREFDT,ARSTOP,ARAPTYP,ARPATSTAT,MULTIAPTMADE,ARPARENT,ARNLT,ARPRER,ARORDN,VAOSGUID) ;
; INP - Input parameters array
; ARIEN = (integer) IEN point to SDEC APPT REQUEST file 409.85.
; If null, a new entry will be added
; DFN = (text) DFN Pointer to the PATIENT file 2
; AREDT = (date) Originating Date/time in external date formt
; ARINST = (text) Institution name NAME field from the INSTITUTION file
; ARTYPE = (text) Appointment Request Type
; ARCLIN = (text) REQ Specific Clinic name - NAME field in file 44
; ARUSER = (text) Originating User name - NAME field in NEW PERSON file 200
; ARREQBY = (text) Request By - 'PROVIDER' or 'PATIENT'
; ARPROV = (text) Provider name - NAME field in NEW PERSON file 200
; ARDAPTDT = (date) Desired Date of appointment in external format.
; ARCOMM = (text) Comment must be 1-60 characters.
; ARENPRI = (text) ENROLLMENT PRIORITY - Valid Values are "GROUP 1" through "GROUP 8"
; ARMAR = (text) MULTIPLE APPOINTMENT RTC NO; YES
; ARMAI = (integer) MULT APPT RTC INTERVAL integer between 1-365
; AMRAN = (integer) MULT APPT NUMBER integer between 1-100
; ARPATCONT = Patient Contacts separated by ::
; Each :: piece has the following ~~ pieces:
; 1) = (date) DATE ENTERED external date/time
; 2) = (text) PC ENTERED BY USER ID or NAME - Pointer toNEW PERSON file or NAME
; 4) = (optional) ACTION - valid values are:
; CALLED, MESSAGE LEFT or LETTER
; 5) = (optional) PATIENT PHONE Free-Text 4-20 characters
; 6) = NOT USED (optional) Comment 1-160 characters
; ARSVCCON = (optional) SERVICE CONNECTED PRIORITY valid values are NO YES
; ARSVCCOP = (optional) SERVICE CONNECTED PERCENTAGE = numeric 0-100
; MRTCPREFDT = (optional) MRTC calculated preferred dates separated by pipe |:
; Each date can be in external format with no time.
; ARSTOP = (optional) CLINIC STOP pointer to CLINIC STOP file 40.7
; used to populate the REQ SERVICE/SPECIALTY field in 409.85
; ARAPTYP = (optional) Appointment Type ID pointer to APPOINTMENT TYPE file 409.1
; ARPATSTAT = (optional) Patient Status N = NEW E = ESTABLISHED
; MULTIAPTMADE = (optional) MULT APPTS MADE
; List of child pointers to SDEC APPOINTMENT and/orSDEC APPT REQUEST files separated by pipe
; each pipe piece contains the following ~ pieces:
; 1. Appointment Id pointer to SDEC APPOINTMENT file 409.84
; 2. Request Id pointer to SDEC APPT REQUEST file 409.85
; ARPARENT = (optional) PARENT REQUEST pointer to SDEC APPT REQUEST file 409.85
; ARNLT = (optional) NLT (No later than) [CPRS RTC REQUIREMENT]
; ARPRER = (optional) PREREQ (Prerequisites) [CPRS RTC REQUIREMENT]
; ARORDN = (optional) ORDER IEN [CPRS RTC REQUIREMENT]
; VAOSGUID = (optional) VAOS GUID
VALIDATE ;
CREATE ;Build FDA array to creat a new entry in 409.85
UPDATE ;
DELPRER(ARIEN) ;Delete all entries in the PREREQUISITE multiple (#48)
FDAPRER(FDA,ARPRER,ARIEN) ;Setup the FDA array for the PREREQUISITE multiple (#48)
FILE ;Perform file update
; Only call UPDATE^DIE if there are any array entries in FDA
ARAUD(ARIEN,ARCLIN,ARSTOP,DATE,USER) ;populate VS AUDIT multiple field 45
; ARIEN - (required) pointer to SDEC APPT REQUEST file 409.85
; ARCLIN - (optional) pointer to HOSPITAL LOCATION file 44
; ARSTOP - (optional) pointer to CLINIC STOP file
; DATE - (optional) date/time in fileman format
AR433(ARIEN,SDEC) ;set MULT APPTS MADE
AR435(SDDT,ARIEN) ;set dates into MRTC CALC PREF DATES multiple field 43.5
AR23(INP17,ARI) ;Patient Contacts
CALLDT(X) ;
BUILDER ;Convert data to JSON

External References

Name Field # of Occurrence
^%DT CALLDT+2
UPDATE^DIE FILE+2, ARAUD+17, AR433+20, AR435+12, AR23+28
^DIK DELPRER+4
$$GET1^DIQ AR433+14
GETS^DIQ UPDATE+3, AR23+18
$$FNUM^SDECAR VALIDATE+2
$$NETTOFM^SDECDATE VALIDATE+17, AR23+11
ENCODE^SDESJSON BUILDER+3
ERRLOG^SDESJSON VALIDATE+7, VALIDATE+8, VALIDATE+12, VALIDATE+13, VALIDATE+16, VALIDATE+18, VALIDATE+26, VALIDATE+31, VALIDATE+34, VALIDATE+43
VALIDATE+50, VALIDATE+53, VALIDATE+54, VALIDATE+81, VALIDATE+82, UPDATE+7, FILE+4
$$NOW^XLFDT VALIDATE+55, ARAUD+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SDEC(409.84 - [#409.84] GET1^DIQ
409.8544 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] VALIDATE+22
^DPT - [#2] VALIDATE+13
^SC - [#44] VALIDATE+31
^SC("B" VALIDATE+33
^SD(409.1 - [#409.1] VALIDATE+85
^SDEC(409.84 - [#409.84] AR433+19
^SDEC(409.85 - [#409.85] VALIDATE+8, VALIDATE+93, VALIDATE+96, VALIDATE+101, VALIDATE+102, VALIDATE+106, DELPRER+4, FILE+8, ARAUD+9, ARAUD+10
, AR433+9, AR433+16, AR433+18, AR435+10
^VA(200 - [#200] VALIDATE+37, VALIDATE+46, AR23+20, AR23+25

Label References

Name Line Occurrences
$$CALLDT VALIDATE+52, UPDATE+10, AR435+8
AR23 FILE+9
AR433 FILE+14, FILE+15
AR435 FILE+10
ARAUD FILE+11
BUILDER ARSET+53
CREATE ARSET+51
DELPRER UPDATE+32
FDAPRER CREATE+21, UPDATE+33
FILE ARSET+52
UPDATE ARSET+50
VALIDATE ARSET+48

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ARSET+45~, CALLDT+1~, CALLDT+2*
AMRAN ARSET~
ARAPTYP ARSET~, VALIDATE+84*, VALIDATE+85*, CREATE+10, UPDATE+17
ARASD AR23+1~, AR23+10*, AR23+11*, AR23+12
ARASDH AR23+1~, AR23+14*, AR23+15, AR23+17, AR23+23
ARCLIN ARSET~, VALIDATE+28*, VALIDATE+29, VALIDATE+30, VALIDATE+31, VALIDATE+32, VALIDATE+33*, VALIDATE+34, VALIDATE+81, VALIDATE+82
CREATE+8, UPDATE+15, FILE+11, ARAUD~, ARAUD+7*, ARAUD+10, ARAUD+15
ARCOMM ARSET~, VALIDATE+57*, CREATE+24, UPDATE+27
ARDAPTDT ARSET~, VALIDATE+48*, VALIDATE+50, VALIDATE+51, VALIDATE+52*, VALIDATE+53*, VALIDATE+54, VALIDATE+55, CREATE+19, UPDATE+26
ARDATA ARSET+46~, UPDATE+2!
ARDATA( UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15, UPDATE+16, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+21
UPDATE+22, UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26, UPDATE+27
ARDATA1 AR23+1~
ARDT AR23+2~, AR23+13*, AR23+19, AR23+24
AREDT ARSET~, VALIDATE+15*, VALIDATE+16, VALIDATE+17*, VALIDATE+18, VALIDATE+19, CREATE+12, UPDATE+19
AREESTAT ARSET+46~
ARENPRI ARSET~, VALIDATE+60*, VALIDATE+61*, CREATE+14, UPDATE+21
ARERR ARSET+46~, UPDATE+2!, UPDATE+4
ARERR("DIERR" UPDATE+7
ARERR1 AR23+1~
ARHOSN ARSET+46~
ARI AR23~, AR23+3
ARI1 AR23+1~, AR23+4*, AR23+5
ARIEN ARSET~, ARSET+50, ARSET+51, VALIDATE+4*, VALIDATE+6, VALIDATE+7, VALIDATE+8, VALIDATE+11, VALIDATE+16, VALIDATE+26
VALIDATE+43, VALIDATE+50, VALIDATE+54, VALIDATE+81, UPDATE+1*, UPDATE+3, UPDATE+8, UPDATE+11, UPDATE+12, UPDATE+13
UPDATE+14, UPDATE+15, UPDATE+16, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+21, UPDATE+22, UPDATE+23, UPDATE+24
UPDATE+25, UPDATE+26, UPDATE+27, UPDATE+32, UPDATE+33, DELPRER~, DELPRER+2, DELPRER+3, DELPRER+4, FDAPRER~
, FDAPRER+6, FILE+7, ARAUD~, ARAUD+6*, ARAUD+9, ARAUD+10, ARAUD+13, ARAUD+14, ARAUD+15, ARAUD+16
, AR433~, AR433+8*, AR433+9, AR433+16, AR433+18, AR433+19, AR435~, AR435+10, AR435+11
ARIENS AR23+1~, AR23+3*, AR23+15
ARIENS1 AR23+1~, AR23+15*, AR23+16, AR23+18
ARINST ARSET~, VALIDATE+21*, VALIDATE+22*, CREATE+5, UPDATE+12
ARINSTI ARSET+45~, FILE+8*
ARMAI ARSET~, VALIDATE+66*, CREATE+26, UPDATE+29
ARMAN ARSET+46~, VALIDATE+68*, CREATE+27, UPDATE+30
ARMAR ARSET~, VALIDATE+63*, VALIDATE+64*, CREATE+25, CREATE+26, CREATE+27, UPDATE+28, FILE+10
ARMSG ARSET+46~, FILE+3
ARMSG("DIERR" FILE+4
ARMSG1 AR23+1~
ARNEW ARSET+46~
ARNLT ARSET~, VALIDATE+95*, VALIDATE+96*, CREATE+20, UPDATE+31
ARORDN ARSET~, VALIDATE+105*, VALIDATE+106*, CREATE+22, UPDATE+34
ARORIGDT ARSET+45~, VALIDATE+19*, CREATE+4, UPDATE+9, UPDATE+10*, UPDATE+11
ARORIGDTI ARSET+45~, UPDATE+10*, UPDATE+11
ARPARENT ARSET~, VALIDATE+92*, VALIDATE+93*, VALIDATE+96, VALIDATE+99, VALIDATE+101, VALIDATE+102, VALIDATE+106, CREATE+29, UPDATE+36
FILE+15
ARPATCONT ARSET~, FILE+9
ARPATSTAT ARSET~, VALIDATE+87*, VALIDATE+88*, CREATE+28, UPDATE+35
ARPATTEL ARSET+46~
ARPOS ARSET+45~
ARPRER ARSET~, VALIDATE+98*, VALIDATE+99, VALIDATE+103*, CREATE+21, UPDATE+33, FDAPRER~, FDAPRER+2, FDAPRER+4, FDAPRER+5
ARPRIO ARSET+46~, VALIDATE+49*, VALIDATE+55*, CREATE+13, UPDATE+20
ARPROV ARSET~, VALIDATE+45*, VALIDATE+46*, CREATE+16, UPDATE+23
ARREQBY ARSET~, VALIDATE+40*, VALIDATE+41, VALIDATE+42*, VALIDATE+43, CREATE+15, UPDATE+22
ARRET ARSET+46~
ARRET(1 FILE+7, FILE+17
ARRET1 AR23+1~
ARSRVSP ARSET+45~
ARSTOP ARSET~, VALIDATE+80*, VALIDATE+81, VALIDATE+82, CREATE+9, UPDATE+16, FILE+11, ARAUD~, ARAUD+8*, ARAUD+10
, ARAUD+16
ARSVCCON ARSET~, VALIDATE+72*, VALIDATE+73*, CREATE+18, UPDATE+25
ARSVCCOP ARSET~, VALIDATE+75*, VALIDATE+76*, CREATE+17, UPDATE+24
ARTEAM ARSET+45~
ARTYPE ARSET~, VALIDATE+24*, VALIDATE+25*, VALIDATE+26, CREATE+6, UPDATE+13
ARUSER ARSET~, VALIDATE+36*, VALIDATE+37*, VALIDATE+38*, CREATE+11, UPDATE+18, AR23+20
ARUSR AR23+2~, AR23+20*, AR23+25*
ASEQ FDAPRER+1~, FDAPRER+3*, FDAPRER+6*
AUDF ARSET+46~, VALIDATE+1*, CREATE+1*, UPDATE+15*, UPDATE+16*, FILE+11
DA DELPRER+1~, DELPRER+4*
DA(1 DELPRER+3*
DATE ARAUD~, ARAUD+11*, ARAUD+13
DELIM FDAPRER+1~, FDAPRER+3*, FDAPRER+4, FDAPRER+5
DFN ARSET~, VALIDATE+10*, VALIDATE+12, VALIDATE+13, CREATE+3
DIK DELPRER+1~, DELPRER+3*
DT VALIDATE+54
DUZ VALIDATE+38, ARAUD+12
FDA ARSET+46~, CREATE+2*, CREATE+3, CREATE+4, CREATE+5, CREATE+6, CREATE+7, CREATE+8, CREATE+9, CREATE+10
CREATE+11, CREATE+12, CREATE+13, CREATE+14, CREATE+15, CREATE+16, CREATE+17, CREATE+18, CREATE+19, CREATE+20
CREATE+21, CREATE+22, CREATE+23, CREATE+24, CREATE+25, CREATE+26, CREATE+27, CREATE+28, CREATE+29, UPDATE+6!
UPDATE+8*, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15, UPDATE+16, UPDATE+17, UPDATE+18, UPDATE+19
UPDATE+20, UPDATE+21, UPDATE+22, UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26, UPDATE+27, UPDATE+28, UPDATE+29
UPDATE+30, UPDATE+31, UPDATE+33, UPDATE+34, UPDATE+35, UPDATE+36, FDAPRER~, FILE+2, AR23+1~, AR23+6!
, AR23+16*, AR23+19, AR23+20, AR23+21, AR23+22, AR23+24, AR23+25, AR23+26, AR23+27, AR23+28
FDA( CREATE+2, UPDATE+8, FDAPRER+6*, AR23+16
FNUM ARSET+45~, VALIDATE+2*, CREATE+2, UPDATE+3, UPDATE+8, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15
UPDATE+16, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+21, UPDATE+22, UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26
UPDATE+27
IEN FILE+6~, FILE+7*, FILE+8, FILE+9, FILE+10, FILE+11, FILE+14, FILE+15, FILE+17, FILE+18
INP17 AR23~, AR23+4, AR23+5
JSONERR BUILDER+1~, BUILDER+2*, BUILDER+3
MI ARSET+45~, UPDATE+7*, FILE+4*
MRTCPREFDT ARSET~, FILE+10
MULTIAPTMADE ARSET~, FILE+12, FILE+14
PC FDAPRER+1~, FDAPRER+4*, FDAPRER+5
POP ARSET+45~, ARSET+49, ARSET+52, VALIDATE+1*, VALIDATE+7*, VALIDATE+8*, VALIDATE+12*, VALIDATE+13*, VALIDATE+16*, VALIDATE+18*
VALIDATE+26*, VALIDATE+31*, VALIDATE+34*, VALIDATE+43*, VALIDATE+50*, VALIDATE+53*, VALIDATE+54*, VALIDATE+81*, VALIDATE+82*, UPDATE+5*
UPDATE+7*, FILE+4*
PR VALIDATE+100~, VALIDATE+102*, VALIDATE+103, FDAPRER+1~, FDAPRER+5*, FDAPRER+6
PRIEN VALIDATE+100~, VALIDATE+101*, VALIDATE+102
RETURN ARSET~, BUILDER+3
SDAPP AR433+7~, AR433+13*, AR433+14*, AR433+15, AR433+16, AR433+18, AR433+19
SDAPTREQ ARSET+45~, VALIDATE+7, VALIDATE+8, VALIDATE+12, VALIDATE+13, VALIDATE+16, VALIDATE+18, VALIDATE+26, VALIDATE+31, VALIDATE+34
VALIDATE+43, VALIDATE+50, VALIDATE+53, VALIDATE+54, VALIDATE+81, VALIDATE+82, UPDATE+7, FILE+4, BUILDER+3
SDAPTREQ("AptReqCreate" FILE+17*
SDAPTREQ("AptReqUpdate" FILE+18*
SDDT AR435~, AR435+6, AR435+7
SDEC AR433~, AR433+10*, AR433+11, AR433+13
SDFDA ARAUD+5~, AR433+7~, AR433+12!, AR433+20, AR435+5~
SDFDA( ARAUD+13*, ARAUD+14*, ARAUD+15*, ARAUD+16*, AR433+18*, AR433+19*, AR435+11*
SDI FILE+13~, FILE+14*, AR433+7~, AR433+11*, AR433+13, AR435+5~, AR435+6*, AR435+7
SDIEN AR433+7~, AR433+16*, AR433+17*, AR433+18, AR433+19
SDJ AR435+5~, AR435+8*, AR435+9, AR435+10, AR435+11
SDP ARAUD+5~, ARAUD+9*, ARAUD+10
SDPN ARAUD+5~, ARAUD+10*
SDREC ARSET+46~, FILE+14*
STR17 AR23+1~, AR23+5*, AR23+10, AR23+13, AR23+19, AR23+20, AR23+21, AR23+22, AR23+24, AR23+25
, AR23+26, AR23+27
TMPDT AR435+5~, AR435+7*, AR435+8
U FILE+8, ARAUD+10, AR23+20, AR23+25
USER ARAUD~, ARAUD+12*, ARAUD+14
VAOSGUID ARSET~, VALIDATE+108*, CREATE+7, UPDATE+14
X ARSET+45~, CALLDT~
Y ARSET+45~, CALLDT+1~, CALLDT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All