©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGRUASIH ; ALB/GRR - RAI/MDS ASIH BACKGROUND JOB ; 11-1-00
Source file <DGRUASIH.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 5 | (C,NOW)^%DTC ^DIC FILE^DICN ^DIE ^DIK |
| Health Level Seven | 2 | INIT^HLFNC2 GENERATE^HLMA |
| Registration | 2 | EN^DGRUGA03 IN5^VADPT |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 4 | DGRU ASIH BACKGROUND JOB DGRUADT DGRUADT0 DGRUADT2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;Main Entry Point
|
|
| SENDMSG(DGARRAY) | ;TRANSMIT HL7 MESSAGE
|
|
| CHANGDT(DFN,DGODT,DGNDT) | ;CHANGE TO ASIH DATE/TIME
|
|
| DELASIH(DFN,DGASIHDT) | ;DELETE ASIH EPISODE
|
|
| ADDRDT(DFN,DGASIHDT) | ;ADD RETURN DATE FROM ASIH
|
|
| MQUIT | ||
| BLDA03(DFN,DGEVDT,DGPMDT) | ;BUILD A03 DISCHARGE MESSAGE
|
|
| ADDASIH(DFN,DGASIHDT) | ;ADD AN ASIH FOR A PATIENT
|
|
| BLDQ | ||
| UPSTAT(DFN,DGIEN,DGSTAT) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGRU(46.14 | EN+2, EN+7, EN+8, EN+9, EN+10, ADDASIH+3, ADDRDT+3, DELASIH+3, CHANGDT+2 |
| Name | Line Occurrences |
|---|---|
| $$BLDA03 | EN+13 |
| $$SENDMSG | BLDA03+17 |
| BLDQ | BLDA03+4, BLDA03+9, BLDA03+13 |
| UPSTAT | EN+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN+5 |
| DA | UPSTAT+4*, ADDRDT+2~, ADDRDT+3*, DELASIH+2~, DELASIH+3*, CHANGDT+1~, CHANGDT+2* |
| DA(1 | UPSTAT+4*, ADDASIH+5*, ADDRDT+5*, DELASIH+3*, CHANGDT+2* |
| DFN | EN+4~, EN+8*, EN+9, EN+10, EN+13, EN+14, UPSTAT~, UPSTAT+4, BLDA03~, BLDA03+8 , ADDASIH~, ADDASIH+3, ADDASIH+4, ADDASIH+5, ADDRDT~, ADDRDT+3, ADDRDT+5, DELASIH~, DELASIH+3, DELASIH+4 , CHANGDT~, CHANGDT+2, CHANGDT+3 |
| DGARRAY | SENDMSG~, SENDMSG+2 |
| DGASIH | BLDA03+8~* |
| DGASIHDT | EN+4~, EN+10*, EN+11, EN+12, ADDASIH~, ADDASIH+5, ADDRDT~, DELASIH~, DELASIH+3 |
| DGCDT | EN+4~, EN+5*, EN+7 |
| DGDT | EN+4~, EN+6*, EN+7*, EN+8, EN+9 |
| DGEVDT | EN+11*, EN+13, BLDA03~ |
| DGIEN | EN+4~, EN+9*, EN+10, EN+14, UPSTAT~, UPSTAT+4 |
| >> DGMIEN | BLDA03+6*, BLDA03+8 |
| DGNDT | CHANGDT~ |
| DGODT | CHANGDT~, CHANGDT+2 |
| DGPMDT | EN+12*, EN+13, BLDA03~, BLDA03+6 |
| >> DGREF | BLDA03+1*, BLDA03+2, BLDA03+16, BLDA03+17 |
| >> DGRSLT | EN+13* |
| DGSTAT | UPSTAT~, ADDASIH+2~*, ADDRDT+2~* |
| >> DGTEMP | BLDA03+16 |
| >> DGTEMP( | BLDA03+13, BLDA03+14 |
| >> DGTEMP(0 | BLDA03+9 |
| DIC | UPSTAT+4*, ADDASIH+2~, ADDASIH+4*, ADDASIH+5*, ADDRDT+4~, ADDRDT+5*, DELASIH+2~ |
| DIC("DR" | ADDASIH+5* |
| DIC(0 | ADDASIH+4*, ADDASIH+5* |
| DIE | UPSTAT+4*, ADDRDT+4~, ADDRDT+5*, CHANGDT+1~, CHANGDT+3* |
| DIK | DELASIH+2~, DELASIH+4* |
| DINUM | ADDASIH+2~, ADDASIH+4* |
| DR | UPSTAT+4*, ADDASIH+2~, ADDRDT+4~, ADDRDT+5*, CHANGDT+1~, CHANGDT+3* |
| HERR | SENDMSG+5! |
| >> HL | BLDA03+3 |
| >> HL("" | BLDA03+4 |
| HLA | SENDMSG+1~, SENDMSG+5! |
| HLA("HLS" | SENDMSG+2*, SENDMSG+3 |
| HLRST | SENDMSG+1~, SENDMSG+4, SENDMSG+6 |
| I | BLDA03+12~*, BLDA03+13*, BLDA03+14 |
| >> RESULT | BLDA03+4*, BLDA03+9*, BLDA03+13, BLDA03+14*, BLDA03+17*, BLDA03+18*, BLDQ |
| >> VAIP("D" | BLDA03+6* |
| >> VAIP(1 | BLDA03+6 |
| X | EN+11, ADDASIH+2~, ADDASIH+4*, ADDASIH+5* |
| >> X1 | EN+11* |
| >> X2 | EN+11* |