TIUEDIT ; SLC/JER - Enter/Edit a Document ;01-Aug-2011 11:29;MGH
Source file <TIUEDIT.m>
| Package | Total | Call Graph | 
|---|---|---|
| Text Integration Utility | 21 | ADDENDUM^TIUADD  (ADDENDEL,ALERTDEL)^TIUALRT  $$CLASS^TIUCP  DELIRT^TIUDIRT  (DELAUDIT,DELCOMP)^TIUEDI1  ($$GETENTRY,$$GETEXIT,EXSTNOTE)^TIUEDI2  $$GETRECNW^TIUEDI3  (ASKOK,DIE,GETVST,SETTL)^TIUEDI4 MAIN^TIUEDIM PRINT^TIUEPRNT $$PATIENT^TIULA ($$COMMIT,$$DELETE,$$PNAME,DOCPRM)^TIULC1 ($$PERSPRF,SETPARM)^TIULE $$EMPTYDOC^TIULF $$ISA^TIULX QUE^TIUPXAP1 EDSIG^TIURS ($$CLASS,ENTEROP)^TIUSROI (RELEASE,VERIFY)^TIUT $$READ^TIUU DEFER^TIUVSIT | 
| Authorization Subscription | 1 | $$ISA^USRLM | 
| IHS Mods To Text Integration Utilities | 1 | VNOTE^BTIUPCC | 
| Kernel | 1 | $$UP^XLFSTR | 
| Registration | 1 | FULL^VALM1 | 
| VA Fileman | 1 | ^DIE | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| MAIN(TIUCLASS,SUCCESS,DFN,TIUTITLE,EVNTFLAG,NOSAVE,TIUNDA,TIUSNGL,TIUCHNG) | ; Create new document(s) ; May branch off to edit existing docmt instead of creating new one. ; Call with: [TIUCLASS] --> pointer to file (8925) corresponding to ; the class (e.g., Progress Notes=3) ; from which to select a title ; [by ref] [SUCCESS] --> Boolean flag returned as IFN when a ; record is created, or 0 when record ; creation fails ; [DFN] --> IEN in patient file (#2) ; [TIUTITLE] --> Pointer or NAME or PTR^NAME of the ; TITLE from file 8925.1 to be used as ; the default. ; [EVNTFLAG] --> Boolean flag for visit prompt (0 to ; prompt, 1 to force event type visit) ; [NOSAVE] --> Boolean flag to suppress saving the data ; (e.g., when testing new Boilerplates ; using DDEF action TRY, etc.). ; [by ref] [TIUNDA] --> array of form: TIUNDA(IFN)="". ; Used in SHOW NOTES ACROSS PATIENTS. ; See TIURC, which sets TIUONCE. ; Also used in TIUEDIM, for mult pts. ; [TIUSNGL] --> Boolean flag to create only ONE note ; regardless of multiple pt preference. ; [by ref] [TIUCHNG] --> If received, passes back TIUCHNG array, ; which collects info across records about ; actions taken. Used in feedback ; msgs to user. ; Other variables: ; sets [TIUTYP] --> array with form similar to that of XQORNOD: ; TIUTYP = title IFN ; TIUTYP(1) = 1^title IFN^title name, ; where 1 for us is just a positive # ; sets [TIUBY] --> used in some input templates to BYpass fields. ; Called by: ; Outpt Pharmacy, Consults, ... | |
| DELETE(TIUDA,PROMPT,MSG,HUSH) | ; Delete record | 
| Name | Field # of Occurrence | 
|---|---|
| VNOTE^BTIUPCC | MAIN+105 | 
| ^DIE | DELETE+10 | 
| ADDENDUM^TIUADD | MAIN+88 | 
| ADDENDEL^TIUALRT | DELETE+14 | 
| ALERTDEL^TIUALRT | DELETE+14 | 
| $$CLASS^TIUCP | MAIN+94 | 
| DELIRT^TIUDIRT | DELETE+5 | 
| DELAUDIT^TIUEDI1 | DELETE+12 | 
| DELCOMP^TIUEDI1 | DELETE+12 | 
| $$GETENTRY^TIUEDI2 | MAIN+67 | 
| $$GETEXIT^TIUEDI2 | MAIN+114 | 
| EXSTNOTE^TIUEDI2 | MAIN+58 | 
| $$GETRECNW^TIUEDI3 | MAIN+82 | 
| ASKOK^TIUEDI4 | MAIN+74 | 
| DIE^TIUEDI4 | MAIN+91 | 
| GETVST^TIUEDI4 | MAIN+71 | 
| SETTL^TIUEDI4 | MAIN+62 | 
| MAIN^TIUEDIM | MAIN+43 | 
| PRINT^TIUEPRNT | MAIN+119 | 
| $$PATIENT^TIULA | MAIN+52 | 
| $$COMMIT^TIULC1 | MAIN+107 | 
| $$DELETE^TIULC1 | DELETE+7 | 
| $$PNAME^TIULC1 | MAIN+122, DELETE+11 | 
| DOCPRM^TIULC1 | MAIN+66 | 
| $$PERSPRF^TIULE | MAIN+41 | 
| SETPARM^TIULE | MAIN+40 | 
| $$EMPTYDOC^TIULF | MAIN+95 | 
| $$ISA^TIULX | MAIN+64, MAIN+94 | 
| QUE^TIUPXAP1 | MAIN+103 | 
| EDSIG^TIURS | MAIN+112 | 
| $$CLASS^TIUSROI | MAIN+64 | 
| ENTEROP^TIUSROI | MAIN+64 | 
| RELEASE^TIUT | MAIN+109 | 
| VERIFY^TIUT | MAIN+110 | 
| $$READ^TIUU | DELETE+3 | 
| DEFER^TIUVSIT | MAIN+102 | 
| $$ISA^USRLM | MAIN+58 | 
| FULL^VALM1 | MAIN+58 | 
| $$UP^XLFSTR | MAIN+123 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^TIU(8925 - [#8925] | MAIN+94, DELETE+2, DELETE+4!, DELETE+13! | 
| Name | Line Occurrences | 
|---|---|
| DELETE | MAIN+95 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> BTIURPT | MAIN+46 | 
| CANEDIT | MAIN+47~, MAIN+82, MAIN+87 | 
| DA | MAIN+81~, MAIN+82*, MAIN+83, MAIN+88, MAIN+91, MAIN+94, MAIN+95, MAIN+97, MAIN+98, MAIN+102 , MAIN+105, MAIN+109, MAIN+110, MAIN+112, MAIN+115*, MAIN+119, DELETE+9* | 
| DFN | MAIN~, MAIN+50*, MAIN+51, MAIN+52*, MAIN+58, MAIN+64, MAIN+71, MAIN+72!, MAIN+74!, MAIN+82 , MAIN+105, MAIN+120! | 
| DIDEL | DELETE+1~, DELETE+9* | 
| DIE | DELETE+1~, DELETE+9* | 
| >> DIROUT | MAIN+60 | 
| DIRUT | MAIN+36~ | 
| DR | DELETE+1~, DELETE+9* | 
| DTOUT | MAIN+36~, MAIN+60 | 
| DUOUT | MAIN+36~, MAIN+60 | 
| DUZ | MAIN+41, MAIN+58, MAIN+82, DELETE+4, DELETE+13 | 
| EVNTFLAG | MAIN~, MAIN+38*, MAIN+71 | 
| HUSH | DELETE~, DELETE+10, DELETE+11 | 
| MSG | DELETE~, DELETE+3 | 
| NOSAVE | MAIN~, MAIN+43, MAIN+46, MAIN+58, MAIN+125 | 
| >> ORVP | MAIN+43, MAIN+46, MAIN+50, MAIN+125 | 
| PROMPT | DELETE~, DELETE+3 | 
| SUCCESS | MAIN~, MAIN+97* | 
| TIU | MAIN+47~, MAIN+71, MAIN+74, MAIN+76, MAIN+82 | 
| TIU("STOP" | MAIN+102 | 
| TIU("VISIT" | MAIN+105 | 
| TIU("VSTR" | MAIN+72, MAIN+74 | 
| TIUADD | MAIN+89~ | 
| TIUASK | MAIN+35~, MAIN+74, MAIN+76 | 
| TIUBY | MAIN+37~, MAIN+47~, MAIN+74 | 
| TIUCHK | MAIN+35~ | 
| TIUCHNG | MAIN~, MAIN+43, MAIN+88 | 
| TIUCHNG("DELETE" | MAIN+95* | 
| TIUCLASS | MAIN~, MAIN+43, MAIN+54*, MAIN+62, MAIN+122 | 
| TIUCMMTX | MAIN+47~, MAIN+107*, MAIN+108 | 
| TIUD0 | DELETE+1~, DELETE+2*, DELETE+11 | 
| TIUDA | MAIN+35~, DELETE~, DELETE+2, DELETE+4, DELETE+5, DELETE+9, DELETE+12, DELETE+13, DELETE+14 | 
| TIUDELX | DELETE+1~, DELETE+7*, DELETE+8 | 
| TIUDFLT | MAIN+36~ | 
| TIUDPRM | MAIN+35~, MAIN+66, MAIN+82 | 
| TIUDPRM(0 | MAIN+102, MAIN+119 | 
| TIUEDIT | MAIN+35~, MAIN+47~ | 
| TIUENTRY | MAIN+37~, MAIN+67*, MAIN+68 | 
| TIUEXIT | MAIN+37~, MAIN+114*, MAIN+115 | 
| TIULMETH | MAIN+36~ | 
| TIUNDA | MAIN~, MAIN+43 | 
| TIUNDA( | MAIN+98* | 
| TIUNEW | MAIN+47~, MAIN+82, MAIN+87, MAIN+95 | 
| >> TIUONCE | MAIN+98 | 
| TIUOUT | MAIN+35~, MAIN+43, MAIN+46, MAIN+51*, MAIN+60*, MAIN+62*, MAIN+69 | 
| TIUPNAME | MAIN+37~, MAIN+122*, MAIN+123*, MAIN+125 | 
| TIUPREF | MAIN+36~, MAIN+41*, MAIN+43 | 
| TIUPRM0 | MAIN+36~, MAIN+40 | 
| TIUPRM1 | MAIN+37~ | 
| TIUPRM3 | MAIN+37~ | 
| TIUQUIT | MAIN+89~, MAIN+91, MAIN+92, MAIN+94, MAIN+96 | 
| TIUREL | MAIN+35~ | 
| TIUSNGL | MAIN~, MAIN+43, MAIN+46, MAIN+125 | 
| TIUST | MAIN+37~ | 
| TIUTDA | MAIN+89~, MAIN+115* | 
| TIUTITLE | MAIN~, MAIN+62, MAIN+121! | 
| TIUTYP | MAIN+35~, MAIN+47~, MAIN+62, MAIN+64, MAIN+66, MAIN+67, MAIN+71, MAIN+72!, MAIN+74!, MAIN+94 | 
| TIUTYP(1 | MAIN+82, MAIN+107, MAIN+114 | 
| TIUTYPE | DELETE+1~, DELETE+2*, DELETE+7 | 
| TIUVKILL | DELETE+1~ | 
| TIUVMETH | MAIN+36~ | 
| TIUVSIT | DELETE+1~, DELETE+2* | 
| TIUY | MAIN+35~ | 
| U | MAIN+43, MAIN+94, MAIN+102, MAIN+107, MAIN+114, MAIN+119, DELETE+2 | 
| VADM | MAIN+47~ | 
| VAIN | MAIN+47~ | 
| >> VALMAR | MAIN+58, MAIN+95 | 
| >> VALMBCK | MAIN+95* |