Routine: BEHODCP

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

BEHODCP ;MSC/IND/MGH - TIU Progress Note Look-up Method ;20-Mar-2007 13:48;DKM

Source Information

Source file <BEHODCP.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Text Integration Utility	9	SENDADD^TIUALRT AUDIT^TIUEDI1 $$GETRECNW^TIUEDI3 ($$CHKSUM,$$IDATE,$$NOW)^TIULC ($$DOCCLASS,$$PNAME,$$WHOCOSIG,$$WHOSIGNS,DOCPRM)^TIULC1 PATVADPT^TIULV ENQ^TIUPXAP1 RELEASE^TIUT MAIN^TIUVSIT
VA Fileman	3	^%DT ^DIC (,FILE)^DIE
IHS Electronic Health Record	1	$$VSTR2VIS^BEHOENCX
Kernel	1	($$FMADD,$$NOW)^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
WHATITX
WHATYPE(X)	; Identify document type ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
REGULAR	;Get the visit
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
MAKEADD()	; Create an addendum record
SPECIAL	;If the note ien exists, make sure its the correct one

External References

Name	Field # of Occurrence
^%DT	IDATE+3
$$VSTR2VIS^BEHOENCX	REGULAR+11
^DIC	ILOC+2, MAKEADD+4, WHATYPE+6, WHATITLE+6
^DIE	MAKEADD+6, DELTEXT+2
FILE^DIE	STUFREC+26, FOLLOWUP+6, FOLLOWUP+8
SENDADD^TIUALRT	REGULAR+29
AUDIT^TIUEDI1	FOLLOWUP+10
$$GETRECNW^TIUEDI3	REGULAR+19
$$CHKSUM^TIULC	FOLLOWUP+10
$$IDATE^TIULC	STUFREC+22
$$NOW^TIULC	STUFREC+8, STUFREC+20
$$DOCCLASS^TIULC1	MAKEADD+6
$$PNAME^TIULC1	REGULAR+15
$$WHOCOSIG^TIULC1	FOLLOWUP+5
$$WHOSIGNS^TIULC1	FOLLOWUP+3
DOCPRM^TIULC1	IEN+17
PATVADPT^TIULV	REGULAR+14
ENQ^TIUPXAP1	FOLLOWUP+20
RELEASE^TIUT	FOLLOWUP+9
MAIN^TIUVSIT	FOLLOWUP+18
$$FMADD^XLFDT	IEN+13, FOLLOWUP+15
$$NOW^XLFDT	STUFREC+24

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT("D"	CKHRN+5, CKHRN+6
^DPT - [#2]	IEN+4, IEN+5
^SC - [#44]	IEN+10, REGULAR+1
^TIU(8925 - [#8925]	SPECIAL+2, SPECIAL+3, SPECIAL+4, SPECIAL+5, SPECIAL+6, SPECIAL+7, SPECIAL+8, REGULAR+25, CANEDIT+1, STUFREC+13 , STUFREC+14, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+13

Label References

Name	Line Occurrences
$$CANEDIT	REGULAR+24
$$CKHRN	IEN+1
$$IDATE	IEN+13
$$ILOC	IEN+9
$$MAKEADD	REGULAR+26
$$WHATITLE	IEN+15, MAKEADD+2
DELTEXT	REGULAR+25
LOOKUPX	IEN+3, IEN+7, IEN+12, IEN+16, REGULAR+20
NAMECK	IEN+18
REGULAR	IEN+18, IEN+19
SPECIAL	IEN+19
STUFREC	REGULAR+28

Name	Field # of Occurrence
^(12	FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+13

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+1, CKHRN~, CKHRN+3, CKHRN+4, CKHRN+5, CKHRN+6
CREATE	LOOKUP+3~, REGULAR+9*, REGULAR+11
DA	LOOKUP+2~, CANEDIT~, CANEDIT+1, MAKEADD+1~, MAKEADD+5*, MAKEADD+6, MAKEADD+8, STUFREC~, STUFREC+2, DELTEXT~
DFN	LOOKUP+2~, IEN+1, IEN+3, IEN+4, IEN+5, CKHRN+2~, CKHRN+5, CKHRN+6, CKHRN+7, SPECIAL+3 , REGULAR+11, REGULAR+14, REGULAR+19, STUFREC+4, FOLLOWUP+1~, FOLLOWUP+14*, FOLLOWUP+17, FOLLOWUP+18
DIC	ILOC+1~, ILOC+2, MAKEADD+1~, MAKEADD+3, MAKEADD+6, WHATYPE+3~, WHATYPE+4, WHATITLE+3~, WHATITLE+4
DIC("S"	WHATYPE+5, WHATYPE+6!, WHATITLE+5, WHATITLE+6!
DIC(0	ILOC+2, MAKEADD+3, WHATYPE+4, WHATITLE+4
DIE	MAKEADD+1~, MAKEADD+6, DELTEXT+1~, DELTEXT+2
DLAYGO	MAKEADD+1~, MAKEADD+3*
DR	MAKEADD+1~, MAKEADD+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+13 , STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20, STUFREC+21, STUFREC+22, STUFREC+23 , STUFREC+24, STUFREC+25, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+8
FLAGS	STUFREC+1~, STUFREC+2, STUFREC+26, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+6, FOLLOWUP+8
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+12, STUFREC+13, STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19
RES	CKHRN+2~, CKHRN+3, CKHRN+5, CKHRN+6, CKHRN+7, CKHRN+8
TIU	LOOKUP+2~, REGULAR+14, REGULAR+19, FOLLOWUP+1~, FOLLOWUP+18
TIU("EDT"	STUFREC+6
TIU("LDT"	STUFREC+7
TIU("LOC"	STUFREC+9, STUFREC+21
TIU("SVC"	STUFREC+11
TIU("VISIT"	STUFREC+4
TIU("VLOC"	STUFREC+9
TIU("VSTR"	STUFREC+24, FOLLOWUP+11, FOLLOWUP+19
TIUATYP	MAKEADD+1~, MAKEADD+2*, MAKEADD+3, MAKEADD+6
TIUD0	FOLLOWUP+12~, FOLLOWUP+13*, FOLLOWUP+14
TIUD12	FOLLOWUP+12~, FOLLOWUP+13*, FOLLOWUP+15, FOLLOWUP+16
TIUDA	FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+4, FOLLOWUP+5, FOLLOWUP+7, FOLLOWUP+9, FOLLOWUP+10, FOLLOWUP+13
TIUDAD	LOOKUP+2~, REGULAR+26*, REGULAR+28, REGULAR+29
>> TIUDDT	STUFREC+22
TIUDPRM	LOOKUP+3~, IEN+17, REGULAR+19
TIUEDIT	LOOKUP+2~, REGULAR+24*, REGULAR+25, REGULAR+26
TIUEDT	LOOKUP+2~, IEN+13, IEN+14, SPECIAL+6, REGULAR+3, FOLLOWUP+12~, FOLLOWUP+14*, FOLLOWUP+15, FOLLOWUP+17, FOLLOWUP+18
TIUFPRIV	MAKEADD+1~, WHATYPE+3~, WHATITLE+3~*
>> TIUHDR(	REGULAR+30!, MAKEADD+7!
>> TIUHDR("TIUHRN"	IEN+1
>> TIUHDR("TIUIEN"	IEN+7, IEN+12, IEN+18, IEN+19, SPECIAL+1
>> TIUHDR(1301	REGULAR+30!
TIUHLOC	FOLLOWUP+12~, FOLLOWUP+15*, FOLLOWUP+16
TIUIEN	LOOKUP+3~, SPECIAL+1, SPECIAL+2, SPECIAL+3, SPECIAL+4*, SPECIAL+5, SPECIAL+6, SPECIAL+7, SPECIAL+8, REGULAR+7 , REGULAR+17, REGULAR+18
TIULDT	LOOKUP+2~, IEN+13, SPECIAL+7, FOLLOWUP+12~, FOLLOWUP+15*, FOLLOWUP+17, FOLLOWUP+18
>> TIULOC	IEN+8, IEN+9, IEN+10, SPECIAL+5, REGULAR+1, REGULAR+3
TIUMSG	STUFREC+1~, FOLLOWUP+1~
>> TIUNAME	NAMECK+2
TIUNAME2	LOOKUP+3~, IEN+4*, NAMECK+2
TIUNEW	LOOKUP+2~, REGULAR+19, REGULAR+23
>> TIUSC	REGULAR+1, REGULAR+2, REGULAR+3
>> TIUSSN	IEN+5*
>> TIUTITLE	IEN+15
>> TIUTYP(1	REGULAR+15*, REGULAR+19
TIUTYPE	LOOKUP+2~, IEN+15*, IEN+16, IEN+17, SPECIAL+4, REGULAR+15
>> TIUVDT	IEN+13
>> TIUVISIT	SPECIAL+8, REGULAR+7, REGULAR+11
TIUVLOC	FOLLOWUP+12~, FOLLOWUP+16*, FOLLOWUP+17, FOLLOWUP+18
>> TIUVSTR	REGULAR+3, REGULAR+7, REGULAR+8, REGULAR+12, REGULAR+14
TIUVSTRB	LOOKUP+3~, REGULAR+7, REGULAR+8, REGULAR+11, REGULAR+12
TIUXCRP	LOOKUP+2~
U	IEN+4, IEN+5, SPECIAL+3, SPECIAL+4, SPECIAL+5, SPECIAL+6, SPECIAL+7, SPECIAL+8, REGULAR+1, REGULAR+15 , CANEDIT+1, STUFREC+4, STUFREC+6, STUFREC+7, STUFREC+9, STUFREC+11, STUFREC+13, STUFREC+14, STUFREC+16, STUFREC+17 , STUFREC+18, STUFREC+19, STUFREC+21, FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+14, FOLLOWUP+15, FOLLOWUP+16
X	IDATE~, IDATE+2, ILOC+1~, ILOC+2, MAKEADD+1~, MAKEADD+3*, DELTEXT+1~, WHATYPE~, WHATITLE~
Y	IEN+3, IEN+7, IEN+8, IEN+10, IEN+12, IEN+14, IEN+16, IEN+18, IEN+19, NAMECK+3 , SPECIAL+2, SPECIAL+3, SPECIAL+4, REGULAR+18, REGULAR+19, REGULAR+20, REGULAR+24, REGULAR+25, REGULAR+26, REGULAR+27 , REGULAR+28, REGULAR+29, IDATE+1~, IDATE+4, ILOC+1~, ILOC+3, MAKEADD+1~, MAKEADD+5, DELTEXT+1~, WHATYPE+3~ , WHATYPX, WHATITLE+3~, WHATITX

Customize PDF page

Package: IHS Electronic Health Record

Routine: BEHODCP

Call Graph Total: 14