©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
ACPT291L ;IHS/SD/SDR - ACPT*2.09*1 install ; 12/29/2008 11:32
Source file <ACPT291L.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IMPORT | ; this tag will load the complete file into ^TMP("ACPT-IMP",$J) using the concept ID
; and the property ID as the identifiers |
|
| LOADCODE | ; load CPTs from ^TMP("ACPT-IMP",$J)
|
|
| CLEAN(ACPTDESC,ACPTUP) | ; clean up description field
|
|
| TEXT(ACPTDESC) | ; convert Description text to Word-Processing data type
; input: .ACPTDESC = passed by reference, starts out as long string, ; ends as Fileman WP-format array complete with header |
|
| DELCODE | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTCMOD - [#9999999.88] | LOADCODE+56*, LOADCODE+61*, LOADCODE+62*, LOADCODE+67!, LOADCODE+68* |
| ^AUTTCMOD("B" | LOADCODE+53, LOADCODE+57* |
| ^DD(81 | LOADCODE+44, DELCODE+12 |
| ^ICPT - [#81] | LOADCODE+9*, LOADCODE+11*, LOADCODE+12*, LOADCODE+14, LOADCODE+18*, LOADCODE+22!, LOADCODE+23*, LOADCODE+25, LOADCODE+26, LOADCODE+29 , DELCODE+4, DELCODE+5*, DELCODE+6* |
| ^ICPT("B" | LOADCODE+6, LOADCODE+7, LOADCODE+10*, DELCODE+3 |
| ^TMP("ACPT-HCPCS" | IMPORT+36!, IMPORT+48*, IMPORT+50*, IMPORT+60*, IMPORT+62, IMPORT+63, IMPORT+66*, IMPORT+75, LOADCODE+15, LOADCODE+20 , LOADCODE+59, LOADCODE+65 |
| Name | Line Occurrences |
|---|---|
| $$CLEAN | LOADCODE+15, LOADCODE+20, LOADCODE+59, LOADCODE+65 |
| DELCODE | IMPORT+77 |
| LOADCODE | IMPORT+76 |
| TEXT | LOADCODE+21, LOADCODE+66 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ACPTACT | IMPORT+57*, IMPORT+58*, IMPORT+59, IMPORT+60, IMPORT+63*, IMPORT+64, IMPORT+66, IMPORT+72*, IMPORT+73, IMPORT+75 , IMPORT+76, IMPORT+77, LOADCODE+15, LOADCODE+20 |
| ACPTBRK | TEXT+10~*, TEXT+15*, TEXT+17, TEXT+20*, TEXT+23*, TEXT+25, TEXT+27*, TEXT+30, TEXT+31 |
| ACPTCLN | CLEAN+6~*, CLEAN+10*, CLEAN+11*, CLEAN+14, CLEAN+16 |
| ACPTCNT | IMPORT+37!, IMPORT+38*, IMPORT+68, LOADCODE+70, TEXT+6~*, TEXT+29*, TEXT+30, TEXT+33 |
| >> ACPTCODE | IMPORT+53*, IMPORT+60, IMPORT+62, IMPORT+63, IMPORT+66, IMPORT+74*, IMPORT+75*, IMPORT+78, LOADCODE+3, LOADCODE+5 , LOADCODE+6, LOADCODE+7, LOADCODE+8, LOADCODE+9, LOADCODE+10, LOADCODE+12, LOADCODE+15, LOADCODE+20, LOADCODE+46, LOADCODE+52 , LOADCODE+53, LOADCODE+55, LOADCODE+56, LOADCODE+57, LOADCODE+59, LOADCODE+65, DELCODE+3, DELCODE+6, DELCODE+14 |
| ACPTDESC | LOADCODE+2!, LOADCODE+20*, LOADCODE+21, LOADCODE+23, LOADCODE+64~, LOADCODE+65*, LOADCODE+66, LOADCODE+68, CLEAN~, CLEAN+3 , CLEAN+7, CLEAN+8, CLEAN+14*, TEXT~, TEXT+4, TEXT+5! |
| ACPTDESC( | TEXT+30* |
| ACPTDESC(0 | TEXT+33* |
| >> ACPTEDT | LOADCODE+25*, LOADCODE+26, LOADCODE+28 |
| ACPTEIEN | LOADCODE+26~*, LOADCODE+28, LOADCODE+29, LOADCODE+32 |
| ACPTIEN | LOADCODE+2!, LOADCODE+6*, LOADCODE+8*, LOADCODE+9, LOADCODE+10, LOADCODE+11, LOADCODE+12, LOADCODE+14, LOADCODE+18, LOADCODE+22 , LOADCODE+23, LOADCODE+25, LOADCODE+26, LOADCODE+29, LOADCODE+33, LOADCODE+41, LOADCODE+53*, LOADCODE+54, LOADCODE+55*, LOADCODE+56 , LOADCODE+57, LOADCODE+61, LOADCODE+62, LOADCODE+67, LOADCODE+68, DELCODE+1*, DELCODE+3*, DELCODE+4, DELCODE+5, DELCODE+6 , DELCODE+9, DELCODE+20 |
| ACPTLINE | IMPORT+40!, IMPORT+41*, IMPORT+43, IMPORT+44, IMPORT+45, IMPORT+46, IMPORT+47, IMPORT+49, IMPORT+52, IMPORT+53 , IMPORT+54, IMPORT+55, IMPORT+56, IMPORT+57, IMPORT+61, IMPORT+65 |
| >> ACPTLONG | IMPORT+46*, IMPORT+48, IMPORT+50, IMPORT+55*, IMPORT+60, IMPORT+65*, IMPORT+66 |
| >> ACPTMOD | IMPORT+44*, IMPORT+48, IMPORT+50 |
| ACPTNEW | LOADCODE+2! |
| >> ACPTNODE | LOADCODE+14*, LOADCODE+16*, LOADCODE+17*, LOADCODE+18 |
| ACPTPIEC | CLEAN+7~*, CLEAN+8 |
| >> ACPTPTH | IMPORT+3 |
| ACPTRY | TEXT+13~, TEXT+14*, TEXT+15, TEXT+17*, TEXT+18, TEXT+19, TEXT+20, TEXT+22, TEXT+23 |
| ACPTSHRT | IMPORT+47*, IMPORT+48, IMPORT+56*, IMPORT+60, IMPORT+78, LOADCODE+2!, LOADCODE+15*, LOADCODE+16, LOADCODE+59*, LOADCODE+60 , LOADCODE+61, DELCODE+2*, DELCODE+4* |
| ACPTSTRN | TEXT+4~*, TEXT+8, TEXT+14, TEXT+18, TEXT+19*, TEXT+22, TEXT+30, TEXT+31* |
| ACPTUP | CLEAN~, CLEAN+14 |
| ACPTWORD | CLEAN+8~*, CLEAN+9, CLEAN+10 |
| >> ACPTYR | LOADCODE+11, LOADCODE+56, DELCODE+5 |
| DA | LOADCODE+31!, LOADCODE+32*, LOADCODE+40!, DELCODE+8!, DELCODE+17* |
| DA(1 | LOADCODE+33*, LOADCODE+34, LOADCODE+41*, LOADCODE+42, DELCODE+9*, DELCODE+10, DELCODE+20*, DELCODE+21 |
| DIC | LOADCODE+31!, LOADCODE+40!, LOADCODE+42*, DELCODE+8!, DELCODE+10*, DELCODE+19! |
| DIC("DR" | LOADCODE+47* |
| DIC("P" | LOADCODE+44*, DELCODE+12* |
| DIC(0 | LOADCODE+43*, DELCODE+11* |
| DIDEL | LOADCODE+36~, DELCODE+23~ |
| DIE | LOADCODE+31!, LOADCODE+34*, LOADCODE+40!, DELCODE+8!, DELCODE+19!, DELCODE+21* |
| DIR | LOADCODE+31!, LOADCODE+40!, DELCODE+8!, DELCODE+19! |
| DLAYGO | LOADCODE+48~, DELCODE+15~ |
| DR | LOADCODE+35*, DELCODE+8!, DELCODE+19!, DELCODE+22* |
| DT | TEXT+33 |
| DTOUT | LOADCODE+36~, LOADCODE+48~, DELCODE+15~, DELCODE+23~ |
| DUOUT | LOADCODE+48~, DELCODE+15~ |
| IO | IMPORT+41 |
| IO(0 | IMPORT+4, IMPORT+68, LOADCODE+70 |
| POP | IMPORT+2~, IMPORT+5 |
| U | IMPORT+50, IMPORT+66, LOADCODE+11, LOADCODE+12, LOADCODE+15, LOADCODE+16, LOADCODE+17, LOADCODE+20, LOADCODE+29, LOADCODE+44 , LOADCODE+56, LOADCODE+59, LOADCODE+61, LOADCODE+62, LOADCODE+65, DELCODE+4, DELCODE+5, DELCODE+6, TEXT+33 |
| X | LOADCODE+31!, LOADCODE+40!, LOADCODE+45*, LOADCODE+46*, DELCODE+8!, DELCODE+13*, DELCODE+14*, DELCODE+19! |
| Y | LOADCODE+31!, LOADCODE+40!, LOADCODE+48~, DELCODE+8!, DELCODE+15~, DELCODE+17, DELCODE+19! |