Routine: BHSENCW

Information

BHSENCW ;IHS/CIA/MGH - Encounters from PCC ;17-Mar-2006 10:36;MGH

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP

Name	Comments	DBIA/ICR reference
SCHENC	; ********** SCHEDULED ENCOUNTERS * 2/44 W/ CHART REQ AND WALK INS********** ; <SETUP>
ONEVIS
ADDONE
PAST	;
PEND	;
L1
SCHENCX

Name	Field # of Occurrence
REGDT4^GMTSU	ONEVIS+3
CKP^GMTSUP	SCHENC+5, PAST+5, PEND+1, ONEVIS+11, L1

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+11
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

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

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

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