Routine: BEHODCS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Naked Globals
Local Variables

Information

BEHODCS ;MSC/IND/MGH - TIU Discharge Summary Look-up Method ;20-Mar-2007 13:48;DKM

Source Information

Source file <BEHODCS.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Text Integration Utility	10	SENDADD^TIUALRT AUDIT^TIUEDI1 $$GETRECNW^TIUEDI3 ($$CHKSUM,$$IDATE,$$NOW)^TIULC ($$DOCCLASS,$$PNAME,$$WHOCOSIG,$$WHOSIGNS,DOCPRM)^TIULC1 GETTIU^TIULD $$DATE^TIULS MAIN^TIUMOVE ENQ^TIUPXAP1 RELEASE^TIUT
VA Fileman	3	^%DT ^DIC (,FILE)^DIE
Kernel	1	$$FMADD^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
CKHRN(BEHTIU)	;If entered name doesn't match a patient, use the Health
DELTEXT(DA)	; Delete existing text in preparation for replacement
IDATE(X)	; Receives date in external format, returns internal format
STUFREC(DA,PARENT)	; Stuff fixed field data
LOOKUPX
CANEDIT(DA)	; Check whether or not document is in a status up to unsigned
WHATYPX
NAMECK	;If no note ien, check last name entered with last name from HRN
MAKENADD()	; Create an addendum record
WHATITX
WHATYPE(X)	; Identify document type ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
LOOKUP	; Look-up code used by router/filer ; Required: TIUHRN, TIUVDT
WHATITLE(X)	; Identify document title ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
IEN	;Get data needed to identify note
ILOC(LOCATION)	; Get pointer to file 44
FOLLOWUP(TIUDA)	; Post-filing code for PROGRESS NOTES

External References

Name	Field # of Occurrence
^%DT	IDATE+3
^DIC	ILOC+2, MAKENADD+4, WHATYPE+6, WHATITLE+6
^DIE	MAKENADD+6, DELTEXT+2
FILE^DIE	STUFREC+25, FOLLOWUP+7, FOLLOWUP+9
SENDADD^TIUALRT	IEN+23, NAMECK+14
AUDIT^TIUEDI1	FOLLOWUP+12
$$GETRECNW^TIUEDI3	IEN+15
$$CHKSUM^TIULC	FOLLOWUP+12
$$IDATE^TIULC	IEN+6, IEN+11, IEN+12, STUFREC+20
$$NOW^TIULC	STUFREC+8, STUFREC+16, STUFREC+21
$$DOCCLASS^TIULC1	MAKENADD+6
$$PNAME^TIULC1	IEN+14
$$WHOCOSIG^TIULC1	FOLLOWUP+6
$$WHOSIGNS^TIULC1	FOLLOWUP+5
DOCPRM^TIULC1	IEN+13
GETTIU^TIULD	FOLLOWUP+3
$$DATE^TIULS	STUFREC+22
MAIN^TIUMOVE	IEN+9
ENQ^TIUPXAP1	FOLLOWUP+10
RELEASE^TIUT	FOLLOWUP+11
$$FMADD^XLFDT	IEN+6

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT("D"	CKHRN+5, CKHRN+6
^DPT - [#2]	IEN+4, IEN+5
^TIU("LDT"	STUFREC+13
^TIU(8925 - [#8925]	IEN+19, NAMECK+10, CANEDIT+1, STUFREC+11, STUFREC+12, STUFREC+14, STUFREC+15, FOLLOWUP+8

Name	Line Occurrences
$$CANEDIT	IEN+17, NAMECK+9
$$CKHRN	IEN+2
$$MAKENADD	IEN+20, NAMECK+11
$$WHATITLE	MAKENADD+2
DELTEXT	IEN+19, NAMECK+10
LOOKUPX	IEN+1, IEN+3, IEN+10, IEN+11, IEN+16, IEN+21, NAMECK+5
NAMECK	IEN+8
STUFREC	IEN+22, NAMECK+13

Name	Field # of Occurrence
^(12	FOLLOWUP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	IDATE+1~, IDATE+3*
BEHDFN	LOOKUP+3~
BEHTIU	LOOKUP+3~, IEN+2, CKHRN~, CKHRN+3, CKHRN+4, CKHRN+5, CKHRN+6
CREATE	LOOKUP+3~
DA	LOOKUP+2~, CANEDIT~, CANEDIT+1, MAKENADD+1~, MAKENADD+5*, MAKENADD+6, MAKENADD+8, STUFREC~, STUFREC+2, DELTEXT~
DFN	LOOKUP+2~, IEN+2, IEN+3, IEN+4, IEN+5, IEN+9, IEN+10, IEN+15, CKHRN+2~, CKHRN+5 , CKHRN+6, CKHRN+7, STUFREC+4, FOLLOWUP+1~
DIC	ILOC+1~, ILOC+2, MAKENADD+1~, MAKENADD+3, MAKENADD+6, WHATYPE+3~, WHATYPE+4, WHATITLE+3~, WHATITLE+4
DIC("S"	WHATYPE+5, WHATYPE+6!, WHATITLE+5, WHATITLE+6!
DIC(0	ILOC+2, MAKENADD+3, WHATYPE+4, WHATITLE+4
DIE	MAKENADD+1~, MAKENADD+6, DELTEXT+1~, DELTEXT+2
DLAYGO	MAKENADD+1~, MAKENADD+3*
DR	MAKENADD+1~, MAKENADD+6, DELTEXT+1~, DELTEXT+2
DUZ(2	CKHRN+7
FDA	STUFREC+1~, FOLLOWUP+1~
FDARR	STUFREC+1~, STUFREC+2, STUFREC+4, STUFREC+5, STUFREC+6, STUFREC+7, STUFREC+8, STUFREC+9, STUFREC+11, STUFREC+12 , STUFREC+13, STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+23, STUFREC+24, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+4 , FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+9
FLAGS	STUFREC+1~, STUFREC+2, STUFREC+25, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+7, FOLLOWUP+9
IENS	STUFREC+1~, STUFREC+2, FOLLOWUP+1~, FOLLOWUP+2
INST	CKHRN+2~, CKHRN+6*, CKHRN+7
LNAME1	NAMECK+1~, NAMECK+2*, NAMECK+3
LNAME2	NAMECK+1~, NAMECK+2*, NAMECK+3
LOCATION	ILOC~, ILOC+2
PARENT	STUFREC~, STUFREC+3, STUFREC+10, STUFREC+11, STUFREC+12, STUFREC+13, STUFREC+14, STUFREC+15
>> RECORD("TYPE"	IEN+13, IEN+14
RES	CKHRN+2~, CKHRN+3, CKHRN+5, CKHRN+6, CKHRN+7, CKHRN+8
TIU	LOOKUP+2~, IEN+9, IEN+10, IEN+15, FOLLOWUP+1~, FOLLOWUP+3
TIU("AD#"	STUFREC+7
TIU("EDT"	IEN+11, STUFREC+6, FOLLOWUP+4
TIU("LDT"	IEN+12, STUFREC+7, STUFREC+18, STUFREC+19, STUFREC+22*
TIU("LOC"	STUFREC+17
TIU("TS"	STUFREC+9
TIU("VISIT"	STUFREC+4
>> TIUADT	IEN+1, IEN+6, IEN+11
TIUATYP	MAKENADD+1~, MAKENADD+2*, MAKENADD+3, MAKENADD+6
TIUDA	FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+6, FOLLOWUP+8, FOLLOWUP+11, FOLLOWUP+12
TIUDAD	LOOKUP+2~, IEN+20, IEN+22, IEN+23, NAMECK+11, NAMECK+13, NAMECK+14
>> TIUDICDT	IEN+12, STUFREC+20*, STUFREC+21
TIUDPRM	LOOKUP+3~, IEN+13, IEN+15
TIUEDIT	LOOKUP+2~, IEN+17, IEN+19, IEN+20, NAMECK+9, NAMECK+10, NAMECK+11
TIUEDT	LOOKUP+2~, IEN+6*, IEN+7, IEN+9
TIUFPRIV	MAKENADD+1~, WHATYPE+3~, WHATITLE+3~*
>> TIUHDR(	IEN+24!, NAMECK+15!, MAKENADD+7!
>> TIUHDR("TIUHRN"	IEN+2
>> TIUHDR(1301	IEN+24!, NAMECK+15!
>> TIUHRN	IEN+1
>> TIUICDT	STUFREC+21
TIUIEN	LOOKUP+3~
TIULDT	LOOKUP+2~, IEN+6*, IEN+9
TIUMSG	STUFREC+1~, FOLLOWUP+1~
>> TIUNAME	IEN+1, NAMECK+2
>> TIUNAME2	IEN+4*, NAMECK+2
TIUNEW	LOOKUP+2~, IEN+15, NAMECK+8
>> TIURDT	STUFREC+18, STUFREC+21, STUFREC+22, STUFREC+24
>> TIUSSN	IEN+5*, IEN+9
>> TIUTYP(1	IEN+14*, IEN+15
TIUTYPE	LOOKUP+2~
TIUXCRP	LOOKUP+2~
U	IEN+4, IEN+5, IEN+14, CANEDIT+1, STUFREC+4, STUFREC+6, STUFREC+7, STUFREC+9, STUFREC+11, STUFREC+12 , STUFREC+13, STUFREC+14, STUFREC+15, STUFREC+17, STUFREC+22, FOLLOWUP+4, FOLLOWUP+8
X	IDATE~, IDATE+2, ILOC+1~, ILOC+2, MAKENADD+1~, MAKENADD+3*, DELTEXT+1~, WHATYPE~, WHATITLE~
Y	IEN+1, IEN+3, IEN+7, IEN+8, IEN+10, IEN+11, IEN+12, IEN+15, IEN+16, IEN+17 , IEN+19, IEN+20, IEN+21, IEN+22, IEN+23, NAMECK+3, NAMECK+5, NAMECK+9, NAMECK+10, NAMECK+11 , NAMECK+12, NAMECK+13, NAMECK+14, IDATE+1~, IDATE+4, ILOC+1~, ILOC+3, MAKENADD+1~, MAKENADD+5, DELTEXT+1~ , WHATYPE+3~, WHATYPX, WHATITLE+3~, WHATITX

Customize PDF page

Package: IHS Electronic Health Record

Routine: BEHODCS

Call Graph Total: 14