SDESRTVCLN2 ;ALB/MGD,ANU,LAB,MGD,ANU,JAS,LAB - Get Clinic Info based on Clinic IEN ;FEB 13,2023
Source file <SDESRTVCLN2.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 4 | $$FMTISO^SDAMUTDT BUILDJSON^SDESBUILDJSON ERRLOG^SDESJSON ($$CHAR4,$$EASVALIDATE,$$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 |
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+21, BLDCLNREC+41, BLDCLNREC+92 |
GETS^DIQ | BLDCLNREC+5, BLDCLNREC+65, BLDCLNREC+73, BLDCLNREC+82 |
$$FMTISO^SDAMUTDT | ADDHASH+4, BLDCLNREC+55, BLDCLNREC+56 |
BUILDJSON^SDESBUILDJSON | JSONCLNINFO+71, JSONCLNINFO+77, ADDHASH2CLIN+3 |
ERRLOG^SDESJSON | VALIDATECLINIC+1, VALIDATECLINIC+2, VALIDATEEAS+2, VALIDATEHASHFLG+2 |
$$CHAR4^SDESUTIL | BLDCLNREC+59 |
$$EASVALIDATE^SDESUTIL | VALIDATEEAS+1 |
$$STATIONNUMBER^SDESUTIL | BLDCLNREC+11 |
$$TIMEZONEDATA^SDESUTIL | BLDCLNREC+52 |
$$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 |
^SC - [#44] | GET1^DIQ, GETS^DIQ |
44.04 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | VALIDATECLINIC+2, BLDCLNREC+89 |
Name | Line Occurrences |
---|---|
$$BLDCLNREC | JSONCLNINFO+68 |
ADDHASH | JSONCLNINFO+74 |
BLDCLNREC | ADDHASH2CLIN+2 |
CLEANUP | JSONCLNINFO+78 |
UPDATECLINICHASH | ADDHASH+2, ADDHASH2CLIN+4 |
VALIDATECLINIC | JSONCLNINFO+63 |
VALIDATEEAS | JSONCLNINFO+64 |
VALIDATEHASHFLG | JSONCLNINFO+65 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CHAR4 | BLDCLNREC+58~, BLDCLNREC+59*, BLDCLNREC+60 |
CLIN | ADDHASH~, ADDHASH+2, ADDHASH+4, UPDATECLINICHASH~, UPDATECLINICHASH+4, UPDATECLINICHASH+5 |
CLINIC | VALIDATECLINIC~, VALIDATECLINIC+1, VALIDATECLINIC+2 |
EAS | VALIDATEEAS~, VALIDATEEAS+1*, VALIDATEEAS+2 |
ELGFIELDSARRAY | JSONCLNINFO+60~, JSONCLNINFO+61*, JSONCLNINFO+68, JSONCLNINFO+69, JSONCLNINFO+74, JSONCLNINFO+76, ADDHASH~, CLEANUP+1! |
ELGFIELDSARRAY("Clinic" | ADDHASH+5*, ADDHASH+6* |
ELGRETURN | JSONCLNINFO+60~, CLEANUP+1! |
ERRORS | JSONCLNINFO+60~, JSONCLNINFO+63, JSONCLNINFO+64, JSONCLNINFO+65, JSONCLNINFO+67, JSONCLNINFO+68, JSONCLNINFO+72, 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+60~, JSONCLNINFO+61*, JSONCLNINFO+68*, JSONCLNINFO+69, JSONCLNINFO+73, 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+65, JSONCLNINFO+74, ADDHASH~, ADDHASH+2, VALIDATEHASHFLG~, VALIDATEHASHFLG+1*, VALIDATEHASHFLG+2 |
IEN | ADDHASH2CLIN~, ADDHASH2CLIN+2, ADDHASH2CLIN+4 |
RETSDCLNJSON | JSONCLNINFO~, JSONCLNINFO+72*, JSONCLNINFO+77 |
RETURN | JSONCLNINFO+60~, JSONCLNINFO+61*, JSONCLNINFO+67*, JSONCLNINFO+69*, JSONCLNINFO+71, JSONCLNINFO+75!, JSONCLNINFO+76*, JSONCLNINFO+77, CLEANUP+1! |
SDC | BLDCLNREC+2~, BLDCLNREC+62*, BLDCLNREC+67*, BLDCLNREC+68, BLDCLNREC+70*, BLDCLNREC+75*, BLDCLNREC+76, BLDCLNREC+77, BLDCLNREC+79*, BLDCLNREC+84* , BLDCLNREC+85, BLDCLNREC+86 |
SDCLNIEN | JSONCLNINFO~, JSONCLNINFO+63, JSONCLNINFO+68, JSONCLNINFO+74, 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+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+55, BLDCLNREC+56, BLDCLNREC+59, BLDCLNREC+65, BLDCLNREC+73, BLDCLNREC+82, BLDCLNREC+89 , BLDCLNREC+92 |
SDCLNJSON | JSONCLNINFO+60~, JSONCLNINFO+71, JSONCLNINFO+72, JSONCLNINFO+74, 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+19*, 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+53*, BLDCLNREC+54*, BLDCLNREC+55*, BLDCLNREC+56*, BLDCLNREC+60* , BLDCLNREC+68*, BLDCLNREC+76*, BLDCLNREC+77*, BLDCLNREC+85*, BLDCLNREC+86*, BLDCLNREC+91*, BLDCLNREC+92*, BLDCLNREC+95, BLDCLNREC+96* |
SDDATA | BLDCLNREC+2~, BLDCLNREC+64!, BLDCLNREC+72!, BLDCLNREC+81! |
SDDATA( | BLDCLNREC+66, BLDCLNREC+68, BLDCLNREC+74, BLDCLNREC+76, BLDCLNREC+77, BLDCLNREC+83, BLDCLNREC+85, BLDCLNREC+86 |
SDDATA(44 | BLDCLNREC+8, BLDCLNREC+9, BLDCLNREC+10, BLDCLNREC+12, BLDCLNREC+13, BLDCLNREC+14, BLDCLNREC+15, BLDCLNREC+16, BLDCLNREC+17, BLDCLNREC+18 , BLDCLNREC+19, 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+55, BLDCLNREC+56, BLDCLNREC+59 |
SDEAS | JSONCLNINFO~, JSONCLNINFO+64 |
SDECI | JSONCLNINFO+60~, BLDCLNREC+3*, BLDCLNREC+6*, CLEANUP+1! |
SDFIELDS | BLDCLNREC+2~, BLDCLNREC+4*, BLDCLNREC+5, BLDCLNREC+63*, BLDCLNREC+65, BLDCLNREC+71*, BLDCLNREC+73, BLDCLNREC+80*, BLDCLNREC+82 |
SDMSG | BLDCLNREC+2~, BLDCLNREC+64!, BLDCLNREC+72!, BLDCLNREC+81! |
SDX | BLDCLNREC+2~, BLDCLNREC+62*, BLDCLNREC+66*, BLDCLNREC+68, BLDCLNREC+70*, BLDCLNREC+74*, BLDCLNREC+76, BLDCLNREC+77, BLDCLNREC+79*, BLDCLNREC+83* , BLDCLNREC+85, BLDCLNREC+86 |
TIMEZONE | BLDCLNREC+2~, BLDCLNREC+52*, BLDCLNREC+53 |
TIMEZONEEXC | BLDCLNREC+2~, BLDCLNREC+52*, BLDCLNREC+54 |
U | VALIDATEEAS+2, BLDCLNREC+52 |
USRCNT | BLDCLNREC+2~, BLDCLNREC+88*, BLDCLNREC+90*, BLDCLNREC+91, BLDCLNREC+92 |
USRIEN | BLDCLNREC+2~, BLDCLNREC+88*, BLDCLNREC+89*, BLDCLNREC+91, BLDCLNREC+92 |