Routine: ABSPOSRT

Package	Total	Call Graph
VA Fileman	4	DD^%DT (,C)^%DTC EN^DDIOL ^DIR
Kernel	2	^%ZIS ^%ZISC
Pharmacy Point of Sale	2	$$DFF2EXT^ABSPECFM ($$CLNC,$$GETDO,$$USER,$$WRITE)^ABSPOSUU
IHS VA Utilities	1	^XBCLS

Entry Points

Name	Comments	DBIA/ICR reference
DEVSEL	; SELECT DEVICE
EN	;
START
EDT()
PRNTDHD	; PRINT HEADER
ZEND	; END AND KILL VARIABLES
FIND	; FIND TRANSACTIONS BY TRANSACTION DATE USING "AH" CROSS REFERENCE
GETINFO(ABSPRDT,ABSPTRN,ABSPRESC)	;GET ALL INFO FOR THIS PARTICULAR TRANSACTION
OTHERS(ABSPRESC,ABSPSTRT,ABSPEND)	;CHECK FOR OTHER TRANSACTIONS OUTSIDE DATE RANGE
BDT()
PRNTDTL
NEXT	; WHAT TO DO NEXT
PRHDR	; PRINT HEADER

External References

Name	Field # of Occurrence
DD^%DT	PRHDR+4, PRHDR+7, PRNTDTL+9
^%DTC	EN+20
C^%DTC	BDT+9, EDT+9
^%ZIS	DEVSEL+3, DEVSEL+5
^%ZISC	ZEND+2
$$DFF2EXT^ABSPECFM	GETINFO+36
$$CLNC^ABSPOSUU	EN+25
$$GETDO^ABSPOSUU	GETINFO+23
$$USER^ABSPOSUU	EN+27
$$WRITE^ABSPOSUU	PRNTDHD+2, PRNTDTL+17, PRNTDTL+23, PRNTDTL+39, PRNTDTL+64, PRNTDTL+66, PRNTDTL+68, PRNTDTL+70, PRNTDTL+72, PRNTDTL+74 , PRNTDTL+77, PRNTDTL+79, PRNTDTL+81, PRNTDTL+83, PRNTDTL+87, PRNTDTL+89, PRNTDTL+91, PRNTDTL+93, PRNTDTL+95, PRNTDTL+97 , PRNTDTL+99, PRNTDTL+101
EN^DDIOL	EN+21
^DIR	BDT+6, EDT+6
^XBCLS	EN+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRHDR+9
Function Call: WRITE	Prompt: !,?16,"Pharmacy Point of Sale Transaction History Report" Line Location: PRHDR+10
Function Call: WRITE	Prompt: !?22,"From: "_ABSPFBDT_" TO: "_ABSPFEDT Line Location: PRHDR+11
Function Call: WRITE	Prompt: !?18,"Pharmacy: "_ABSPPPHM Line Location: PRHDR+12
Function Call: WRITE	Prompt: !?22,"User: "_ABSPUSER Line Location: PRHDR+13
Function Call: WRITE	Prompt: ! Line Location: BDT+2
Function Call: WRITE	Prompt: ! Line Location: EDT+2
Routine Call	DIR Line Location: BDT+6 EDT+6
Routine Call	%ZIS Line Location: DEVSEL+3 DEVSEL+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.56 - [#9002313.56]	PRNTDTL+13
^ABSPC - [#9002313.02]	PRNTDTL+36
^ABSPF(9002313.93 - [#9002313.93]	GETINFO+32, GETINFO+33
^ABSPR - [#9002313.03]	GETINFO+23, GETINFO+25, GETINFO+29, GETINFO+31, GETINFO+36
^ABSPTL - [#9002313.57]	FIND+10, GETINFO+2, OTHERS+6
^ABSPTL("AH"	FIND+6, FIND+9
^ABSPTL("B"	OTHERS+5
^TMP("ABSPOSRT"	GETINFO+46*, NEXT+4, PRNTDTL+5, PRNTDTL+6, ZEND+1!
^VA(200 - [#200]	PRNTDTL+22

Label References

Name	Line Occurrences
$$BDT	EN+7
$$EDT	EN+12
$$OTHERS	PRNTDTL+37
DEVSEL	EN+28, DEVSEL+13
FIND	EN+31, START+8
GETINFO	FIND+11
NEXT	EN+32
PRHDR	NEXT+3
PRNTDHD	PRNTDTL+41
PRNTDTL	NEXT+11
START	EN+3
ZEND	DEVSEL+8, NEXT+6, NEXT+10, NEXT+12, START+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSP1PTL	GETINFO+1~, GETINFO+4*, GETINFO+13
ABSP9PTL	GETINFO+1~, GETINFO+5*, GETINFO+39, GETINFO+41, GETINFO+42
ABSPAID1	PRNTDTL+2~, PRNTDTL+57, PRNTDTL+59, PRNTDTL+61, PRNTDTL+62, PRNTDTL+63
ABSPAYGT	PRNTDTL+2~, PRNTDTL+3, PRNTDTL+60
ABSPBAMT	GETINFO+1~, GETINFO+12, GETINFO+19, GETINFO+20, GETINFO+41, GETINFO+46, PRNTDTL+1~, PRNTDTL+53*
ABSPBDT	BDT+1~, BDT+8*, BDT+9
ABSPCLM	EN+1~
ABSPCLM(	GETINFO+47*, PRNTDTL+34
ABSPCLMI	GETINFO+1~, GETINFO+7, GETINFO+47, PRNTDTL+2~, PRNTDTL+34, PRNTDTL+35, PRNTDTL+36
ABSPDATE	PRNTDTL+2~
ABSPDATE(	PRNTDTL+30, PRNTDTL+45, PRNTDTL+61*
ABSPDATE("DT"	PRNTDTL+61
ABSPDONE	EN+1~, EN+4, EN+6, EN+10, EN+15, EN+18, EN+19, EN+22, FIND+1~, FIND+4* , FIND+6, FIND+7*, FIND+9
ABSPDT	OTHERS+2~, OTHERS+6*, OTHERS+7
ABSPEDT	EDT+1~, EDT+8*, EDT+9
ABSPEND	EN+1~, EN+12, EN+13, EN+19, EN+20, FIND+3, FIND+7, PRHDR+6, PRNTDTL+37, START+4* , OTHERS~, OTHERS+7
ABSPFBDT	PRHDR+1~, PRHDR+5*, PRHDR+11
ABSPFEDT	PRHDR+1~, PRHDR+8*, PRHDR+11
ABSPFRDT	PRNTDTL+1~, PRNTDTL+10*
ABSPHARM	PRNTDTL+2~
ABSPHARM(	PRNTDTL+31, PRNTDTL+46, PRNTDTL+62*
>> ABSPINS	START+5*
ABSPJ	START+1~
ABSPLCNT	EN+1~
ABSPORIG	GETINFO+1~
ABSPOTH	PRNTDTL+2~, PRNTDTL+37*, PRNTDTL+38, PRNTDTL+66
ABSPOUT	NEXT+1~, NEXT+2, NEXT+10, PRNTDHD+2, PRNTDHD+3, PRNTDTL+1~, PRNTDTL+4, PRNTDTL+5, PRNTDTL+12, PRNTDTL+15 , PRNTDTL+17, PRNTDTL+18, PRNTDTL+20, PRNTDTL+23, PRNTDTL+24, PRNTDTL+26, PRNTDTL+39, PRNTDTL+40, PRNTDTL+43, PRNTDTL+64* , PRNTDTL+65, PRNTDTL+66, PRNTDTL+67, PRNTDTL+68, PRNTDTL+69, PRNTDTL+70, PRNTDTL+71, PRNTDTL+72, PRNTDTL+73, PRNTDTL+74* , PRNTDTL+75, PRNTDTL+76, PRNTDTL+77, PRNTDTL+78, PRNTDTL+79, PRNTDTL+80, PRNTDTL+81, PRNTDTL+82, PRNTDTL+83, PRNTDTL+84 , PRNTDTL+86, PRNTDTL+87, PRNTDTL+88, PRNTDTL+89, PRNTDTL+90, PRNTDTL+91, PRNTDTL+92, PRNTDTL+93, PRNTDTL+94, PRNTDTL+95* , PRNTDTL+96, PRNTDTL+97, PRNTDTL+98, PRNTDTL+99, PRNTDTL+100, PRNTDTL+101*, PRNTDTL+102
ABSPPAID	GETINFO+1~, GETINFO+11, GETINFO+34, GETINFO+36, GETINFO+38, GETINFO+41, GETINFO+46, PRNTDTL+1~, PRNTDTL+54, PRNTDTL+57 , PRNTDTL+60
ABSPPAT	START+1~
ABSPPHM1	GETINFO+1~, GETINFO+13, GETINFO+14, GETINFO+15, GETINFO+46
ABSPPHMN	PRNTDTL+1~, PRNTDTL+13, PRNTDTL+14
ABSPPIEN	START+1~
ABSPPPHM	EN+1~, GETINFO+14, GETINFO+15, PRHDR+12, PRNTDTL+1~, PRNTDTL+7, PRNTDTL+11, PRNTDTL+12, PRNTDTL+13, PRNTDTL+20 , PRNTDTL+26, PRNTDTL+31, PRNTDTL+32, PRNTDTL+43, PRNTDTL+46, PRNTDTL+47, PRNTDTL+48, PRNTDTL+62, PRNTDTL+63, START+6
ABSPPRI	GETINFO+1~, GETINFO+6, GETINFO+8, GETINFO+21, GETINFO+23, GETINFO+25, GETINFO+29, GETINFO+31, GETINFO+36, GETINFO+46 , PRNTDTL+2~, PRNTDTL+55, PRNTDTL+56, PRNTDTL+58
ABSPPRX	PRNTDTL+2~, PRNTDTL+33*
ABSPPRXR	PRNTDTL+2~, PRNTDTL+35, PRNTDTL+36, PRNTDTL+38*
ABSPQUIT	EN+1~, EN+5, EN+9, EN+11, EN+14, EN+17, EN+24, EN+25, EN+26, EN+27* , EN+29
ABSPRDT	FIND+1~, FIND+2, FIND+6, FIND+7, FIND+9, FIND+11, GETINFO~, GETINFO+46
ABSPREA	GETINFO+1~, GETINFO+10, GETINFO+27, GETINFO+29, GETINFO+32, GETINFO+33, GETINFO+37, GETINFO+41, GETINFO+46, PRNTDTL+1~ , PRNTDTL+52
ABSPREJ	EN+1~
ABSPRESC	FIND+1~, FIND+10, FIND+11, GETINFO~, GETINFO+23, GETINFO+44, GETINFO+45, GETINFO+46, GETINFO+47, PRNTDTL+1~ , PRNTDTL+25, PRNTDTL+26*, PRNTDTL+27, PRNTDTL+29, PRNTDTL+33, PRNTDTL+34, PRNTDTL+37, PRNTDTL+43, PRNTDTL+48, OTHERS~ , OTHERS+5
ABSPRESP	FIND+1~, PRNTDTL+2~
ABSPRESP(	GETINFO+36, PRNTDTL+56, PRNTDTL+58
ABSPREST	PRNTDTL+2~
ABSPREST(	PRNTDTL+27, PRNTDTL+29*
ABSPRJ	EN+1~
ABSPRJC	START+1~
ABSPRJCD	PRNTDTL+1~, PRNTDTL+51*
ABSPRNUM	GETINFO+1~, GETINFO+10, GETINFO+27, GETINFO+29, GETINFO+31, GETINFO+32, GETINFO+33, GETINFO+37, GETINFO+41, GETINFO+46
>> ABSPRTYP	START+7*
ABSPRXGT	PRNTDTL+2~, PRNTDTL+3, PRNTDTL+28
ABSPSBGT	PRNTDTL+2~, PRNTDTL+3, PRNTDTL+44
ABSPSTOP	DEVSEL+1~, DEVSEL+2, DEVSEL+9, DEVSEL+11, NEXT+1~, NEXT+2, NEXT+7, NEXT+9
ABSPSTRT	EN+1~, EN+7, EN+8, EN+18, EN+20, FIND+2, PRHDR+3, PRNTDTL+37, START+3, OTHERS~ , OTHERS+7
ABSPSUB	PRNTDTL+1~, PRNTDTL+49*
>> ABSPSUM	PRHDR+2
ABSPTDT	GETINFO+1~, GETINFO+40*, GETINFO+42
ABSPTL	GETINFO+1~
ABSPTL(	GETINFO+2*, GETINFO+3, GETINFO+4, GETINFO+5, GETINFO+12, GETINFO+19
ABSPTMP	EN+1~
ABSPTMP(	PRNTDTL+6*, PRNTDTL+12, PRNTDTL+20, PRNTDTL+26, PRNTDTL+43, PRNTDTL+48, PRNTDTL+85!
ABSPTMPC	EN+1~
ABSPTMPC(	GETINFO+44, GETINFO+45, GETINFO+46
ABSPTPTL	FIND+1~, GETINFO+1~, GETINFO+3*, GETINFO+6, GETINFO+7, GETINFO+16, GETINFO+22, GETINFO+40
ABSPTRDT	PRNTDTL+1~, PRNTDTL+4, PRNTDTL+5, PRNTDTL+6, PRNTDTL+8, PRNTDTL+12, PRNTDTL+20, PRNTDTL+26, PRNTDTL+30, PRNTDTL+31 , PRNTDTL+32, PRNTDTL+43, PRNTDTL+45, PRNTDTL+46, PRNTDTL+47, PRNTDTL+48, PRNTDTL+61, PRNTDTL+62, PRNTDTL+63, PRNTDTL+85
ABSPTRN	FIND+1~, FIND+8, FIND+9, FIND+10, FIND+11, GETINFO~, GETINFO+2, GETINFO+3, GETINFO+4, GETINFO+5 , GETINFO+12, GETINFO+19, GETINFO+46, PRNTDTL+1~, PRNTDTL+42, PRNTDTL+43, PRNTDTL+48, OTHERS+2~, OTHERS+3, OTHERS+5 , OTHERS+6
ABSPTTYP	GETINFO+1~, GETINFO+9, GETINFO+12, GETINFO+26, GETINFO+41, GETINFO+42*, GETINFO+43, GETINFO+46
ABSPTYP	PRNTDTL+1~, PRNTDTL+50*
ABSPTYPI	GETINFO+1~, GETINFO+25*, GETINFO+26, GETINFO+28, GETINFO+35, GETINFO+38
ABSPUSER	EN+1~, GETINFO+17, GETINFO+18, PRHDR+13, PRNTDTL+2~, PRNTDTL+19, PRNTDTL+20, PRNTDTL+22, PRNTDTL+26, PRNTDTL+32 , PRNTDTL+43, PRNTDTL+47, PRNTDTL+48, PRNTDTL+63
ABSPUSR	PRNTDTL+2~
ABSPUSR(	PRNTDTL+32, PRNTDTL+47, PRNTDTL+63*
ABSPUSR1	GETINFO+1~, GETINFO+16, GETINFO+17, GETINFO+18, GETINFO+46
ABSPUSRN	PRNTDTL+1~, PRNTDTL+21, PRNTDTL+22
DIR	BDT+1~, BDT+3!, EDT+1~, EDT+3!
DIR("A"	BDT+5, EDT+5
DIR(0	BDT+4, EDT+4
>> DIRUT	BDT+7, EDT+7
DO	GETINFO+1~, GETINFO+22, GETINFO+23, GETINFO+24, GETINFO+25, GETINFO+29, GETINFO+31, GETINFO+36
DONE	OTHERS+2~, OTHERS+4, OTHERS+5, OTHERS+7
DT	START+3, START+4
>> DUOUT	DEVSEL+7
IO	PRHDR+2
IOF	PRHDR+2, PRHDR+9
>> POP	DEVSEL+4, DEVSEL+12
STRING	PRNTDTL+1~, PRNTDTL+48*, PRNTDTL+49, PRNTDTL+50, PRNTDTL+51, PRNTDTL+52, PRNTDTL+53, PRNTDTL+54, PRNTDTL+55
U	EN+1~, EN+2*, FIND+10, GETINFO+6, GETINFO+7, GETINFO+13, GETINFO+16, GETINFO+19, GETINFO+22, GETINFO+25 , GETINFO+31, GETINFO+33, GETINFO+36, GETINFO+40, GETINFO+41, GETINFO+42, GETINFO+46, PRNTDTL+13, PRNTDTL+36, PRNTDTL+49 , PRNTDTL+50, PRNTDTL+51, PRNTDTL+52, PRNTDTL+53, PRNTDTL+54, PRNTDTL+55, OTHERS+6
X	EN+1~, EN+21, EN+22, START+1~, BDT+1~, BDT+10, EDT+1~, EDT+10, OTHERS+2~, OTHERS+4* , OTHERS+7*, OTHERS+8
X1	EN+20, BDT+1~, BDT+9, EDT+1~, EDT+9*
>> X2	EN+20*
Y	PRHDR+1~, PRHDR+3, PRHDR+5, PRHDR+6, PRHDR+8, PRNTDTL+1~, PRNTDTL+8*, PRNTDTL+10, START+1~, BDT+1~ , BDT+8, EDT+1~, EDT+8
>> ZTQPARAM	EN+3, START+2, START+3, START+4

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSRT

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: