©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
AMQQTXC1 ; IHS/CMI/THL - OHPRD/DG/MAINTAIN CODE RANGES IN TABLE ; 17 Mar 2014 2:26 PM
Source file <AMQQTXC1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADD7 | ;;
|
|
| ADD6 | ;;
|
|
| ADD5 | ;;
|
|
| ADD4 | ;;
|
|
| ADD3 | ;;
|
|
| ADD2 | ;;
|
|
| ADD1 | ;;
|
|
| SET11 | ;;
|
|
| EOJ | ;
|
|
| NUMBER | ;
|
|
| ADD9 | ;;
|
|
| ADD8 | ;;
|
|
| DEL | ; SECTION FOR DELETING CODES FROM TABLE
|
|
| SET12 | ;;
|
|
| DELPROC | ;CASE SPECIFIC DEL PROCESSING
|
|
| SET13 | ;;
|
|
| DEL1 | ;;
|
|
| DEL11 | ;;
|
|
| DEL10 | ;;
|
|
| DEL13 | ;;
|
|
| DEL12 | ;;
|
|
| DEL3 | ;;
|
|
| ADD13 | ;;
; continue |
|
| ADD12 | ;;
|
|
| ADD11 | ;;
|
|
| ADD10 | ;;
|
|
| DEL5 | ;;
|
|
| DEL4 | ;;
|
|
| DEL7 | ;;
|
|
| DEL6 | ;;
|
|
| X2 | ||
| DEL8 | ;;
|
|
| X1 | ||
| DEL2 | ;;
|
|
| SETRANGE | ;
|
|
| SET5 | ;;
|
|
| ADD | ; SECTION FOR ADDING CODES TO TABLE
|
|
| DEL9 | ;;
|
|
| CASEB | ;
|
|
| SET1 | ;;
|
|
| LETTER | ;
|
|
| SET8 | ;;
|
|
| GETCASE | ; SUBROUTINE TO DETERMINE AMQQCASE # FROM INPUT CODE RANGE
|
|
| CASEA | ;
|
|
| CASEC | ;
|
|
| ADDPROC | ; CASE SPECIFIC ADD PROCESSING
|
| Name | Line Occurrences |
|---|---|
| @( | ADDPROC+1, SETRANGE+2, DELPROC+1, DEL12+1, DEL9+1 |
| ADD | AMQQTXC1+3 |
| ADDPROC | ADD+4 |
| CASEA | GETCASE+3 |
| CASEB | GETCASE+4 |
| CASEC | GETCASE+5 |
| DEL | AMQQTXC1+4 |
| DELPROC | DEL+4 |
| EOJ | AMQQTXC1+5 |
| GETCASE | ADD+4, DEL+4 |
| SETRANGE | ADD+5 |
| X1 | ADD+1 |
| X2 | DEL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AMQQ("CODE" | NUMBER+1*, NUMBER+2*, NUMBER+3*, NUMBER+4* |
| >> AMQQ("HI" | ADD+1, SETRANGE+1, SET12+1, SET1+2, SET1+4, SET13+3, SET13+4, DEL2+1, DEL2+2, DEL6+1 , DEL9+2, CASEA+1, CASEA+2, CASEB+1, CASEC+1 |
| >> AMQQ("LET" | LETTER+1*, LETTER+2* |
| >> AMQQ("LOW" | ADD+1, ADD4+1, ADD12+1*, SETRANGE+1, SET12+1, SET1+4, SET1+5, SET13+2, SET13+3, GETCASE+3 , GETCASE+4, GETCASE+5, CASEC+1, CASEC+2, NUMBER+1, NUMBER+2, NUMBER+4, LETTER+1, LETTER+2 |
| >> AMQQ("NEWHI" | DEL12+2, DEL9+3, NUMBER+4*, LETTER+2* |
| >> AMQQ("THI" | GETCASE+2*, GETCASE+6!, CASEA+1, CASEB+1, CASEC+1, CASEC+2 |
| >> AMQQ("TLOW" | GETCASE+1*, GETCASE+3, GETCASE+4, GETCASE+5, GETCASE+6!, CASEA+1, CASEA+2 |
| AMQQCASE | ADD+6!, ADDPROC+1, SETRANGE+1, SETRANGE+2, DELPROC+1, DEL8+2, DEL12+3, CASEA+1*, CASEA+2*, CASEB+1* , CASEC+1*, CASEC+2*, EOJ+1! |
| AMQQDONE | ADD+2*, ADD+4, ADD+5, ADD+6!, ADD10+1*, DEL+2*, DEL+4, DEL2+3*, DEL6+2*, DEL8+2* , DEL12+3*, DEL9+4*, EOJ+1! |
| >> AMQQHILO | ADD+1, ADD+4, ADD4+1, ADD4+2, ADD8+1, SETRANGE+1, SET12+1, SET1+3, SET1+4, SET1+5 , SET13+2, SET13+3, SET13+4, DEL+1, DEL+4, DEL2+1, DEL2+2, DEL6+1, DEL8+1, DEL12+1 , DEL12+2, DEL9+1, DEL9+2, DEL9+3, GETCASE+2 |
| >> AMQQISYS | ADD+1, ADD+4, SETRANGE+1, SET12+1, SET1+4, SET13+3, SET13+4, DEL+4, DEL12+2, DEL9+3 |
| AMQQNEXT | SET1+2*, SET1+3, EOJ+1! |
| AMQQONE | EOJ+1! |
| >> AMQQSUB | AMQQTXC1+3 |
| >> AMQQTGBL | SET1+2, SET13+2, DEL2+2, DEL6+1, DEL9+2, NUMBER+2, NUMBER+4, LETTER+2 |
| AMQQVAL | ADD+3*, ADD+4*, ADD+6!, ADD4+1, ADD4+2, ADD12+1, ADD8+1, SET1+1*, SET1+3*, SET1+4 , SET1+5, SET13+1*, SET13+2*, SET13+3, SET13+4, DEL+3*, DEL+4*, DEL2+1, DEL2+2, DEL6+1 , DEL8+1, DEL12+1, DEL12+2, DEL9+1, DEL9+2, DEL9+3, GETCASE+1, GETCASE+2, EOJ+1! |
| U | ADD+1, ADD+4, SETRANGE+1, SET12+1, SET1+4, SET13+2, SET13+3, SET13+4, DEL+4, DEL2+1 , DEL12+2, DEL9+2, DEL9+3, GETCASE+2 |