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 |