Routine: BPSJINIT

Information

BPSJINIT ;BHAM ISC/LJF - HL7 Application Registration ;03/07/08 14:09

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	3	^DIC ^DIE ^DIR
E Claims Management Engine	2	BPSJVAL^BPSJAREG REG^BPSJPREG

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
E Claims Management Engine	2	BPS SETUP REGISTER PHARMACY BPSOSS8

Entry Points

Name	Comments	DBIA/ICR reference
PHARM(BPSOUT)	;CYCLE THROUGH PHARMACIES
MOD(DA,BPSOUT)	;
VERSION	; ; Create entry if missing ; Sets in defaults: ; ECME TIMEOUT: 10 ; SITE TYPE: VA ; WINNOW TESTING FLAG: NO ; VA LAST SEQUENCE: = $P($P($G(^BPSC(+$P(^BPSC(0),U,3),0)),U),?=?,4) ; WINNOW BPS LOG: 36 ; VITRIA INTERFACE VERSION: 3

External References

Name	Field # of Occurrence
BPSJVAL^BPSJAREG	BPSJINIT+27, BPSJINIT+57
REG^BPSJPREG	BPSJINIT+47, PHARM+18
^DIC	PHARM+10, VERSION+15
^DIE	BPSJINIT+22, MOD+6, MOD+9
^DIR	BPSJINIT+36, BPSJINIT+53

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?IOM/2-14," ECME Site Registration " Line Location: BPSJINIT+15
Function Call: WRITE	Prompt: !!!,"-- Application Registration Validation Results:" Line Location: BPSJINIT+25
Function Call: WRITE	Prompt: !!,?IOM/2-21," Application Registration Data VALID ",! Line Location: BPSJINIT+30
Function Call: WRITE	Prompt: !!," Application Registration Data INVALID!!! " Line Location: BPSJINIT+32
Function Call: WRITE	Prompt: !," Application Registration and Pharmacy " Line Location: BPSJINIT+33
Function Call: WRITE	Prompt: !," Registrations will NOT be sent! ",! Line Location: BPSJINIT+34
Function Call: WRITE	Prompt: !!,"Registration ABORTED due to invalid site registration data",!! Line Location: BPSJINIT+41
Function Call: WRITE	Prompt: !!!,"Application Registration Data is VALID" Line Location: BPSJINIT+43
Function Call: WRITE	Prompt: !!,"Pharmacy Registration Data is:" Line Location: BPSJINIT+44
Function Call: WRITE	Prompt: !,DIR_" for "_$P($G(^BPS(9002313.56,PHIX,0)),U)_DIE Line Location: BPSJINIT+50
Function Call: WRITE	Prompt: ! Line Location: BPSJINIT+51
Function Call: WRITE	Prompt: !!,"Application Registration SUBMITTED..." Line Location: BPSJINIT+58
Function Call: WRITE	Prompt: !!!,"Enter/verify Pharmacy Registration Data" Line Location: PHARM+6
Function Call: WRITE	Prompt: !!!,"-- Pharmacy Registration Validation Results --",! Line Location: PHARM+15
Function Call: WRITE	Prompt: !!,"-- Pharmacy Registration Data VALID. --",! Line Location: PHARM+21
Function Call: WRITE	Prompt: !!," Pharmacy Registration Data INVALID!!! " Line Location: PHARM+23
Function Call: WRITE	Prompt: !," This pharmacy's registration will NOT be sent! ",! Line Location: PHARM+24
Routine Call	DIC Line Location: PHARM+10 VERSION+15
Routine Call	DIE Line Location: BPSJINIT+22 MOD+6 MOD+9
Routine Call	DIR Line Location: BPSJINIT+36 BPSJINIT+53

FileNo	Call Tags
^BPS(9002313.56 - [#9002313.56]	Classic Fileman Calls
^BPS(9002313.99 - [#9002313.99]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BPS(9002313.56 - [#9002313.56]	BPSJINIT+45, BPSJINIT+46, BPSJINIT+50, MOD+4
^BPS(9002313.99 - [#9002313.99]	VERSION+11

Label References

Name	Line Occurrences
MOD	PHARM+14
PHARM	BPSJINIT+38
VERSION	BPSJINIT+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BPSDA	VERSION+10~, VERSION+11*, VERSION+12
BPSJAPPR	BPSJINIT+5~, BPSJINIT+28*, BPSJINIT+30, BPSJINIT+40
BPSJPHPR	PHARM+3~, PHARM+19*, PHARM+21
BPSJVALR	BPSJINIT+5~, BPSJINIT+26, BPSJINIT+28, BPSJINIT+47, BPSJINIT+48, PHARM+3~, PHARM+17*, PHARM+19
BPSOUT	BPSJINIT+5~, BPSJINIT+20, BPSJINIT+23, BPSJINIT+38, BPSJINIT+39, PHARM~, PHARM+5, PHARM+14, MOD~, MOD+10
BPSPHARM	PHARM+3~, PHARM+5, PHARM+12, PHARM+13*, PHARM+14, PHARM+18
DA	BPSJINIT+4~, BPSJINIT+21*, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~, MOD~, MOD+4
DIC	BPSJINIT+4~, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~, PHARM+10, VERSION+10~, VERSION+13
DIC("DR"	VERSION+14*
DIC(0	PHARM+9, VERSION+13
DIE	BPSJINIT+4~, BPSJINIT+21, BPSJINIT+48, BPSJINIT+49, BPSJINIT+50, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~, MOD+1~, MOD+5 , MOD+8*
DINUM	BPSJINIT+4~, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~, VERSION+10~, VERSION+13*
DIR	BPSJINIT+4~, BPSJINIT+48, BPSJINIT+49, BPSJINIT+50, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~
DIR("A"	BPSJINIT+53*
DIR(0	BPSJINIT+36, BPSJINIT+53
DIROUT	BPSJINIT+4~, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~
DIRUT	BPSJINIT+4~, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~
DLAYGO	BPSJINIT+4~, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~, PHARM+10, VERSION+10~, VERSION+13
DR	BPSJINIT+4~, BPSJINIT+22, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~, MOD+1~, MOD+5, MOD+9*
DTOUT	BPSJINIT+4~, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~, MOD+1~, VERSION+10~
DUOUT	BPSJINIT+4~, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~, VERSION+10~
IOM	BPSJINIT+15, BPSJINIT+30
PHIX	BPSJINIT+5~, BPSJINIT+45, BPSJINIT+46, BPSJINIT+47, BPSJINIT+50
U	BPSJINIT+36, BPSJINIT+50, PHARM+12
X	BPSJINIT+4~, BPSJINIT+36, BPSJINIT+52!, BPSJINIT+54, BPSJINIT+56!, PHARM+2~, PHARM+12, MOD+1~, VERSION+10~, VERSION+13*
Y	BPSJINIT+4~, BPSJINIT+23, BPSJINIT+52!, BPSJINIT+56!, PHARM+2~, PHARM+12, MOD+1~, MOD+10, VERSION+10~

Customize PDF page

Package: E Claims Management Engine