Routine: BHLJVN1

Information

BHLJVN1 ;SSI/EJN - Manual and Nightly Routine for JVN GIS Interface [ 10/10/2002 10:43 PM ]

Source file <BHLJVN1.m>

Package	Total	Call Graph
VA Fileman	3	EN^DDIOL ^DIC ^DIR
IHS Patient	2	^AUPNLK $$HRN^AUPNPAT
Kernel	2	($$FMADD,$$FMTE,$$FMTHL7,$$NOW)^XLFDT EN^XQOR
IHS Support HL7 Interfaces	1	$$CHK^BHLBCK

Name	Comments	DBIA/ICR reference
HL7	; Send O01 HL7 Messages to Cloverleaf for PACS Broker
RES	;-- check the interface and restart if necessary
FILL(BHLJDT)	; Filler Order (ORC-3) ; This function will return the Fill Order value ; based on the INDA(44,2) variable passed from GIS
NJOB	; Nightly Job
EXIT	;
VAR	; Set up variables for JVN Interface O01 Message
LOOP	; Loops through File 44 ; Finds all patients with scheduled appointments for JVN
MAN	; Manual transmission of O01 Messages to Cloverleaf for JVN

Name	Field # of Occurrence
^AUPNLK	MAN+10, MAN+17
$$HRN^AUPNPAT	MAN+39
$$CHK^BHLBCK	RES+3
EN^DDIOL	MAN+8, MAN+16, MAN+26, MAN+35, MAN+36, MAN+37, MAN+38, MAN+39, MAN+40, MAN+41 , MAN+42
^DIC	MAN+27
^DIR	MAN+47
$$FMADD^XLFDT	NJOB+9
$$FMTE^XLFDT	MAN+23, MAN+40
$$FMTHL7^XLFDT	FILL+9, FILL+10
$$NOW^XLFDT	MAN+40, MAN+52, NJOB+8, FILL+10
EN^XQOR	HL7+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Checking Interfaces..." Line Location: RES+1
Routine Call	DIC Line Location: MAN+27
Routine Call	DIR Line Location: MAN+47

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	MAN+15, MAN+22
^SC - [#44]	LOOP+6, LOOP+7, LOOP+9, LOOP+12, LOOP+13
^TMP("BHLJVN"	MAN+6!, MAN+52, LOOP+3!, LOOP+15, VAR+2, VAR+10, VAR+11, VAR+12, VAR+13

Name	Field # of Occurrence
BHLJBDT	NJOB+8*, NJOB+9, LOOP+9, LOOP+10, EXIT+1!
BHLJBP	EXIT+1!, RES+2*, RES+3
BHLJCIEN	LOOP+4~, LOOP+5, LOOP+6, LOOP+7, LOOP+9, LOOP+12, LOOP+13, LOOP+15, EXIT+1!
BHLJCLIN	BHLJVN1+8~, MAN+4, MAN+32, MAN+52, EXIT+1!
BHLJCNAM	BHLJVN1+8~, MAN+4, MAN+32, MAN+41, EXIT+1!
BHLJCNT	LOOP+4~, LOOP+5, LOOP+14, LOOP+15, VAR+9, VAR+10, VAR+11, VAR+12, VAR+13, EXIT+1!
BHLJDFN	BHLJVN1+8~, MAN+4, MAN+23, MAN+39, MAN+52, LOOP+4~, LOOP+5, LOOP+13, LOOP+15, EXIT+1!
BHLJDOB	BHLJVN1+8~, MAN+4, MAN+23, MAN+37, EXIT+1!
BHLJDT	FILL~, FILL+8, FILL+9, FILL+10, FILL+12, EXIT+1!
BHLJEDT	NJOB+9*, LOOP+10, EXIT+1!
BHLJMSG	EXIT+1!, RES+3*
BHLJNAME	BHLJVN1+8~, MAN+4, MAN+22, MAN+36, EXIT+1!
BHLJSCDT	LOOP+4~, LOOP+5, LOOP+8, LOOP+9*, LOOP+10, LOOP+12, LOOP+13, LOOP+15, EXIT+1!
BHLJSIEN	LOOP+4~, LOOP+5, LOOP+11, LOOP+12*, LOOP+13
BHLJSSN	BHLJVN1+8~, MAN+4, MAN+23, MAN+38, EXIT+1!
>> BHLRN	FILL+12
>> DFN	MAN+15, MAN+22, MAN+23
DIC	MAN+9, MAN+11!, MAN+17, MAN+18!, MAN+27, MAN+28!, HL7+2, EXIT+1!
DIC("A"	MAN+27*
DIC("S"	MAN+27*
DIC(0	MAN+9, MAN+17, MAN+27*
DIR	MAN+43!, MAN+49!, EXIT+1!
DIR("A"	MAN+45*
DIR("B"	MAN+46*
DIR(0	MAN+44*
>> DOB	MAN+23
DUZ(2	MAN+39
INDA	VAR+11*, EXIT+1!
INDA(44	VAR+12, VAR+13
>> SSN	MAN+23
U	MAN+15, MAN+22, MAN+32, MAN+52, LOOP+7, LOOP+13, LOOP+15, VAR+11, VAR+12, VAR+13
>> X	HL7+2, FILL+12, FILL+13
>> Y	MAN+13, MAN+20, MAN+30, MAN+32, MAN+48, MAN+55
>> ZTQUEUED	RES+1