BTIUDOC ; IHS/ITSC/LJF - DICTATION OP REPORT COUNTS ;
Source file <BTIUDOC.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 4 | ^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1 |
| Registration | 4 | EN^VALM TERM^VALM0 FULL^VALM1 EN^VALM2 |
| Text Integration Utility | 4 | ($$EDATE,$$LDATE)^TIULA ($$DOCCLASS,$$PNAME)^TIULC1 PRINT1^TIURA $$READ^TIUU |
| VA Fileman | 2 | ^DIE $$GET1^DIQ |
| IHS Mods To Text Integration Utilities | 1 | ($$CONFID,INIT,MSG,PRTKL,ZIS)^BTIUU |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Mods To Text Integration Utilities | 1 | BTIUDSC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESET | ;EP; -- action to rebuild display
|
|
| SET(LINE,TIULN) | ; -- sets ^tmp
|
|
| HELP | ;EP; -- help code
|
|
| HDG | ; -- prints 2nd half of heading
|
|
| GATHER(TIUBDT,TIUEDT) | ; -- create display array
|
|
| DATA(DFN,OPN,OPDT,DICT) | ; -- returns display line
|
|
| STATUS(DICT,OPDT) | ; -- returns whether dictated on time or not
|
|
| ; -- print lists to paper
|
||
| TOTL(DATA,TOTAL) | ; increment grand total
|
|
| HDR | ;EP; -- header code
|
|
| TOT(SRV,PRV,DSC,DICT) | ; -- increment ^tmp for totals
|
|
| SET2(LINE,TIULN) | ; -- sets ^tmp
|
|
| PAD(DATA,LENGTH) | ; -- SUBRTN to pad length of data
|
|
| INCREM | ; -- increment # discharges,dictated on time, late or not at all
|
|
| INIT | ;EP; -- init variables and list array
|
|
| SP(NUM) | ; -- SUBRTN to pad spaces
|
|
| EN | ; -- main entry point for BTIU OP RPT COUNTS
|
|
| LINE3(DATA) | ; -- sets up display line for totals
|
|
| ICE | ;EP; -- action to edit IC file
|
|
| CLASS(TYPE,IEN) | ; -- returns 1 if doc is in op report dic class
|
|
| PAT(DFN) | ; -- returns patient chart # and last name
|
|
| ICP | ;EP; -- action to print chart copy
|
|
| DPRV(IEN,AUTH) | ; -- author or surgeon if not dictated yet
|
|
| LINE2(SRV,PRV,DATA) | ; -- sets up display line for totals
|
|
| PROV() | ; -- ask for provider
|
|
| EXIT2 | ;EP; -- exit code for patient listing
|
|
| GETIC | ; -- select item from list
|
|
| EXPND | ; -- expand code
|
|
| EXIT | ;EP; -- exit code
|
|
| RESET2 | ;EP; -- action to rebuild display
|
|
| INIT2 | ;EP; -- init variables and list array
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZISC | PRINT+8 |
| $$CONFID^BTIUU | HDG+2 |
| INIT^BTIUU | PRINT+2 |
| MSG^BTIUU | INIT+2, PRINT+7 |
| PRTKL^BTIUU | PRINT+8 |
| ZIS^BTIUU | BTIUDOC+7 |
| ^DIE | ICE+3 |
| $$GET1^DIQ | GATHER+9, GATHER+10, GATHER+11, GATHER+12, GATHER+18, GATHER+19, CLASS+1, DPRV+2 |
| $$EDATE^TIULA | BTIUDOC+5 |
| $$LDATE^TIULA | BTIUDOC+6 |
| $$DOCCLASS^TIULC1 | CLASS+2 |
| $$PNAME^TIULC1 | CLASS+2 |
| PRINT1^TIURA | ICP+3 |
| $$READ^TIUU | PROV+1 |
| EN^VALM | EN+4 |
| TERM^VALM0 | EN+3, RESET+1, RESET2+1 |
| FULL^VALM1 | GETIC+2 |
| EN^VALM2 | GETIC+4 |
| $$FMTE^XLFDT | DATA+4, DATA+5 |
| $$REPEAT^XLFSTR | GATHER+41, HDG+4, HDG+8, PAD+1 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^SRF - [#130] | GET1^DIQ |
| ^TIU(8925 - [#8925] | GET1^DIQ |
| ^TIU(8925.1 - [#8925.1] | GET1^DIQ |
| ^BDGIC - [#9009016.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT - [#9000001] | PAT+2 |
| ^DPT - [#2] | PAT+3 |
| ^SRF("AC" | GATHER+6, GATHER+7, GATHER+8 |
| ^TIU(8925 - [#8925] | GATHER+16, GATHER+17 |
| ^TMP( | PRINT+5, PRINT+7 |
| ^TMP("BTIUDOC" | INIT2+2, EXIT+2!, GATHER+2!, SET+2* |
| ^TMP("BTIUDOC1" | GATHER+2!, GATHER+34, GATHER+35, GATHER+38, GATHER+39, GATHER+44!, TOT+2, TOT+4* |
| ^TMP("BTIUDOC2" | EXIT+2!, GATHER+2!, SET2+2*, RESET2+2 |
| ^TMP("BTIUDOC3" | GATHER+3!, GATHER+22*, GATHER+26, GATHER+28, GATHER+29, GATHER+30, GATHER+44! |
| ^TMP("TIUZICL" | GETIC+7, GETIC+8, GETIC+9, GETIC+10 |
| Name | Line Occurrences |
|---|---|
| $$CLASS | GATHER+17 |
| $$DATA | GATHER+21 |
| $$DPRV | GATHER+23, DATA+3 |
| $$LINE2 | GATHER+35, GATHER+39, GATHER+42 |
| $$LINE3 | GATHER+43 |
| $$PAD | DATA+2, DATA+3, DATA+4, DATA+5, LINE2+2, LINE2+3, LINE2+4, LINE3+4, LINE3+5, SP+1 |
| $$PAT | DATA+2 |
| $$SP | HDG+6, HDG+7, LINE3+4 |
| $$STATUS | DATA+6 |
| EXIT | PRINT+8 |
| GATHER | EN+2, INIT+3 |
| GETIC | ICE+2, ICP+2 |
| HDG | PRINT+4, PRINT+6 |
| HDR | RESET+2, RESET2+2 |
| INCREM | TOT+3 |
| INIT | RESET+2 |
| EN+2 | |
| RESET2 | ICE+2 |
| SET | GATHER+27, GATHER+30 |
| SET2 | GATHER+37, GATHER+39, GATHER+41, GATHER+42, GATHER+43 |
| TOT | GATHER+23 |
| TOTL | GATHER+36 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AUTH | DPRV~, DPRV+1 |
| CD | GATHER+1~ |
| >> D | GATHER+28*, GATHER+29, GATHER+30 |
| DA | ICE+1~, ICE+3* |
| DATA | TOTL~, TOTL+1, LINE2~, LINE2+3, LINE2+4, LINE3~, LINE3+2, LINE3+3, PAD~, PAD+1 |
| >> DATE | GATHER+5*, GATHER+6*, GATHER+7, GATHER+8 |
| DFN | GATHER+1~, GATHER+8*, GATHER+21, DATA~, DATA+2, PAT~, PAT+2, PAT+3 |
| DICT | DATA~, DATA+5, DATA+6, STATUS~, STATUS+1, STATUS+2, TOT~, INCREM+2, INCREM+3 |
| DIE | ICE+1~, ICE+3* |
| DR | ICE+1~, ICE+3* |
| DSC | GATHER+1~, TOT~, INCREM+3 |
| DSCH | GATHER+1~ |
| DUZ(2 | PAT+2 |
| >> END | GATHER+5*, GATHER+6 |
| >> I | TOTL+1* |
| IEN | CLASS~, CLASS+1, DPRV~, DPRV+2 |
| IOF | HDG+1 |
| IOSL | PRINT+6 |
| IOST | EN+2 |
| LENGTH | PAD~, PAD+1 |
| LINE | GATHER+1~, GATHER+21*, GATHER+22, GATHER+35*, GATHER+37, GATHER+39*, GATHER+41*, GATHER+42*, GATHER+43*, SET~ , SET+2, SET2~, SET2+2 |
| LT | LINE3+1~, LINE3+2*, LINE3+3*, LINE3+5 |
| >> N | GATHER+29*, GATHER+30 |
| ND | LINE3+1~, LINE3+2*, LINE3+3*, LINE3+5 |
| NUM | SP~, SP+1 |
| OPDT | DATA~, DATA+4, DATA+6, STATUS~, STATUS+2 |
| OPN | DATA~, DATA+3 |
| OT | LINE3+1~, LINE3+2*, LINE3+3*, LINE3+4 |
| >> P | GATHER+38*, GATHER+39 |
| PRV | TOT~, TOT+2, TOT+4, LINE2~, LINE2+2 |
| >> S | GATHER+26*, GATHER+27, GATHER+28, GATHER+29, GATHER+30, GATHER+34*, GATHER+35, GATHER+38, GATHER+39 |
| SRV | TOT~, TOT+2, TOT+4, LINE2~, LINE2+2 |
| T | LINE3+1~, LINE3+2*, LINE3+3 |
| >> TIU | GATHER+15*, GATHER+16*, GATHER+17, GATHER+18, GATHER+19 |
| TIUAUTH | GATHER+14~, GATHER+15*, GATHER+19*, GATHER+23, DATA+3 |
| TIUBDT | BTIUDOC+4~, BTIUDOC+5*, EN+2, INIT+3, GATHER~, GATHER+5 |
| TIUCD | GATHER+1~ |
| TIUCNT | GATHER+1~, GATHER+4* |
| >> TIUDA | ICP+2* |
| >> TIUDATE | HDG+3 |
| TIUDICT | GATHER+14~, GATHER+16, GATHER+18*, GATHER+21, GATHER+23 |
| TIUEDT | BTIUDOC+4~, BTIUDOC+6*, EN+2, INIT+3, GATHER~, GATHER+5 |
| >> TIUFAC | HDG+4 |
| TIUICN | GETIC+3*, GETIC+7, GETIC+10*, ICE+1~, ICE+2, ICE+3, ICP+1~, ICP+2 |
| TIUL | PRINT+1~, PRINT+5*, PRINT+7 |
| TIULN | INIT+1~, INIT+4, INIT2+1~, GATHER+4*, GATHER+26*, GATHER+27, GATHER+30, GATHER+34*, GATHER+37, GATHER+39 , GATHER+41, GATHER+42, GATHER+43, SET~, SET+1*, SET+2, SET2~, SET2+1*, SET2+2 |
| TIUN | GATHER+1~ |
| >> TIUOPDT | GATHER+12*, GATHER+21, GATHER+22, GATHER+23 |
| TIUOPN | GATHER+1~, GATHER+7*, GATHER+8, GATHER+9, GATHER+10, GATHER+11, GATHER+12, GATHER+21, GATHER+22, GATHER+23 |
| TIUPG | PRINT+1~, HDG+1*, HDG+2 |
| TIUSRV | GATHER+1~, GATHER+11*, GATHER+22, GATHER+23 |
| >> TIUTIME | HDG+2 |
| >> TIUUSR | HDG+3 |
| >> TIUVST | GATHER+10*, GATHER+16 |
| TIUX | PRINT+1~, PRINT+3*, PRINT+5, PRINT+7, HDG+6 |
| TIUY | DATA+1~, DATA+2*, DATA+3*, DATA+4*, DATA+5*, DATA+6*, DATA+7 |
| TOTAL | GATHER+33~*, GATHER+36, GATHER+42, GATHER+43, TOTL~, TOTL+1* |
| TYPE | CLASS~, CLASS+1*, CLASS+2 |
| U | PAT+2, PAT+3, TOTL+1, INCREM+1, INCREM+2, INCREM+3, INCREM+4, LINE2+3, LINE2+4, LINE3+2 , LINE3+3, ICP+2 |
| >> VALMBCK | RESET+1*, RESET2+1* |
| VALMCNT | EN+1~, INIT+4*, INIT2+1~, INIT2+2*, EXIT+1!, EXIT2+1!, RESET2+2* |
| VALMY | GETIC+1~, GETIC+5 |
| VALMY(0 | GETIC+6 |
| X | HELP+1*, GATHER+1~, GATHER+30*, GATHER+35*, GATHER+36, GATHER+39*, DATA+1~, PAT+1~, PAT+2*, PAT+4 , DPRV+2~*, DPRV+3, HDG+6*, HDG+7*, HDG+8, TOT+1~, TOT+2*, TOT+4, INCREM+1*, INCREM+2* , INCREM+3*, INCREM+4*, LINE2+1~, LINE2+2*, LINE2+3*, LINE2+4*, LINE2+5, LINE3+1~, LINE3+4*, LINE3+5* , LINE3+6, GETIC+1~, GETIC+6*, GETIC+10 |
| >> XQORNOD(0 | GETIC+4 |
| Y | PAT+1~, PAT+3*, PAT+4, TOT+1~, TOT+2*, TOT+4, INCREM+1*, INCREM+2*, INCREM+3*, INCREM+4* , GETIC+1~, GETIC+7*, GETIC+8, GETIC+9, GETIC+10 |
| Z | GETIC+1~, GETIC+8*, GETIC+9, GETIC+10 |