DGJSUM ;ALB/MAF - Interface routine with Discharge Summary Package - Jan 26 1993
Source file <DGJSUM.m>
| 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 |
|---|---|---|
| CHECK(DFN,DGJTDT,DGJPARM,DGJIRTDA,DGJT,DGJFLG,DGJTYP) | ;Check to see if there is an IRT entry for a deficiency type.
|
|
| ADD | ;Create an IRT entry
|
|
| EDIT(DGJIRTDA,DGJVDD,DGJVDB,DGJVDT,DGJVTB,DGJPARM) | ;Edit an IRT file entry.
|
|
| DCSDEL(DGJIRTDA,DGJPARM) | ;If DCS is Deleted, IRT Rec should just contain a stub
|
|
| SIGUP(DGJIRTDA,DGJDS,DGJSB,DGJDR,DGJRB,DGJPARM) | ;Update Signed and Reviewed fields.
|
|
| STAT1 | ;check on the status of the report after a change has been made.
|
|
| STAT | ||
| DOC | ;provider resp.
|
| FileNo | Call Tags |
|---|---|
| ^VAS(393 - [#393] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(393.1 - [#393.1] | ADD+3 |
| ^DG(393.2 - [#393.2] | STAT |
| ^DG(40.8 - [#40.8] | CHECK+14 |
| ^DGPM - [#405] | ADD+4 |
| ^DGPM("ATS" | ADD+4 |
| ^DIC(42 - [#42] | ADD+2, ADD+7 |
| ^VAS(393 - [#393] | CHECK+17, CHECK+18, CHECK+19, CHECK+20, ADD+10, ADD+13, EDIT+1, EDIT+4, DCSDEL+1, DCSDEL+4 , SIGUP+1, SIGUP+4, STAT1+2 |
| ^VAS(393.3 - [#393.3] | CHECK+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | ADD+12*, EDIT+3*, DCSDEL+3*, SIGUP+3*, STAT* |
| DFN | CHECK~, CHECK+19, ADD+4, ADD+8 |
| DGJDR | SIGUP~, SIGUP+2 |
| DGJDS | SIGUP~, SIGUP+2 |
| DGJFLG | CHECK~, CHECK+17*, ADD+14* |
| DGJIRTDA | CHECK~, CHECK+17, CHECK+18, CHECK+19*, CHECK+20, CHECK+21, ADD+9*, ADD+10, ADD+12, ADD+13 , EDIT~, EDIT+1, EDIT+3, EDIT+4, DCSDEL~, DCSDEL+1, DCSDEL+3, DCSDEL+4, SIGUP~, SIGUP+1 , SIGUP+3, SIGUP+4, STAT1+2, STAT |
| DGJNODE | STAT1+1~, STAT1+2*, STAT1+3, STAT1+4, STAT1+5, STAT1+7 |
| DGJOUT | CHECK+13~, CHECK+19, CHECK+20* |
| DGJPARM | CHECK~, CHECK+14*, CHECK+15, ADD+6, EDIT~, DCSDEL~, SIGUP~, STAT1+6, STAT1+8, DOC+1 |
| DGJRB | SIGUP~, SIGUP+2 |
| DGJSB | SIGUP~, SIGUP+2 |
| DGJSTAT | STAT1+1~, STAT1+3*, STAT1+4*, STAT1+5*, STAT1+6*, STAT1+7*, STAT1+8*, STAT |
| DGJSTAT1 | STAT1+1~, STAT*! |
| DGJT | CHECK~ |
| DGJT("AD#" | CHECK+20, ADD+4, ADD+11 |
| DGJT("ADDT" | ADD+7 |
| DGJT("DIV" | CHECK+14, ADD+11 |
| DGJT("TS" | ADD+11 |
| DGJT("WARD" | ADD+2, ADD+7 |
| DGJT10 | ADD+1~, ADD+6*, ADD+11 |
| DGJT9 | ADD+1~, ADD+5*, ADD+11 |
| DGJTDT | CHECK~, ADD+7 |
| DGJTEV | ADD+1~, ADD+7*, ADD+11 |
| DGJTSP | ADD+1~, ADD+4*, DOC+2 |
| DGJTSV | ADD+1~, ADD+2*, ADD+3*, ADD+11 |
| DGJTWARD | ADD+1~, ADD+7*, ADD+11 |
| DGJTYP | CHECK~, CHECK+16*, CHECK+20, ADD+11 |
| DGJVDB | EDIT~, EDIT+2 |
| DGJVDD | EDIT~, EDIT+2 |
| DGJVDT | EDIT~, EDIT+2 |
| DGJVTB | EDIT~, EDIT+2 |
| DGJX | ADD+1~, ADD+5*, ADD+6* |
| DGJY | ADD+1~, ADD+5*, ADD+6*, DOC+1 |
| DIC | ADD+1~, ADD+8* |
| DIC(0 | ADD+8* |
| DIE | ADD+1~, ADD+12*, EDIT+3*, DCSDEL+3*, SIGUP+3*, STAT*! |
| DLAYGO | ADD+1~, ADD+8* |
| DR | ADD+1~, ADD+11*, EDIT+2*, DCSDEL+2*, SIGUP+2*, STAT*! |
| >> X | ADD+5*, ADD+6, ADD+8*, DOC+1*, DOC+2* |
| >> Y | ADD+9 |
