SDECAR4 ;ALB/TAW,BLB,LAB - VISTA SCHEDULING RPCS ;Feb 3,2023
Source file <SDECAR4.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 5 | ($$FNUM,$$MRTC)^SDECAR ($$CALLET,$$CHILDREN,$$GETAPPTS,$$WLPC)^SDECAR1A $$FMTONET^SDECDATE ERR1^SDECERR (ENCODE,ERRLOG)^SDESJSON |
| VA FileMan | 1 | ($$GET1,GETS)^DIQ |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETREQBYTYPEVET(RET) | ; SDES GET APPT REQ BY TYPE VET
|
|
| ARGETPATJSON(RET,DFN) | ;Entry point to return JSON
; SDEC GET PATIENT APPT REQ JSON ; ARGETPATJSON^SDEC1 |
|
| ARGETIEN(RET,ARIEN) | ;Appt Req GET for speific appt IEN
; SDEC GET PAT APPT REQ BY IEN ; ARGETIEN^SDEC1 |
|
| ARGETPAT(RET,DFN) | ;Appt Req GET.
; SDEC PATIENT APP REQ GET ; ARGETPAT^SDEC1 |
|
| JSONEP | ;
|
|
| INIT | ; Initalize any process specific variables
|
|
| VALIDATE() | ;Validata input params
|
|
| PROCESS | ; Loop over primary index
|
|
| ONEPAT | ; Process one patient
|
|
| VALIDIEN() | ;Validate the appointment request
|
|
| BUILDREC | ; Build an output record
|
|
| HDR | ;
|
|
| BUILDPATCOMMENTS(REQUEST,REQUESTIEN,COUNT) | ; patient comments
|
|
| BUILDJSON | ;Convert to JSON
|
|
| EXIT | ; Any special logic needed for a successful completion
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | GETREQBYTYPEVET+5, VALIDIEN+5, VALIDIEN+7, BUILDPATCOMMENTS+5 |
| GETS^DIQ | GETREQBYTYPEVET+6, ARGETIEN+10, ONEPAT+3 |
| $$FNUM^SDECAR | ARGETIEN+8, PROCESS+2 |
| $$MRTC^SDECAR | BUILDREC+51 |
| $$CALLET^SDECAR1A | BUILDREC+71 |
| $$CHILDREN^SDECAR1A | BUILDREC+50 |
| $$GETAPPTS^SDECAR1A | BUILDREC+49 |
| $$WLPC^SDECAR1A | BUILDREC+45 |
| $$FMTONET^SDECDATE | BUILDREC+30 |
| ERR1^SDECERR | VALIDATE+7 |
| ENCODE^SDESJSON | BUILDJSON+2 |
| ERRLOG^SDESJSON | ARGETIEN+7, ARGETIEN+9, VALIDATE+5, VALIDATE+6 |
| RPC Name | Call Tags |
|---|---|
| SDEC GET REQ BY TYPE VET JSON | GETREQBYTYPEVET |
| FileNo | Call Tags |
|---|---|
| ^SDEC(409.85 - [#409.85] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | VALIDATE+6 |
| ^SDEC(409.85 - [#409.85] | GETREQBYTYPEVET+4, ARGETIEN+9, PROCESS+5, BUILDPATCOMMENTS+4 |
| ^TMP("SDECAR4" | INIT+2!, BUILDREC+75*, BUILDJSON+3!, EXIT+2, EXIT+3*, EXIT+4, EXIT+6* |
| Name | Line Occurrences |
|---|---|
| $$VALIDATE | JSONEP+3 |
| $$VALIDIEN | ONEPAT+2 |
| BUILDJSON | GETREQBYTYPEVET+10, ARGETPATJSON+7, ARGETIEN+12 |
| BUILDPATCOMMENTS | BUILDREC+93 |
| BUILDREC | GETREQBYTYPEVET+7, ARGETIEN+11, ONEPAT+4 |
| EXIT | JSONEP+3, JSONEP+5 |
| HDR | JSONEP+2 |
| INIT | ARGETIEN+5, JSONEP+1 |
| JSONEP | ARGETPATJSON+5 |
| ONEPAT | PROCESS+5 |
| PROCESS | JSONEP+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APPT | GETREQBYTYPEVET+1~, GETREQBYTYPEVET+8, ARGETPATJSON+3~, ARGETIEN+3~, ARGETIEN+7, ARGETIEN+9, ARGETPAT+13~, VALIDATE+5, VALIDATE+6, BUILDREC+93 , BUILDJSON+2 |
| APPT("Appt" | GETREQBYTYPEVET+8* |
| APPT("ApptReq" | ARGETPATJSON+6*, BUILDREC+77*, BUILDREC+78*, BUILDREC+79*, BUILDREC+80*, BUILDREC+81*, BUILDREC+82*, BUILDREC+83*, BUILDREC+84*, BUILDREC+85* , BUILDREC+86*, BUILDREC+87*, BUILDREC+88*, BUILDREC+89*, BUILDREC+90*, BUILDREC+91*, BUILDREC+92*, BUILDREC+94*, BUILDREC+95*, BUILDREC+96* , BUILDREC+97*, BUILDREC+103*, BUILDREC+104*, BUILDREC+105*, BUILDREC+106*, BUILDREC+107*, BUILDREC+109*, BUILDREC+111*, BUILDREC+112*, BUILDREC+113* , BUILDREC+114*, BUILDREC+115*, BUILDREC+119*, BUILDREC+120*, BUILDREC+122*, BUILDREC+123*, BUILDREC+124*, BUILDREC+125*, BUILDREC+126*, BUILDREC+127* , BUILDREC+128*, BUILDREC+129*, BUILDREC+130*, BUILDREC+131*, BUILDREC+132*, BUILDREC+137*, BUILDREC+138*, BUILDREC+144*, BUILDREC+145*, BUILDREC+147* , BUILDREC+148*, BUILDREC+149*, BUILDREC+150*, BUILDREC+151*, BUILDREC+152* |
| APPT("Error" | ARGETPATJSON+6 |
| APPTPTRS | BUILDREC+5~, BUILDREC+49*, BUILDREC+69, BUILDREC+134, BUILDREC+135 |
| APPTYPE | BUILDREC+2~, BUILDREC+18*, BUILDREC+69, BUILDREC+130 |
| ARASD | BUILDREC+3~, BUILDREC+34*, BUILDREC+35*, BUILDREC+36*, BUILDREC+37*, BUILDREC+38*, BUILDREC+67 |
| ARCLERK | BUILDREC+3~, BUILDREC+4~, BUILDREC+32*, BUILDREC+36, BUILDREC+125 |
| ARCLERKN | BUILDREC+3~, BUILDREC+4~, BUILDREC+33*, BUILDREC+37, BUILDREC+126 |
| ARCLIEN | BUILDREC+2~, BUILDREC+14*, BUILDREC+61, BUILDREC+83 |
| ARCLNAME | BUILDREC+2~, BUILDREC+17*, BUILDREC+61, BUILDREC+84 |
| ARCOMM | BUILDREC+4~, BUILDREC+41*, BUILDREC+63, BUILDREC+92 |
| ARDAM | BUILDREC+3~, BUILDREC+4~, BUILDREC+31*, BUILDREC+38, BUILDREC+127 |
| ARDAPTDT | BUILDREC+4~, BUILDREC+40*, BUILDREC+63, BUILDREC+91 |
| ARDATA | GETREQBYTYPEVET+1~, ARGETIEN+3~, ARGETIEN+11, ONEPAT+1~, ONEPAT+4, BUILDREC+45 |
| ARDATA( | BUILDREC+6, BUILDREC+7, BUILDREC+8, BUILDREC+9, BUILDREC+10, BUILDREC+11, BUILDREC+12, BUILDREC+13, BUILDREC+14, BUILDREC+15 , BUILDREC+16, BUILDREC+17, BUILDREC+18, BUILDREC+19, BUILDREC+20, BUILDREC+21, BUILDREC+22, BUILDREC+23, BUILDREC+24, BUILDREC+25 , BUILDREC+26, BUILDREC+27, BUILDREC+31, BUILDREC+32, BUILDREC+33, BUILDREC+39, BUILDREC+40, BUILDREC+41, BUILDREC+42, BUILDREC+43 , BUILDREC+44, BUILDREC+46, BUILDREC+47, BUILDREC+48, BUILDREC+52, BUILDREC+53, BUILDREC+54, BUILDREC+57 |
| ARDISPD | BUILDREC+4~, BUILDREC+46*, BUILDREC+65, BUILDREC+111 |
| ARDISPU | BUILDREC+4~, BUILDREC+47*, BUILDREC+65, BUILDREC+112 |
| ARDISPUN | BUILDREC+4~, BUILDREC+48*, BUILDREC+65, BUILDREC+113 |
| AREDT | BUILDREC+3~, BUILDREC+21*, BUILDREC+67, BUILDREC+115 |
| ARENPRI | BUILDREC+3~, BUILDREC+23*, BUILDREC+63, BUILDREC+94 |
| ARIEN | GETREQBYTYPEVET+1~, GETREQBYTYPEVET+3*, GETREQBYTYPEVET+4*, GETREQBYTYPEVET+5, GETREQBYTYPEVET+6, ARGETIEN~, ARGETIEN+6*, ARGETIEN+7, ARGETIEN+9*, ARGETIEN+10 , PROCESS+1~, PROCESS+4*, PROCESS+5*, ONEPAT+3, VALIDIEN+5, VALIDIEN+7, BUILDREC+6, BUILDREC+7, BUILDREC+8, BUILDREC+9 , BUILDREC+10, BUILDREC+11, BUILDREC+12, BUILDREC+13, BUILDREC+14, BUILDREC+15, BUILDREC+16, BUILDREC+17, BUILDREC+18, BUILDREC+19 , BUILDREC+20, BUILDREC+21, BUILDREC+22, BUILDREC+23, BUILDREC+24, BUILDREC+25, BUILDREC+26, BUILDREC+27, BUILDREC+31, BUILDREC+32 , BUILDREC+33, BUILDREC+39, BUILDREC+40, BUILDREC+41, BUILDREC+42, BUILDREC+43, BUILDREC+44, BUILDREC+45, BUILDREC+46, BUILDREC+47 , BUILDREC+48, BUILDREC+49, BUILDREC+50, BUILDREC+51, BUILDREC+52, BUILDREC+53, BUILDREC+54, BUILDREC+59, BUILDREC+71, BUILDREC+78 , BUILDREC+93 |
| ARINST | BUILDREC+2~, BUILDREC+11*, BUILDREC+59, BUILDREC+80 |
| ARINSTNM | BUILDREC+2~, BUILDREC+12*, BUILDREC+59, BUILDREC+81 |
| ARMAI | BUILDREC+4~, BUILDREC+43*, BUILDREC+63, BUILDREC+96 |
| ARMAN | BUILDREC+4~, BUILDREC+44*, BUILDREC+63, BUILDREC+97 |
| ARMAR | BUILDREC+4~, BUILDREC+42*, BUILDREC+63, BUILDREC+95 |
| ARMRTC | BUILDREC+5~, BUILDREC+51*, BUILDREC+69, BUILDREC+128 |
| ARMSG | ONEPAT+1~ |
| ARORIGDT | BUILDREC+1~, BUILDREC+6*, BUILDREC+59, BUILDREC+79 |
| ARPC | BUILDREC+4~, BUILDREC+45*, BUILDREC+65, BUILDREC+99, BUILDREC+100 |
| ARPRIO | BUILDREC+3~, BUILDREC+22*, BUILDREC+61, BUILDREC+87 |
| ARPROV | BUILDREC+3~, BUILDREC+25*, BUILDREC+61, BUILDREC+89 |
| ARPROVNM | BUILDREC+3~, BUILDREC+26*, BUILDREC+63, BUILDREC+90 |
| ARREQBY | BUILDREC+3~, BUILDREC+24*, BUILDREC+61, BUILDREC+88 |
| ARSDOA | BUILDREC+3~, BUILDREC+27*, BUILDREC+30*, BUILDREC+35, BUILDREC+124 |
| ARSTAT | VALIDIEN+1~, VALIDIEN+5*, VALIDIEN+6, BUILDREC+1~, BUILDREC+7* |
| ARSTOP | BUILDREC+2~, BUILDREC+15*, BUILDREC+67, BUILDREC+122 |
| ARSTOPN | BUILDREC+2~, BUILDREC+16*, BUILDREC+67, BUILDREC+123 |
| ARSVCCON | BUILDREC+4~, BUILDREC+39*, BUILDREC+65, BUILDREC+114 |
| ARTYPE | BUILDREC+2~, BUILDREC+13*, BUILDREC+59, BUILDREC+82 |
| ARUSER | BUILDREC+2~, BUILDREC+19*, BUILDREC+61, BUILDREC+85 |
| ARUSRNM | BUILDREC+2~, BUILDREC+20*, BUILDREC+61, BUILDREC+86 |
| CALLLETTER | BUILDREC+1~, BUILDREC+71*, BUILDREC+72, BUILDREC+148, BUILDREC+149, BUILDREC+150, BUILDREC+151, BUILDREC+152 |
| CANCHANGEPID | BUILDREC+5~, BUILDREC+54*, BUILDREC+132 |
| CHILDREN | BUILDREC+5~, BUILDREC+50*, BUILDREC+69, BUILDREC+141, BUILDREC+142 |
| CNT | GETREQBYTYPEVET+1~ |
| COPUNT | ARGETPATJSON+3~ |
| COUNT | GETREQBYTYPEVET+3*, GETREQBYTYPEVET+4, ARGETIEN+3~, ARGETPAT+13~, INIT+1*, VALIDATE+1~, VALIDATE+7, PROCESS+1~, PROCESS+2*, BUILDREC+74* , BUILDREC+75, BUILDREC+77, BUILDREC+78, BUILDREC+79, BUILDREC+80, BUILDREC+81, BUILDREC+82, BUILDREC+83, BUILDREC+84, BUILDREC+85 , BUILDREC+86, BUILDREC+87, BUILDREC+88, BUILDREC+89, BUILDREC+90, BUILDREC+91, BUILDREC+92, BUILDREC+93, BUILDREC+94, BUILDREC+95 , BUILDREC+96, BUILDREC+97, BUILDREC+103, BUILDREC+104, BUILDREC+105, BUILDREC+106, BUILDREC+107, BUILDREC+109, BUILDREC+111, BUILDREC+112 , BUILDREC+113, BUILDREC+114, BUILDREC+115, BUILDREC+119, BUILDREC+120, BUILDREC+122, BUILDREC+123, BUILDREC+124, BUILDREC+125, BUILDREC+126 , BUILDREC+127, BUILDREC+128, BUILDREC+129, BUILDREC+130, BUILDREC+131, BUILDREC+132, BUILDREC+137, BUILDREC+138, BUILDREC+144, BUILDREC+145 , BUILDREC+147, BUILDREC+148, BUILDREC+149, BUILDREC+150, BUILDREC+151, BUILDREC+152, BUILDPATCOMMENTS~, BUILDPATCOMMENTS+6, EXIT+1~, EXIT+2* , EXIT+3*, EXIT+4, EXIT+6 |
| DFN | ARGETPATJSON~, ARGETIEN+3~, ARGETPAT~, INIT+4, VALIDATE+1~, VALIDATE+4*, VALIDATE+5, VALIDATE+6, PROCESS+5, BUILDREC+1~ , BUILDREC+8*, BUILDREC+59, BUILDREC+71, BUILDREC+77 |
| ERR | ARGETPATJSON+3~ |
| ERRORS | GETREQBYTYPEVET+1~ |
| FILT | ARGETPATJSON+3~, ARGETIEN+3~, ARGETPAT+13~ |
| FILT("INDEX" | INIT+4*, VALIDATE+4 |
| FILT("SKIP ST | AT" , INIT+3*, VALIDIEN+4, VALIDIEN+6 |
| FNUM | GETREQBYTYPEVET+1~, GETREQBYTYPEVET+3*, GETREQBYTYPEVET+6, ARGETIEN+3~, ARGETIEN+8*, ARGETIEN+10, PROCESS+1~, PROCESS+2*, ONEPAT+3, BUILDREC+6 , BUILDREC+7, BUILDREC+8, BUILDREC+9, BUILDREC+10, BUILDREC+11, BUILDREC+12, BUILDREC+13, BUILDREC+14, BUILDREC+15, BUILDREC+16 , BUILDREC+17, BUILDREC+18, BUILDREC+19, BUILDREC+20, BUILDREC+21, BUILDREC+22, BUILDREC+23, BUILDREC+24, BUILDREC+25, BUILDREC+26 , BUILDREC+27, BUILDREC+31, BUILDREC+32, BUILDREC+33, BUILDREC+39, BUILDREC+40, BUILDREC+41, BUILDREC+46, BUILDREC+47, BUILDREC+48 , BUILDREC+52, BUILDREC+53 |
| I | BUILDREC+1~, BUILDREC+99*, BUILDREC+100, BUILDREC+117*, BUILDREC+119, BUILDREC+134*, BUILDREC+135, BUILDREC+141*, BUILDREC+142 |
| JSONERR | ARGETPATJSON+3~, ARGETPATJSON+4*, ARGETIEN+3~, ARGETIEN+4*, BUILDJSON+2 |
| JSONFLG | GETREQBYTYPEVET+3*, ARGETPATJSON+3~, ARGETPATJSON+4*, ARGETIEN+3~, ARGETIEN+4*, JSONEP+2, JSONEP+3, JSONEP+5, INIT+2, VALIDATE+7 , BUILDREC+75 |
| MRTCSEQUENCENUM | BUILDREC+5~, BUILDREC+53*, BUILDREC+129 |
| NUM | BUILDPATCOMMENTS+1~ |
| PATCMT | BUILDPATCOMMENTS+1~, BUILDPATCOMMENTS+3*, BUILDPATCOMMENTS+5*, BUILDPATCOMMENTS+6 |
| REQUEST | BUILDPATCOMMENTS~ |
| REQUEST("ApptReq" | BUILDPATCOMMENTS+6* |
| REQUESTIEN | BUILDPATCOMMENTS~, BUILDPATCOMMENTS+4, BUILDPATCOMMENTS+5 |
| RET | GETREQBYTYPEVET~, ARGETPATJSON~, ARGETIEN~, ARGETPAT~, INIT+2*, VALIDATE+7, HDR+18, BUILDJSON+1*, BUILDJSON+2 |
| SDCL | BUILDREC+1~, BUILDREC+10* |
| SDCLY | BUILDREC+1~ |
| SDECALL | BUILDREC+1~ |
| SDECLET | BUILDREC+1~ |
| SDI | BUILDREC+1~, BUILDREC+56*, BUILDREC+57* |
| SDMTRC | BUILDREC+5~, BUILDREC+56*, BUILDREC+57*, BUILDREC+67, BUILDREC+117, BUILDREC+119 |
| SDPARENT | BUILDREC+5~, BUILDREC+52*, BUILDREC+69, BUILDREC+147 |
| SDPS | BUILDREC+1~, BUILDREC+9*, BUILDREC+69, BUILDREC+131 |
| SDRTMP | HDR+1~, HDR+2*, HDR+4*, HDR+6*, HDR+8*, HDR+10*, HDR+12*, HDR+14*, HDR+16*, HDR+17* , HDR+18 |
| SDTMP | EXIT+1~, EXIT+4*, EXIT+5*, EXIT+6 |
| STR | BUILDREC+1~, BUILDREC+59*, BUILDREC+61*, BUILDREC+63*, BUILDREC+65*, BUILDREC+67*, BUILDREC+69*, BUILDREC+72*, BUILDREC+75 |
| SUBCNT | BUILDREC+1~, BUILDREC+98*, BUILDREC+102*, BUILDREC+103, BUILDREC+104, BUILDREC+105, BUILDREC+106, BUILDREC+107, BUILDREC+116*, BUILDREC+118* , BUILDREC+119, BUILDREC+133*, BUILDREC+136*, BUILDREC+137, BUILDREC+140*, BUILDREC+143*, BUILDREC+144 |
| SUBIEN | BUILDPATCOMMENTS+1~, BUILDPATCOMMENTS+2*, BUILDPATCOMMENTS+4*, BUILDPATCOMMENTS+5 |
| U | BUILDREC+59, BUILDREC+61, BUILDREC+63, BUILDREC+65, BUILDREC+67, BUILDREC+69, BUILDREC+72, BUILDREC+149, BUILDREC+150, BUILDREC+151 |
| VALID | VALIDATE+1~, VALIDATE+2*, VALIDATE+5*, VALIDATE+6*, VALIDATE+7, VALIDATE+9, VALIDIEN+1~, VALIDIEN+2*, VALIDIEN+6*, VALIDIEN+7* , VALIDIEN+8 |
| VAOSGUID | BUILDREC+2~ |
| VAR | BUILDREC+1~, BUILDREC+100*, BUILDREC+101, BUILDREC+103, BUILDREC+104, BUILDREC+105, BUILDREC+106, BUILDREC+107, BUILDREC+135*, BUILDREC+137 , BUILDREC+142*, BUILDREC+144 |
| X | BUILDREC+1~ |