SDESCLINICSET2 ;ALB/TAW/MGD/RRM/MGD - CLINIC CREATE AND UPDATE ;July 10, 2023
Source file <SDESCLINICSET2.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 4 | ERRLOG^SDESCLINICSET ($$GETDIAGSTAT,DELDIAGNOSIS)^SDESINPUTVALUTL UPDPRIV^SDESLOC ADDHASH2CLIN^SDESRTVCLN2 |
VA FileMan | 2 | UPDATE^DIE ($$GET1,GETS)^DIQ |
DRG Grouper | 1 | $$CODEN^ICDEX |
Kernel | 1 | $$NOW^XLFDT |
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 | 1 | SDESCLINICSET |
Name | Comments | DBIA/ICR reference |
---|---|---|
GETDEFAULT(INDEX,SDIEN) | ;Get the IEN of the disposition or provider flagged as default
|
|
CHECKYN(VAR) | ;
|
|
LETTERIEN(LETTER,NAME) | ;Look up the letter IEN
|
|
SAVE(POP,SDIEN,FDA,SDCLINIC,PROVIDER,DIAGNOSIS,SPECIALINSTRUCT,PRIVLIAGEDUSER) | ;
|
|
PROVIDER | ;Upodate the Provider multiple in field 44.1
|
|
DIAGNOSIS | ;Diagnosis multiple in field 44.11
|
|
INSTRUCTION | ||
PRIVUSERS(SDIEN,PRIVLIAGEDUSER) | ;Privileged user multiple 44.04
|
|
VALIDATEPROV(SDPROVIDER,PROVIDER,IEN) | ;
|
|
SETPROV | ;
|
|
VALIDATEDIAG(SDDIAG,DIAGNOSIS,IEN) | ;
|
|
SETDIAG | ;
|
|
VALIDATEPPRIVUSR(SDNOACCESS,PRIVLIAGEDUSER) | ;
|
|
VALIDATESI(SDSPECINSTRU,SPECIALINSTRUCT) | ;
|
|
YNTOBOOL(VAR) | ;convert a Y/N input param to 1 or 0
|
|
SDRES(SDCL) | ;add clinic resource
|
Name | Field # of Occurrence |
---|---|
UPDATE^DIE | SAVE+3, PROVIDER+14, DIAGNOSIS+17, INSTRUCTION+12, SDRES+17 |
$$GET1^DIQ | GETDEFAULT+7, GETDEFAULT+10, LETTERIEN+4, VALIDATEDIAG+15 |
GETS^DIQ | SDRES+9 |
$$CODEN^ICDEX | VALIDATEDIAG+19 |
ERRLOG^SDESCLINICSET | LETTERIEN+6, SAVE+2, SAVE+5, VALIDATEPROV+8, VALIDATEPROV+16, VALIDATEPROV+19, VALIDATEPROV+20, VALIDATEPROV+24, VALIDATEDIAG+8, VALIDATEDIAG+16 , VALIDATEDIAG+20, VALIDATEDIAG+21, VALIDATEDIAG+24, VALIDATEDIAG+25, VALIDATEDIAG+29, VALIDATEPPRIVUSR+15, VALIDATESI+7, VALIDATESI+9 |
$$GETDIAGSTAT^SDESINPUTVALUTL | VALIDATEDIAG+16, VALIDATEDIAG+21 |
DELDIAGNOSIS^SDESINPUTVALUTL | DIAGNOSIS+4 |
UPDPRIV^SDESLOC | PRIVUSERS+7 |
ADDHASH2CLIN^SDESRTVCLN2 | SAVE+9 |
$$NOW^XLFDT | SDRES+15 |
FileNo | Call Tags |
---|---|
^VA(407.5 - [#407.5] | GET1^DIQ |
^SC - [#44] | GETS^DIQ |
44.1 | GET1^DIQ |
44.11 | GET1^DIQ |
^ICD9 - [#80] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | GETDEFAULT+4, PROVIDER+8, DIAGNOSIS+11, INSTRUCTION+8 |
^SDEC(409.831 - [#409.831] | SDRES+3, SDRES+4 |
^VA(200 - [#200] | VALIDATEPROV+14, VALIDATEPROV+15, VALIDATEPPRIVUSR+13, VALIDATEPPRIVUSR+14 |
^VA(407.5 - [#407.5] | LETTERIEN+5 |
Name | Line Occurrences |
---|---|
$$GETDEFAULT | VALIDATEPROV+3, VALIDATEDIAG+3 |
DIAGNOSIS | SAVE+14 |
INSTRUCTION | SAVE+15 |
PRIVUSERS | SAVE+16 |
PROVIDER | SAVE+13 |
SDRES | SAVE+11 |
SETDIAG | VALIDATEDIAG+17, VALIDATEDIAG+22 |
SETPROV | VALIDATEPROV+14, VALIDATEPROV+17 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABBR | SDRES+1~, SDRES+12* |
ACTION | PROVIDER+1~, PROVIDER+6*, PROVIDER+10, PROVIDER+11, PROVIDER+13, DIAGNOSIS+1~, DIAGNOSIS+9*, DIAGNOSIS+13, DIAGNOSIS+14, DIAGNOSIS+16 , INSTRUCTION+6*, INSTRUCTION+10, INSTRUCTION+11, VALIDATEPROV+1~, VALIDATEPROV+7*, VALIDATEPROV+8, VALIDATEPROV+12, VALIDATEPROV+13, SETPROV+1, SETPROV+2 , SETPROV+3, VALIDATEDIAG+1~, VALIDATEDIAG+7*, VALIDATEDIAG+8, VALIDATEDIAG+12, VALIDATEDIAG+13, SETDIAG+1, SETDIAG+2, SETDIAG+3, VALIDATEPPRIVUSR+1~ , VALIDATEPPRIVUSR+7*, VALIDATEPPRIVUSR+10*, VALIDATEPPRIVUSR+12, VALIDATEPPRIVUSR+13, VALIDATEPPRIVUSR+16, VALIDATESI+1~, VALIDATESI+6*, VALIDATESI+7, VALIDATESI+11, VALIDATESI+12 |
ADDFLAG | PRIVUSERS+1~, PRIVUSERS+6*, PRIVUSERS+7 |
CLINMSG | SAVE+1~, SAVE+4 |
CLINMSG("DIERR" | SAVE+5 |
CLINRET | SAVE+1~ |
CLINRET(1 | SAVE+7, SAVE+18 |
DATA | INSTRUCTION+1~ |
DEFAULT | VALIDATEPROV+1~, VALIDATEPROV+3*, VALIDATEPROV+22, VALIDATEPROV+24, VALIDATEDIAG+1~, VALIDATEDIAG+3*, VALIDATEDIAG+27, VALIDATEDIAG+29 |
DEFAULTCNT | VALIDATEPROV+1~, VALIDATEPROV+2*, VALIDATEPROV+19, SETPROV+2*, VALIDATEDIAG+1~, VALIDATEDIAG+2*, VALIDATEDIAG+24, SETDIAG+2* |
DEFAULTCNT2 | VALIDATEPROV+1~, VALIDATEPROV+2*, VALIDATEPROV+20, SETPROV+3*, VALIDATEDIAG+1~, VALIDATEDIAG+2*, VALIDATEDIAG+25, SETDIAG+3* |
DEFAULTNEW | VALIDATEPROV+1~, VALIDATEPROV+2*, VALIDATEPROV+22, SETPROV+2*, VALIDATEDIAG+1~, VALIDATEDIAG+2*, VALIDATEDIAG+27, SETDIAG+2* |
DEFAULTREMOVE | VALIDATEPROV+1~, VALIDATEPROV+2*, VALIDATEPROV+24, SETPROV+3*, VALIDATEDIAG+1~, VALIDATEDIAG+2*, VALIDATEDIAG+29, SETDIAG+3* |
DIAG | VALIDATEDIAG+1~, VALIDATEDIAG+9*, VALIDATEDIAG+15, VALIDATEDIAG+16, VALIDATEDIAG+19*, VALIDATEDIAG+20, VALIDATEDIAG+21, SETDIAG+1, SETDIAG+2, SETDIAG+3 |
DIAG44IEN | DIAGNOSIS+1~, DIAGNOSIS+11*, DIAGNOSIS+12*, DIAGNOSIS+13, DIAGNOSIS+14, DIAGNOSIS+15, DIAGNOSIS+16 |
DIAGDATA | VALIDATEDIAG+1~, VALIDATEDIAG+5*, VALIDATEDIAG+6, VALIDATEDIAG+7, VALIDATEDIAG+9 |
DIAGIEN | DIAGNOSIS+1~, DIAGNOSIS+7*, DIAGNOSIS+8*, DIAGNOSIS+9, DIAGNOSIS+11, DIAGNOSIS+15 |
DIAGNOSIS | SAVE~, SAVE+14, VALIDATEDIAG~ |
DIAGNOSIS( | DIAGNOSIS+6, DIAGNOSIS+8, DIAGNOSIS+9, SETDIAG+1* |
DUZ | SDRES+16 |
ELGRETURN | PRIVUSERS+1~, PRIVUSERS+2*, PRIVUSERS+7 |
FDA | SAVE~ |
FDA(44 | SAVE+2 |
I | VALIDATEPROV+1~, VALIDATEPROV+4*, VALIDATEPROV+5, VALIDATEDIAG+1~, VALIDATEDIAG+4*, VALIDATEDIAG+5, VALIDATEPPRIVUSR+1~, VALIDATEPPRIVUSR+5*, VALIDATEPPRIVUSR+6, VALIDATESI+1~ , VALIDATESI+3*, VALIDATESI+4 |
IEN | SAVE+1~, SAVE+7*, SAVE+9, SAVE+11, SAVE+16, SAVE+18, SAVE+19, PROVIDER+8, PROVIDER+11, PROVIDER+12 , PROVIDER+13, DIAGNOSIS+11, DIAGNOSIS+14, DIAGNOSIS+15, DIAGNOSIS+16, INSTRUCTION+8, INSTRUCTION+11, VALIDATEPROV~, VALIDATEPROV+3, VALIDATEDIAG~ , VALIDATEDIAG+3 |
INDEX | GETDEFAULT~, GETDEFAULT+4, GETDEFAULT+5, GETDEFAULT+8 |
INSTRUCTION | INSTRUCTION+4*, INSTRUCTION+5*, INSTRUCTION+6, INSTRUCTION+7, INSTRUCTION+8, INSTRUCTION+11, VALIDATESI+1~, VALIDATESI+4*, VALIDATESI+5, VALIDATESI+6 , VALIDATESI+8*, VALIDATESI+9, VALIDATESI+12 |
KEY | GETDEFAULT+1~, GETDEFAULT+4*, GETDEFAULT+5, GETDEFAULT+6, GETDEFAULT+8, GETDEFAULT+9, PROVIDER+1~, PROVIDER+2*, PROVIDER+3*, PROVIDER+5 , PROVIDER+6, DIAGNOSIS+1~, DIAGNOSIS+5*, DIAGNOSIS+6*, DIAGNOSIS+8, DIAGNOSIS+9, INSTRUCTION+1~, INSTRUCTION+2*, INSTRUCTION+3*, INSTRUCTION+5 , INSTRUCTION+6, PRIVUSERS+1~, PRIVUSERS+2*, PRIVUSERS+3*, PRIVUSERS+5, PRIVUSERS+6, VALIDATEPROV+1~, VALIDATEPROV+11*, VALIDATEPROV+12*, VALIDATEPROV+13* , SETPROV+1, VALIDATEDIAG+1~, VALIDATEDIAG+11*, VALIDATEDIAG+12*, VALIDATEDIAG+13*, SETDIAG+1, VALIDATEPPRIVUSR+1~, VALIDATEPPRIVUSR+11*, VALIDATEPPRIVUSR+12*, VALIDATEPPRIVUSR+13 , VALIDATEPPRIVUSR+16, VALIDATESI+1~, VALIDATESI+10*, VALIDATESI+11*, VALIDATESI+12 |
LETTER | LETTERIEN~, LETTERIEN+2, LETTERIEN+4, LETTERIEN+5*, LETTERIEN+6, LETTERIEN+7 |
MAXCHAR | VALIDATESI+1~, VALIDATESI+2*, VALIDATESI+9 |
MI | SAVE+1~, SAVE+5* |
NAME | LETTERIEN~, LETTERIEN+6 |
POP | SAVE~ |
PRIVLIAGEDUSER | SAVE~, SAVE+16, PRIVUSERS~, VALIDATEPPRIVUSR~ |
PRIVLIAGEDUSER( | PRIVUSERS+3, PRIVUSERS+5, VALIDATEPPRIVUSR+13*, VALIDATEPPRIVUSR+16* |
PRIVUSER | PRIVUSERS+1~, PRIVUSERS+4*, PRIVUSERS+5*, PRIVUSERS+7, VALIDATEPPRIVUSR+1~, VALIDATEPPRIVUSR+6*, VALIDATEPPRIVUSR+7, VALIDATEPPRIVUSR+8*, VALIDATEPPRIVUSR+9, VALIDATEPPRIVUSR+13 , VALIDATEPPRIVUSR+14*, VALIDATEPPRIVUSR+15, VALIDATEPPRIVUSR+16 |
PROV | VALIDATEPROV+1~, VALIDATEPROV+9*, VALIDATEPROV+14, VALIDATEPROV+15*, VALIDATEPROV+16, SETPROV+1, SETPROV+2, SETPROV+3 |
PROV44IEN | PROVIDER+1~, PROVIDER+8*, PROVIDER+9*, PROVIDER+10, PROVIDER+11, PROVIDER+12, PROVIDER+13 |
PROVDATA | VALIDATEPROV+1~, VALIDATEPROV+5*, VALIDATEPROV+6, VALIDATEPROV+7, VALIDATEPROV+9 |
PROVIDER | SAVE~, SAVE+13, VALIDATEPROV~ |
PROVIDER( | PROVIDER+3, PROVIDER+5, PROVIDER+6, SETPROV+1* |
PROVIEN | PROVIDER+1~, PROVIDER+4*, PROVIDER+5*, PROVIDER+6, PROVIDER+8, PROVIDER+12 |
RETURN | GETDEFAULT+1~, GETDEFAULT+2*, GETDEFAULT+7*, GETDEFAULT+10*, GETDEFAULT+11, LETTERIEN+1~ |
SDCL | SDRES~, SDRES+3, SDRES+6, SDRES+9, SDRES+10, SDRES+11, SDRES+12, SDRES+13, SDRES+14 |
SDCLINIC | SAVE~ |
SDCLINIC("ClinicCreate" | SAVE+18* |
SDCLINIC("ClinicUpdate" | SAVE+19* |
SDDATA | SDRES+1~ |
SDDATA(44 | SDRES+10, SDRES+11, SDRES+12 |
SDDI | SDRES+1~, SDRES+11* |
SDDIAG | VALIDATEDIAG~, VALIDATEDIAG+4, VALIDATEDIAG+5 |
SDFDA | PROVIDER+1~, PROVIDER+14!, DIAGNOSIS+1~, DIAGNOSIS+17!, INSTRUCTION+1~, INSTRUCTION+12!, SDRES+1~ |
SDFDA( | PROVIDER+11*, PROVIDER+12*, PROVIDER+13*, DIAGNOSIS+14*, DIAGNOSIS+15*, DIAGNOSIS+16*, INSTRUCTION+11*, SDRES+10*, SDRES+11*, SDRES+12* , SDRES+13*, SDRES+14*, SDRES+15*, SDRES+16* |
SDFIELDS | SDRES+1~, SDRES+8*, SDRES+9 |
SDFOUND | SDRES+1~, SDRES+2*, SDRES+3, SDRES+6*, SDRES+7 |
SDI | SDRES+1~, SDRES+3*, SDRES+4, SDRES+7*, SDRES+10, SDRES+11, SDRES+12, SDRES+13, SDRES+14, SDRES+15 , SDRES+16 |
SDIEN | GETDEFAULT~, GETDEFAULT+3, GETDEFAULT+4, GETDEFAULT+6, GETDEFAULT+9, SAVE~, SAVE+7, DIAGNOSIS+4, PRIVUSERS~, PRIVUSERS+7 |
SDIENS | GETDEFAULT+1~, GETDEFAULT+6*, GETDEFAULT+7, GETDEFAULT+9*, GETDEFAULT+10 |
SDNOACCESS | VALIDATEPPRIVUSR~, VALIDATEPPRIVUSR+2*, VALIDATEPPRIVUSR+3*, VALIDATEPPRIVUSR+4, VALIDATEPPRIVUSR+5, VALIDATEPPRIVUSR+6, VALIDATEPPRIVUSR+17* |
SDNOD | SDRES+1~, SDRES+4*, SDRES+5 |
SDPROVIDER | VALIDATEPROV~, VALIDATEPROV+4, VALIDATEPROV+5 |
SDRT | SDRES+1~, SDRES+5*, SDRES+6 |
SDSPECINSTRU | VALIDATESI~, VALIDATESI+3, VALIDATESI+4, VALIDATESI+13* |
SIIEN | INSTRUCTION+1~, INSTRUCTION+6*, INSTRUCTION+7*, INSTRUCTION+8*, INSTRUCTION+9*, INSTRUCTION+10, INSTRUCTION+11 |
SPECIALINSTRUCT | SAVE~, SAVE+15, VALIDATESI~ |
SPECIALINSTRUCT( | INSTRUCTION+3, INSTRUCTION+5, INSTRUCTION+6, VALIDATESI+12* |
U | SDRES+5 |
VAR | CHECKYN~, CHECKYN+1, YNTOBOOL~, YNTOBOOL+1 |