SDESRTVCLN3 ;ALB/BLB,BWF,JAS,TJB,JAS - Get Clinic Info based on Clinic IEN ;NOV 06, 2024
Source file <SDESRTVCLN3.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 5 | $$FMTISO^SDAMUTDT $$INACTIVE^SDES2UTIL BUILDJSON^SDESBUILDJSON ERRLOG^SDESJSON ($$CHAR4,$$EASVALIDATE,$$STATIONNUMBER,$$TIMEZONEDATA)^SDESUTIL |
| Kernel | 2 | $$NOW^XLFDT $$SHAN^XLFSHAN |
| VA FileMan | 2 | FILE^DIE ($$GET1,GETS)^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| JSONCLNINFO(RETSDCLNJSON,SDCLNIEN,SDEAS,HASHFLG) | ;Get Clinic info
|
|
| ADDHASH(CLIN,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
|
|
| VALIDATECLINIC(ERRORS,CLINIC) | ;
|
|
| VALIDATEEAS(ERRORS,EAS) | ;
|
|
| VALIDATEHASHFLG(ERRORS,HASHFLG) | ;
|
|
| BLDCLNREC(SDCLNSREC,SDCLNIEN) | ;Get Clinic data
|
|
| CLEANUP | ; kill vars
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | UPDATECLINICHASH+6 |
| $$GET1^DIQ | ADDHASH+3, ADDHASH+4, BLDCLNREC+23, BLDCLNREC+43, BLDCLNREC+60, BLDCLNREC+69, BLDCLNREC+97, BLDCLNREC+103, BLDCLNREC+114, BLDCLNREC+115 , BLDCLNREC+116, BLDCLNREC+117 |
| GETS^DIQ | BLDCLNREC+5, BLDCLNREC+77, BLDCLNREC+87 |
| $$FMTISO^SDAMUTDT | ADDHASH+4, BLDCLNREC+57, BLDCLNREC+58 |
| $$INACTIVE^SDES2UTIL | BLDCLNREC+19 |
| BUILDJSON^SDESBUILDJSON | JSONCLNINFO+82, JSONCLNINFO+88, ADDHASH2CLIN+3 |
| ERRLOG^SDESJSON | VALIDATECLINIC+1, VALIDATECLINIC+2, VALIDATEEAS+2, VALIDATEHASHFLG+2 |
| $$CHAR4^SDESUTIL | BLDCLNREC+63 |
| $$EASVALIDATE^SDESUTIL | VALIDATEEAS+1 |
| $$STATIONNUMBER^SDESUTIL | BLDCLNREC+11 |
| $$TIMEZONEDATA^SDESUTIL | BLDCLNREC+54 |
| $$NOW^XLFDT | UPDATECLINICHASH+3 |
| $$SHAN^XLFSHAN | UPDATECLINICHASH+2 |
| RPC Name | Call Tags |
|---|---|
| SDES GET CLINIC INFO3 | JSONCLNINFO |
| FileNo | Call Tags |
|---|---|
| ^DIC(40.7 - [#40.7] | GET1^DIQ |
| ^SDEC(409.831 - [#409.831] | 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] | VALIDATECLINIC+2, BLDCLNREC+67, BLDCLNREC+94, BLDCLNREC+112 |
| ^SDEC(409.831 - [#409.831] | BLDCLNREC+102, BLDCLNREC+105 |
| Name | Line Occurrences |
|---|---|
| $$BLDCLNREC | JSONCLNINFO+79 |
| ADDHASH | JSONCLNINFO+85 |
| BLDCLNREC | ADDHASH2CLIN+2 |
| CLEANUP | JSONCLNINFO+89 |
| UPDATECLINICHASH | ADDHASH+2, ADDHASH2CLIN+4 |
| VALIDATECLINIC | JSONCLNINFO+74 |
| VALIDATEEAS | JSONCLNINFO+75 |
| VALIDATEHASHFLG | JSONCLNINFO+76 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHAR4 | BLDCLNREC+62~, BLDCLNREC+63*, BLDCLNREC+64 |
| CLIN | ADDHASH~, ADDHASH+2, ADDHASH+4, UPDATECLINICHASH~, UPDATECLINICHASH+4, UPDATECLINICHASH+5 |
| CLINIC | VALIDATECLINIC~, VALIDATECLINIC+1, VALIDATECLINIC+2 |
| COMMENTSUBIEN | BLDCLNREC+2~, BLDCLNREC+66*, BLDCLNREC+67*, BLDCLNREC+69, BLDCLNREC+70 |
| COUNT | BLDCLNREC+2~, BLDCLNREC+66*, BLDCLNREC+68*, BLDCLNREC+69, BLDCLNREC+70, BLDCLNREC+109*, BLDCLNREC+113*, BLDCLNREC+114, BLDCLNREC+115, BLDCLNREC+116 , BLDCLNREC+117 |
| DT | BLDCLNREC+19 |
| EAS | VALIDATEEAS~, VALIDATEEAS+1*, VALIDATEEAS+2 |
| ELGFIELDSARRAY | JSONCLNINFO+71~, JSONCLNINFO+72*, JSONCLNINFO+79, JSONCLNINFO+80, JSONCLNINFO+85, JSONCLNINFO+87, ADDHASH~, CLEANUP+1! |
| ELGFIELDSARRAY("Clinic" | ADDHASH+5*, ADDHASH+6* |
| ELGRETURN | JSONCLNINFO+71~, CLEANUP+1! |
| ERRORS | JSONCLNINFO+71~, JSONCLNINFO+74, JSONCLNINFO+75, JSONCLNINFO+76, JSONCLNINFO+78, JSONCLNINFO+79, JSONCLNINFO+83, VALIDATECLINIC~, VALIDATECLINIC+1, VALIDATECLINIC+2 , VALIDATEEAS~, VALIDATEEAS+2, VALIDATEHASHFLG~, VALIDATEHASHFLG+2, CLEANUP+1! |
| FDA | UPDATECLINICHASH+1~, UPDATECLINICHASH+6! |
| FDA(44 | UPDATECLINICHASH+4*, UPDATECLINICHASH+5* |
| FDAERR | UPDATECLINICHASH+1~ |
| HASFIELDS | JSONCLNINFO+71~, JSONCLNINFO+72*, JSONCLNINFO+79*, JSONCLNINFO+80, JSONCLNINFO+84, 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 | JSONCLNINFO~, JSONCLNINFO+76, JSONCLNINFO+85, ADDHASH~, ADDHASH+2, VALIDATEHASHFLG~, VALIDATEHASHFLG+1*, VALIDATEHASHFLG+2 |
| IEN | ADDHASH2CLIN~, ADDHASH2CLIN+2, ADDHASH2CLIN+4 |
| RESIEN | BLDCLNREC+2~, BLDCLNREC+101*, BLDCLNREC+102*, BLDCLNREC+103, BLDCLNREC+104, BLDCLNREC+105* |
| RETSDCLNJSON | JSONCLNINFO~, JSONCLNINFO+83*, JSONCLNINFO+88 |
| RETURN | JSONCLNINFO+71~, JSONCLNINFO+72*, JSONCLNINFO+78*, JSONCLNINFO+80*, JSONCLNINFO+82, JSONCLNINFO+86!, JSONCLNINFO+87*, JSONCLNINFO+88, CLEANUP+1! |
| SDC | BLDCLNREC+2~, BLDCLNREC+74*, BLDCLNREC+79*, BLDCLNREC+80, BLDCLNREC+81, BLDCLNREC+82, BLDCLNREC+84*, BLDCLNREC+89*, BLDCLNREC+90, BLDCLNREC+91 |
| SDCLNIEN | JSONCLNINFO~, JSONCLNINFO+74, JSONCLNINFO+79, JSONCLNINFO+85, ADDHASH+3, 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+57, BLDCLNREC+58, BLDCLNREC+59, BLDCLNREC+60, BLDCLNREC+63, BLDCLNREC+67 , BLDCLNREC+69, BLDCLNREC+77, BLDCLNREC+87, BLDCLNREC+94, BLDCLNREC+97, BLDCLNREC+102, BLDCLNREC+105, BLDCLNREC+112 |
| SDCLNJSON | JSONCLNINFO+71~, JSONCLNINFO+82, JSONCLNINFO+83, JSONCLNINFO+85, 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+55*, BLDCLNREC+56*, BLDCLNREC+57*, BLDCLNREC+58* , BLDCLNREC+59*, BLDCLNREC+60*, BLDCLNREC+64*, BLDCLNREC+69*, BLDCLNREC+70*, BLDCLNREC+71*, BLDCLNREC+80*, BLDCLNREC+81*, BLDCLNREC+82*, BLDCLNREC+90* , BLDCLNREC+91*, BLDCLNREC+96*, BLDCLNREC+97*, BLDCLNREC+102, BLDCLNREC+104*, BLDCLNREC+114*, BLDCLNREC+115*, BLDCLNREC+116*, BLDCLNREC+117*, BLDCLNREC+118* , BLDCLNREC+120, BLDCLNREC+121* |
| SDDATA | BLDCLNREC+2~, BLDCLNREC+76!, BLDCLNREC+86! |
| SDDATA( | BLDCLNREC+78, BLDCLNREC+80, BLDCLNREC+81, BLDCLNREC+82, BLDCLNREC+88, BLDCLNREC+90, BLDCLNREC+91 |
| 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+57, BLDCLNREC+58, BLDCLNREC+59, BLDCLNREC+63 |
| SDEAS | JSONCLNINFO~, JSONCLNINFO+75 |
| SDECI | JSONCLNINFO+71~, BLDCLNREC+3*, BLDCLNREC+6*, CLEANUP+1! |
| SDFIELDS | BLDCLNREC+2~, BLDCLNREC+4*, BLDCLNREC+5, BLDCLNREC+75*, BLDCLNREC+77, BLDCLNREC+85*, BLDCLNREC+87 |
| SDMSG | BLDCLNREC+2~, BLDCLNREC+76!, BLDCLNREC+86! |
| SDSTATUS | BLDCLNREC+2~, BLDCLNREC+19*, BLDCLNREC+20 |
| SDX | BLDCLNREC+2~, BLDCLNREC+74*, BLDCLNREC+78*, BLDCLNREC+80, BLDCLNREC+81, BLDCLNREC+82, BLDCLNREC+84*, BLDCLNREC+88*, BLDCLNREC+90, BLDCLNREC+91 |
| SSFN | BLDCLNREC+108~, BLDCLNREC+110*, BLDCLNREC+112 |
| STATUS | BLDCLNREC+2~, BLDCLNREC+19* |
| SUBSPECIEN | BLDCLNREC+108~, BLDCLNREC+111*, BLDCLNREC+112*, BLDCLNREC+114, BLDCLNREC+115, BLDCLNREC+116, BLDCLNREC+117 |
| TIMEZONE | BLDCLNREC+2~, BLDCLNREC+54*, BLDCLNREC+55 |
| TIMEZONEEXC | BLDCLNREC+2~, BLDCLNREC+54*, BLDCLNREC+56 |
| U | VALIDATEEAS+2, BLDCLNREC+54 |
| USRCNT | BLDCLNREC+2~, BLDCLNREC+93*, BLDCLNREC+95*, BLDCLNREC+96, BLDCLNREC+97 |
| USRIEN | BLDCLNREC+2~, BLDCLNREC+93*, BLDCLNREC+94*, BLDCLNREC+96, BLDCLNREC+97 |