©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
TIU182DF ; SLC/MAM - Create new HP DDEFS ; 7/22/04
Source file <TIU182DF.m>
| Package | Total | Caller Graph |
|---|---|---|
| Text Integration Utility | 1 | TIU182 DDEFS, MED CONVERSION |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAINX | ; Exit
; -- Leave latest error arrays ^TMP("DIERR",$J) & TIUIERR around until ; now in case modules are run separately for debugging: |
|
| BEGIN | ; Create DDEFS
|
|
| MAIN | ; Create Historical Procedure DDEFS for Medicine Conversion
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | BEGIN+3 |
| HOME^%ZIS | BEGIN+9 |
| ^%ZISC | BEGIN+10 |
| ^%ZTLOAD | BEGIN+7 |
| FILE^DIE | MAIN+80 |
| PRINT^TIU182D | MAINX+7 |
| SETDATA^TIU182D | MAIN+41 |
| $$ADDITEM^TIU182D1 | MAIN+61 |
| $$CREATE^TIU182D1 | MAIN+50 |
| $$PARENT^TIU182D1 | MAIN+59 |
| DELETE^TIU182D1 | MAIN+57, MAIN+60, MAIN+62, MAIN+64 |
| FILE^TIU182D1 | MAIN+56 |
| FILEITEM^TIU182D1 | MAIN+63 |
| $$CLASS^TIUCP | MAIN+14 |
| LISTDUPS^TIUEN182 | MAIN+26 |
| SETBASIC^TIUEN182 | MAIN+22 |
| TIUDUPS^TIUEN182 | MAIN+24 |
| $$FMADD^XLFDT | MAIN+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | MAIN+81, MAINX+3! |
| ^TMP("TIU182" | MAIN+6!, MAIN+93, MAINX+8! |
| ^TMP("TIU182ERR" | MAIN+6!, MAIN+53, MAIN+57, MAIN+60, MAIN+62, MAIN+64, MAIN+71, MAIN+85, MAIN+86, MAINX+8! |
| ^TMP("TIU182MSG" | MAIN+6!, MAIN+9*, MAIN+12*, MAIN+13*, MAIN+15*, MAIN+16*, MAIN+17*, MAIN+19*, MAIN+20*, MAIN+31* , MAIN+34*, MAIN+35*, MAIN+38*, MAIN+72*, MAIN+82*, MAIN+83*, MAIN+84*, MAIN+93*, MAIN+94*, MAIN+95* , MAIN+96*, MAIN+97*, MAINX+5*, MAINX+6*, MAINX+8! |
| ^USR(8930 - [#8930] | MAIN+18, MAIN+27 |
| ^XTMP("TIU182" | MAIN+5*, MAIN+11, MAIN+33, MAIN+37, MAIN+48, MAIN+66*, MAIN+67*, MAIN+73*, MAIN+75! |
| Name | Line Occurrences |
|---|---|
| MAIN | BEGIN+10 |
| MAINX | MAIN+11, MAIN+26, MAIN+27, MAIN+28, MAIN+71 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | BEGIN+3~* |
| CPCLASS | MAIN+14~*, MAIN+28, MAIN+77, MAIN+78 |
| DT | MAIN+5 |
| FDA | MAIN+77~ |
| FDA( | MAIN+77*, MAIN+78* |
| IO | BEGIN+10 |
| IO("Q" | BEGIN+4! |
| IOP | BEGIN+3! |
| ITEMDA | MAIN+45~, MAIN+61*, MAIN+63, MAIN+64 |
| NUM | MAIN+43~, MAIN+44*, MAIN+48, MAIN+50, MAIN+53, MAIN+56, MAIN+57, MAIN+59, MAIN+60, MAIN+61 , MAIN+62, MAIN+63, MAIN+64, MAIN+66, MAIN+70~*, MAIN+71, MAIN+85*, MAIN+86, MAIN+93 |
| NUMBER | MAIN+75~* |
| PIEN | MAIN+45~, MAIN+59*, MAIN+61, MAIN+63, MAIN+64 |
| POP | BEGIN+3! |
| PROB | MAIN+86~*, MAIN+88*, MAIN+89*, MAIN+90*, MAIN+91*, MAIN+92*, MAIN+94 |
| TIUDA | MAIN+45~, MAIN+54*, MAIN+56, MAIN+57, MAIN+60, MAIN+61, MAIN+62, MAIN+64, MAIN+66 |
| TIUDUPS | MAIN+1~, MAIN+24, MAIN+26 |
| TIUFPRIV | MAIN+77~, MAIN+79* |
| TIUIEN | MAIN+45~, MAIN+48* |
| TIUIERR | MAINX+3! |
| TIUSTTS | MAIN+1~ |
| TMPCNT | MAIN+1~, MAIN+8*, MAIN+9*, MAIN+12*, MAIN+13*, MAIN+15*, MAIN+16*, MAIN+17*, MAIN+19*, MAIN+20* , MAIN+26, MAIN+31*, MAIN+34*, MAIN+35*, MAIN+38*, MAIN+72*, MAIN+82*, MAIN+83*, MAIN+84*, MAIN+93* , MAIN+94*, MAIN+95*, MAIN+96*, MAIN+97*, MAINX+5*, MAINX+6* |
| U | MAIN+5 |
| YDDEF | MAIN+45~, MAIN+50*, MAIN+54 |
| ZTDESC | BEGIN+6*, BEGIN+8! |
| ZTDTH | BEGIN+8! |
| ZTIO | BEGIN+8! |
| ZTRTN | BEGIN+5*, BEGIN+8! |
| ZTSAVE | BEGIN+8! |
| ZTSK | BEGIN+7, BEGIN+8! |