Routine: IBDFN2

Information

IBDFN2 ;ALB/CJM - ENCOUNTER FORM - INTERFACE ROUTINES ;NOV 16,1992

Source Information

Source file <IBDFN2.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Registration	4	$$GETSTAT^DGMSTAPI START^DGMTP ($$LST,$$LVMT)^DGMTU OAD^VADPT
VA Fileman	2	DD^%DT NOW^%DTC
Adverse Reaction Tracking	1	(,GMRADPT)^GMRADPT
Kernel	1	$$FMDIFF^XLFDT
Scheduling	1	($$MST,$$SC)^SDCO22

Entry Points

Name	Comments	DBIA/ICR reference
ASKMST	;-- Ask if patient's treatment is related to SC and MST (if applicable)
ALLERGY	;outputs a list of the patient's allergies
PRMTQ
PRMT	; -- print a 1010f if required or will expire in 357.09;.1 days ; called from print manger ; requires dfn, ibappt=appointment date
MSTSTAT	;-- Get patient's MST status for EF display block ; Input: ; DFN
APPT	;returns appt date@time^date^time
EMPLOYER	;returns employer,address, telephone
MT	;returns means test data
GETMT	;Since status is required find last valid means test
SPSEMPLR	;returns spouse's employer,address, telephone
NOW	;returns date and time

External References

Name	Field # of Occurrence
DD^%DT	APPT+2, NOW+6, MT+4
NOW^%DTC	NOW+6
$$GETSTAT^DGMSTAPI	MSTSTAT+12
START^DGMTP	PRMT+16
$$LST^DGMTU	MT+2, PRMT+5, PRMT+6
$$LVMT^DGMTU	GETMT+2
^GMRADPT	ALLERGY+3
GMRADPT^GMRADPT	ALLERGY+3
$$MST^SDCO22	ASKMST+7
$$SC^SDCO22	ASKMST+6
OAD^VADPT	SPSEMPLR+4, EMPLOYER+4
$$FMDIFF^XLFDT	PRMT+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBD(357.09 - [#357.09]	PRMT+13
^TMP("IB"	NOW+7, NOW+8, NOW+9*

Label References

Name	Line Occurrences
GETMT	PRMT+15
PRMTQ	PRMT+7, PRMT+13

Naked Globals

Name	Field # of Occurrence
^(0	PRMT+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+5~, NOW+6
%DT	APPT+2!, NOW+6!
%H	NOW+5~
%I	NOW+5~
ARY	SPSEMPLR+2~, SPSEMPLR+3, SPSEMPLR+5, SPSEMPLR+6, SPSEMPLR+7, SPSEMPLR+8, SPSEMPLR+9, SPSEMPLR+10, SPSEMPLR+11, EMPLOYER+2~ , EMPLOYER+3, EMPLOYER+5, EMPLOYER+6, EMPLOYER+7, EMPLOYER+8, EMPLOYER+9, EMPLOYER+10, EMPLOYER+11, MSTSTAT+9~, MSTSTAT+10* , MSTSTAT+13, ASKMST+2~, ASKMST+4*, ASKMST+6, ASKMST+7
CNT	SPSEMPLR+2~, SPSEMPLR+6, SPSEMPLR+7, SPSEMPLR+8, SPSEMPLR+9, EMPLOYER+2~, EMPLOYER+6, EMPLOYER+7, EMPLOYER+8, EMPLOYER+9
COUNT	ALLERGY+2~, ALLERGY+4, ALLERGY+5, ALLERGY+6, ALLERGY+9, ASKMST+2~, ASKMST+5, ASKMST+6*, ASKMST+7
>> DFN	NOW+7, NOW+8, NOW+9, MT+2, PRMT+5, PRMT+6, GETMT+2, MSTSTAT+11, MSTSTAT+12, ASKMST+3 , ASKMST+6, ASKMST+7
DGMTDT	PRMT+4~, PRMT+10, PRMT+13, GETMT+4
DGMTI	PRMT+4~, PRMT+10, GETMT+4
DGMTYPT	PRMT+4~, PRMT+9, GETMT+3
DGOPT	PRMT+4~, PRMT+11*
DT	PRMT+5, PRMT+6, GETMT+2
GET	MT+1~, MT+2*, MT+3, MT+4, MT+5
GMRA	ALLERGY+2~
GMRAL	ALLERGY+2~, ALLERGY+4
GMRAL(	ALLERGY+5, ALLERGY+7
I	ALLERGY+2~, ALLERGY+5*, ALLERGY+7
>> IBAPPT	APPT+2, PRMT+13
>> IBARY	APPT+3, MT+6, ALLERGY+4, ALLERGY+9
IBDMT	PRMT+4~, PRMT+8, PRMT+9, PRMT+10, PRMT+12, GETMT+2, GETMT+4
IBDMT1	PRMT+4~, PRMT+5*, PRMT+7, PRMT+8, PRMT+15
IBDMT2	PRMT+4~, PRMT+6*, PRMT+7, PRMT+8, PRMT+9
MST	MSTSTAT+9~, MSTSTAT+12*, MSTSTAT+13
NODE	ALLERGY+2~, ALLERGY+7*, ALLERGY+8, ALLERGY+9
RET	MT+1~, MT+3, MT+5, MT+6
>> STATUS	PRMT+12*, PRMT+13, PRMT+15
TYPE	ALLERGY+2~, ALLERGY+8*, ALLERGY+9
VAERR	SPSEMPLR+5, SPSEMPLR+12!, EMPLOYER+5, EMPLOYER+12!
VAOA	SPSEMPLR+12!, EMPLOYER+12!
VAOA("A"	SPSEMPLR+4, EMPLOYER+4
VAOA(1	SPSEMPLR+6, EMPLOYER+6
VAOA(2	SPSEMPLR+7, EMPLOYER+7
VAOA(3	SPSEMPLR+8, EMPLOYER+8
VAOA(4	SPSEMPLR+9, EMPLOYER+9
VAOA(5	SPSEMPLR+9, EMPLOYER+9
VAOA(6	SPSEMPLR+9, EMPLOYER+9
VAOA(8	SPSEMPLR+10, EMPLOYER+10
VAOA(9	SPSEMPLR+11, EMPLOYER+11
X	NOW+5~
Y	APPT+1~, APPT+2, APPT+3, NOW+5~, NOW+6, NOW+7, NOW+8, NOW+9, MT+1~, MT+4* , MT+5

Marked Items

Name	Field # of Occurrence
$T(GMRADPT^GMRADPT	ALLERGY+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFN2

Call Graph Total: 9