Routine: PSJFTR

Information

PSJFTR ;BIR/JCH-INPATIENT MEDS FREE TEXT DOSAGE REPORT ;15 Nov 01 / 9:45 AM

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA FileMan	3	^%DT ^%DTC ^DIR
Pharmacy Data Management	1	DOSE^PSSORPH

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: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSJU DOSAGE REPORT

Entry Points

Name	Comments	DBIA/ICR reference
BEG	;Begin
DEV	;Device
START	;Start processing date range
UD	;
ST1	;
DET	;
EXIT
PRD	;
CHKPOS	; Check for possible doses
CHKLOC	; Check for local doses
HD	;
DTC	;

External References

Name	Field # of Occurrence
^%DT	BEG+6, BEG+8
^%DTC	DTC+1
^%ZIS	DEV+2, DEV+3
^%ZISC	EXIT
^%ZTLOAD	DEV+7
^DIR	HD+1
DOSE^PSSORPH	ST1+18
$$FMTE^XLFDT	HD+5, HD+8, HD+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report searches for Free Text Dosages in Inpatient Unit Dose Orders" Line Location: BEG+2
Function Call: WRITE	Prompt: !,"for a range of dates. Orders with Stop Dates that fall within the range" Line Location: BEG+3
Function Call: WRITE	Prompt: !,"are included in the report." Line Location: BEG+4
Function Call: WRITE	Prompt: ! Line Location: BEG+5
Function Call: WRITE	Prompt: ! Line Location: BEG+7
Function Call: WRITE	Prompt: !,"Please try later!" Line Location: DEV+3
Function Call: WRITE	Prompt: !!,"*** No Records were found for this period ***",!! Line Location: ST1+24
Function Call: WRITE	Prompt: ! Line Location: EXIT+0
Function Call: WRITE	Prompt: @IOF Line Location: HD+4
Function Call: WRITE	Prompt: @IOF Line Location: HD+5
Function Call: WRITE	Prompt: "Run Date: " Line Location: HD+5
Function Call: WRITE	Prompt: "Run Date: " Line Location: HD+5
Function Call: WRITE	Prompt: ?72,"Page "_PSJPG Line Location: HD+6
Function Call: WRITE	Prompt: !,?15,"Inpatient Free Text Dosage Entry Report",!,?17,"Period: " Line Location: HD+7
Function Call: WRITE	Prompt: FMTDT Line Location: HD+8
Function Call: WRITE	Prompt: " to " Line Location: HD+8
Function Call: WRITE	Prompt: FMTDT Line Location: HD+9
Function Call: WRITE	Prompt: !,"Drug",?40,"Free Text Entry",?74,"Count",!," Provider:Count" Line Location: HD+10
Function Call: WRITE	Prompt: ! Line Location: HD+11
Function Call: WRITE	Prompt: "-" Line Location: HD+11
Function Call: WRITE	Prompt: ! Line Location: HD+12
Routine Call	DIR Line Location: HD+1
Routine Call	%ZIS Line Location: DEV+2 DEV+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	ST1+2, ST1+4, ST1+6, ST1+7, ST1+8, ST1+11, ST1+13
^PSDRUG - [#50]	ST1+12, PRD+1, CHKPOS+3, CHKLOC+3
^TMP("PSJFTR"	START+3!, ST1+24, DET+1, DET+3, DET+4, DET+6, DET+12, DET+13, EXIT!, PRD+3 , PRD+4, PRD+5, PRD+6, PRD+7, PRD+8, PRD+9, PRD+10
^VA(200 - [#200]	DET+13

Label References

Name	Line Occurrences
CHKLOC	ST1+19
CHKPOS	ST1+20
DTC	BEG+8
EXIT	BEG+6, BEG+8, DEV+3, DEV+4, ST1+24
HD	ST1+23, DET+17
PRD	ST1+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BEG+5!*
%DT("A"	BEG+5, BEG+7
%DT(0	BEG+6*, BEG+9!
%ZIS	DEV+1!*, DEV+2!
BEGDT	BEG+1~, BEG+6*, ST1+3, HD+8
DARRAY	ST1+9~, ST1+18!*
DARRAY(	CHKPOS+2, CHKPOS+4, CHKLOC+2, CHKLOC+4
DARRAY(1	ST1+19, ST1+20
DD	DTC+1~*, DTC+2
DIR	EXIT!, HD+1!
DIR("A"	HD+1*
DIR(0	HD+1*
DIROUT	EXIT!
DIRUT	ST1+2, ST1+4, ST1+6, DET+1, DET+3, EXIT!, HD+2
DRGNODE	START+2~, ST1+13*, ST1+14, ST1+16
DT	HD+5
DTOUT	BEG+6, BEG+8, EXIT!
DUOUT	EXIT!
ENDT	BEG+1~, BEG+8, ST1+1, HD+9, DTC+2
FMDOSE	ST1+9~, ST1+14*, ST1+15
FMTDT	HD+3~, HD+5, HD+8, HD+9*
FMUNIT	ST1+9~, ST1+14*, ST1+15
>> G	DEV+6*
I	EXIT!
IO	ST1+23
IO("Q"	DEV+4, DEV+7!
IOF	HD+4, HD+5
IOP	DEV+1!, DEV+3*!
IOSL	DET+17
IOST	START+4, ST1+17, HD+1, HD+4
J	DET+1*, DET+3, DET+4, DET+6, DET+7, DET+8, DET+12, DET+13, EXIT!
>> JCH	ST1+5*
L	DET+2, DET+3, DET+4, DET+6, DET+9, DET+12, DET+13, EXIT!
LOCDOSE	ST1+9~, CHKLOC+4*
LOCNOD	ST1+9~
MM	DTC+1~*
NOTXT	ST1+9~, ST1+10, ST1+21, CHKPOS+1, CHKPOS+2, CHKPOS+4, CHKLOC+1, CHKLOC+2, CHKLOC+4*
NXT	ST1+9~, CHKPOS+2, CHKPOS+3, CHKPOS+4, CHKLOC+2, CHKLOC+3, CHKLOC+4
ORDOSE	ST1+9~, ST1+16*, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, PRD+8, PRD+9, PRD+10 , CHKPOS+4, CHKLOC+4
PKG	ST1+9~
POP	DEV+1!, DEV+3
POSDOSE	ST1+9~, CHKPOS+4*
>> PR	DET+12*, DET+13
>> PSGDCNT	ST1+8*, ST1+11
>> PSGDFN	ST1+1, ST1+2, ST1+4, ST1+5, ST1+6, ST1+7, ST1+8, ST1+11, ST1+13
PSGDRG	START+1~, ST1+11, ST1+12, ST1+18, DET+4, DET+5, DET+6, DET+7, DET+8, DET+12 , DET+13, PRD+1, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, PRD+8, PRD+9, PRD+10 , CHKPOS+3, CHKLOC+3
PSGDT	START+1~
PSGND0	START+1~, ST1+13*, PRD+1
PSGORD	START+1~, ST1+5, ST1+6, ST1+7, ST1+8, ST1+11, ST1+13
PSJC	START+2~
PSJCNT	START+1~, ST1+23*
PSJDOSE	START+1~
PSJDRN	START+1~, PRD+1*, PRD+3, PRD+4, PRD+5, PRD+6, PRD+7, PRD+8, PRD+9, PRD+10
PSJION	DEV+1*, DEV+3!, DEV+4!
PSJL	START+2~
>> PSJPG	ST1+23, HD+1, HD+4, HD+5, HD+6
PSJPR	START+1~, PRD+1, PRD+2, PRD+3, PRD+4, PRD+6, PRD+7, PRD+8
PSJY	START+2~
Q	START+4, ST1+17, DET+2, DET+7, DET+8, DET+11, EXIT!
>> Q2	DET+2, DET+8, DET+11, DET+17*
STDT	START+2~, ST1+3, ST1+4, ST1+6
STOPDT	START+2~, ST1+1*, ST1+4
T	DET+13, DET+14, DET+15, DET+16, EXIT!
X	EXIT!, PRD+9, PRD+10, DTC+1
>> X1	DTC+1*
>> X2	DTC+1*
Y	BEG+6, BEG+8, DET+6, DET+10, DET+13, DET+14, EXIT!, PRD+7, PRD+8, HD+11* , DTC+1, DTC+2
>> ZTDESC	DEV+5*
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
>> ZTRTN	DEV+5*
>> ZTSAVE(	DEV+6*
ZTSK	DEV+1!, DEV+7!

Customize PDF page

Package: Inpatient Medications