©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
APCLAUD7 ; IHS/CMI/LAB - CODE RANGES IN TABLE ;
Source file <APCLAUD7.m>
| Package | Total | Caller Graph |
|---|---|---|
| Patient Care Component Reports | 2 | APCLAUD5 APCLAUD6 |
| 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 | ;;
|
|
| 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 APCLCASE # FROM INPUT CODE RANGE
|
|
| CASEA | ;
|
|
| CASEC | ;
|
|
| ADDPROC | ; CASE SPECIFIC ADD PROCESSING
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ICD9("BA" | ADD1+1, ADD13+1, DEL2+2, DEL6+1, DEL9+2, NUMBER+1, NUMBER+2, LETTER+1 |
| Name | Line Occurrences |
|---|---|
| @( | ADDPROC+1, DELPROC+1, DEL12+1, DEL9+1 |
| ADD | APCLAUD7+3 |
| ADDPROC | ADD+3 |
| CASEA | GETCASE+2 |
| CASEB | GETCASE+2 |
| CASEC | GETCASE+2 |
| DEL | APCLAUD7+4 |
| DELPROC | DEL+3 |
| EOJ | APCLAUD7+5 |
| GETCASE | ADD+3, DEL+3 |
| SETRANGE | ADD+4 |
| X1 | ADD+1 |
| X2 | DEL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APCL("CODE" | NUMBER+1*, NUMBER+2* |
| >> APCL("HI" | ADD+1, ADD1+1, SET13+1, DEL2+1, DEL2+2, DEL6+1, DEL9+2, CASEA+1, CASEA+2, CASEB+1 , CASEC+1 |
| >> APCL("LET" | LETTER+1* |
| >> APCL("LOW" | ADD+1, ADD4+1, ADD12+1*, ADD1+1, ADD13+1*, SET13+1, GETCASE+2, CASEC+1, CASEC+2, NUMBER+1 , NUMBER+2, LETTER+1 |
| >> APCL("NEWHI" | DEL12+2, DEL9+3, NUMBER+2*, LETTER+1* |
| >> APCL("THI" | GETCASE+1*, GETCASE+3!, CASEA+1, CASEB+1, CASEC+1, CASEC+2 |
| >> APCL("TLOW" | GETCASE+1*, GETCASE+2, GETCASE+3!, CASEA+1, CASEA+2 |
| APCLCASE | ADD+5!, ADDPROC+1, DELPROC+1, DEL8+2, DEL12+3, CASEA+1*, CASEA+2*, CASEB+1*, CASEC+1*, CASEC+2* , EOJ+1! |
| APCLDONE | ADD+2*, ADD+3, ADD+4, ADD+5!, ADD10+1*, ADD1+1*, DEL+2*, DEL+3, DEL2+3*, DEL6+2* , DEL8+2*, DEL12+3*, DEL9+4*, EOJ+1! |
| APCLNEXT | EOJ+1! |
| APCLONE | EOJ+1! |
| >> APCLSUB | APCLAUD7+3 |
| >> APCLSYS | ADD+1, ADD+3, SET13+1, DEL+3, DEL2+2, DEL6+1, DEL12+2, DEL9+2, DEL9+3 |
| >> APCLTABL | ADD+1, DEL+1 |
| >> APCLTABL( | ADD+1*, ADD+3, ADD4+1*, ADD4+2!, ADD8+1!, ADD1+1*!, ADD13+1!, SET13+1*, DEL+3, DEL2+1! , DEL2+2*!, DEL6+1*!, DEL8+1!, DEL12+1, DEL12+2*, DEL9+1, DEL9+2*, DEL9+3*, GETCASE+1 |
| APCLVAL | ADD+3*, ADD+5!, ADD4+1, ADD4+2, ADD12+1, ADD8+1, ADD1+1, ADD13+1, DEL+3*, DEL2+1 , DEL2+2, DEL6+1, DEL8+1, DEL12+1, DEL12+2, DEL9+1, DEL9+2, DEL9+3, GETCASE+1, EOJ+1! |
| U | ADD+1, ADD+3, SET13+1, DEL+3, DEL2+2, DEL6+1, DEL12+2, DEL9+2, DEL9+3, GETCASE+1 |