SDESRTVCLN3 ;ALB/BLB,BWF,JAS,TJB - Get Clinic Info based on Clinic IEN ;AUG 26, 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 |
GETS^DIQ | BLDCLNREC+5, BLDCLNREC+77, BLDCLNREC+87 |
$$FMTISO^SDAMUTDT | ADDHASH+4, BLDCLNREC+57, BLDCLNREC+58 |
$$INACTIVE^SDES2UTIL | BLDCLNREC+19 |
BUILDJSON^SDESBUILDJSON | JSONCLNINFO+77, JSONCLNINFO+83, 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 |
^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 |
^SDEC(409.831 - [#409.831] | BLDCLNREC+102, BLDCLNREC+105 |
Name | Line Occurrences |
---|---|
$$BLDCLNREC | JSONCLNINFO+74 |
ADDHASH | JSONCLNINFO+80 |
BLDCLNREC | ADDHASH2CLIN+2 |
CLEANUP | JSONCLNINFO+84 |
UPDATECLINICHASH | ADDHASH+2, ADDHASH2CLIN+4 |
VALIDATECLINIC | JSONCLNINFO+69 |
VALIDATEEAS | JSONCLNINFO+70 |
VALIDATEHASHFLG | JSONCLNINFO+71 |
>> | 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 |
DT | BLDCLNREC+19 |
EAS | VALIDATEEAS~, VALIDATEEAS+1*, VALIDATEEAS+2 |
ELGFIELDSARRAY | JSONCLNINFO+66~, JSONCLNINFO+67*, JSONCLNINFO+74, JSONCLNINFO+75, JSONCLNINFO+80, JSONCLNINFO+82, ADDHASH~, CLEANUP+1! |
ELGFIELDSARRAY("Clinic" | ADDHASH+5*, ADDHASH+6* |
ELGRETURN | JSONCLNINFO+66~, CLEANUP+1! |
ERRORS | JSONCLNINFO+66~, JSONCLNINFO+69, JSONCLNINFO+70, JSONCLNINFO+71, JSONCLNINFO+73, JSONCLNINFO+74, JSONCLNINFO+78, 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+66~, JSONCLNINFO+67*, JSONCLNINFO+74*, JSONCLNINFO+75, JSONCLNINFO+79, 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+71, JSONCLNINFO+80, 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+78*, JSONCLNINFO+83 |
RETURN | JSONCLNINFO+66~, JSONCLNINFO+67*, JSONCLNINFO+73*, JSONCLNINFO+75*, JSONCLNINFO+77, JSONCLNINFO+81!, JSONCLNINFO+82*, JSONCLNINFO+83, 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+69, JSONCLNINFO+74, JSONCLNINFO+80, 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 |
SDCLNJSON | JSONCLNINFO+66~, JSONCLNINFO+77, JSONCLNINFO+78, JSONCLNINFO+80, 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+107, BLDCLNREC+108* |
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+70 |
SDECI | JSONCLNINFO+66~, 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 |
STATUS | BLDCLNREC+2~, BLDCLNREC+19* |
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 |