©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
ABSPOSD2 ; IHS/FCS/DRS - NCPDP DUR overrides ; [ 09/03/2002 11:10 AM ]
Source file <ABSPOSD2.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 4 | ZWRITE^ABSPOS LOG^ABSPOSL2 NEW1^ABSPOSO2 $$IMPOSS^ABSPOSUE |
| VA Fileman | 1 | (,FILE,UPDATE)^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | ABSPOSIH ABSPOSO |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERRHDR() | ||
| FLOCK() | ||
| DELSUB(DLIEN,DLSUB) | ; delete subrecord - no valid information
|
|
| DE3 | ||
| EDIT(DURIEN) | ;EP called from ABSPOSO1 (menu option)
|
|
| FUNLOCK | ||
| DELREC(DLIEN) | ;delete record - no valid information
|
|
| DEL3 | ||
| NEWSUB(DURIEN) | ;EP FROM ABSPOSIH
; establish blank lines for new DUR override entries ; on NEW POS claims (from page 20 on ABSP DATA INPUT) |
|
| NEW() | ;EP - create new entry in 9002313.473
|
|
| CHKDUR(DURIEN) | ;EP this should be the last step - we
; need to check the DUR entry, if nothing was input ; let's get rid of it. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSP(9002313.473 - [#9002313.473] | CHKDUR+8, CHKDUR+11, 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 | CHKDUR+16 |
| DELSUB | CHKDUR+13 |
| FUNLOCK | NEW+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHKR | CHKDUR+9~, CHKDUR+10*, CHKDUR+11*, CHKDUR+12, CHKDUR+13 |
| CNT | NEWSUB+5~, NEWSUB+6*, NEWSUB+11*, NEWSUB+14 |
| DA | EDIT+5~, EDIT+6* |
| DIDEL | EDIT+5~ |
| DIE | EDIT+5~, EDIT+7* |
| DLIEN | DELSUB~, DELSUB+4, DELREC~, DELREC+4 |
| DLSUB | DELSUB~, DELSUB+4 |
| DR | EDIT+5~, EDIT+8* |
| DTOUT | EDIT+5~ |
| DURIEN | EDIT~, EDIT+6, CHKDUR~, CHKDUR+8, CHKDUR+11, CHKDUR+13, CHKDUR+16, CHKDUR+17*, CHKDUR+19, NEWSUB~ , NEWSUB+8, NEWSUB+9, NEWSUB+19 |
| >> 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 | CHKDUR+4~, CHKDUR+7*, CHKDUR+12*, CHKDUR+15 |
| 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 | CHKDUR+4~, CHKDUR+6*, CHKDUR+8*, CHKDUR+11, CHKDUR+13 |
| U | CHKDUR+11 |
| X | NEW+3~ |
| ZERR | NEWSUB+5~, NEWSUB+18~, NEWSUB+21 |
| Name | Field # of Occurrence |
|---|---|
| $T( | NEW+1, DE3+8, DEL3+8 |