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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BEHODCS

Package: IHS Electronic Health Record

Routine: BEHODCS


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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All