©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
AMERPRE ; IHS/OIT/SCR - PRE-INIT ROUTINE FOR ERS V3.0 ;
Source file <AMERPRE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADDMODE | ;
|
|
| EDITMETA | ;
; TASK 2: REMOVE UNWANTED ENTRY FROM ER METADATA ^AMER(2.2 ; FIRST: LOOK UP THE ENTRY FOR "ALCOHOL RELATED" |
|
| UPDTOPT | ;
; TASK 3: UPDATE ER CATEGORY FILE TO INCLUDE "ER CONSULTANT TYPE" CATEGORY |
|
| EN | ;ENTRY POINT FROM KIDS BUILD AMER*3.0
|
|
| EDITMAP | ;
; TASK 1: REMOVE UNWANTED ENTRIES FROM "ER INPUT MAP" requirement 4 ; ALGORITHM ; FIRST: LOOK UP THE ENTRY IN "ER INPUT MAP" FOR THE TAG THAT ; HAS BEEN REMOVED ; 1. ;QD51 ; SECOND VEHICLE INVOLVED ; 2. ;QD52 ; SECOND VEHICLE DRIVER'S NAME ; 3. ;QD53 ; SV DRIVER INSURANCE COMPANY ; 4. ;QD54 ; SECOND VEHICLE DRIVER POLICY NUMBER ; 5. ;QD55 ; SECOND VEHICLE OWNER'S NAME ; 5. ;QD56 ; SECOND VEHICLE OWNER'S INSURANCE COMPANY ; 6. ;QD57 ; SECOND VEHICLE OWNER'S POLICY NUMBER ; 7. ;QD61 ; RESPONSIBLE PARTY ; 8. ;QD62 ; NAME OF RESPONSIBLE PARTY ; 9. ;QD63 ; ADDRESS OF RESPONSIBLE PARTY ; 10. ;QD64 ; PHONE OF RESPONSIBLE PARTY ; 11. ;QD70 ; BRIEF DESCRIPTION OF WHAT HAPPENED ; 12. ;QD8 ; TRAUMA SURGEON NOTIFIED ; 13. ;QD9 ; TRAUMA SURGEON TIME ; 14. ;QD7 ; INDUSTRY ; 15. ;QD4 ; SELECT DRUGS ; 16. ;QD3 ; SUBSTANCE ABUSE ; NEXT : DELTE THAT ENTRY FROM THE GLOBAL ; FINALY: RE-INDEX THE FILE TO GET RID OF "BAD" CROSS-REFERENCES |
|
| POSTINST |
| FileNo | Call Tags |
|---|---|
| ^AMER(2 - [#9009082] | Classic Fileman Calls |
| ^AMER(2.2 - [#9009082.2] | Classic Fileman Calls |
| ^AMER(2.3 - [#9009082.3] | Classic Fileman Calls |
| ^AMER(3 - [#9009083] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AMER(2 - [#9009082] | ADDMODE+3, POSTINST+3 |
| ^AMER(2.2 - [#9009082.2] | EDITMETA+4 |
| ^AMER(3 - [#9009083] | POSTINST+5, POSTINST+6, POSTINST+7 |
| ^AMERVSIT(0 | EN+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMERCAT | EDITMAP+24~ |
| >> AMERDISP | POSTINST+1*, POSTINST+3*, POSTINST+7, POSTINST+17 |
| >> AMERDONE | POSTINST+2*, POSTINST+5, POSTINST+7*, POSTINST+9 |
| >> AMERHOME | POSTINST+4*, POSTINST+5*, POSTINST+6, POSTINST+7 |
| AMERI | EDITMAP+24~, EDITMAP+30*, EDITMAP+31, ADDMODE+6*, ADDMODE+7 |
| AMERIEN | EDITMAP+24~, EDITMAP+34*, EDITMAP+35, EDITMAP+36, EDITMETA+3*, EDITMETA+4*, EDITMETA+5, EDITMETA+7, EDITMETA+8 |
| AMERMODE | EDITMAP+24~, ADDMODE+2*, ADDMODE+3*, ADDMODE+11 |
| AMEROPT | EDITMAP+24~ |
| AMERSTRG | EDITMAP+24~, ADDMODE+1*, ADDMODE+7 |
| AMERTAG | EDITMAP+24~, EDITMAP+31*, EDITMAP+32, EDITMETA+3*, EDITMETA+4 |
| AMERTAGS | EDITMAP+24~, EDITMAP+25*, EDITMAP+26*, EDITMAP+31 |
| >> DA | EDITMAP+36*, EDITMETA+8*, ADDMODE+10*, POSTINST+15* |
| >> DIC | EDITMAP+27*, UPDTOPT+2*, ADDMODE+5*, ADDMODE+11, POSTINST+11*, POSTINST+16 |
| >> DIC(0 | EDITMAP+28*, UPDTOPT+3*, ADDMODE+4*, POSTINST+10* |
| >> DIE | ADDMODE+11*, POSTINST+16* |
| >> DIK | EDITMAP+29*, EDITMETA+6* |
| >> DR | ADDMODE+11*, POSTINST+17* |
| U | EDITMAP+31, EDITMAP+34, ADDMODE+7, ADDMODE+10, POSTINST+15 |
| >> X | EDITMAP+32*, UPDTOPT+4*, ADDMODE+7*, POSTINST+12* |
| >> Y | EDITMAP+34, ADDMODE+9, ADDMODE+10, POSTINST+14, POSTINST+15 |