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: BEHODCP

Package: IHS Electronic Health Record

Routine: BEHODCP


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

Naked Globals

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