SDESRTVCLN2 ;ALB/MGD,ANU,LAB,MGD,ANU,JAS,LAB,DJS,JAS,LAB,BWF - Get Clinic Info based on Clinic IEN ;DEC 5, 2023
Source file <SDESRTVCLN2.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 4 | $$FMTISO^SDAMUTDT BUILDJSON^SDESBUILDJSON ERRLOG^SDESJSON ($$CHAR4,$$EASVALIDATE,$$INACTIVE,$$STATIONNUMBER,$$TIMEZONEDATA)^SDESUTIL |
Kernel | 2 | $$NOW^XLFDT $$SHAN^XLFSHAN |
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 |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 2 | SDESCLINICSET2 SDESGETCLINSIEN |
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+96, BLDCLNREC+102 |
GETS^DIQ | BLDCLNREC+5, BLDCLNREC+68, BLDCLNREC+76, BLDCLNREC+86 |
$$FMTISO^SDAMUTDT | ADDHASH+4, BLDCLNREC+57, BLDCLNREC+58 |
BUILDJSON^SDESBUILDJSON | JSONCLNINFO+76, JSONCLNINFO+82, ADDHASH2CLIN+3 |
ERRLOG^SDESJSON | VALIDATECLINIC+1, VALIDATECLINIC+2, VALIDATEEAS+2, VALIDATEHASHFLG+2 |
$$CHAR4^SDESUTIL | BLDCLNREC+62 |
$$EASVALIDATE^SDESUTIL | VALIDATEEAS+1 |
$$INACTIVE^SDESUTIL | BLDCLNREC+19 |
$$STATIONNUMBER^SDESUTIL | BLDCLNREC+11 |
$$TIMEZONEDATA^SDESUTIL | BLDCLNREC+54 |
$$NOW^XLFDT | UPDATECLINICHASH+3 |
$$SHAN^XLFSHAN | UPDATECLINICHASH+2 |
RPC Name | Call Tags |
---|---|
SDES GET CLINIC INFO2 | 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.04 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | VALIDATECLINIC+2, BLDCLNREC+93 |
^SDEC(409.831 - [#409.831] | BLDCLNREC+101, BLDCLNREC+104 |
Name | Line Occurrences |
---|---|
$$BLDCLNREC | JSONCLNINFO+73 |
ADDHASH | JSONCLNINFO+79 |
BLDCLNREC | ADDHASH2CLIN+2 |
CLEANUP | JSONCLNINFO+83 |
UPDATECLINICHASH | ADDHASH+2, ADDHASH2CLIN+4 |
VALIDATECLINIC | JSONCLNINFO+68 |
VALIDATEEAS | JSONCLNINFO+69 |
VALIDATEHASHFLG | JSONCLNINFO+70 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CHAR4 | BLDCLNREC+61~, BLDCLNREC+62*, BLDCLNREC+63 |
CLIN | ADDHASH~, ADDHASH+2, ADDHASH+4, UPDATECLINICHASH~, UPDATECLINICHASH+4, UPDATECLINICHASH+5 |
CLINIC | VALIDATECLINIC~, VALIDATECLINIC+1, VALIDATECLINIC+2 |
DT | BLDCLNREC+19 |
EAS | VALIDATEEAS~, VALIDATEEAS+1*, VALIDATEEAS+2 |
ELGFIELDSARRAY | JSONCLNINFO+65~, JSONCLNINFO+66*, JSONCLNINFO+73, JSONCLNINFO+74, JSONCLNINFO+79, JSONCLNINFO+81, ADDHASH~, CLEANUP+1! |
ELGFIELDSARRAY("Clinic" | ADDHASH+5*, ADDHASH+6* |
ELGRETURN | JSONCLNINFO+65~, CLEANUP+1! |
ERRORS | JSONCLNINFO+65~, JSONCLNINFO+68, JSONCLNINFO+69, JSONCLNINFO+70, JSONCLNINFO+72, JSONCLNINFO+73, JSONCLNINFO+77, 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+65~, JSONCLNINFO+66*, JSONCLNINFO+73*, JSONCLNINFO+74, JSONCLNINFO+78, 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+70, JSONCLNINFO+79, ADDHASH~, ADDHASH+2, VALIDATEHASHFLG~, VALIDATEHASHFLG+1*, VALIDATEHASHFLG+2 |
IEN | ADDHASH2CLIN~, ADDHASH2CLIN+2, ADDHASH2CLIN+4 |
RESIEN | BLDCLNREC+2~, BLDCLNREC+100*, BLDCLNREC+101*, BLDCLNREC+102, BLDCLNREC+103, BLDCLNREC+104* |
RETSDCLNJSON | JSONCLNINFO~, JSONCLNINFO+77*, JSONCLNINFO+82 |
RETURN | JSONCLNINFO+65~, JSONCLNINFO+66*, JSONCLNINFO+72*, JSONCLNINFO+74*, JSONCLNINFO+76, JSONCLNINFO+80!, JSONCLNINFO+81*, JSONCLNINFO+82, CLEANUP+1! |
SDC | BLDCLNREC+2~, BLDCLNREC+65*, BLDCLNREC+70*, BLDCLNREC+71, BLDCLNREC+73*, BLDCLNREC+78*, BLDCLNREC+79, BLDCLNREC+80, BLDCLNREC+81, BLDCLNREC+83* , BLDCLNREC+88*, BLDCLNREC+89, BLDCLNREC+90 |
SDCLNIEN | JSONCLNINFO~, JSONCLNINFO+68, JSONCLNINFO+73, JSONCLNINFO+79, 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+62, BLDCLNREC+68, BLDCLNREC+76 , BLDCLNREC+86, BLDCLNREC+93, BLDCLNREC+96, BLDCLNREC+101, BLDCLNREC+104 |
SDCLNJSON | JSONCLNINFO+65~, JSONCLNINFO+76, JSONCLNINFO+77, JSONCLNINFO+79, 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+63*, BLDCLNREC+71*, BLDCLNREC+79*, BLDCLNREC+80*, BLDCLNREC+81*, BLDCLNREC+89*, BLDCLNREC+90*, BLDCLNREC+95*, BLDCLNREC+96* , BLDCLNREC+101, BLDCLNREC+103*, BLDCLNREC+106, BLDCLNREC+107* |
SDDATA | BLDCLNREC+2~, BLDCLNREC+67!, BLDCLNREC+75!, BLDCLNREC+85! |
SDDATA( | BLDCLNREC+69, BLDCLNREC+71, BLDCLNREC+77, BLDCLNREC+79, BLDCLNREC+80, BLDCLNREC+81, BLDCLNREC+87, BLDCLNREC+89, BLDCLNREC+90 |
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+62 |
SDEAS | JSONCLNINFO~, JSONCLNINFO+69 |
SDECI | JSONCLNINFO+65~, BLDCLNREC+3*, BLDCLNREC+6*, CLEANUP+1! |
SDFIELDS | BLDCLNREC+2~, BLDCLNREC+4*, BLDCLNREC+5, BLDCLNREC+66*, BLDCLNREC+68, BLDCLNREC+74*, BLDCLNREC+76, BLDCLNREC+84*, BLDCLNREC+86 |
SDMSG | BLDCLNREC+2~, BLDCLNREC+67!, BLDCLNREC+75!, BLDCLNREC+85! |
SDSTATUS | BLDCLNREC+2~, BLDCLNREC+19*, BLDCLNREC+20 |
SDX | BLDCLNREC+2~, BLDCLNREC+65*, BLDCLNREC+69*, BLDCLNREC+71, BLDCLNREC+73*, BLDCLNREC+77*, BLDCLNREC+79, BLDCLNREC+80, BLDCLNREC+81, BLDCLNREC+83* , BLDCLNREC+87*, BLDCLNREC+89, BLDCLNREC+90 |
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+92*, BLDCLNREC+94*, BLDCLNREC+95, BLDCLNREC+96 |
USRIEN | BLDCLNREC+2~, BLDCLNREC+92*, BLDCLNREC+93*, BLDCLNREC+95, BLDCLNREC+96 |