©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
TIUELST ; SLC/JER - Review Filer Events ;9/24/03
Source file <TIUELST.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 4 | ($$EDATE,$$LDATE,SELDIV)^TIULA SETPARM^TIULE ($$CENTER,$$DATE,$$LOWER,$$NAME)^TIULS $$READ^TIUU |
| Registration | 3 | EN^VALM $$SETFLD^VALM1 (CLEAN,FLDCTRL)^VALM10 |
| Kernel | 1 | $$NS^XUAF4 |
| VA Fileman | 1 | EN^DIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DIVISION | ; Select Division(s)
|
|
| EN | ; Invoke List Manager
|
|
| HDR | ; Initialize header for review screen
|
|
| SELTYPE(DFLT) | ; Select Event Type
|
|
| CLEAN | ; Clean up your mess!
|
|
| BUILD(TIUTYP,STATUS,EARLY,LATE,DIVIFNS) | ; Build List
|
|
| SELRES(DFLT) | ; Select Resolution status
|
|
| ININST(TIUI,TIUDI) | ; Evaluates whether a TIU UPLOAD LOG record
; is among the selected division(s) ; Input -- TIUI TIU UPLOAD LOG file (#8925.4) IEN ; -- TIUDI( i.e. TIUDI(file #40.8 IEN)=Institution file ; pointer for file #40.8 entry ; Output - TIUY 0= record not in selected division ; 1= record in selected division |
|
| MAKELIST | ; Build review screen list
; For Types 1;FILING ERRORS and ; 2;MISSING FIELD ERRORS, |
| Name | Field # of Occurrence |
|---|---|
| EN^DIQ1 | BUILD+16 |
| $$EDATE^TIULA | DIVISION+15 |
| $$LDATE^TIULA | DIVISION+17 |
| SELDIV^TIULA | DIVISION+1 |
| SETPARM^TIULE | BUILD+5 |
| $$CENTER^TIULS | HDR+12 |
| $$DATE^TIULS | BUILD+18, BUILD+19, HDR+11 |
| $$LOWER^TIULS | BUILD+52, BUILD+53 |
| $$NAME^TIULS | BUILD+17 |
| $$READ^TIUU | SELTYPE+4, SELRES+4 |
| EN^VALM | EN+1 |
| $$SETFLD^VALM1 | BUILD+28, BUILD+29, BUILD+30, BUILD+31, BUILD+32, BUILD+33, BUILD+34, BUILD+41 |
| CLEAN^VALM10 | CLEAN+1 |
| FLDCTRL^VALM10 | BUILD+39 |
| $$NS^XUAF4 | BUILD+24 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101 - [#101] | BUILD+4 |
| ^TIU(8925.4 - [#8925.4] | BUILD+9, BUILD+10, BUILD+12, BUILD+44, ININST+8 |
| ^TMP("TIUERR" | BUILD+3!, BUILD+36*, BUILD+37*, BUILD+38*, BUILD+41*, BUILD+42*, BUILD+43*, BUILD+46*, BUILD+47*, BUILD+48* , BUILD+51*, BUILD+53*, HDR+2, CLEAN+1! |
| ^TMP("TIUERRIDX" | BUILD+3!, BUILD+44*, CLEAN+1! |
| Name | Line Occurrences |
|---|---|
| $$ININST | BUILD+13 |
| $$SELRES | DIVISION+9, DIVISION+10 |
| $$SELTYPE | DIVISION+8 |
| BUILD | DIVISION+22 |
| HDR | BUILD+49 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | BUILD+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BY | HDR+1~ |
| DA | BUILD+14~, BUILD+15*, BUILD+17, BUILD+18, BUILD+19, BUILD+20, BUILD+21, BUILD+22 |
| DFLT | SELTYPE~, SELTYPE+4, SELRES~, SELRES+4 |
| DIC | BUILD+14~, BUILD+15* |
| DIQ | BUILD+14~, BUILD+15* |
| DIQ(0 | BUILD+15* |
| >> DIRUT | DIVISION+14 |
| DIVIFNS | BUILD~, BUILD+13, BUILD+48 |
| DIVIFNS("ENTRIES" | BUILD+13 |
| DR | BUILD+14~, BUILD+16* |
| DTYPE | BUILD+14~, BUILD+20*, BUILD+29 |
| EARLY | BUILD~, BUILD+10 |
| EDESC | BUILD+14~, BUILD+21*, BUILD+41 |
| EDT | BUILD+14~, BUILD+18*, BUILD+31 |
| ETYPE | BUILD+14~, BUILD+21*, BUILD+30 |
| INST | BUILD+14~, BUILD+22*, BUILD+23, BUILD+24 |
| INSTA | BUILD+14~, BUILD+22*, BUILD+25*, BUILD+26*, BUILD+34 |
| >> IOINHI | BUILD+39 |
| >> IOINORM | BUILD+39 |
| LATE | BUILD~, BUILD+10 |
| PRMT | SELTYPE+1~, SELTYPE+2*, SELTYPE+4, SELRES+1~, SELRES+2*, SELRES+4 |
| RDT | BUILD+14~, BUILD+19*, BUILD+32 |
| READTYPE | SELTYPE+1~, SELTYPE+3*, SELTYPE+4, SELRES+1~, SELRES+3*, SELRES+4 |
| SCREEN | HDR+1~ |
| SELDIV | DIVISION+2, DIVISION+23! |
| STATUS | MAKELIST+9~, DIVISION+9*, DIVISION+10*, DIVISION+11*, DIVISION+12*, DIVISION+13*, DIVISION+22, BUILD~, BUILD+12, BUILD+46 , BUILD+52*, BUILD+53, HDR+1~, HDR+4*, HDR+7 |
| TITLE | HDR+1~, HDR+5*, HDR+7*, HDR+8*, HDR+9*, HDR+10*, HDR+11*, HDR+12 |
| TIUCNT | BUILD+1~, BUILD+27*, BUILD+28, BUILD+37, BUILD+38, BUILD+42, BUILD+43, BUILD+44, BUILD+46, BUILD+47 , BUILD+50 |
| TIUDI | DIVISION+3, DIVISION+22, DIVISION+23!, ININST~ |
| TIUDI( | DIVISION+4, ININST+9, ININST+10 |
| TIUDI("ENTRIES" | DIVISION+5*, DIVISION+7* |
| >> TIUEDT | DIVISION+15*, DIVISION+16, DIVISION+20*, DIVISION+22, HDR+11 |
| TIUERR | BUILD+14~ |
| TIUERR( | BUILD+17, BUILD+18, BUILD+19, BUILD+20, BUILD+21, BUILD+22 |
| TIUI | MAKELIST+9~, BUILD+1~, BUILD+9*, BUILD+10, BUILD+12, BUILD+13, BUILD+15, BUILD+44, ININST~, ININST+8 |
| TIUIFP | ININST+7~, ININST+10*, ININST+11 |
| TIUINST | ININST+7~, ININST+8*, ININST+11 |
| TIUJ | BUILD+1~, ININST+7~, ININST+9*, ININST+10 |
| TIUK | MAKELIST+9~, DIVISION+4*, DIVISION+5, BUILD+1~ |
| >> TIULDT | DIVISION+17*, DIVISION+18, DIVISION+20*, DIVISION+22, HDR+11 |
| TIUP | BUILD+1~ |
| TIUPICK | BUILD+1~, BUILD+4*, BUILD+47 |
| >> TIUPRM0 | BUILD+5 |
| TIUREC | BUILD+1~, BUILD+28*, BUILD+29*, BUILD+30*, BUILD+31*, BUILD+32*, BUILD+33*, BUILD+34*, BUILD+36 |
| TIUSTAT | BUILD+1~ |
| TIUSTN | BUILD+14~, BUILD+24*, BUILD+25 |
| TIUTMP | MAKELIST+9~, DIVISION+20* |
| TIUTYP | BUILD~, BUILD+8, BUILD+46, BUILD+52, BUILD+53 |
| TIUX | HDR+1~, HDR+2*, HDR+4 |
| TIUY | ININST+7~*, ININST+9, ININST+11*, ININST+12 |
| TYPE | MAKELIST+9~, DIVISION+8*, DIVISION+9, DIVISION+10, DIVISION+11, DIVISION+12, DIVISION+22, BUILD+8*, BUILD+9, HDR+4* , HDR+5, HDR+6, HDR+8, HDR+9 |
| U | SELTYPE+4, SELRES+4, BUILD+12, BUILD+25, BUILD+44, BUILD+46, ININST+8, HDR+4 |
| USER | BUILD+14~, BUILD+17*, BUILD+33 |
| >> VALMBCK | EN+2* |
| >> VALMCNT | BUILD+2*, BUILD+35*, BUILD+36, BUILD+37, BUILD+38, BUILD+39, BUILD+40*, BUILD+41, BUILD+42, BUILD+43 , BUILD+44, BUILD+51* |
| >> VALMHDR | BUILD+49 |
| >> VALMHDR(1 | HDR+12* |
| >> VALMQUIT | DIVISION+2*, DIVISION+14*, DIVISION+16*, DIVISION+18* |
| VALMY | CLEAN+2! |
| X | SELTYPE+1~, SELRES+1~ |
| XREF | BUILD+1~ |
| Y | SELTYPE+1~, SELTYPE+4*, SELTYPE+5*, SELTYPE+6, SELRES+1~, SELRES+4*, SELRES+5*, SELRES+6 |