Routine: BEXRSRT

Information

BEXRSRT ; cmi/anch/maw - BEX SORT PATIENTS AND DATE 4/6/95 ; 12 Mar 2012 4:22 PM

Source Information

Source file <BEXRSRT.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT (C,NOW)^%DTC $$GET1^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
IHS Patient	1	$$HRN^AUPNPAT
IHS Pharmacy Auto Refill System	1	(,HEAD)^BEXRPAT

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;SORT ENTRIES TO BE PRINTED
PRT2	;BEGINNING OF PRINTING LOOP
ASKDATE	;GET BEGINNING AND ENDING DATES
ASKSITE	;EP - Ask to limit by site
PRTHEAD	;PRINT PAGE HEADING
PRT	;PRINT REPORT
ASKDATE1	;GET BEGINNING DATE
ASKDATE2	;GET ENDING DATE
DEVICE	;DEVICE SELECTION
PRTTOTP	;PRINT TOTAL TRANSACTIONS FOR A PATIENT
MAIN	;MAIN DRIVER SUBROUTINE
MAINDQ	;ENTRY POINT FOR TASKMAN WHEN PRINTOUT IS QUEUED
PRTOTAL	;PRINT TOTAL TRANSACTIONS FOR REPORT

External References

Name	Field # of Occurrence
^%DT	ASKDATE1+8, ASKDATE2+8
DD^%DT	ASKDATE1+2, ASKDATE1+5, ASKDATE2+6, PRT+7
C^%DTC	ASKDATE1+4
NOW^%DTC	PRT+6
^%ZIS	DEVICE+2
HOME^%ZIS	MAINDQ+4
^%ZISC	MAINDQ+3, MAINDQ+4, MAINDQ+10
^%ZTLOAD	DEVICE+8
$$HRN^AUPNPAT	SORT+33
^BEXRPAT	PRT2+9
HEAD^BEXRPAT	PRTHEAD+8
$$GET1^DIQ	SORT+20
^DIR	ASKSITE+5, PRTHEAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"REQUEST QUEUED!" Line Location: DEVICE+11
Function Call: WRITE	Prompt: !,"Task number: ",ZTSK,! Line Location: DEVICE+12
Function Call: WRITE	Prompt: !,"Sorting " Line Location: SORT+2
Function Call: WRITE	Prompt: "." Line Location: SORT+37
Function Call: WRITE	Prompt: !,*7,"NO RECORDS IN SPECIFIED RANGE!" Line Location: SORT+41
Function Call: WRITE	Prompt: ! Line Location: PRT2+9
Function Call: WRITE	Prompt: !,*7,"Exiting report." Line Location: PRT2+13
Function Call: WRITE	Prompt: # Line Location: PRTHEAD+5
Function Call: WRITE	Prompt: !,BEX("HEAD"),?53,BEX("HEADDATE")," PAGE ",DC,! Line Location: PRTHEAD+7
Function Call: WRITE	Prompt: !,?8,"Total transactions for date range ",BEX("BEGIN")," through ",BEX("END")," = ",BEX("TOTAL") Line Location: PRTOTAL+4
Routine Call	%ZIS Line Location: MAINDQ+4
Routine Call	DIR Line Location: ASKSITE+5 PRTHEAD+2
Routine Call	%ZIS Line Location: DEVICE+2

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	ASKSITE+2
^DIPT - [#.4]	PRT+9
^DIPT("B"	PRT+8
^DPT - [#2]	SORT+31
^PSRX("B"	SORT+18
^TMP($J	MAINDQ+11!, SORT+2!, SORT+25, SORT+26, SORT+36, SORT+39, SORT+40, PRT+13, PRT+14, PRT2+2 , PRT2+3, PRT2+5, PRT2+6, PRT2+8
^VEXHRX0(19080.1 - [#90350.1]	ASKDATE1+1, ASKDATE2+1, SORT+3, SORT+4, SORT+5, SORT+7, SORT+8, SORT+11

Name	Line Occurrences
ASKDATE	MAIN+3
ASKDATE1	ASKDATE+3
ASKDATE2	ASKDATE+4
ASKSITE	MAIN+6
DEVICE	MAIN+8
PRT	MAINDQ+2
PRTHEAD	PRT2+1, PRT2+7, PRTHEAD+4
PRTOTAL	PRT2+12
PRTTOTP	PRT2+4, PRT2+12
SORT	MAINDQ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRT+6*
%DT	MAIN+1~, ASKDATE+2*
%DT("A"	ASKDATE1+8, ASKDATE2+7
%DT("B"	ASKDATE1+8, ASKDATE2+7
%DT(0	ASKDATE2+7*
>> %ZIS	DEVICE+2*
BEX	MAIN+1~, MAINDQ+3!, PRT+5*
BEX("BEGIN"	ASKDATE1+1, ASKDATE1+2, ASKDATE1+11, ASKDATE2+4, ASKDATE2+7, SORT+3, SORT+6, PRTOTAL+2*, PRTOTAL+4
BEX("D0"	SORT+3, SORT+5, SORT+7, SORT+8, SORT+11, SORT+39, PRT+12, PRT2+6, PRT2+8, PRT2+9
BEX("DATE"	SORT+3, SORT+4, SORT+5, SORT+6, SORT+39, PRT+12, PRT2+5, PRT2+6, PRT2+8
BEX("DFN"	SORT+21*, SORT+25, SORT+26, SORT+33, SORT+36
BEX("DPT"	SORT+31*, SORT+35
BEX("END"	ASKDATE2+1, ASKDATE2+2, ASKDATE2+4, ASKDATE2+6, ASKDATE2+10, ASKDATE2+11, SORT+4, PRTOTAL+1, PRTOTAL+3*, PRTOTAL+4
BEX("FOUND"	SORT+23, SORT+28, SORT+30
BEX("HEAD"	PRT+8, PRT+9, PRT+10, PRTHEAD+7
BEX("HEADDATE"	PRT+6, PRT+7, PRTHEAD+7
BEX("LASTSSN"	PRT+12, PRT+14, PRT2+4*
BEX("LINE"	PRT+11, PRT2+7, PRT2+10, PRTHEAD+6, PRTHEAD+9
BEX("MED"	SORT+13!, SORT+15, SORT+20, SORT+36, SORT+39, PRT+12, PRT2+8
BEX("NAME"	SORT+7, SORT+21, SORT+22, SORT+26, SORT+27, SORT+31, SORT+35, SORT+36, SORT+38, SORT+39 , PRT+12, PRT+13, PRT+14, PRT2+2, PRT2+3, PRT2+5, PRT2+6, PRT2+8
BEX("OUT"	MAIN+2, MAIN+7, MAIN+8, MAINDQ+1, ASKSITE+7, DEVICE+2, DEVICE+13, SORT+40, SORT+41, PRT2+2 , PRT2+3, PRT2+5, PRT2+6, PRT2+12, PRTHEAD+3
BEX("PATTOT"	PRT+5, PRT2+11, PRTTOTP+2*
BEX("RX"	SORT+8*, SORT+16, SORT+18
BEX("SSN"	SORT+27, SORT+33, SORT+34, SORT+36, SORT+39, PRT+12, PRT2+3*, PRT2+4, PRT2+5, PRT2+6 , PRT2+8
BEX("TOTAL"	PRT+5, PRT2+11, PRTOTAL+4
>> BEXALL	ASKSITE+8, ASKSITE+9, SORT+12
BEXRXI	SORT+17~, SORT+18*, SORT+19, SORT+20
BEXSITE	SORT+10~, SORT+11*, SORT+12
D0	PRT+4~, PRT2+9*
DC	PRT+4~, PRT+11, PRTHEAD+2, PRTHEAD+5, PRTHEAD+6, PRTHEAD+7
DIR	ASKSITE+1!, ASKSITE+6!, PRTHEAD+2!
DIR("A"	ASKSITE+2*
DIR("B"	ASKSITE+3*
DIR(0	ASKSITE+4, PRTHEAD+2
>> DIRUT	ASKSITE+7
DT	ASKDATE1+4
DTIME	MAIN+2*
DTOUT	MAIN+1~, MAIN+4, ASKDATE+3
DUZ(2	ASKSITE+2, SORT+12, SORT+33
DXS	PRT+4~
IO	PRT+3
IO("Q"	DEVICE+1!, DEVICE+3, DEVICE+9!
IOSL	PRT2+7
IOST	SORT+2, SORT+37, SORT+41, PRT2+13, PRTHEAD+2, PRTHEAD+5
N	PRT+4~
N(1	PRT+11*
>> POP	DEVICE+2
U	MAIN+2*, ASKSITE+2, SORT+7, SORT+8, SORT+11, SORT+27, SORT+35, SORT+36
X	MAIN+1~, ASKDATE1+5, PRTHEAD+3, PRTHEAD+4
>> X1	ASKDATE1+4*
>> X2	ASKDATE1+4*
Y	MAIN+1~, MAIN+4, ASKDATE+3, ASKDATE1+2, ASKDATE1+5, ASKDATE1+8, ASKDATE1+11, ASKDATE2+6, ASKDATE2+7, ASKDATE2+10 , ASKDATE2+11, ASKSITE+8, ASKSITE+9, PRT+7
>> ZTDESC	DEVICE+5*
ZTQUEUED	MAINDQ+3, MAINDQ+4, DEVICE+1!
>> ZTREQ	MAINDQ+3*
>> ZTRTN	DEVICE+4*
>> ZTSAVE("BEX*"	DEVICE+6*
>> ZTSAVE("DTIME"	DEVICE+7*
ZTSK	DEVICE+1!, DEVICE+10, DEVICE+12

Customize PDF page

Package: IHS Pharmacy Auto Refill System

Routine: BEXRSRT

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: