Routine: PSORMRX

Information

PSORMRX ;BIRM/JAM - REMOTE DATA INTEROPERABILITY UTILITY ; 10/29/08

Source Information

Source file <PSORMRX.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	3	^%DT $$GET1^DIQ ^DIR
Registration	2	EN^VALM FULL^VALM1
Kernel	1	($$FMDIFF,$$FMTE)^XLFDT
Order Entry Results Reporting	1	($$GET,$$HAVEHDR)^ORRDI1
Outpatient Pharmacy	1	EN^PSORMRXD

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSOPRF PSOPRFSS PSORMRXD PSORMRXP PSORX1

Entry Points

Name	Comments	DBIA/ICR reference
RDI(DFN)	; This call gets patient prescription data from other hospitals and ; stores them in ^TMP($J,"PSORDI"
RDICHK(PSODFN)	;Check for remote prescriptions
SETTMP	;Sets the ^TMP("PSORDI",$J global
REMOTE	; Listman display of remote prescriptions
HDR	; Patient Header for remote site
BOTH	; Listman display of remote and local prescriptions
EN(PSODFN)	;- ListManager entry point
STACHK(ST,EXPDT)	;Status Check
FMTSIG	;Format SIG from remote site and return in the FSIG array
PARSE
BLDSIT	; - Build prescription details for remote site sites
INIT	; - Populates the body of ListMan
HELP	;
GETRDI(DFN)	; call to get remote data
EXIT	;
RDIOUT
GETSIG	;Get SIG for remote sites from ^TMP($J,"PSORDI",
BLDRDI	;Builds Medication Profile (remote) for display

External References

Name	Field # of Occurrence
^%DT	STACHK+7
$$GET1^DIQ	HDR+3, HDR+4, HDR+7
^DIR	RDICHK+7
$$GET^ORRDI1	GETRDI+2
$$HAVEHDR^ORRDI1	RDI+10
EN^PSORMRXD	REMOTE+2, BOTH+1
EN^VALM	EN+3
FULL^VALM1	EN+4
$$FMDIFF^XLFDT	STACHK+6
$$FMTE^XLFDT	HDR+7, BLDRDI+18, BLDRDI+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"REMOTE PRESCRIPTIONS AVAILABLE!" Line Location: RDICHK+5
Routine Call	VALM Line Location: EN+3
Routine Call	DIR Line Location: RDICHK+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PSORDI"	BLDRDI+3!, BLDRDI+30, SETTMP+1, REMOTE+1, EXIT+1!
^TMP("PSORDIS"	BLDSIT+4, BLDRDI+3!, BLDRDI+21*, EXIT+2!
^TMP("PSOREMOTE"	RDI+7!, PARSE+10, PARSE+11, PARSE+12, PARSE+15, PARSE+16, PARSE+17, PARSE+18, PARSE+19, PARSE+20!
^TMP("PSORSITE"	BLDSIT+2!, BLDSIT+5, BLDSIT+7, BLDSIT+9, EXIT+1!
^TMP($J	BLDSIT+7, BLDSIT+8, BLDSIT+9, BLDRDI+6, BLDRDI+7, BLDRDI+23, GETSIG+2, RDI+7!, RDI+9, RDI+11 , RDI+13, RDI+16, RDI+18, PARSE+13, PARSE+18, PARSE+19, EXIT+1!
^XTMP("ORRDI"	RDI+12, RDI+17, PARSE+1, PARSE+2, PARSE+3, PARSE+4, PARSE+5, PARSE+6, PARSE+7, PARSE+11

Label References

Name	Line Occurrences
$$GETRDI	RDI+14
$$RDI	BLDRDI+4, RDICHK+4
$$STACHK	BLDRDI+9
BLDRDI	INIT+2, REMOTE+1
BLDSIT	INIT+2
EN	RDICHK+8
EXIT	EN+5
GETSIG	BLDRDI+24
SETTMP	BLDRDI+12, BLDRDI+13, BLDRDI+20, BLDRDI+28, BLDRDI+29

Naked Globals

Name	Field # of Occurrence
^(	GETSIG+2, PARSE+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	STACHK+7~*
CNT	BLDSIT+1~, BLDSIT+3, BLDSIT+5, BLDSIT+9, BLDSIT+10, FMTSIG+1~, FMTSIG+4, FMTSIG+5, RDI+6~, PARSE+14* , PARSE+18*, PARSE+19
DATA	BLDRDI+1~, BLDRDI+7*, BLDRDI+8, BLDRDI+11, BLDRDI+14, BLDRDI+16, BLDRDI+17, BLDRDI+29
DATA1	BLDRDI+1~
DFN	RDI~, RDI+8, RDI+14, RDI+17, PARSE+1, PARSE+2, PARSE+3, PARSE+4, PARSE+5, PARSE+6 , PARSE+7, PARSE+10, PARSE+11, PARSE+12, PARSE+15, PARSE+16, PARSE+17, PARSE+18, PARSE+19, GETRDI~ , GETRDI+2
DIR	RDICHK+3~
DIR("A"	RDICHK+6*
DIR("B"	RDICHK+6*
DIR(0	RDICHK+6*
DRG	RDI+6~, PARSE+7, PARSE+9, PARSE+10, PARSE+11, PARSE+15, PARSE+16, PARSE+17, PARSE+18, PARSE+19
DT	STACHK+6
EXPDT	BLDRDI+2~, BLDRDI+8*, BLDRDI+9, STACHK~, STACHK+7
FAC	RDI+6~, PARSE+6, PARSE+8, PARSE+10, PARSE+11, PARSE+14, PARSE+15, PARSE+16, PARSE+17, PARSE+18 , PARSE+19
FFF	FMTSIG+1~, FMTSIG+4*, FMTSIG+5
FLIM	FMTSIG+1~, FMTSIG+4, FMTSIG+5*
FSIG	BLDRDI+1~, BLDRDI+24!, FMTSIG+3!
FSIG(	BLDRDI+26, BLDRDI+27, FMTSIG+4, FMTSIG+7
FSIG(1	FMTSIG+8*
FSIG(2	FMTSIG+8!
FVAR	FMTSIG+1~, FMTSIG+2, FMTSIG+4, FMTSIG+5, FMTSIG+6*, FMTSIG+7
FVAR1	FMTSIG+1~, FMTSIG+2, FMTSIG+4, FMTSIG+5, FMTSIG+6
I	GETSIG+1~, GETSIG+2*
II	FMTSIG+1~, FMTSIG+2, FMTSIG+4, FMTSIG+7
ISDT	BLDRDI+1~, BLDRDI+17*, BLDRDI+18
LC	BLDSIT+1~, BLDSIT+3, BLDSIT+4, BLDSIT+5, BLDSIT+7, BLDSIT+8, BLDSIT+9, BLDRDI+1~, BLDRDI+5, BLDRDI+6 , BLDRDI+7, BLDRDI+23, GETSIG+2
LFDT	BLDRDI+1~, BLDRDI+17*, BLDRDI+19
LINE	HDR+1~, HDR+3, HDR+6, HDR+7, HDR+8, BLDRDI+1~, BLDRDI+12, BLDRDI+13, BLDRDI+14, BLDRDI+15* , BLDRDI+16, BLDRDI+18, BLDRDI+19, BLDRDI+25, BLDRDI+27, BLDRDI+28, BLDRDI+29*, SETTMP+1
LN	RDI+6~, PARSE, PARSE+10, PARSE+11, PARSE+16, PARSE+17, PARSE+18, PARSE+19
NNN	FMTSIG+1~, FMTSIG+4*
PSODFN	EN~, HDR+3, HDR+4, HDR+7, BLDRDI+4, BLDRDI+6, BLDRDI+7, BLDRDI+23, GETSIG+2, RDICHK~ , RDICHK+4, RDICHK+8
PSOMED	RDI+6~, PARSE, PARSE+1, PARSE+2, PARSE+3, PARSE+4, PARSE+5, PARSE+6, PARSE+7, PARSE+11
PSORDI	BLDRDI+1~, BLDRDI+4*
PSORET	RDI+6~, RDI+14*, RDI+15
PSORFLG	EN+2*, EXIT+2!
PSOSIG	RDI+6~, PARSE+10, PARSE+11
PSOSTAT	RDI+6~, PARSE+2*
PSOSTR	RDI+6~, PARSE+3, PARSE+4, PARSE+5*, PARSE+10
QTY	BLDRDI+1~, BLDRDI+16*
RDI	GETRDI+1~, GETRDI+2*, GETRDI+3
RSIG	GETSIG+1~
RSIG(	GETSIG+2*, FMTSIG+4, FMTSIG+5
SEQ	BLDRDI+1~, BLDRDI+5, BLDRDI+30, SETTMP+1
SIG	BLDRDI+1~, BLDRDI+25, BLDRDI+26, BLDRDI+27
SITE	BLDRDI+1~, BLDRDI+11*, BLDRDI+13, BLDRDI+21, BLDRDI+22
SITEO	BLDRDI+1~, BLDRDI+4, BLDRDI+11, BLDRDI+12, BLDRDI+22
SSN	HDR+1~, HDR+4, HDR+5, HDR+6
ST	STACHK~, STACHK+4, STACHK+5, STACHK+6, STACHK+8*, STACHK+9
STA	BLDRDI+2~, BLDRDI+8, BLDRDI+9, BLDRDI+10*, BLDRDI+15
>> VALM("TITLE"	HDR+9*
>> VALMCNT	INIT+1, BLDSIT+10
VALMHDR	HDR+2!
VALMHDR(1	HDR+8*
VALMHDR(2	HDR+8*
>> VALMSG	INIT+3*
X	BLDRDI+31!, STACHK+7*, RDICHK+3~
Y	BLDRDI+31!, STACHK+6, RDICHK+3~, RDICHK+7

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORMRX

Call Graph Total: 8

Caller Graph Total: 5