Routine: BHSENCS

Information

BHSENCS ;IHS/CIA/MGH - Encounters from PCC ;23-Jun-2010 12:09;MGH

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
IHS Changes To Scheduling	1	WLDATA^BSDWLV

Name	Comments	DBIA/ICR reference
SCHENC	; ********** SCHEDULED ENCOUNTERS * 2/44 ********** ; <SETUP>
ONEVIS
WAITX
ADDONE
PAST	;
PEND	;
L1
SCHENCX
WAIT	;EP - active wait list entries for patient

Name	Field # of Occurrence
WLDATA^BSDWLV	WAIT+2, WAIT+4
REGDT4^GMTSU	ONEVIS+4
CKP^GMTSUP	SCHENC+5, PAST+5, PEND+1, ONEVIS+12, L1, WAIT+6, WAIT+11

Name	Line Occurrences
Function Call: WRITE	Prompt: BHSET,! Line Location: PAST+5
Function Call: WRITE	Prompt: BHSET,! Line Location: PEND+1
Function Call: WRITE	Prompt: ?18,BHSVNT,! Line Location: ONEVIS+12
Function Call: WRITE	Prompt: BHSET,! Line Location: L1+0
Function Call: WRITE	Prompt: ?2,BHSDAT,?14,BHSVT,?21,BHSCN Line Location: L1+1
Function Call: WRITE	Prompt: " (",BHSTST,")" Condition for execution: BHSTST]"" Line Location: L1+1
Function Call: WRITE	Prompt: ?35,"* DNKA *" Condition for execution: $P(BHSN,U,2)["N" Line Location: L1+2
Function Call: WRITE	Prompt: ! Line Location: L1+2
Function Call: WRITE	Prompt: !!,"The scheduling routine for Wait List is missing, cannot display data." Line Location: WAIT+2
Function Call: WRITE	Prompt: BHWAIT(0),! Line Location: WAIT+8

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SCHENC+4, SCHENC+7, SCHENC+8, PAST+3, PEND+2, ONEVIS
^SC - [#44]	ONEVIS+7, ONEVIS+9
^TMP($J	PAST+1!, PAST+4, PAST+6, PAST+7!, ADDONE+1*, ADDONE+2!

Name	Field # of Occurrence
^(	PAST+6, ADDONE+2!, ONEVIS+9
^(0	ONEVIS+9

Name	Field # of Occurrence
BHSAM	SCHENCX!, ONEVIS+2, ONEVIS+5
BHSCN	SCHENCX!, ONEVIS+7*, L1+1
BHSCP	SCHENCX!, ONEVIS+7*, ONEVIS+9
BHSD	WAIT+9*, WAIT+10, WAIT+12, WAITX!
BHSDAT	SCHENCX!, PAST+2, PEND+2, ONEVIS+4, L1, L1+1
BHSET	SCHENCX!, PAST+5, PEND+1, L1
BHSHP	SCHENCX!
BHSI	SCHENC+7, SCHENCX!, PAST+2, ADDONE+1, ADDONE+2, ONEVIS+6, ONEVIS+10
BHSIVD	SCHENCX!, PAST+6, ADDONE, ADDONE+1
BHSJ	SCHENCX!, ADDONE+2, ONEVIS+6, ONEVIS+10*
BHSN	SCHENCX!, ONEVIS*, ONEVIS+1, ONEVIS+6, ONEVIS+7, ONEVIS+10, L1+2
BHSPAT	SCHENC+2~, SCHENC+3, SCHENC+4, SCHENC+7, SCHENC+8, PAST+3, PEND+2, ONEVIS, ONEVIS+9, WAIT+1 , WAIT+4, WAITX!
BHSPVD	SCHENCX!, ONEVIS+4*, L1
BHSQ	SCHENCX!, PAST+3, PAST+6, PEND+2, ONEVIS+9
BHSQIT	SCHENCX!
BHSTST	SCHENCX!, ONEVIS+6, ONEVIS+8, ONEVIS+9, ONEVIS+10, L1+1
BHSVD1	SCHENCX!, PAST+2*, PAST+3
BHSVDT	SCHENCX!, PAST+3, PAST+6, ADDONE, ADDONE+1, PEND+2*, ONEVIS, ONEVIS+4, ONEVIS+5, ONEVIS+9
BHSVN	SCHENCX!, ONEVIS+9*
BHSVNT	SCHENCX!, ONEVIS+8, ONEVIS+9, ONEVIS+12
BHSVT	SCHENCX!, ONEVIS+5*, L1+1
BHSX	WAIT+10*, WAIT+12, WAITX!
BHWAIT	WAIT+3!, WAIT+4, WAIT+5, WAITX!
BHWAIT(	WAIT+9, WAIT+10, WAIT+12
BHWAIT(0	WAIT+8
>> DFN	SCHENC+3, WAIT+1
DT	SCHENC+7, SCHENC+8, PAST+3, PEND+2
>> GMTSDLM	PAST+2
>> GMTSNDM	ADDONE+2, ONEVIS+4*
>> GMTSNPG	ONEVIS+12, L1
>> GMTSQIT	SCHENC+5, PAST+5, PAST+6, PEND+1, PEND+2, ONEVIS+12, L1, WAIT+6, WAIT+9, WAIT+10 , WAIT+11
U	ONEVIS+1, ONEVIS+6, ONEVIS+7, ONEVIS+9, ONEVIS+10, L1+2, WAIT+12
X	SCHENCX!, ONEVIS+4*
Y	SCHENCX!

Name	Field # of Occurrence
$T(WLDATA^BSDWLV	WAIT+2