SDES2CLININFO ;ALB/TJB,JAS,TJB,MCB,JDJ,JAS - Get Clinic Info based on Clinic IEN ;DEC 26,2025
Source file <SDES2CLININFO.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 5 | $$FMTISO^SDAMUTDT (BUILDJSON,ERRLOG)^SDES2JSON ($$CHAR4,$$INACTIVE,$$STATIONNUMBER,$$TIMEZONEDATA)^SDES2UTIL VALCLINIEN^SDES2VAL44 VALCONTEXT^SDES2VALCONTEXT |
| Kernel | 3 | $$NOW^XLFDT $$SHAN^XLFSHAN DUZ^XUP |
| VA FileMan | 2 | FILE^DIE ($$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 |
|---|---|---|
| ENTRY(SDRETURN,SDCONTEXT,SDPARAM) | ;SDES2 GET CLINIC INFO
|
|
| CLINICLIST(SDRETURN,SDCONTEXT,SDPARAM) | ;RPC: SDES2 GET CLINICS BY CLIN LIST
|
|
| ADDHASH(SDCLIN,ELGFIELDSARRAY,SDCLNJSON,HASHFLG) | ;Add hash to output
|
|
| UPDATECLINICHASH(CLIN,HASH,HASHDATE,SDCLNJSON) | ;update clinic with new hash
|
|
| ADDHASH2CLIN(IEN) | ; add HASH to clinic after creation of clinic
|
|
| VALIDATEHASHFLG(ERRORS,HASHFLG) | ;
|
|
| BLDCLNREC(SDCLNSREC,SDCLNIEN) | ;Get Clinic data
|
|
| CLEANUP | ; kill vars
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | UPDATECLINICHASH+6 |
| $$GET1^DIQ | CLINICLIST+14, CLINICLIST+15, ADDHASH+3, ADDHASH+4, BLDCLNREC+23, BLDCLNREC+46, BLDCLNREC+63, BLDCLNREC+72, BLDCLNREC+83, BLDCLNREC+84 , BLDCLNREC+85, BLDCLNREC+86, BLDCLNREC+98, BLDCLNREC+116, BLDCLNREC+122 |
| GETS^DIQ | BLDCLNREC+5, BLDCLNREC+93, BLDCLNREC+105 |
| $$FMTISO^SDAMUTDT | ADDHASH+4, BLDCLNREC+60, BLDCLNREC+61 |
| BUILDJSON^SDES2JSON | ENTRY+82, ENTRY+86, ENTRY+88, ENTRY+93, ENTRY+99, CLINICLIST+5, CLINICLIST+21, CLINICLIST+29, ADDHASH2CLIN+3 |
| ERRLOG^SDES2JSON | CLINICLIST+12, VALIDATEHASHFLG+2 |
| $$CHAR4^SDES2UTIL | BLDCLNREC+66 |
| $$INACTIVE^SDES2UTIL | BLDCLNREC+19 |
| $$STATIONNUMBER^SDES2UTIL | BLDCLNREC+11 |
| $$TIMEZONEDATA^SDES2UTIL | BLDCLNREC+57 |
| VALCLINIEN^SDES2VAL44 | ENTRY+85 |
| VALCONTEXT^SDES2VALCONTEXT | ENTRY+81, CLINICLIST+4 |
| $$NOW^XLFDT | UPDATECLINICHASH+3 |
| $$SHAN^XLFSHAN | UPDATECLINICHASH+2 |
| DUZ^XUP | ENTRY+83, CLINICLIST+6 |
| RPC Name | Call Tags |
|---|---|
| SDES2 GET CLINIC INFO | ENTRY |
| SDES2 GET CLINICS BY CLIN LIST | CLINICLIST |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(40.7 - [#40.7] | GET1^DIQ |
| ^SDEC(409.831 - [#409.831] | GET1^DIQ |
| ^SDEC(409.93 - [#409.93] | GET1^DIQ |
| ^SDEC(409.94 - [#409.94] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ, GETS^DIQ |
| 44.03 | GET1^DIQ |
| 44.04 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | CLINICLIST+15, BLDCLNREC+70, BLDCLNREC+81, BLDCLNREC+113 |
| ^SDEC(409.831 - [#409.831] | BLDCLNREC+121, BLDCLNREC+124 |
| Name | Line Occurrences |
|---|---|
| $$BLDCLNREC | ENTRY+90, CLINICLIST+18 |
| ADDHASH | ENTRY+96, CLINICLIST+23 |
| BLDCLNREC | ADDHASH2CLIN+2 |
| CLEANUP | ENTRY+100, CLINICLIST+30 |
| UPDATECLINICHASH | ADDHASH+2, ADDHASH2CLIN+4 |
| VALIDATEHASHFLG | ENTRY+87 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHAR4 | BLDCLNREC+65~, BLDCLNREC+66*, BLDCLNREC+67 |
| CLIN | UPDATECLINICHASH~, UPDATECLINICHASH+4, UPDATECLINICHASH+5 |
| CLINICLIST | CLINICLIST+1~, CLINICLIST+2*, CLINICLIST+29 |
| CLINICLIST("Clinic" | CLINICLIST+27* |
| CLINICLIST("Error" | CLINICLIST+13*, CLINICLIST+14*, CLINICLIST+15*, CLINICLIST+26* |
| COMMENTSUBIEN | BLDCLNREC+2~, BLDCLNREC+69*, BLDCLNREC+70*, BLDCLNREC+72, BLDCLNREC+73 |
| COUNT | BLDCLNREC+2~, BLDCLNREC+69*, BLDCLNREC+71*, BLDCLNREC+72, BLDCLNREC+73, BLDCLNREC+78*, BLDCLNREC+82*, BLDCLNREC+83, BLDCLNREC+84, BLDCLNREC+85 , BLDCLNREC+86 |
| DIERR | ENTRY+77~, CLINICLIST+1~ |
| DT | BLDCLNREC+19 |
| DUZ | ENTRY+83~, CLINICLIST+6~ |
| ELGFIELDSARRAY | ENTRY+77~, ENTRY+78*, ENTRY+90, ENTRY+91, ENTRY+96, ENTRY+98, CLINICLIST+17!, CLINICLIST+18, CLINICLIST+19, CLINICLIST+23 , CLINICLIST+25, ADDHASH~, CLEANUP+1! |
| ELGFIELDSARRAY("Clinic" | ADDHASH+5*, ADDHASH+6* |
| ELGRETURN | ENTRY+77~, CLEANUP+1! |
| ERRORS | ENTRY+77~, ENTRY+81, ENTRY+82, ENTRY+85, ENTRY+86, ENTRY+87, ENTRY+88, ENTRY+94, CLINICLIST+1~, CLINICLIST+4 , CLINICLIST+5, CLINICLIST+12, CLINICLIST+13, VALIDATEHASHFLG~, VALIDATEHASHFLG+2, CLEANUP+1! |
| ERRORS("Clinic" | ENTRY+82*, ENTRY+86*, ENTRY+88*, CLINICLIST+5* |
| ERRORS("Error" | CLINICLIST+13 |
| FDA | UPDATECLINICHASH+1~, UPDATECLINICHASH+6! |
| FDA(44 | UPDATECLINICHASH+4*, UPDATECLINICHASH+5* |
| FDAERR | UPDATECLINICHASH+1~ |
| HASFIELDS | ENTRY+77~, ENTRY+78*, ENTRY+90*, ENTRY+91, ENTRY+95, CLINICLIST+18*, CLINICLIST+19, CLINICLIST+22, CLEANUP+1! |
| HASH | ADDHASH+1~, ADDHASH+2, ADDHASH+3*, ADDHASH+6, UPDATECLINICHASH~, UPDATECLINICHASH+2*, UPDATECLINICHASH+4, ADDHASH2CLIN+1~, ADDHASH2CLIN+4 |
| HASHDATE | ADDHASH+1~, ADDHASH+2, ADDHASH+4*, ADDHASH+5, UPDATECLINICHASH~, UPDATECLINICHASH+3*, UPDATECLINICHASH+5, ADDHASH2CLIN+1~, ADDHASH2CLIN+4 |
| HASHFLG | CLINICLIST+1~, CLINICLIST+3*, ADDHASH~, ADDHASH+2, VALIDATEHASHFLG~, VALIDATEHASHFLG+1*, VALIDATEHASHFLG+2 |
| IEN | CLINICLIST+1~, CLINICLIST+2*, CLINICLIST+10*, CLINICLIST+14, CLINICLIST+15, CLINICLIST+26, ADDHASH2CLIN~, ADDHASH2CLIN+2, ADDHASH2CLIN+4 |
| NODE | CLINICLIST+1~, CLINICLIST+2*, CLINICLIST+8*, CLINICLIST+9*, CLINICLIST+10, CLINICLIST+18, CLINICLIST+23 |
| RESIEN | BLDCLNREC+2~, BLDCLNREC+120*, BLDCLNREC+121*, BLDCLNREC+122, BLDCLNREC+123, BLDCLNREC+124* |
| RETSDCLNJSON | ENTRY+94*, CLINICLIST+1~ |
| RETURN | ENTRY+77~, ENTRY+78*, ENTRY+91*, ENTRY+93, ENTRY+97!, ENTRY+98*, ENTRY+99, CLEANUP+1! |
| RETURNDATA | CLINICLIST+1~, CLINICLIST+2*, CLINICLIST+17!, CLINICLIST+19*, CLINICLIST+21, CLINICLIST+24!, CLINICLIST+25* |
| RETURNDATA("Clinic" | CLINICLIST+27 |
| RETURNDATA("Error" | CLINICLIST+26, CLINICLIST+27 |
| SDC | BLDCLNREC+2~, BLDCLNREC+90*, BLDCLNREC+95*, BLDCLNREC+96, BLDCLNREC+97, BLDCLNREC+98, BLDCLNREC+99, BLDCLNREC+102*, BLDCLNREC+107*, BLDCLNREC+108 , BLDCLNREC+109 |
| SDCLIN | ADDHASH~, ADDHASH+2, ADDHASH+3, ADDHASH+4 |
| SDCLNIEN | BLDCLNREC~, BLDCLNREC+5, BLDCLNREC+7, BLDCLNREC+8, BLDCLNREC+9, BLDCLNREC+10, BLDCLNREC+11, BLDCLNREC+12, BLDCLNREC+13, BLDCLNREC+14 , BLDCLNREC+15, BLDCLNREC+16, BLDCLNREC+17, BLDCLNREC+18, BLDCLNREC+19, BLDCLNREC+21, BLDCLNREC+22, BLDCLNREC+23, BLDCLNREC+24, BLDCLNREC+25 , BLDCLNREC+26, BLDCLNREC+27, BLDCLNREC+28, BLDCLNREC+29, BLDCLNREC+30, BLDCLNREC+31, BLDCLNREC+32, BLDCLNREC+33, BLDCLNREC+34, BLDCLNREC+35 , BLDCLNREC+36, BLDCLNREC+37, BLDCLNREC+38, BLDCLNREC+39, BLDCLNREC+40, BLDCLNREC+41, BLDCLNREC+42, BLDCLNREC+43, BLDCLNREC+44, BLDCLNREC+45 , BLDCLNREC+46, BLDCLNREC+47, BLDCLNREC+48, BLDCLNREC+49, BLDCLNREC+50, BLDCLNREC+51, BLDCLNREC+52, BLDCLNREC+53, BLDCLNREC+54, BLDCLNREC+55 , BLDCLNREC+56, BLDCLNREC+57, BLDCLNREC+60, BLDCLNREC+61, BLDCLNREC+62, BLDCLNREC+63, BLDCLNREC+66, BLDCLNREC+70, BLDCLNREC+72, BLDCLNREC+81 , BLDCLNREC+93, BLDCLNREC+105, BLDCLNREC+113, BLDCLNREC+116, BLDCLNREC+121, BLDCLNREC+124 |
| SDCLNJSON | ENTRY+77~, ENTRY+93, ENTRY+94, ENTRY+96, CLINICLIST+1~, CLINICLIST+20!, CLINICLIST+21, CLINICLIST+23, ADDHASH~, ADDHASH+2 , UPDATECLINICHASH~, ADDHASH2CLIN+1~, ADDHASH2CLIN+3, ADDHASH2CLIN+4 |
| SDCLNJSON(1 | UPDATECLINICHASH+2 |
| SDCLNSREC | ADDHASH2CLIN+1~, ADDHASH2CLIN+2, ADDHASH2CLIN+3, BLDCLNREC~ |
| SDCLNSREC("Clinic" | BLDCLNREC+7*, BLDCLNREC+8*, BLDCLNREC+9*, BLDCLNREC+10*, BLDCLNREC+11*, BLDCLNREC+12*, BLDCLNREC+13*, BLDCLNREC+14*, BLDCLNREC+15*, BLDCLNREC+16* , BLDCLNREC+17*, BLDCLNREC+18*, BLDCLNREC+20*, BLDCLNREC+21*, BLDCLNREC+22*, BLDCLNREC+23*, BLDCLNREC+24*, BLDCLNREC+25*, BLDCLNREC+26*, BLDCLNREC+27* , BLDCLNREC+28*, BLDCLNREC+29*, BLDCLNREC+30*, BLDCLNREC+31*, BLDCLNREC+32*, BLDCLNREC+33*, BLDCLNREC+34*, BLDCLNREC+35*, BLDCLNREC+36*, BLDCLNREC+37* , BLDCLNREC+38*, BLDCLNREC+39*, BLDCLNREC+40*, BLDCLNREC+41*, BLDCLNREC+42*, BLDCLNREC+43*, BLDCLNREC+44*, BLDCLNREC+45*, BLDCLNREC+46*, BLDCLNREC+47* , BLDCLNREC+48*, BLDCLNREC+49*, BLDCLNREC+50*, BLDCLNREC+51*, BLDCLNREC+52*, BLDCLNREC+53*, BLDCLNREC+54*, BLDCLNREC+55*, BLDCLNREC+56*, BLDCLNREC+58* , BLDCLNREC+59*, BLDCLNREC+60*, BLDCLNREC+61*, BLDCLNREC+62*, BLDCLNREC+63*, BLDCLNREC+67*, BLDCLNREC+72*, BLDCLNREC+73*, BLDCLNREC+74*, BLDCLNREC+83* , BLDCLNREC+84*, BLDCLNREC+85*, BLDCLNREC+86*, BLDCLNREC+87*, BLDCLNREC+96*, BLDCLNREC+97*, BLDCLNREC+98*, BLDCLNREC+99*, BLDCLNREC+100*, BLDCLNREC+108* , BLDCLNREC+109*, BLDCLNREC+110*, BLDCLNREC+115*, BLDCLNREC+116*, BLDCLNREC+117*, BLDCLNREC+121, BLDCLNREC+123*, BLDCLNREC+126, BLDCLNREC+127* |
| SDCONTEXT | ENTRY~, ENTRY+81, CLINICLIST~, CLINICLIST+4 |
| SDCONTEXT("US | ER DUZ" , ENTRY+83, CLINICLIST+6 |
| SDDATA | BLDCLNREC+2~, BLDCLNREC+92!, BLDCLNREC+104! |
| SDDATA( | BLDCLNREC+94, BLDCLNREC+96, BLDCLNREC+97, BLDCLNREC+98, BLDCLNREC+99, BLDCLNREC+106, BLDCLNREC+108, BLDCLNREC+109 |
| SDDATA(44 | BLDCLNREC+8, BLDCLNREC+9, BLDCLNREC+10, BLDCLNREC+12, BLDCLNREC+13, BLDCLNREC+14, BLDCLNREC+15, BLDCLNREC+16, BLDCLNREC+17, BLDCLNREC+18 , BLDCLNREC+21, BLDCLNREC+22, BLDCLNREC+23, BLDCLNREC+24, BLDCLNREC+25, BLDCLNREC+26, BLDCLNREC+27, BLDCLNREC+28, BLDCLNREC+29, BLDCLNREC+30 , BLDCLNREC+31, BLDCLNREC+32, BLDCLNREC+33, BLDCLNREC+34, BLDCLNREC+35, BLDCLNREC+36, BLDCLNREC+37, BLDCLNREC+38, BLDCLNREC+39, BLDCLNREC+40 , BLDCLNREC+41, BLDCLNREC+42, BLDCLNREC+43, BLDCLNREC+44, BLDCLNREC+45, BLDCLNREC+46, BLDCLNREC+47, BLDCLNREC+48, BLDCLNREC+49, BLDCLNREC+50 , BLDCLNREC+51, BLDCLNREC+52, BLDCLNREC+53, BLDCLNREC+54, BLDCLNREC+55, BLDCLNREC+56, BLDCLNREC+60, BLDCLNREC+61, BLDCLNREC+62, BLDCLNREC+66 |
| SDEAS | CLINICLIST+1~, CLINICLIST+2* |
| SDECI | ENTRY+77~, BLDCLNREC+3*, BLDCLNREC+6*, CLEANUP+1! |
| SDFIELDS | BLDCLNREC+2~, BLDCLNREC+4*, BLDCLNREC+5, BLDCLNREC+91*, BLDCLNREC+93, BLDCLNREC+103*, BLDCLNREC+105 |
| SDMSG | BLDCLNREC+2~, BLDCLNREC+92!, BLDCLNREC+104! |
| SDPARAM | ENTRY~, CLINICLIST~ |
| SDPARAM("CLINICIEN" | ENTRY+85, ENTRY+90, ENTRY+96, CLINICLIST+9, CLINICLIST+10, CLINICLIST+18, CLINICLIST+23 |
| SDPARAM("HASHFLAG" | ENTRY+87, ENTRY+96, CLINICLIST+23 |
| SDRETURN | ENTRY~, ENTRY+82, ENTRY+86, ENTRY+88, ENTRY+99, CLINICLIST~, CLINICLIST+5, CLINICLIST+29 |
| SDSTATUS | BLDCLNREC+2~, BLDCLNREC+19*, BLDCLNREC+20 |
| SDX | BLDCLNREC+2~, BLDCLNREC+90*, BLDCLNREC+94*, BLDCLNREC+96, BLDCLNREC+97, BLDCLNREC+98, BLDCLNREC+99, BLDCLNREC+102*, BLDCLNREC+106*, BLDCLNREC+108 , BLDCLNREC+109 |
| SEQUENCE | CLINICLIST+1~, CLINICLIST+3*, CLINICLIST+11*, CLINICLIST+12, CLINICLIST+27 |
| SSFN | BLDCLNREC+77~, BLDCLNREC+79*, BLDCLNREC+81 |
| STATUS | BLDCLNREC+2~, BLDCLNREC+19* |
| SUBSPECIEN | BLDCLNREC+77~, BLDCLNREC+80*, BLDCLNREC+81*, BLDCLNREC+83, BLDCLNREC+84, BLDCLNREC+85, BLDCLNREC+86 |
| TIMEZONE | BLDCLNREC+2~, BLDCLNREC+57*, BLDCLNREC+58 |
| TIMEZONEEXC | BLDCLNREC+2~, BLDCLNREC+57*, BLDCLNREC+59 |
| U | BLDCLNREC+57 |
| USRCNT | BLDCLNREC+2~, BLDCLNREC+112*, BLDCLNREC+114*, BLDCLNREC+115, BLDCLNREC+116 |
| USRIEN | BLDCLNREC+2~, BLDCLNREC+112*, BLDCLNREC+113*, BLDCLNREC+115, BLDCLNREC+116 |