SDESARGET ;ALB/BLB,MGD,KML,LAB - VISTA SCHEDULING RPCS ;March 23, 2022
Source file <SDESARGET.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 6 | $$FMTISO^SDAMUTDT ($$FNUM,$$MRTC)^SDECAR ($$CALLET,$$CHILDREN,$$GETAPPTS)^SDECAR1A ERR1^SDECERR (ENCODE,ERRLOG)^SDESJSON $$EASVALIDATE^SDESUTIL |
| VA FileMan | 1 | ($$GET1,GETS)^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ARGETPATJSON(RET,DFN,SDEAS) | ;Entry point to return JSON
; SDEC GET PATIENT APPT REQ JSON ; ARGETPATJSON^SDEC1 |
|
| ARGETIENJSON(RET,ARIEN,SDEAS) | ;Appt Req GET for speific appt IEN
; SDEC GET PAT APPT REQ BY IEN ; ARGETIEN^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(ARDATA) | ; Build an output record
; Input - ARDATA = array containing data from SDEC APPT REQUEST file (#409.85) |
|
| BUILDJSON | ;Convert to JSON
|
|
| WLPC(ARDATA,ASDIEN) | ;
|
|
| EXIT | ; Any special logic needed for a successful completion
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | VALIDIEN+5, VALIDIEN+7 |
| GETS^DIQ | ARGETIENJSON+13, ONEPAT+3 |
| $$FMTISO^SDAMUTDT | BUILDREC+8, BUILDREC+29, BUILDREC+30, BUILDREC+34, BUILDREC+41, BUILDREC+52, BUILDREC+96, WLPC+6 |
| $$FNUM^SDECAR | ARGETIENJSON+11, PROCESS+2 |
| $$MRTC^SDECAR | BUILDREC+47 |
| $$CALLET^SDECAR1A | BUILDREC+54 |
| $$CHILDREN^SDECAR1A | BUILDREC+46 |
| $$GETAPPTS^SDECAR1A | BUILDREC+45 |
| ERR1^SDECERR | VALIDATE+7 |
| ENCODE^SDESJSON | BUILDJSON+2 |
| ERRLOG^SDESJSON | ARGETPATJSON+7, ARGETIENJSON+7, ARGETIENJSON+10, ARGETIENJSON+12, VALIDATE+5, VALIDATE+6 |
| $$EASVALIDATE^SDESUTIL | ARGETPATJSON+6, ARGETIENJSON+9 |
| FileNo | Call Tags |
|---|---|
| ^SDEC(409.85 - [#409.85] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | VALIDATE+6 |
| ^SDEC(409.85 - [#409.85] | ARGETIENJSON+12, PROCESS+5 |
| ^TMP("SDECAR4" | BUILDJSON+3!, EXIT+2, EXIT+3*, EXIT+4, EXIT+6* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APPT | ARGETPATJSON+3~, ARGETPATJSON+7, ARGETIENJSON+3~, ARGETIENJSON+7, ARGETIENJSON+10, ARGETIENJSON+12, VALIDATE+5, VALIDATE+6, BUILDJSON+2 |
| APPT("ApptReq" | ARGETPATJSON+9*, BUILDREC+58*, BUILDREC+59*, BUILDREC+60*, BUILDREC+61*, BUILDREC+62*, BUILDREC+63*, BUILDREC+64*, BUILDREC+65*, BUILDREC+66* , BUILDREC+67*, BUILDREC+68*, BUILDREC+69*, BUILDREC+70*, BUILDREC+71*, BUILDREC+72*, BUILDREC+73*, BUILDREC+74*, BUILDREC+75*, BUILDREC+76* , BUILDREC+77*, BUILDREC+78*, BUILDREC+84*, BUILDREC+85*, BUILDREC+86*, BUILDREC+87*, BUILDREC+88*, BUILDREC+90*, BUILDREC+92*, BUILDREC+93* , BUILDREC+94*, BUILDREC+95*, BUILDREC+96*, BUILDREC+99*, BUILDREC+100*, BUILDREC+102*, BUILDREC+103*, BUILDREC+104*, BUILDREC+105*, BUILDREC+106* , BUILDREC+107*, BUILDREC+108*, BUILDREC+109*, BUILDREC+110*, BUILDREC+114*, BUILDREC+115*, BUILDREC+120*, BUILDREC+121*, BUILDREC+123*, BUILDREC+124* , BUILDREC+125*, BUILDREC+126*, BUILDREC+127*, BUILDREC+128* |
| APPT("Error" | ARGETPATJSON+9 |
| APPTPTRS | BUILDREC+6~, BUILDREC+45*, BUILDREC+112, BUILDREC+113 |
| APPTYPE | BUILDREC+3~, BUILDREC+20*, BUILDREC+109 |
| ARCLERK | BUILDREC+4~, BUILDREC+5~, BUILDREC+31*, BUILDREC+105 |
| ARCLERKN | BUILDREC+4~, BUILDREC+5~, BUILDREC+32*, BUILDREC+106 |
| ARCLIEN | BUILDREC+3~, BUILDREC+16*, BUILDREC+64 |
| ARCLNAME | BUILDREC+3~, BUILDREC+19*, BUILDREC+65 |
| ARCOMM | BUILDREC+5~, BUILDREC+36*, BUILDREC+73 |
| ARDAM | BUILDREC+5~, BUILDREC+30*, BUILDREC+107 |
| ARDAPTDT | BUILDREC+5~, BUILDREC+34*, BUILDREC+72 |
| ARDATA | ARGETIENJSON+3~, ARGETIENJSON+14, ONEPAT+1~, ONEPAT+4, BUILDREC~, BUILDREC+40, WLPC~ |
| ARDATA( | 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+28, BUILDREC+29, BUILDREC+30, BUILDREC+31, BUILDREC+32, BUILDREC+33, BUILDREC+34, BUILDREC+36, BUILDREC+37, BUILDREC+38 , BUILDREC+39, BUILDREC+41, BUILDREC+42, BUILDREC+43, BUILDREC+44, BUILDREC+48, BUILDREC+51, BUILDREC+52, WLPC+3, WLPC+6 , WLPC+7, WLPC+8, WLPC+9, WLPC+10 |
| ARDISPD | BUILDREC+5~, BUILDREC+41*, BUILDREC+92 |
| ARDISPU | BUILDREC+5~, BUILDREC+42*, BUILDREC+93 |
| ARDISPUN | BUILDREC+5~, BUILDREC+43*, BUILDREC+94 |
| AREAS | BUILDREC+6~, BUILDREC+44*, BUILDREC+78 |
| AREDT | BUILDREC+4~, BUILDREC+23*, BUILDREC+96 |
| ARENPRI | BUILDREC+4~, BUILDREC+25*, BUILDREC+74 |
| ARIEN | ARGETIENJSON~, ARGETIENJSON+6*, ARGETIENJSON+7, ARGETIENJSON+12*, ARGETIENJSON+13, PROCESS+1~, PROCESS+4*, PROCESS+5*, ONEPAT+3, VALIDIEN+5 , VALIDIEN+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+28, BUILDREC+29, BUILDREC+30, BUILDREC+31, BUILDREC+32, BUILDREC+33, BUILDREC+34, BUILDREC+36, BUILDREC+37 , BUILDREC+38, BUILDREC+39, BUILDREC+40, BUILDREC+41, BUILDREC+42, BUILDREC+43, BUILDREC+44, BUILDREC+45, BUILDREC+46, BUILDREC+47 , BUILDREC+48, BUILDREC+54, BUILDREC+59 |
| ARINST | BUILDREC+3~, BUILDREC+13*, BUILDREC+61 |
| ARINSTNM | BUILDREC+3~, BUILDREC+14*, BUILDREC+62 |
| ARMAI | BUILDREC+5~, BUILDREC+38*, BUILDREC+76 |
| ARMAN | BUILDREC+5~, BUILDREC+39*, BUILDREC+77 |
| ARMAR | BUILDREC+5~, BUILDREC+37*, BUILDREC+75 |
| ARMRTC | BUILDREC+6~, BUILDREC+47*, BUILDREC+108 |
| ARMSG | ONEPAT+1~ |
| ARORIGDT | BUILDREC+2~, BUILDREC+8*, BUILDREC+60 |
| ARPC | BUILDREC+5~, BUILDREC+40*, BUILDREC+80, BUILDREC+81 |
| ARPRIO | BUILDREC+4~, BUILDREC+24*, BUILDREC+68 |
| ARPROV | BUILDREC+4~, BUILDREC+27*, BUILDREC+70 |
| ARPROVNM | BUILDREC+4~, BUILDREC+28*, BUILDREC+71 |
| ARREQBY | BUILDREC+4~, BUILDREC+26*, BUILDREC+69 |
| ARSDOA | BUILDREC+4~, BUILDREC+29*, BUILDREC+104 |
| ARSTAT | VALIDIEN+1~, VALIDIEN+5*, VALIDIEN+6, BUILDREC+9* |
| ARSTOP | BUILDREC+3~, BUILDREC+17*, BUILDREC+102 |
| ARSTOPN | BUILDREC+3~, BUILDREC+18*, BUILDREC+103 |
| ARSVCCON | BUILDREC+5~, BUILDREC+33*, BUILDREC+95 |
| ARTYPE | BUILDREC+3~, BUILDREC+15*, BUILDREC+63 |
| ARUSER | BUILDREC+3~, BUILDREC+21*, BUILDREC+66 |
| ARUSRNM | BUILDREC+3~, BUILDREC+22*, BUILDREC+67 |
| ASDIEN | WLPC~, WLPC+4 |
| CALLLETTER | BUILDREC+2~, BUILDREC+54*, BUILDREC+124, BUILDREC+125, BUILDREC+126, BUILDREC+127, BUILDREC+128 |
| CHILDREN | BUILDREC+6~, BUILDREC+46*, BUILDREC+118, BUILDREC+119 |
| COPUNT | ARGETPATJSON+3~ |
| COUNT | ARGETIENJSON+3~, INIT+1*, VALIDATE+1~, VALIDATE+7, PROCESS+1~, PROCESS+2*, BUILDREC+56*, BUILDREC+58, BUILDREC+59, BUILDREC+60 , BUILDREC+61, BUILDREC+62, BUILDREC+63, BUILDREC+64, BUILDREC+65, BUILDREC+66, BUILDREC+67, BUILDREC+68, BUILDREC+69, BUILDREC+70 , BUILDREC+71, BUILDREC+72, BUILDREC+73, BUILDREC+74, BUILDREC+75, BUILDREC+76, BUILDREC+77, BUILDREC+78, BUILDREC+84, BUILDREC+85 , BUILDREC+86, BUILDREC+87, BUILDREC+88, BUILDREC+90, BUILDREC+92, BUILDREC+93, BUILDREC+94, BUILDREC+95, BUILDREC+96, BUILDREC+99 , BUILDREC+100, BUILDREC+102, BUILDREC+103, BUILDREC+104, BUILDREC+105, BUILDREC+106, BUILDREC+107, BUILDREC+108, BUILDREC+109, BUILDREC+110 , BUILDREC+114, BUILDREC+115, BUILDREC+120, BUILDREC+121, BUILDREC+123, BUILDREC+124, BUILDREC+125, BUILDREC+126, BUILDREC+127, BUILDREC+128 , EXIT+1~, EXIT+2*, EXIT+3*, EXIT+4, EXIT+6 |
| DFN | ARGETPATJSON~, ARGETIENJSON+3~, INIT+3, VALIDATE+1~, VALIDATE+4*, VALIDATE+5, VALIDATE+6, PROCESS+5, BUILDREC+2~, BUILDREC+10* , BUILDREC+54, BUILDREC+58 |
| ERR | ARGETPATJSON+3~ |
| FILT | ARGETPATJSON+3~, ARGETIENJSON+3~ |
| FILT("INDEX" | INIT+3*, VALIDATE+4 |
| FILT("SKIP ST | AT" , INIT+2*, VALIDIEN+4, VALIDIEN+6 |
| FNUM | ARGETIENJSON+3~, ARGETIENJSON+11*, ARGETIENJSON+13, PROCESS+1~, PROCESS+2*, ONEPAT+3, 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+28, BUILDREC+29, BUILDREC+30, BUILDREC+31 , BUILDREC+32, BUILDREC+33, BUILDREC+34, BUILDREC+36, BUILDREC+41, BUILDREC+42, BUILDREC+43, BUILDREC+44, BUILDREC+48 |
| I | BUILDREC+2~, BUILDREC+7~, BUILDREC+80*, BUILDREC+81, BUILDREC+98*, BUILDREC+99, BUILDREC+112*, BUILDREC+113, BUILDREC+118*, BUILDREC+119 |
| JSONERR | ARGETPATJSON+3~, ARGETPATJSON+4*, ARGETIENJSON+3~, ARGETIENJSON+4*, BUILDJSON+2 |
| JSONFLG | ARGETPATJSON+3~, ARGETPATJSON+4*, ARGETIENJSON+3~, ARGETIENJSON+4*, JSONEP+2, VALIDATE+7 |
| L | BUILDREC+7~ |
| PC | WLPC+1~, WLPC+2*, WLPC+11*, WLPC+12 |
| PC1 | WLPC+1~, WLPC+5*, WLPC+6*, WLPC+7*, WLPC+8*, WLPC+9*, WLPC+10*, WLPC+11 |
| PCIEN | WLPC+1~, WLPC+3*, WLPC+4, WLPC+6, WLPC+7, WLPC+8, WLPC+9, WLPC+10 |
| RET | ARGETPATJSON~, ARGETIENJSON~, VALIDATE+7, BUILDJSON+1*, BUILDJSON+2 |
| SDCL | BUILDREC+2~, BUILDREC+12* |
| SDCLY | BUILDREC+2~ |
| SDEAS | ARGETPATJSON~, ARGETPATJSON+5*, ARGETPATJSON+6*, ARGETPATJSON+7, ARGETIENJSON~, ARGETIENJSON+8*, ARGETIENJSON+9*, ARGETIENJSON+10 |
| SDECALL | BUILDREC+2~ |
| SDECLET | BUILDREC+2~ |
| SDI | BUILDREC+2~, BUILDREC+50*, BUILDREC+51*, BUILDREC+52 |
| SDMRTC | BUILDREC+6~, BUILDREC+50*, BUILDREC+52*, BUILDREC+98, BUILDREC+99 |
| SDPARENT | BUILDREC+6~, BUILDREC+48*, BUILDREC+123 |
| SDPS | BUILDREC+2~, BUILDREC+11*, BUILDREC+110 |
| SDTMP | EXIT+1~, EXIT+4*, EXIT+5*, EXIT+6 |
| STR | BUILDREC+2~ |
| SUBCNT | BUILDREC+2~, BUILDREC+79*, BUILDREC+83*, BUILDREC+84, BUILDREC+85, BUILDREC+86, BUILDREC+87, BUILDREC+88, BUILDREC+97*, BUILDREC+99 , BUILDREC+111*, BUILDREC+114, BUILDREC+117*, BUILDREC+120 |
| 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+3~ |
| VAR | BUILDREC+2~, BUILDREC+81*, BUILDREC+82, BUILDREC+84, BUILDREC+85, BUILDREC+86, BUILDREC+87, BUILDREC+88, BUILDREC+113*, BUILDREC+114 , BUILDREC+119*, BUILDREC+120 |
| X | BUILDREC+2~ |
| ZZ | BUILDREC+7~ |