Routine: PSORMRXP

Package

Total

Call Graph

$$GET1^DIQ ^DIR

$$FMTE^XLFDT

($$RDI,$$STACHK,FMTSIG)^PSORMRX

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOSD1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
HDR	; report header
HDR1	;Print partial header
EN(PSODFN)	;- Remote medication entry point
HEADER	; Print report header for remote prescriptions
EOP	; prints to end of page
EXIT	; kill variables before existing...
PRINT	;Print remote medication data
GETSIG	;Get SIG for remote sites from ^TMP($J,"PSORDI",

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SITE,! Line Location: HEADER+3
Function Call: WRITE	Prompt: ! Line Location: EOP+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: ?21,"MEDICATION PROFILE FROM OTHER VAMC(s)" Line Location: HDR+3
Function Call: WRITE	Prompt: ?68,"Page: ",$G(PAGE,1),! Line Location: HDR+4
Function Call: WRITE	Prompt: ?28,"Date Printed: "_$$FMTE^XLFDT(DT,"5ZM"),! Line Location: HDR+5
Function Call: WRITE	Prompt: !,"Patient: "_PSONAM,?60,"DOB: ",PSODOB Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: "=" Line Location: HDR+7
Function Call: WRITE	Prompt: !! Line Location: HDR+8
Function Call: WRITE	Prompt: ?3,"RX #",?15,"DRUG",?50,"ST",?54,"QTY",?59,"ISSUED",?68,"LAST FILLED" Line Location: HDR+9
Function Call: WRITE	Prompt: ! Line Location: HDR+10
Function Call: WRITE	Prompt: "=" Line Location: HDR+10
Function Call: WRITE	Prompt: !,SITE,! Line Location: HDR+11
Function Call: WRITE	Prompt: $E($P(DATA,"^",4),1,13),?15,$E($P(DATA,"^",2),1,35)," Cont'd",! Line Location: HDR1+2
Routine Call	DIR Line Location: EOP+4

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EXIT+1!, PRINT+3, PRINT+4, PRINT+16, GETSIG+2

Name	Field # of Occurrence
^(	GETSIG+2

Name	Field # of Occurrence
DATA	PRINT+1~, PRINT+4*, PRINT+5, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+22, HDR1+2
DIR	EOP+1~
DIR(0	EOP+4*
DT	HDR+5
EXPDT	PRINT+1~, PRINT+5*, PRINT+6
FSIG	PRINT+1~, PRINT+17!
FSIG(	PRINT+19, PRINT+20
I	GETSIG+1~, GETSIG+2, HDR+1~, HDR+7, HDR+10*
IOF	HDR+2
IOSL	PRINT+14, PRINT+21, HEADER+2
IOST	HEADER+2, EOP+2
ISDT	PRINT+1~, PRINT+10*, PRINT+13
LC	PRINT+1~, PRINT+2, PRINT+3, PRINT+4, PRINT+16, GETSIG+2
LFDT	PRINT+1~, PRINT+10*, PRINT+13
>> PAGE	HDR+4, HDR+12*
PSODFN	EN~, EN+3, EN+5, EN+6, PRINT+3, PRINT+4, PRINT+16, GETSIG+2
PSODOB	EN+1~, EN+6*, HDR+6
PSONAM	EN+1~, EN+5*, HDR+6
PSQFLG	PRINT+1~, PRINT+2, PRINT+3, PRINT+8, PRINT+14, PRINT+21, HEADER+2, EOP+4
QTY	PRINT+1~, PRINT+9*, PRINT+12
RSIG	GETSIG+1~
RSIG(	GETSIG+2*
RSIG(""	GETSIG+3
SIG	PRINT+1~, PRINT+18, PRINT+19, PRINT+20
SITE	PRINT+1~, PRINT+8*, PRINT+15, HEADER+3, HDR+11
SITEO	PRINT+1~, PRINT+2, PRINT+8, PRINT+15, HEADER+1, HEADER+3, HDR1+1
STA	PRINT+1~, PRINT+5, PRINT+6, PRINT+7*, PRINT+12
X	EOP+1~
XX	EOP+1~, EOP+3*
Y	EOP+1~, EOP+4

Information