©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
BTIURPT3 ; IHS/ITSC/LJF - Review documents by Reference Date ;
Source file <BTIURPT3.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 5 | ($$EDATE,$$LDATE,$$PATIENT,$$SELSTAT)^TIULA ($$HASADDEN,$$PNAME,DOCPRM)^TIULC1 ($$PERSPRF,SETPARM)^TIULE ($$DATE,$$NAME,$$UPPER)^TIULS HDR^TIURH |
| Authorization Subscription | 1 | $$ISA^USRLM |
| IHS Mods To Text Integration Utilities | 1 | ($$VSTCAT,$$VSTDT,$$VSTDX,HDR,NOTES)^BTIURPT |
| Kernel | 1 | $$UP^XLFSTR |
| Registration | 1 | (CLEAN,CNTRL,RESTORE)^VALM10 |
| VA Fileman | 1 | EN^DIQ1 |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Mods To Text Integration Utilities | 1 | BTIURPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STATUS | ||
| GATHER(TIUI,TIUPREF,CLASS) | ; Find/sort records for the list
|
|
| DFLTX | ||
| PATIENT | ; Select Patient
|
|
| CLEAN | ; Clean up your mess!
|
|
| DFLTSTAT(USER) | ; Set default STATUS for current user
|
|
| URGENCY(TIUDA) | ;EP - What is the urgency of the current document
; called by ^BTIURPT as well as this routine |
|
| SCREEN | ;
|
|
| ERLY | ;S TIUEDFLT=$S(TIUCLASS=3:"T-2",TIUCLASS=244:"T-30",1:"T-7") ;original VA
|
|
| DOCTYPE | ; Select Document Type(s)
|
|
| CHECKADD(TYPES) | ; Checks whether Addendum is included in the list of types
|
|
| DADINTYP(TIUDA,TYPES) | ; Evaluates whether addendum's parent belongs is among
; the selected types |
|
| VSTDX() | ; -- returns prim dx for visit
|
|
| BUILD(STATUS,TYPES,SCREEN,EARLY,LATE) | ; Build List
|
|
| MAKELIST(TIUCLASS) | ; Get Search Criteria
|
|
| VSTDT() | ; -- returns numdate of visit
|
|
| RESOLVE(DA,DR) | ; Call DIQ1 to resolve field values
|
|
| ADDELMNT(DA,TIUCNT,APPEND) | ; Add each element to the list
|
|
| PUTLIST(TIUPREF) | ; Expands list elements for LM Template
|
|
| VSTCAT() | ; -- returns service category of visit
|
| Name | Field # of Occurrence |
|---|---|
| $$VSTCAT^BTIURPT | VSTCAT+1 |
| $$VSTDT^BTIURPT | VSTDT+1 |
| $$VSTDX^BTIURPT | VSTDX+1 |
| HDR^BTIURPT | PUTLIST+18 |
| NOTES^BTIURPT | ADDELMNT+35 |
| EN^DIQ1 | RESOLVE+3, ADDELMNT+5 |
| $$EDATE^TIULA | ERLY+2 |
| $$LDATE^TIULA | ERLY+5 |
| $$PATIENT^TIULA | PATIENT+3 |
| $$SELSTAT^TIULA | STATUS |
| $$HASADDEN^TIULC1 | ADDELMNT+9 |
| $$PNAME^TIULC1 | ADDELMNT+6, ADDELMNT+7 |
| DOCPRM^TIULC1 | DFLTSTAT+1 |
| $$PERSPRF^TIULE | BUILD+3 |
| SETPARM^TIULE | BUILD+6 |
| $$DATE^TIULS | ADDELMNT+14, ADDELMNT+15, ADDELMNT+18, ADDELMNT+20 |
| $$NAME^TIULS | ADDELMNT+8, ADDELMNT+16, ADDELMNT+17 |
| $$UPPER^TIULS | BUILD+11, GATHER+13, PUTLIST+7, PUTLIST+9 |
| HDR^TIURH | ADDELMNT+44, ADDELMNT+48 |
| $$ISA^USRLM | DFLTSTAT+2, DFLTSTAT+4 |
| CLEAN^VALM10 | CLEAN+1 |
| CNTRL^VALM10 | ADDELMNT+44 |
| RESTORE^VALM10 | ADDELMNT+43 |
| $$UP^XLFSTR | CHECKADD+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | ADDELMNT+12 |
| ^ORD(101 - [#101] | PUTLIST+3 |
| ^TIU(8925 - [#8925] | BUILD+14, BUILD+15, GATHER+15, GATHER+17, DADINTYP+3, RESOLVE+2, ADDELMNT+7, ADDELMNT+9, URGENCY+3 |
| ^TIU(8925.1 - [#8925.1] | GATHER+9 |
| ^TIU(8925.6 - [#8925.6] | GATHER+13 |
| ^TMP("TIUI" | BUILD+4!, GATHER+20*, PUTLIST+4, PUTLIST+5, PUTLIST+6 |
| ^TMP("TIUR" | BUILD+4!, BUILD+17*, PUTLIST+11*, PUTLIST+14*, PUTLIST+15*, PUTLIST+16*, PUTLIST+20*, PUTLIST+21*, ADDELMNT+2, ADDELMNT+3* , ADDELMNT+46*, ADDELMNT+47*, CLEAN+1! |
| ^TMP("TIURIDX" | BUILD+4!, ADDELMNT+40*, CLEAN+1! |
| ^TMP("TIURIHS" | BUILD+5! |
| ^VA(200 - [#200] | SCREEN+2 |
| Name | Line Occurrences |
|---|---|
| $$RESOLVE | GATHER+19 |
| $$URGENCY | ADDELMNT+10 |
| ADDELMNT | PUTLIST+6 |
| BUILD | ERLY+9 |
| DFLTX | DFLTSTAT+3, DFLTSTAT+4 |
| ERLY | ERLY+7 |
| GATHER | BUILD+12, BUILD+15 |
| PUTLIST | BUILD+16 |
| SCREEN | ERLY+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADT | ADDELMNT+1~, ADDELMNT+14* |
| AMD | ADDELMNT+1~, ADDELMNT+16* |
| APPEND | ADDELMNT~, ADDELMNT+42 |
| AUT | ADDELMNT+1~, ADDELMNT+17* |
| CLASS | GATHER~ |
| DA | RESOLVE~, RESOLVE+2, RESOLVE+5, ADDELMNT~, ADDELMNT+6, ADDELMNT+7, ADDELMNT+8, ADDELMNT+9, ADDELMNT+10, ADDELMNT+12 , ADDELMNT+13, ADDELMNT+14, ADDELMNT+15, ADDELMNT+16, ADDELMNT+17, ADDELMNT+18, ADDELMNT+19, ADDELMNT+35, ADDELMNT+40, VSTDT+1 , VSTCAT+1, VSTDX+1 |
| DDT | ADDELMNT+1~, ADDELMNT+15* |
| DFN | PATIENT+2!*, PATIENT+3*, PATIENT+4, SCREEN+3 |
| DIC | RESOLVE+1~*, ADDELMNT+1~, ADDELMNT+4* |
| DIQ | RESOLVE+1~*, ADDELMNT+1~, ADDELMNT+4* |
| DIQ(0 | RESOLVE+1*, ADDELMNT+4* |
| >> DIROUT | ERLY+3, ERLY+6 |
| >> DOC | ADDELMNT+6*, ADDELMNT+7* |
| DR | RESOLVE~, RESOLVE+2*, RESOLVE+5, ADDELMNT+1~, ADDELMNT+5* |
| DUZ | SCREEN+2, BUILD+3, DFLTSTAT+2, DFLTSTAT+4 |
| EARLY | BUILD~, BUILD+7*, GATHER+15 |
| EDT | ADDELMNT+1~, ADDELMNT+18* |
| HIT | CHECKADD+1~*, CHECKADD+2*, CHECKADD+3 |
| >> IOINHI | ADDELMNT+44 |
| >> IOINORM | ADDELMNT+44 |
| LATE | BUILD~, BUILD+7*, GATHER+15 |
| LCT | ADDELMNT+1~ |
| MOM | ADDELMNT+1~ |
| PT | ADDELMNT+1~, ADDELMNT+8*, ADDELMNT+9*, ADDELMNT+11* |
| RMD | ADDELMNT+1~ |
| SCREEN | MAKELIST+1~, SCREEN+3*, ERLY+9, BUILD~, PUTLIST+12*, PUTLIST+13*, PUTLIST+14 |
| SCREEN( | BUILD+8, BUILD+9, BUILD+11, BUILD+14, BUILD+15, PUTLIST+12, PUTLIST+13 |
| SCREEN(1 | SCREEN+3* |
| SDT | ADDELMNT+1~, ADDELMNT+19*, ADDELMNT+20* |
| STATUS | MAKELIST+1~, STATUS*, STATUS+1, BUILD~, PUTLIST+7*, PUTLIST+9*, PUTLIST+10*, PUTLIST+11 |
| STATUS( | GATHER+12, GATHER+13, PUTLIST+8, PUTLIST+9 |
| STATUS(1 | PUTLIST+7, PUTLIST+9 |
| STATUS(4 | PUTLIST+8, PUTLIST+10 |
| TIUCLASS | MAKELIST~, BUILD+12, BUILD+15, PUTLIST+15 |
| TIUCNT | BUILD+1~, PUTLIST+6, PUTLIST+11, PUTLIST+16, PUTLIST+19, ADDELMNT~, ADDELMNT+21*, ADDELMNT+40, ADDELMNT+43, ADDELMNT+44 , ADDELMNT+45, ADDELMNT+46, ADDELMNT+47 |
| TIUD0 | GATHER+1~, URGENCY+2~, URGENCY+3*, URGENCY+4 |
| TIUD12 | GATHER+1~ |
| TIUD13 | GATHER+1~ |
| TIUD15 | GATHER+1~ |
| TIUDA | DADINTYP~, DADINTYP+3, PUTLIST+1~, PUTLIST+6*, URGENCY~, URGENCY+3 |
| TIUDCL | MAKELIST+1~ |
| TIUDPRM | DFLTSTAT+1~ |
| TIUDPRM(0 | DFLTSTAT+3 |
| TIUDSTAT | URGENCY+2~, URGENCY+3*, URGENCY+5 |
| TIUDT | BUILD+1~ |
| TIUDTYP | DADINTYP+2~, DADINTYP+3*, DADINTYP+5 |
| TIUDURG | URGENCY+2~, URGENCY+4*, URGENCY+5 |
| TIUEDFLT | MAKELIST+1~, ERLY+1*, ERLY+2 |
| >> TIUEDT | ERLY+2*, ERLY+4, ERLY+9 |
| TIUI | MAKELIST+1~, CHECKADD+1~*, CHECKADD+2*, BUILD+1~, BUILD+11*, BUILD+12, BUILD+14*, BUILD+15*, GATHER~, GATHER+15 , GATHER+17, DADINTYP+2~*, DADINTYP+4*, DADINTYP+5 |
| TIUIFN | BUILD+1~, GATHER+16*, GATHER+17*, GATHER+19, GATHER+20 |
| TIUJ | BUILD+1~, GATHER+15*, GATHER+17, GATHER+20, PUTLIST+1~, PUTLIST+5*, PUTLIST+6, PUTLIST+12*, PUTLIST+13 |
| TIUK | BUILD+1~, BUILD+3*, BUILD+8*, BUILD+9, BUILD+11, BUILD+14, BUILD+15 |
| >> TIULDT | ERLY+5*, ERLY+7, ERLY+9 |
| TIULST4 | ADDELMNT+1~, ADDELMNT+12*, ADDELMNT+13* |
| TIUMD | DFLTSTAT+1~ |
| TIUMIS | DFLTSTAT+1~, DFLTSTAT+2*, DFLTSTAT+3 |
| TIUNAME | SCREEN+1~, SCREEN+2* |
| TIUORDER | PUTLIST+1~, PUTLIST+2*, PUTLIST+4 |
| TIUP | BUILD+1~, ADDELMNT+10*, ADDELMNT+11 |
| TIUPICK | PUTLIST+1~, PUTLIST+3*, PUTLIST+16 |
| TIUPREF | BUILD+2~, BUILD+3*, BUILD+12, BUILD+15, BUILD+16, GATHER~, PUTLIST~, PUTLIST+2 |
| >> TIUPRM0 | BUILD+6 |
| TIUQ | BUILD+1~, GATHER+19*, GATHER+20, PUTLIST+1~, PUTLIST+4*, PUTLIST+5, PUTLIST+6 |
| >> TIUQUIK | ERLY+2, ERLY+5 |
| TIUQUIT | MAKELIST+1~ |
| TIUR | ADDELMNT+1~ |
| TIUR(8925 | ADDELMNT+6, ADDELMNT+8, ADDELMNT+12, ADDELMNT+13, ADDELMNT+14, ADDELMNT+15, ADDELMNT+16, ADDELMNT+17, ADDELMNT+18, ADDELMNT+19 |
| TIUREC | BUILD+1~ |
| TIUS | BUILD+2~, GATHER+1~, GATHER+12*, GATHER+13, PUTLIST+7*, PUTLIST+8*, PUTLIST+9 |
| TIUSFLD | GATHER+1~, GATHER+5*, GATHER+19 |
| TIUSTAT | MAKELIST+1~, STATUS, ERLY+9, GATHER+1~, GATHER+13*, GATHER+14, GATHER+15, GATHER+17 |
| TIUSVAL | GATHER+2~ |
| TIUT | BUILD+2~, GATHER+1~, GATHER+9*, GATHER+10 |
| TIUTP | BUILD+2~, GATHER+1~, GATHER+10*, GATHER+15, GATHER+17 |
| TIUTYP | MAKELIST+1~, ERLY+9 |
| TIUY | DADINTYP+2~*, DADINTYP+4, DADINTYP+5*, DADINTYP+6, RESOLVE+1~, RESOLVE+4, RESOLVE+5*, RESOLVE+6*, RESOLVE+7, URGENCY+2~ , URGENCY+5*, URGENCY+6, DFLTSTAT+1~, DFLTSTAT+3*, DFLTSTAT+4*, DFLTSTAT+5*, DFLTX |
| TIUY(8925 | RESOLVE+5 |
| TIUZCNT | BUILD+5*, CLEAN+3! |
| >> TIUZIHS | PATIENT+2 |
| TIUZLN | BUILD+5*, ADDELMNT+38, CLEAN+3! |
| TYPES | CHECKADD~, CHECKADD+3*, BUILD~, DADINTYP~ |
| TYPES( | CHECKADD+2, CHECKADD+3*, DADINTYP+4, DADINTYP+5 |
| U | SCREEN+2, CHECKADD+3, BUILD+9, BUILD+11, BUILD+14, BUILD+15, GATHER+13, DADINTYP+3, DADINTYP+5, RESOLVE+2 , PUTLIST+2, PUTLIST+7, PUTLIST+9, PUTLIST+10, PUTLIST+11, PUTLIST+13, ADDELMNT+7, ADDELMNT+12, ADDELMNT+40, ADDELMNT+46 , URGENCY+3, URGENCY+4, DFLTSTAT+3 |
| USER | DFLTSTAT~ |
| >> VALM("RM" | ADDELMNT+44 |
| >> VALMCNT | BUILD+3*, PUTLIST+20*, ADDELMNT+3*, ADDELMNT+38*, ADDELMNT+40 |
| >> VALMHDR | PUTLIST+18, ADDELMNT+48 |
| >> VALMQUIT | STATUS+1*, PATIENT+4*, ERLY+3*, ERLY+6* |
| >> VALMSG | ADDELMNT+45* |
| VALMY | CLEAN+2! |
| X | RESOLVE+1~ |
| XDT | ADDELMNT+1~ |
| XREF | BUILD+2~, BUILD+9*, BUILD+10, BUILD+11, BUILD+13, BUILD+14, BUILD+15, GATHER+15, GATHER+17 |
| Y | RESOLVE+1~ |