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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BTIULO6

Package: IHS Mods To Text Integration Utilities

Routine: BTIULO6


Information

BTIULO6 ; IHS/ITSC/LJF - INPT DATA OBJECT CALLS ;

Source Information

Source file <BTIULO6.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Mods To Text Integration Utilities 1 $$NUMDATE^BTIUU  
Kernel 1 ($$FMDIFF,$$NOW)^XLFDT  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
CURDX(PAT) ;EP; returns admitting dx for current inpatient
LASTPRVC(VST,PAT) ;EP; returns IHS ADC code for last attending provider by type
ADMPRVS(VST,PAT,TYPE,MODE) ;EP; -- returns provider's service based on type
; TYPE="ADM" for admitting, "ATT" for attending
; MODE="" for external format or ="I" for internal format
LASTSRVN(VST,PAT) ;EP; returns last service name
CURSRV(PAT,LENGTH) ;EP; returns current treating specialty for patient
; LENGTH=amount of room to fit name, optional
LASTTXN(VST,PAT) ;EP; returns last treating specialty ien for admission
; also returns last service as second U piece
ADMTXN(VST,PAT) ;EP; -- returns treating specialty node ien for H visit
ADMPRV(VST,PAT,TYPE,MODE) ;EP; -- returns provider for admission based on type
; TYPE="ADM" for admitting, "ATT" for attending, "REF" for referring
; MODE="" for external format or ="I" for internal format
LASTSRVC(VST,PAT) ;EP; returns last service abbreviation and its code
INPT1(PAT,DATE) ;EP; returns admit date (external format) if inpt on DATE sent
LOSHRS(VST,DATE,PAT) ;EP; returns length of stay in hours
CURPRV(PAT,TYPE) ;EP; returns current attending provider for patient
; TYPE="ATT" for attending, "ADM" for admitting and "REF" for referring provider
ADMN(PAT,VST) ;EP; returns admission IEN for H visit sent
ADMSRV(VST,PAT) ;EP; -- returns admitting service name
CURWRD(PAT) ;EP; returns abbreviation of patient's current ward
LASTPRV(VST,PAT,MODE) ;EP; returns last attending provider based on type
; MODE="" for external format or ="I" for internal format
PRIORMVT(DATE,CA,PAT) ;EP; returns last physical movement before DATE
LASTPRVS(VST,PAT,MODE) ;EP; returns last attending provider's service
; MODE="" for external format or ="I" for internal format
CURWRDRM(PAT) ;EP; returns patient's current ward/room-bed
LASTADM(PAT) ; Returns ien for patient's most recent admission
CURLOS(PAT,MODE) ;EP; returns length of stay for current inpatient
; MODE=1 means return observation in hours
PRIORTXN(DATE,CA,PAT) ;EP; returns treating specialty ien prior to date sent
; assumes date includes time

External References

Name Field # of Occurrence
$$NUMDATE^BTIUU INPT1+6
$$GET1^DIQ ADMN+1, ADMPRV+8, ADMPRVS+3, ADMSRV+5, CURWRD+3, CURWRDRM+2, CURPRV+2, CURPRV+4, CURSRV+2, CURDX+3
, CURLOS+4, CURLOS+6, LASTTXN+5, LASTSRVN+4, LASTSRVC+4, LASTPRV+4, LASTPRVC+1, LASTPRVS+2
$$FMDIFF^XLFDT LOSHRS+3
$$NOW^XLFDT CURLOS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^DIC(45.7 - [#45.7] GET1^DIQ
^AUPNVSIT - [#9000010] GET1^DIQ
^BDGWD - [#9009016.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] ADMTXN+3, LASTTXN+7, PRIORTXN+6, PRIORTXN+12, LOSHRS+3
^DGPM("APCA" PRIORMVT+3, PRIORMVT+4
^DGPM("APTT3" INPT1+3
^DGPM("APTT6" ADMTXN+4, PRIORTXN+6, PRIORTXN+10, PRIORTXN+11, PRIORTXN+15
^DGPM("ATID1" INPT1+2, LASTADM+2, LASTADM+3
^DGPM("ATS" LASTTXN+9, LASTTXN+11, LASTTXN+13
^DGPM("AVISIT" ADMN+2
^DIC(42 - [#42] CURWRD+2
^DPT - [#2] CURWRD+1, CURWRD+2, CURPRV+3, CURDX+2, CURLOS+3

Label References

Name Line Occurrences
$$ADMN ADMTXN+2, ADMPRV+5, ADMSRV+3, LASTTXN+4, LOSHRS+2
$$ADMPRV ADMPRVS+3
$$ADMTXN ADMPRV+6, ADMSRV+4, PRIORTXN+14
$$CURWRD CURWRDRM+3
$$LASTPRV LASTPRVC+1, LASTPRVS+2
$$LASTTXN LASTSRVN+3, LASTSRVC+3, LASTPRV+3
$$LOSHRS CURLOS+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM INPT1+1~, INPT1+2*, INPT1+3, INPT1+5*, INPT1+6, ADMTXN+1~, ADMTXN+2*, ADMTXN+3, ADMPRV+5*, ADMPRV+6
, ADMSRV+3*, ADMSRV+4, LASTTXN+4*, LASTTXN+5, LASTTXN+9, LASTTXN+11, LASTTXN+13, LOSHRS+1~, LOSHRS+2*, LOSHRS+3
ANS CURWRDRM+1~, CURWRDRM+2*, CURWRDRM+3
CA CURPRV+3~*, CURPRV+4, CURDX+1~, CURDX+2*, CURDX+3, CURLOS+2~, CURLOS+3*, CURLOS+5, CURLOS+6, PRIORTXN~
, PRIORTXN+6, PRIORTXN+14, PRIORMVT~, PRIORMVT+2, PRIORMVT+3, PRIORMVT+4
DATE INPT1~, INPT1+2, INPT1+4, ADMTXN+1~, ADMTXN+3*, ADMTXN+4, LASTTXN+2~, LASTTXN+7*, LASTTXN+9*, LASTTXN+11
, LASTTXN+13, PRIORTXN~, PRIORTXN+3, PRIORTXN+6, PRIORTXN+9, PRIORMVT~, PRIORMVT+2, PRIORMVT+3, LOSHRS~, LOSHRS+3
DSC LASTTXN+2~, LASTTXN+5*, LASTTXN+7
DSCH INPT1+1~, INPT1+3*, INPT1+4
FIELD ADMPRV+3~, ADMPRV+7*, ADMPRV+8
FOUND PRIORTXN+2~, PRIORTXN+9*, PRIORTXN+10, PRIORTXN+12*, PRIORTXN+14, PRIORTXN+15
IEN ADMPRV+3~, ADMPRV+6*, ADMPRV+8, ADMSRV+1~, ADMSRV+4*, ADMSRV+5, LASTTXN+2~, LASTTXN+13*, LASTTXN+14
LAST LASTPRV+2~, LASTPRV+3*, LASTPRV+4, PRIORTXN+2~, PRIORTXN+9*, PRIORTXN+10*, PRIORTXN+11, PRIORTXN+12, PRIORMVT+1~, PRIORMVT+3*
, PRIORMVT+4
LENGTH CURSRV~, CURSRV+3*, CURSRV+4
MODE ADMPRV~, ADMPRV+8, ADMPRVS~, ADMPRVS+3, CURLOS~, CURLOS+5, LASTPRV~, LASTPRV+4, LASTPRVS~, LASTPRVS+2
>> N PRIORTXN+11*, PRIORTXN+12
PAT ADMN~, INPT1~, INPT1+2, INPT1+3, ADMTXN~, ADMTXN+2, ADMTXN+4, ADMPRV~, ADMPRV+4, ADMPRV+5
, ADMPRV+6, ADMPRVS~, ADMPRVS+3, ADMSRV~, ADMSRV+2, ADMSRV+3, ADMSRV+4, CURWRD~, CURWRD+1, CURWRD+2
, CURWRDRM~, CURWRDRM+2, CURWRDRM+3, CURPRV~, CURPRV+2, CURPRV+3, CURSRV~, CURSRV+2, CURDX~, CURDX+2
, CURLOS~, CURLOS+3, CURLOS+4, CURLOS+5, LASTTXN~, LASTTXN+3, LASTTXN+4, LASTTXN+9, LASTTXN+11, LASTTXN+13
, LASTSRVN~, LASTSRVN+1, LASTSRVN+3, LASTSRVC~, LASTSRVC+1, LASTSRVC+3, LASTPRV~, LASTPRV+3, LASTPRVC~, LASTPRVC+1
, LASTPRVS~, LASTPRVS+2, PRIORTXN~, PRIORTXN+3, PRIORTXN+6, PRIORTXN+10, PRIORTXN+11, PRIORTXN+14, PRIORTXN+15, PRIORMVT~
, PRIORMVT+2, PRIORMVT+3, PRIORMVT+4, LOSHRS~, LOSHRS+2, LASTADM~, LASTADM+2, LASTADM+3
SRV CURLOS+2~, CURLOS+4*, CURLOS+5, LASTTXN+2~, LASTTXN+11*, LASTTXN+13, LASTTXN+14
TYPE ADMPRV~, ADMPRV+4, ADMPRV+7, ADMPRVS~, ADMPRVS+3, CURPRV~, CURPRV+2, CURPRV+4
U LASTTXN+14, LASTSRVN+3, LASTSRVC+3, PRIORTXN+12
VST ADMN~, ADMN+1, ADMN+2, ADMTXN~, ADMTXN+2, ADMPRV~, ADMPRV+4, ADMPRV+5, ADMPRVS~, ADMPRVS+3
, ADMSRV~, ADMSRV+2, ADMSRV+3, LASTTXN~, LASTTXN+3, LASTTXN+4, LASTSRVN~, LASTSRVN+1, LASTSRVN+3, LASTSRVC~
, LASTSRVC+1, LASTSRVC+3, LASTPRV~, LASTPRV+3, LASTPRVC~, LASTPRVC+1, LASTPRVS~, LASTPRVS+2, LOSHRS~, LOSHRS+2
X CURWRD+2~*, CURWRD+3, LASTSRVN+2~, LASTSRVN+3*, LASTSRVN+4, LASTSRVC+2~, LASTSRVC+3*, LASTSRVC+4
Y CURSRV+2~*, CURSRV+4, LASTADM+1~, LASTADM+2*, LASTADM+3
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All