©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
ABSPOSD3 ; IHS/SD/RLT - DIAGNOSIS CODE ; [ 06/21/2007 11:10 AM ]
Source file <ABSPOSD3.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 4 | ZWRITE^ABSPOS LOG^ABSPOSL2 NEW1^ABSPOSO2 $$IMPOSS^ABSPOSUE |
| VA Fileman | 1 | (,FILE,UPDATE)^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERRHDR() | ||
| EDIT(DIAGIEN) | ;EP called from ABSPOSO1 (menu option)
|
|
| NEWSUB(DIAGIEN) | ;EP FROM ABSPOSII
; establish blank lines for new DIAG override entries ; on NEW POS claims (from page 20 on ABSP DATA INPUT) |
|
| FLOCK() | ||
| DELSUB(DLIEN,DLSUB) | ; delete subrecord - no valid information
|
|
| DE3 | ||
| FUNLOCK | ||
| DELREC(DLIEN) | ;delete record - no valid information
|
|
| DEL3 | ||
| CHKDIAG(DIAGIEN) | ;EP from ABSPOSII
|
|
| NEW() | ;EP - from ABSPOSII create new entry in 9002313.491
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSP(9002313.491 - [#9002313.491] | CHKDIAG+7, CHKDIAG+9, NEWSUB+8, NEWSUB+9, FLOCK, FUNLOCK |
| ^TMP("ABSP" | DE3+5!, DE3+6*, DEL3+5!, DEL3+6* |
| Name | Line Occurrences |
|---|---|
| $$ERRHDR | DE3+6, DEL3+6 |
| $$FLOCK | NEW+1 |
| DE3 | DE3+8 |
| DEL3 | DEL3+8 |
| DELREC | CHKDIAG+14 |
| DELSUB | CHKDIAG+11 |
| FUNLOCK | NEW+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHKR | CHKDIAG+3~, CHKDIAG+9*, CHKDIAG+10, CHKDIAG+11 |
| CNT | NEWSUB+5~, NEWSUB+6*, NEWSUB+11*, NEWSUB+14 |
| DA | EDIT+6~, EDIT+7* |
| DIAGIEN | EDIT~, EDIT+7, CHKDIAG~, CHKDIAG+7, CHKDIAG+9, CHKDIAG+11, CHKDIAG+14, CHKDIAG+15*, CHKDIAG+17, NEWSUB~ , NEWSUB+8, NEWSUB+9, NEWSUB+19 |
| DIDEL | EDIT+6~ |
| DIE | EDIT+6~, EDIT+8* |
| DLIEN | DELSUB~, DELSUB+4, DELREC~, DELREC+4 |
| DLSUB | DELSUB~, DELSUB+4 |
| DR | EDIT+6~, EDIT+9* |
| DTOUT | EDIT+6~ |
| >> ENDCNT | NEWSUB+14*, NEWSUB+16 |
| FDA | NEW+3~, DELSUB+2~, DELREC+2~, NEWSUB+5~, NEWSUB+18~ |
| FDA( | DELSUB+4*, DELREC+4*, NEWSUB+19* |
| FLAGS | NEW+3~ |
| FN | NEW+3~, NEW+4* |
| FNDREC | CHKDIAG+3~, CHKDIAG+6*, CHKDIAG+10*, CHKDIAG+13 |
| IEN | NEW+3~, NEWSUB+18~ |
| LASTREC | NEWSUB+5~, NEWSUB+6*, NEWSUB+10*, NEWSUB+13*, NEWSUB+17 |
| MSG | NEW+3~, DELSUB+2~, DE3+1, DE3+2, DELREC+2~, DEL3+1, DEL3+2 |
| NEWREC | NEW+3~, NEW+8 |
| REC | NEWSUB+5~, NEWSUB+6*, NEWSUB+8*, NEWSUB+9 |
| RECNUM | NEWSUB+5~, NEWSUB+17*, NEWSUB+19 |
| REP | NEWSUB+5~, NEWSUB+16*, NEWSUB+17 |
| SAVNUM | NEWSUB+5~, NEWSUB+6*, NEWSUB+9*, NEWSUB+10 |
| SUBR | CHKDIAG+3~, CHKDIAG+5*, CHKDIAG+7*, CHKDIAG+9, CHKDIAG+11 |
| U | CHKDIAG+9 |
| X | NEW+3~ |
| ZERR | NEWSUB+5~, NEWSUB+18~, NEWSUB+21 |
| Name | Field # of Occurrence |
|---|---|
| $T( | NEW+1, DE3+8, DEL3+8 |