Routine: BHSCOAG

Package	Total	Call Graph
Health Summary	1	CKP^GMTSUP
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
DATA(IEN)	;Get the data for the anticoag entry
TMPGBL()	;EP
ANTICOAG	;DISPLAY PROBLEMS USED BY VISITS IN HEALTH SUMMARY

Name	Field # of Occurrence
$$GET1^DIQ	ANTICOAG+10, DATA+3, DATA+4, DATA+5, DATA+6, DATA+7, DATA+8, DATA+9, DATA+10, DATA+11 , DATA+12
CKP^GMTSUP	ANTICOAG+5, ANTICOAG+11, DATA+13, DATA+18, DATA+20, DATA+25, DATA+28

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Anticoag Data",! Line Location: ANTICOAG+11
Function Call: WRITE	Prompt: !!,"Date: "_EVDT_" Warfarin: "_WAR Line Location: DATA+14
Function Call: WRITE	Prompt: !,STRING Line Location: DATA+19
Function Call: WRITE	Prompt: !,"Duration: "_DUR Line Location: DATA+21

FileNo	Call Tags
^AUPNVACG - [#9000010.51]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVACG("AC"	ANTICOAG+9
^TMP("BHSCOAG"	TMPGBL+1!

Name	Line Occurrences
DATA	ANTICOAG+13

Name	Field # of Occurrence
^($J	TMPGBL+1

Name	Field # of Occurrence
CNT	ANTICOAG+1~, ANTICOAG+7, ANTICOAG+9, ANTICOAG+12
COMM	DATA+1~
COMMENT	DATA+1~, DATA+12*, DATA+27, DATA+29
>> DFN	ANTICOAG+9
DUR	DATA+1~, DATA+9*, DATA+21
END	DATA+1~, DATA+11*, DATA+23
EVDT	DATA+1~, DATA+3, DATA+4, DATA+14
>> GMTSNDM	ANTICOAG+3, ANTICOAG+4, ANTICOAG+9
>> GMTSNPG	ANTICOAG+11
>> GMTSQIT	ANTICOAG+5, ANTICOAG+11, DATA+13, DATA+18, DATA+20, DATA+25, DATA+28
GOAL	DATA+1~, DATA+6*, DATA+15
IEN	ANTICOAG+1~, ANTICOAG+8, ANTICOAG+9, ANTICOAG+10, ANTICOAG+13, DATA~, DATA+3, DATA+4, DATA+5, DATA+6 , DATA+7, DATA+8, DATA+9, DATA+10, DATA+11, DATA+12
LINE	ANTICOAG+1~
MAX	DATA+1~, DATA+8*, DATA+17
MIN	DATA+1~, DATA+7*, DATA+16
NUM	ANTICOAG+1~
QUIT	ANTICOAG+1~
START	DATA+1~, DATA+10*, DATA+22
STOP	DATA+1~
STRING	DATA+1~, DATA+15, DATA+16, DATA+17*, DATA+19
STRING2	DATA+1~, DATA+2, DATA+22, DATA+23*, DATA+24, DATA+26
TARGET	ANTICOAG+1~
WAR	DATA+1~, DATA+5*, DATA+14
X	ANTICOAG+1~