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 |