Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BTIUDOC

Package: IHS Mods To Text Integration Utilities

Routine: BTIUDOC


Information

BTIUDOC ; IHS/ITSC/LJF - DICTATION OP REPORT COUNTS ;

Source Information

Source file <BTIUDOC.m>

Call Graph

Call Graph Total: 15

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Mods To Text Integration Utilities 1 BTIUDSC  

Entry Points

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 ; -- 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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,TIUTIME,?16,$$CONFID^BTIUU,?71,"Page: ",TIUPG
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,TIUDATE,?24,"OPERATIVE REPORTS DICTATION STATISTICS",?76,TIUUSR
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !?($L(TIUFAC\2)),TIUFAC,!,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+4
Function Call: WRITE
  • Prompt: !,X,!,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+8
Routine Call
  • VALM
  • Line Location:
    • EN+4
Routine Call
  • DIE
  • Line Location:
    • ICE+3

FileMan Files Accessed Via FileMan Db 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

Global Variables Directly Accessed

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

Label References

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
PRINT 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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All