SDECAR2 ;ALB/SAT/JSM,WTC,LAB,JAS - VISTA SCHEDULING RPCS ; Oct 17, 2024@08:46
Source file <SDECAR2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 11 | SDEC SDEC GETPRER SDEC07 SDEC08 SDECAR SDECWL SDES846P SDESAPTREQSET SDHL7 SDHL7APT SDTMP08 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ARSET(RET,INP) | ;Appointment Request Set
|
|
| LASTPIDCHECK(AREQIEN,ARDAPTDT) | ; checking to see if the last PID in the PID HISTORY multiple is different from incoming value
|
|
| FDAPRER(FDA,ARPRER,ARIEN) | ;
|
|
| DELPRER(ARIEN) | ;Delete all entries in the PREREQUISITE multiple (#48)
|
|
| GETPRER(RET,ARIEN) | ;
|
|
| ARAUD(ARIEN,ARCLIN,ARSTOP,DATE,USER) | ;populate VS AUDIT multiple field 45
|
|
| AR433(ARIEN,SDEC) | ;set MULT APPTS MADE
; ARIEN = (required) pointer to SDEC APPT REQUEST file 409.85 ; SDEC = (required) child pointers to SDEC APPOINTMENT and SDEC APPTREQUEST file 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 |
|
| AR433D(SDEC) | ;delete MULT APPTS MADE
|
|
| AR438(ARIEN,SDPARENT,SDEC) | ;set PARENT REQUEST field 43.8; set as child in MULTAPPTS MADE in parent request
|
|
| AR435(SDDT,ARIEN) | ;
; ARIEN - Requested date ID pointer to SDEC REQUESTED APPT file 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 REQ APPT REQUEST at appointment add
; ARIEN = Appt Request pointer to SD WAIT LIST file 409.85 ; APPDT = Appointment date/time (Scheduled Date of appt) in fm format ; SDCL = Clinic ID pointer to HOSPITAL LOCATION file 44 ; SVCP = Service Connected Percentage 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 APPOINTMENT TYPE file 409.1 ; EAS = (optional) Enterprise Appointment Scheduling Tracking Number associated to an appointment. |
|
| MRTCHILDSEQUENCE(PARENTREQUESTIEN,DFN) | ; return next sequence number for child mrtc
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | ARSET+81, ARSET+153, AR435+6 |
| UPDATE^DIE | ARSET+181, ARSET+190, ARSET+199, ARAUD+13, AR433+19, AR433D+12, AR438+2, AR435+10, AR23+24, UPDATE+26 |
| ^DIK | DELPRER+4 |
| $$GET1^DIQ | ARSET+195, LASTPIDCHECK+3, AR433+13, AR433D+7, AR433D+8, MRTCHILDSEQUENCE+4 |
| GETS^DIQ | ARSET+149, AR23+14 |
| $$FNUM^SDECAR | ARSET+51 |
| $$NETTOFM^SDECDATE | ARSET+60, AR23+7 |
| $$NOW^XLFDT | ARSET+81, ARSET+187, ARSET+196, ARAUD+7, WLACT+4, UPDATE+13 |
| RPC Name | Call Tags |
|---|---|
| SDEC GETPRER | GETPRER |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^SDEC(409.84 - [#409.84] | GET1^DIQ |
| ^SDEC(409.85 - [#409.85] | GET1^DIQ |
| 409.854 | GET1^DIQ |
| 409.8544 | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | UPDATE+18 |
| ^DIC(4 - [#4] | ARSET+64 |
| ^DIC(40.7 - [#40.7] | WLACT+3, WLACT+4 |
| ^DPT - [#2] | ARSET+58 |
| ^SC - [#44] | ARSET+69, UPDATE+15, UPDATE+16, UPDATE+17 |
| ^SC("B" | ARSET+71 |
| ^SD(409.1 - [#409.1] | ARSET+94 |
| ^SDEC(409.84 - [#409.84] | AR433+18, AR433D+6 |
| ^SDEC(409.85 - [#409.85] | ARSET+95, ARSET+101, ARSET+104, ARSET+105, ARSET+108, ARSET+204, LASTPIDCHECK+2, DELPRER+4, GETPRER+2, GETPRER+4 , GETPRER+5, ARAUD+5, ARAUD+6, AR433+8, AR433+15, AR433+17, AR433D+9, AR433D+10, AR435+8, MRTCHILDSEQUENCE+3 |
| ^VA(200 - [#200] | ARSET+75, ARSET+79, AR23+16, AR23+21 |
| Name | Line Occurrences |
|---|---|
| $$LASTPIDCHECK | ARSET+193 |
| $$MRTCHILDSEQUENCE | ARSET+143 |
| AR23 | ARSET+205 |
| AR433 | ARSET+208, ARSET+209 |
| AR435 | ARSET+206 |
| ARAUD | ARSET+207 |
| DELPRER | ARSET+175 |
| FDAPRER | ARSET+134, ARSET+176 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | ARSET+45~, ARSET+81*, ARSET+153*, AR435+4~, AR435+6*, AR23+2~ |
| ACTIVE | WLACT+1~, WLACT+2*, WLACT+3, WLACT+5*, WLACT+6 |
| APPDT | UPDATE~, UPDATE+12 |
| ARAPTYP | ARSET+46~, ARSET+94*, ARSET+123, ARSET+160 |
| ARASD | AR23+1~, AR23+7*, AR23+8 |
| ARASDH | AR23+1~, AR23+10*, AR23+11, AR23+13, AR23+19 |
| ARCLIN | ARSET+46~, ARSET+66*, ARSET+67, ARSET+68, ARSET+69, ARSET+70, ARSET+71*, ARSET+72, ARSET+93, ARSET+121 , ARSET+158, ARSET+207, ARAUD~, ARAUD+3*, ARAUD+6, ARAUD+11 |
| ARCOMM | ARSET+47~, ARSET+84*, ARSET+137, ARSET+170, ARSET+185, ARSET+189 |
| ARDAPTDT | ARSET+47~, ARSET+80*, ARSET+81, ARSET+82*, ARSET+83*, ARSET+132, ARSET+169, ARSET+191, ARSET+193, ARSET+197 , LASTPIDCHECK~, LASTPIDCHECK+4 |
| ARDATA | ARSET+48~, ARSET+148! |
| ARDATA( | ARSET+154, ARSET+155, ARSET+156, ARSET+157, ARSET+158, ARSET+159, ARSET+161, ARSET+162, ARSET+163, ARSET+164 , ARSET+165, ARSET+166, ARSET+167, ARSET+168, ARSET+169, ARSET+170 |
| ARDATA1 | AR23+1~ |
| ARDT | AR23+2~, AR23+9*, AR23+15, AR23+20 |
| AREDT | ARSET+47~, ARSET+59*, ARSET+60*, ARSET+61, ARSET+62, ARSET+125, ARSET+162 |
| AREESTAT | ARSET+47~ |
| ARENPRI | ARSET+49~, ARSET+85*, ARSET+86*, ARSET+127, ARSET+164 |
| AREQIEN | ARSET+183*, ARSET+185, ARSET+187, ARSET+188, ARSET+189, LASTPIDCHECK~, LASTPIDCHECK+2, LASTPIDCHECK+3 |
| ARERR | ARSET+48~, ARSET+148!, ARSET+150 |
| ARERR1 | AR23+1~ |
| ARHOSN | ARSET+48~ |
| ARI | AR23~, AR23+3 |
| ARI1 | AR23+1~, AR23+4*, AR23+5 |
| ARIEN | ARSET+46~, ARSET+55*, ARSET+110*, ARSET+111, ARSET+147*, ARSET+149, ARSET+151, ARSET+154, ARSET+155, ARSET+156 , ARSET+157, ARSET+158, ARSET+159, ARSET+161, ARSET+162, ARSET+163, ARSET+164, ARSET+165, ARSET+166, ARSET+167 , ARSET+168, ARSET+169, ARSET+170, ARSET+175, ARSET+176, ARSET+183, ARSET+193, ARSET+204, ARSET+205, ARSET+206 , ARSET+207, ARSET+208, ARSET+209, ARSET+211, FDAPRER~, FDAPRER+6, DELPRER~, DELPRER+2, DELPRER+3, DELPRER+4 , GETPRER~, GETPRER+2, GETPRER+4, GETPRER+5, ARAUD~, ARAUD+2*, ARAUD+5, ARAUD+6, ARAUD+9, ARAUD+10 , ARAUD+11, ARAUD+12, AR433~, AR433+7*, AR433+8, AR433+15, AR433+17, AR433+18, AR433D+2~, AR433D+9* , AR433D+10, AR433D+11, AR438~, AR438+2, AR435~, AR435+8, AR435+9, UPDATE~, UPDATE+11, UPDATE+12 , UPDATE+13, UPDATE+14, UPDATE+15, UPDATE+16, UPDATE+19, UPDATE+20, UPDATE+21, UPDATE+22, UPDATE+23, UPDATE+24 , UPDATE+25 |
| ARIENS | AR23+1~, AR23+3*, AR23+11 |
| ARIENS1 | AR23+1~, AR23+11*, AR23+12, AR23+14 |
| ARINST | ARSET+46~, ARSET+63*, ARSET+64*, ARSET+118, ARSET+155 |
| ARINSTI | ARSET+46~, ARSET+204* |
| ARMAI | ARSET+49~, ARSET+88*, ARSET+139, ARSET+172 |
| ARMAN | ARSET+49~, ARSET+89*, ARSET+140, ARSET+173 |
| ARMAR | ARSET+49~, ARSET+87*, ARSET+138, ARSET+139, ARSET+140, ARSET+171, ARSET+206 |
| ARMSG | ARSET+48~, ARSET+150*, ARSET+200, ARSET+203 |
| ARMSG("DIERR" | ARSET+201 |
| ARNEW | ARSET+48~, ARSET+111*, ARSET+112 |
| >> ARNLT | ARSET+96*, ARSET+101*, ARSET+133, ARSET+174 |
| >> ARORDN | ARSET+98*, ARSET+108*, ARSET+135, ARSET+177 |
| ARORIGDT | ARSET+46~, ARSET+62*, ARSET+117, ARSET+152, ARSET+153*, ARSET+154 |
| ARORIGDTI | ARSET+46~, ARSET+153*, ARSET+154 |
| ARPARENT | ARSET+49~, ARSET+95*, ARSET+100, ARSET+101, ARSET+102, ARSET+104, ARSET+105, ARSET+107, ARSET+108, ARSET+142 , ARSET+143, ARSET+144, ARSET+179, ARSET+209 |
| ARPATTEL | ARSET+49~ |
| ARPOS | ARSET+46~ |
| ARPRER | ARSET+97*, ARSET+106*, ARSET+134, ARSET+176, FDAPRER~, FDAPRER+2, FDAPRER+4, FDAPRER+5 |
| ARPRIO | ARSET+47~, ARSET+81*, ARSET+126, ARSET+163 |
| ARPROV | ARSET+47~, ARSET+79*, ARSET+129, ARSET+166 |
| ARQUIT | ARSET+47~, ARSET+50*, ARSET+69*, ARSET+72*, ARSET+73 |
| ARREQBY | ARSET+47~, ARSET+77*, ARSET+78*, ARSET+128, ARSET+165 |
| ARRET | ARSET+48~, ARSET+192*, ARSET+193*, ARSET+196, ARSET+197, ARSET+198 |
| ARRET(1 | ARSET+183, ARSET+192, ARSET+204, ARSET+205, ARSET+206, ARSET+207, ARSET+208, ARSET+209, ARSET+210 |
| ARRET1 | AR23+1~ |
| ARSRVSP | ARSET+46~ |
| ARSTOP | ARSET+49~, ARSET+92*, ARSET+93, ARSET+122, ARSET+159, ARSET+207, ARAUD~, ARAUD+4*, ARAUD+6, ARAUD+12 |
| ARSVCCON | ARSET+49~, ARSET+90*, ARSET+131, ARSET+168 |
| ARSVCCOP | ARSET+49~, ARSET+91*, ARSET+130, ARSET+167 |
| ARTEAM | ARSET+46~ |
| ARTYPE | ARSET+46~, ARSET+65*, ARSET+119, ARSET+156 |
| ARUSER | ARSET+47~, ARSET+74*, ARSET+75*, ARSET+76*, ARSET+124, ARSET+161, ARSET+188, ARSET+195*, ARSET+198, AR23+16 |
| ARUSR | AR23+2~, AR23+16*, AR23+21* |
| ASEQ | FDAPRER+1~, FDAPRER+3*, FDAPRER+6* |
| AUDF | ARSET+48~, ARSET+50*, ARSET+113*, ARSET+158*, ARSET+159*, ARSET+207 |
| CAFDA | ARSET+186~, ARSET+190! |
| CAFDA( | ARSET+187*, ARSET+188*, ARSET+189* |
| CC | GETPRER+1~, GETPRER+4*, GETPRER+5 |
| CHILD | MRTCHILDSEQUENCE+1~, MRTCHILDSEQUENCE+7, MRTCHILDSEQUENCE+10 |
| CHILD( | MRTCHILDSEQUENCE+6*, MRTCHILDSEQUENCE+8, MRTCHILDSEQUENCE+9 |
| COUNT | MRTCHILDSEQUENCE+1~, MRTCHILDSEQUENCE+2*, MRTCHILDSEQUENCE+5*, MRTCHILDSEQUENCE+6 |
| DA | DELPRER+1~, DELPRER+4* |
| DA(1 | DELPRER+3* |
| DATE | ARAUD~, ARAUD+7*, ARAUD+9 |
| DELIM | FDAPRER+1~, FDAPRER+3*, FDAPRER+4, FDAPRER+5 |
| DFN | ARSET+46~, ARSET+56*, ARSET+57, ARSET+58, ARSET+115, ARSET+143, AR433D+2~, AR433D+7*, AR433D+9, MRTCHILDSEQUENCE~ , MRTCHILDSEQUENCE+3 |
| DIEN | AR433D+2~, AR433D+8*, AR433D+10 |
| DIK | DELPRER+1~, DELPRER+3* |
| DUZ | ARSET+76, ARSET+188, ARAUD+8, UPDATE+20 |
| EAS | UPDATE~, UPDATE+25 |
| FDA | ARSET+48~, ARSET+114*, ARSET+115, ARSET+117, ARSET+118, ARSET+119, ARSET+120, ARSET+121, ARSET+122, ARSET+123 , ARSET+124, ARSET+125, ARSET+126, ARSET+127, ARSET+128, ARSET+129, ARSET+130, ARSET+131, ARSET+132, ARSET+133 , ARSET+134, ARSET+135, ARSET+136, ARSET+137, ARSET+138, ARSET+139, ARSET+140, ARSET+141, ARSET+143, ARSET+144 , ARSET+145, ARSET+150!, ARSET+151*, ARSET+154, ARSET+155, ARSET+156, ARSET+157, ARSET+158, ARSET+159, ARSET+160 , ARSET+161, ARSET+162, ARSET+163, ARSET+164, ARSET+165, ARSET+166, ARSET+167, ARSET+168, ARSET+169, ARSET+170 , ARSET+171, ARSET+172, ARSET+173, ARSET+174, ARSET+176, ARSET+177, ARSET+178, ARSET+179, ARSET+181, ARSET+199! , FDAPRER~, AR23+1~, AR23+6!, AR23+12*, AR23+15, AR23+16, AR23+17, AR23+18, AR23+20, AR23+21 , AR23+22, AR23+23, AR23+24 |
| FDA( | ARSET+114, ARSET+151, ARSET+196*, ARSET+197*, ARSET+198*, FDAPRER+6*, AR23+12 |
| FNUM | ARSET+48~, ARSET+51*, ARSET+114, ARSET+149, ARSET+151, ARSET+154, ARSET+155, ARSET+156, ARSET+157, ARSET+158 , ARSET+159, ARSET+161, ARSET+162, ARSET+163, ARSET+164, ARSET+165, ARSET+166, ARSET+167, ARSET+168, ARSET+169 , ARSET+170 |
| H | WLACT+1~, WLACT+3*, WLACT+4, WLACT+5 |
| IENS | MRTCHILDSEQUENCE+1~ |
| INP | ARSET~ |
| INP(1 | ARSET+55 |
| INP(10 | ARSET+79 |
| INP(11 | ARSET+80 |
| INP(12 | ARSET+84* |
| INP(13 | ARSET+85 |
| INP(14 | ARSET+87 |
| INP(15 | ARSET+88 |
| INP(16 | ARSET+89 |
| INP(17 | ARSET+205 |
| INP(18 | ARSET+90 |
| INP(19 | ARSET+91 |
| INP(2 | ARSET+56 |
| INP(20 | ARSET+206 |
| INP(21 | ARSET+92 |
| INP(22 | ARSET+94 |
| INP(23 | ARSET+141, ARSET+178 |
| INP(24 | ARSET+208 |
| INP(25 | ARSET+95 |
| INP(26 | ARSET+96, ARSET+100 |
| INP(27 | ARSET+97, ARSET+102 |
| INP(28 | ARSET+98, ARSET+107 |
| INP(29 | ARSET+109 |
| INP(3 | ARSET+59 |
| INP(4 | ARSET+63 |
| INP(5 | ARSET+65 |
| INP(6 | ARSET+66 |
| INP(7 | ARSET+74 |
| INP(9 | ARSET+77 |
| INP17 | AR23~, AR23+4, AR23+5 |
| LASTCHILD | MRTCHILDSEQUENCE+1~, MRTCHILDSEQUENCE+2*, MRTCHILDSEQUENCE+8*, MRTCHILDSEQUENCE+9 |
| LASTPID | LASTPIDCHECK+1~, LASTPIDCHECK+3*, LASTPIDCHECK+4 |
| LASTPIDIEN | LASTPIDCHECK+1~, LASTPIDCHECK+2*, LASTPIDCHECK+3 |
| MI | ARSET+46~, ARSET+201* |
| NAME | WLACT~, WLACT+3 |
| NEXTSEQUENCENUM | MRTCHILDSEQUENCE+1~, MRTCHILDSEQUENCE+9*, MRTCHILDSEQUENCE+10*, MRTCHILDSEQUENCE+11 |
| NOTE | UPDATE~, UPDATE+24 |
| PARENTREQUESTIEN | MRTCHILDSEQUENCE~, MRTCHILDSEQUENCE+4 |
| PC | FDAPRER+1~, FDAPRER+4*, FDAPRER+5 |
| PIDCHECK | ARSET+49~, ARSET+193*, ARSET+194 |
| PIDHIEN | ARSET+49~ |
| PR | ARSET+103~, ARSET+105*, ARSET+106, FDAPRER+1~, FDAPRER+5*, FDAPRER+6, GETPRER+1~, GETPRER+5*, GETPRER+6 |
| PRIEN | ARSET+103~, ARSET+104*, ARSET+105 |
| REQUESTIEN | MRTCHILDSEQUENCE+1~, MRTCHILDSEQUENCE+2*, MRTCHILDSEQUENCE+3*, MRTCHILDSEQUENCE+4, MRTCHILDSEQUENCE+6 |
| RET | ARSET~, ARSET+52*, ARSET+57*, ARSET+58*, ARSET+61*, ARSET+69*, ARSET+72*, ARSET+93*, ARSET+201*, ARSET+202* , ARSET+210*, ARSET+211*, GETPRER~, GETPRER+2*, GETPRER+3*, GETPRER+6* |
| SDAPP | AR433+6~, AR433+12*, AR433+13*, AR433+14, AR433+15, AR433+17, AR433+18, AR433D+2~, AR433D+5*, AR433D+6 , AR433D+7, AR433D+8 |
| SDAPPTYP | UPDATE~, UPDATE+11 |
| SDCL | UPDATE~, UPDATE+14, UPDATE+15, UPDATE+16, UPDATE+17 |
| SDDIV | UPDATE+10~, UPDATE+17*, UPDATE+18 |
| SDDT | AR435~, AR435+5, AR435+6 |
| SDEC | AR433~, AR433+9*, AR433+10, AR433+12, AR433D~, AR433D+3*, AR433D+4, AR433D+5, AR438~ |
| SDFDA | ARAUD+1~, AR433+6~, AR433+11!, AR433+19, AR433D+2~, AR438+1~, AR435+4~, UPDATE+10~ |
| SDFDA( | ARAUD+9*, ARAUD+10*, ARAUD+11*, ARAUD+12*, AR433+17*, AR433+18*, AR433D+11*, AR438+2*, AR435+9*, UPDATE+11* , UPDATE+12*, UPDATE+13*, UPDATE+14*, UPDATE+15*, UPDATE+16*, UPDATE+19*, UPDATE+20*, UPDATE+21*, UPDATE+22*, UPDATE+23* , UPDATE+24*, UPDATE+25* |
| SDI | ARSET+208~*, AR433+6~, AR433+10*, AR433+12, AR433D+2~, AR433D+4*, AR433D+5, AR435+4~, AR435+5*, AR435+6 |
| SDIEN | AR433+6~, AR433+15*, AR433+16*, AR433+17, AR433+18 |
| SDJ | AR433D+2~, AR433D+10*, AR433D+11, AR435+4~, AR435+6*, AR435+7, AR435+8, AR435+9 |
| SDMSG | UPDATE+10~ |
| SDP | ARAUD+1~, ARAUD+5*, ARAUD+6 |
| SDPARENT | AR438~, AR438+2 |
| SDPN | ARAUD+1~, ARAUD+6* |
| SDREC | ARSET+48~, ARSET+208* |
| SDSN | UPDATE+10~, UPDATE+18*, UPDATE+19 |
| SDTYP | AR433D+2~, AR433D+8*, AR433D+9 |
| STR17 | AR23+1~, AR23+5*, AR23+7, AR23+9, AR23+15, AR23+16, AR23+17, AR23+18, AR23+20, AR23+21 , AR23+22, AR23+23 |
| SVCP | UPDATE~, UPDATE+22 |
| SVCPR | UPDATE~, UPDATE+23 |
| U | ARSET+101, ARSET+108, ARSET+204, ARSET+210, ARSET+211, GETPRER+5, GETPRER+6, ARAUD+6, WLACT+4, AR23+16 , AR23+21, UPDATE+15, UPDATE+16, UPDATE+17, UPDATE+18 |
| USER | ARAUD~, ARAUD+8*, ARAUD+10 |
| VAOSGUID | ARSET+49~, ARSET+109*, ARSET+120, ARSET+157 |
| X | ARSET+45~, ARSET+81*, ARSET+153*, AR435+4~, AR435+6*, AR23+2~ |
| Y | ARSET+45~, ARSET+81, ARSET+82, ARSET+83, ARSET+153, AR435+4~, AR435+6, AR23+2~ |
