SDES2CLINUT ;ALB/BWF - SDES2 Clinic Save utilities ;JAN 5, 2023
Source file <SDES2CLINUT.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 3 | $$FMTISO^SDAMUTDT (BUILDJSON,ERRLOG)^SDES2JSON ($$CHAR4,$$INACTIVE,$$STATIONNUMBER,$$TIMEZONEDATA)^SDESUTIL |
Kernel | 2 | $$NOW^XLFDT $$SHAN^XLFSHAN |
VA FileMan | 2 | (FILE,UPDATE)^DIE ($$GET1,GETS)^DIQ |
DRG Grouper | 1 | $$CODEN^ICDEX |
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 | SDES2CREATECLIN SDES2EDITCLIN |
Name | Comments | DBIA/ICR reference |
---|---|---|
SAVEPROVIDERS(ERRORS,SDCLINIC,SDIEN) | ;
|
|
SAVEDIAG(ERRORS,SDCLINIC,SDIEN) | ;
|
|
SAVEINSTRUCT(ERRORS,CLINDATA,SDIEN) | ;
|
|
SAVEPRIVUSERS(ERRORS,CLINDATA,SDIEN) | ||
ADDHASH2CLIN(SDCLINICIEN) | ; add HASH to clinic after creation of clinic
|
|
BLDCLNREC(SDCLNSREC,SDCLNIEN) | ;Get Clinic data
|
|
UPDATECLINICHASH(SDCLIN,SDHASH,SDHASHDATE,SDCLNJSON) | ;update clinic with new hash
|
|
ADDRESOURCE(SDCLINICIEN) | ; NEED IEN TO FILE RESOURCE ?
|
|
DEFPROV(CLINIEN) | ;
|
|
DEFDIAG(CLINIEN) | ;
|
Name | Field # of Occurrence |
---|---|
FILE^DIE | SAVEPROVIDERS+8, SAVEPROVIDERS+15, SAVEPROVIDERS+19, SAVEPROVIDERS+28, SAVEDIAG+11, SAVEDIAG+17, SAVEDIAG+21, SAVEDIAG+30, SAVEINSTRUCT+9, SAVEINSTRUCT+12 , SAVEPRIVUSERS+4, UPDATECLINICHASH+6 |
UPDATE^DIE | SAVEPROVIDERS+24, SAVEPROVIDERS+31, SAVEDIAG+26, SAVEDIAG+33, SAVEINSTRUCT+11, SAVEINSTRUCT+13, SAVEPRIVUSERS+7, ADDRESOURCE+17 |
$$GET1^DIQ | BLDCLNREC+24, BLDCLNREC+44, BLDCLNREC+95, DEFPROV+3, DEFDIAG+3 |
GETS^DIQ | BLDCLNREC+5, BLDCLNREC+68, BLDCLNREC+76, BLDCLNREC+85, ADDRESOURCE+9 |
$$CODEN^ICDEX | SAVEDIAG+4 |
$$FMTISO^SDAMUTDT | BLDCLNREC+58, BLDCLNREC+59 |
BUILDJSON^SDES2JSON | ADDHASH2CLIN+3 |
ERRLOG^SDES2JSON | SAVEDIAG+5 |
$$CHAR4^SDESUTIL | BLDCLNREC+62 |
$$INACTIVE^SDESUTIL | BLDCLNREC+20 |
$$STATIONNUMBER^SDESUTIL | BLDCLNREC+11 |
$$TIMEZONEDATA^SDESUTIL | BLDCLNREC+55 |
$$NOW^XLFDT | UPDATECLINICHASH+3, ADDRESOURCE+15 |
$$SHAN^XLFSHAN | UPDATECLINICHASH+2 |
FileNo | Call Tags |
---|---|
^DIC(40.7 - [#40.7] | GET1^DIQ |
^SC - [#44] | GETS^DIQ |
44.04 | GET1^DIQ |
44.1 | GET1^DIQ |
44.11 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | SAVEPROVIDERS+6, SAVEPROVIDERS+7, SAVEPROVIDERS+14, SAVEPROVIDERS+17, SAVEPROVIDERS+18, SAVEPROVIDERS+21, SAVEPROVIDERS+26, SAVEPROVIDERS+27, SAVEPROVIDERS+30, SAVEDIAG+9 , SAVEDIAG+10, SAVEDIAG+16, SAVEDIAG+19, SAVEDIAG+20, SAVEDIAG+23, SAVEDIAG+28, SAVEDIAG+29, SAVEDIAG+32, SAVEINSTRUCT+8, SAVEINSTRUCT+11 , BLDCLNREC+92 |
^SC("ADDX" | DEFDIAG+2 |
^SC("ADPR" | DEFPROV+2 |
^SDEC(409.831 - [#409.831] | ADDRESOURCE+3, ADDRESOURCE+4 |
Name | Line Occurrences |
---|---|
$$DEFDIAG | SAVEDIAG+2 |
$$DEFPROV | SAVEPROVIDERS+11 |
BLDCLNREC | ADDHASH2CLIN+2 |
UPDATECLINICHASH | ADDHASH2CLIN+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTION | SAVEPROVIDERS+1~, SAVEPROVIDERS+3*, SAVEPROVIDERS+5, SAVEDIAG+1~, SAVEDIAG+6*, SAVEDIAG+8 |
CHAR4 | BLDCLNREC+61~, BLDCLNREC+62*, BLDCLNREC+63 |
CLINDATA | SAVEINSTRUCT~, SAVEPRIVUSERS~ |
CLINDATA("PRI | VILEGED USER" , SAVEPRIVUSERS+2, SAVEPRIVUSERS+3 |
CLINDATA("SPE | CIAL INSTRUCTIONS" , SAVEINSTRUCT+2, SAVEINSTRUCT+3 |
CLINIEN | DEFPROV~, DEFPROV+2, DEFPROV+3, DEFDIAG~, DEFDIAG+2, DEFDIAG+3 |
CURDEFDIAG | SAVEDIAG+1~, SAVEDIAG+2*, SAVEDIAG+15, SAVEDIAG+16 |
CURDEFPROV | SAVEPROVIDERS+1~, SAVEPROVIDERS+11*, SAVEPROVIDERS+13, SAVEPROVIDERS+14 |
DDIAG | DEFDIAG+1~, DEFDIAG+2*, DEFDIAG+3 |
DEFDIAGIEN | SAVEDIAG+1~, SAVEDIAG+16*, SAVEDIAG+17 |
DEFPROVIEN | SAVEPROVIDERS+1~, SAVEPROVIDERS+14*, SAVEPROVIDERS+15 |
DELIEN | SAVEPROVIDERS+1~, SAVEPROVIDERS+7*, SAVEPROVIDERS+8 |
DIAGCODE | SAVEDIAG+1~, SAVEDIAG+3*, SAVEDIAG+4, SAVEDIAG+5, SAVEDIAG+6, SAVEDIAG+13, SAVEDIAG+28 |
DIAGIEN | SAVEDIAG+1~, SAVEDIAG+4*, SAVEDIAG+5, SAVEDIAG+9, SAVEDIAG+10, SAVEDIAG+19, SAVEDIAG+20, SAVEDIAG+23, SAVEDIAG+24, SAVEDIAG+28 , SAVEDIAG+29, SAVEDIAG+32, SAVEDIAG+33 |
DIAGSFIEN | SAVEDIAG+1~, SAVEDIAG+20*, SAVEDIAG+21 |
DPROV | DEFPROV+1~, DEFPROV+2*, DEFPROV+3 |
DT | BLDCLNREC+20 |
DUZ | ADDRESOURCE+16 |
ERRORS | SAVEPROVIDERS~, SAVEDIAG~, SAVEDIAG+5, SAVEINSTRUCT~, SAVEPRIVUSERS~ |
FDA | SAVEPROVIDERS+1~, SAVEPROVIDERS+8!, SAVEPROVIDERS+15!, SAVEPROVIDERS+19!, SAVEPROVIDERS+24!, SAVEPROVIDERS+31!, SAVEDIAG+1~, SAVEDIAG+11!, SAVEDIAG+17!, SAVEDIAG+21! , SAVEDIAG+26!, SAVEDIAG+30!, SAVEDIAG+33!, SAVEINSTRUCT+1~, SAVEINSTRUCT+9!, SAVEINSTRUCT+11!, SAVEINSTRUCT+12!, SAVEINSTRUCT+13!, SAVEPRIVUSERS+4!, SAVEPRIVUSERS+7! , UPDATECLINICHASH+6! |
FDA( | SAVEPROVIDERS+8*, SAVEPROVIDERS+15*, SAVEPROVIDERS+19*, SAVEPROVIDERS+22*, SAVEPROVIDERS+23*, SAVEPROVIDERS+28*, SAVEPROVIDERS+31*, SAVEDIAG+11*, SAVEDIAG+17*, SAVEDIAG+21* , SAVEDIAG+24*, SAVEDIAG+25*, SAVEDIAG+30*, SAVEDIAG+33*, SAVEINSTRUCT+9*, SAVEINSTRUCT+11*, SAVEINSTRUCT+12*, SAVEINSTRUCT+13*, SAVEPRIVUSERS+4*, SAVEPRIVUSERS+5* |
FILERR | SAVEINSTRUCT+1~ |
INSLOOP | SAVEINSTRUCT+1~ |
INSTDATA | SAVEINSTRUCT+1~, SAVEINSTRUCT+3*, SAVEINSTRUCT+4, SAVEINSTRUCT+5 |
INSTIEN | SAVEINSTRUCT+1~, SAVEINSTRUCT+4*, SAVEINSTRUCT+8, SAVEINSTRUCT+9, SAVEINSTRUCT+10, SAVEINSTRUCT+11, SAVEINSTRUCT+12, SAVEINSTRUCT+13 |
INSTRUCT | SAVEINSTRUCT+1~, SAVEINSTRUCT+2*, SAVEINSTRUCT+3 |
INSTTEXT | SAVEINSTRUCT+1~, SAVEINSTRUCT+5*, SAVEINSTRUCT+6, SAVEINSTRUCT+10, SAVEINSTRUCT+11, SAVEINSTRUCT+12, SAVEINSTRUCT+13 |
NEWDEFIEN | SAVEPROVIDERS+1~, SAVEPROVIDERS+18*, SAVEPROVIDERS+19 |
NEWIEN | SAVEPRIVUSERS+1~ |
NEWIEN(1 | SAVEPRIVUSERS+6* |
PROVIEN | SAVEPROVIDERS+1~, SAVEPROVIDERS+2*, SAVEPROVIDERS+3, SAVEPROVIDERS+6, SAVEPROVIDERS+7, SAVEPROVIDERS+10, SAVEPROVIDERS+17, SAVEPROVIDERS+18, SAVEPROVIDERS+21, SAVEPROVIDERS+22 , SAVEPROVIDERS+26, SAVEPROVIDERS+27, SAVEPROVIDERS+30, SAVEPROVIDERS+31 |
PUSER | SAVEPRIVUSERS+1~, SAVEPRIVUSERS+2*, SAVEPRIVUSERS+3, SAVEPRIVUSERS+4, SAVEPRIVUSERS+5, SAVEPRIVUSERS+6 |
REMDIAGIEN | SAVEDIAG+1~, SAVEDIAG+10*, SAVEDIAG+11 |
SDABBR | ADDRESOURCE+1~, ADDRESOURCE+12* |
SDC | BLDCLNREC+2~, BLDCLNREC+65*, BLDCLNREC+70*, BLDCLNREC+71, BLDCLNREC+73*, BLDCLNREC+78*, BLDCLNREC+79, BLDCLNREC+80, BLDCLNREC+82*, BLDCLNREC+87* , BLDCLNREC+88, BLDCLNREC+89 |
SDCLIN | UPDATECLINICHASH~, UPDATECLINICHASH+4, UPDATECLINICHASH+5 |
SDCLINIC | SAVEPROVIDERS~, SAVEDIAG~ |
SDCLINIC("DIAGNOSIS" | SAVEDIAG+3, SAVEDIAG+6, SAVEDIAG+13, SAVEDIAG+28 |
SDCLINIC("PROVIDER" | SAVEPROVIDERS+2, SAVEPROVIDERS+3, SAVEPROVIDERS+10, SAVEPROVIDERS+26 |
SDCLINICIEN | ADDHASH2CLIN~, ADDHASH2CLIN+2, ADDHASH2CLIN+4, ADDRESOURCE~, ADDRESOURCE+3, ADDRESOURCE+6, ADDRESOURCE+9, ADDRESOURCE+10, ADDRESOURCE+11, ADDRESOURCE+12 , ADDRESOURCE+13, ADDRESOURCE+14 |
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+20, 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+58, BLDCLNREC+59, BLDCLNREC+62, BLDCLNREC+68, BLDCLNREC+76, BLDCLNREC+85, BLDCLNREC+92, BLDCLNREC+95 |
SDCLNJSON | ADDHASH2CLIN+1~, ADDHASH2CLIN+3, ADDHASH2CLIN+4, UPDATECLINICHASH~ |
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+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+56*, BLDCLNREC+57*, BLDCLNREC+58* , BLDCLNREC+59*, BLDCLNREC+63*, BLDCLNREC+71*, BLDCLNREC+79*, BLDCLNREC+80*, BLDCLNREC+88*, BLDCLNREC+89*, BLDCLNREC+94*, BLDCLNREC+95*, BLDCLNREC+98 , BLDCLNREC+99* |
SDDATA | BLDCLNREC+2~, BLDCLNREC+67!, BLDCLNREC+75!, BLDCLNREC+84!, ADDRESOURCE+1~ |
SDDATA( | BLDCLNREC+69, BLDCLNREC+71, BLDCLNREC+77, BLDCLNREC+79, BLDCLNREC+80, BLDCLNREC+86, BLDCLNREC+88, BLDCLNREC+89 |
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+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+58, BLDCLNREC+59, BLDCLNREC+62, ADDRESOURCE+10, ADDRESOURCE+11, ADDRESOURCE+12 |
SDDI | ADDRESOURCE+1~, ADDRESOURCE+11* |
SDECI | BLDCLNREC+2~, BLDCLNREC+3*, BLDCLNREC+6* |
SDFDA | UPDATECLINICHASH+1~, ADDRESOURCE+1~ |
SDFDA( | ADDRESOURCE+10*, ADDRESOURCE+11*, ADDRESOURCE+12*, ADDRESOURCE+13*, ADDRESOURCE+14*, ADDRESOURCE+15*, ADDRESOURCE+16* |
SDFDA(44 | UPDATECLINICHASH+4*, UPDATECLINICHASH+5* |
SDFDAERR | UPDATECLINICHASH+1~ |
SDFIELDS | BLDCLNREC+2~, BLDCLNREC+4*, BLDCLNREC+5, BLDCLNREC+66*, BLDCLNREC+68, BLDCLNREC+74*, BLDCLNREC+76, BLDCLNREC+83*, BLDCLNREC+85, ADDRESOURCE+1~ , ADDRESOURCE+8*, ADDRESOURCE+9 |
SDFOUND | ADDRESOURCE+1~, ADDRESOURCE+2*, ADDRESOURCE+3, ADDRESOURCE+6*, ADDRESOURCE+7 |
SDHASH | ADDHASH2CLIN+1~, ADDHASH2CLIN+4, UPDATECLINICHASH~, UPDATECLINICHASH+2*, UPDATECLINICHASH+4 |
SDHASHDATE | ADDHASH2CLIN+1~, ADDHASH2CLIN+4, UPDATECLINICHASH~, UPDATECLINICHASH+3*, UPDATECLINICHASH+5 |
SDI | ADDRESOURCE+1~, ADDRESOURCE+3*, ADDRESOURCE+4, ADDRESOURCE+7*, ADDRESOURCE+10, ADDRESOURCE+11, ADDRESOURCE+12, ADDRESOURCE+13, ADDRESOURCE+14, ADDRESOURCE+15 , ADDRESOURCE+16 |
SDIEN | SAVEPROVIDERS~, SAVEPROVIDERS+6, SAVEPROVIDERS+7, SAVEPROVIDERS+8, SAVEPROVIDERS+11, SAVEPROVIDERS+14, SAVEPROVIDERS+15, SAVEPROVIDERS+17, SAVEPROVIDERS+18, SAVEPROVIDERS+19 , SAVEPROVIDERS+21, SAVEPROVIDERS+22, SAVEPROVIDERS+23, SAVEPROVIDERS+26, SAVEPROVIDERS+27, SAVEPROVIDERS+28, SAVEPROVIDERS+30, SAVEPROVIDERS+31, SAVEDIAG~, SAVEDIAG+2 , SAVEDIAG+9, SAVEDIAG+10, SAVEDIAG+11, SAVEDIAG+16, SAVEDIAG+17, SAVEDIAG+19, SAVEDIAG+20, SAVEDIAG+21, SAVEDIAG+23, SAVEDIAG+24 , SAVEDIAG+25, SAVEDIAG+28, SAVEDIAG+29, SAVEDIAG+30, SAVEDIAG+32, SAVEDIAG+33, SAVEINSTRUCT~, SAVEINSTRUCT+8, SAVEINSTRUCT+9, SAVEINSTRUCT+11 , SAVEINSTRUCT+12, SAVEINSTRUCT+13, SAVEPRIVUSERS~, SAVEPRIVUSERS+4, SAVEPRIVUSERS+5 |
SDMSG | BLDCLNREC+2~, BLDCLNREC+67!, BLDCLNREC+75!, BLDCLNREC+84! |
SDNOD | ADDRESOURCE+1~, ADDRESOURCE+4*, ADDRESOURCE+5 |
SDRT | ADDRESOURCE+1~, ADDRESOURCE+5*, ADDRESOURCE+6 |
SDSTATUS | BLDCLNREC+2~, BLDCLNREC+20*, BLDCLNREC+21 |
SDSTATUSINACTIVE | BLDCLNREC+2~ |
SDTIMEZONE | BLDCLNREC+2~, BLDCLNREC+55*, BLDCLNREC+56 |
SDTIMEZONEEXC | BLDCLNREC+2~, BLDCLNREC+55*, BLDCLNREC+57 |
SDUSRCNT | BLDCLNREC+2~, BLDCLNREC+91*, BLDCLNREC+93*, BLDCLNREC+94, BLDCLNREC+95 |
SDUSRIEN | BLDCLNREC+2~, BLDCLNREC+91*, BLDCLNREC+92*, BLDCLNREC+94, BLDCLNREC+95 |
SDX | BLDCLNREC+2~, BLDCLNREC+65*, BLDCLNREC+69*, BLDCLNREC+71, BLDCLNREC+73*, BLDCLNREC+77*, BLDCLNREC+79, BLDCLNREC+80, BLDCLNREC+82*, BLDCLNREC+86* , BLDCLNREC+88, BLDCLNREC+89 |
SFIEN | SAVEPROVIDERS+1~, SAVEPROVIDERS+27*, SAVEPROVIDERS+28, SAVEDIAG+1~, SAVEDIAG+29*, SAVEDIAG+30 |
U | SAVEDIAG+4, BLDCLNREC+55, ADDRESOURCE+5 |
USERACT | SAVEPRIVUSERS+1~, SAVEPRIVUSERS+3*, SAVEPRIVUSERS+4 |