Routine: ABSPOSEX

Package	Total	Call Graph
VA Fileman	5	DD^%DT (,C)^%DTC EN^DDIOL ^DIC ^DIR
Kernel	3	^%ZIS ^%ZISC $$NPI^XUSNPI
Pharmacy Point of Sale	2	($$505,$$509)^ABSPOS03 AUTO^ABSPOSM1
IHS Patient	1	($$DOB,$$HRN)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
GETPHARM()	;when more than one pharmacy is set up for this site, prompt ; for which one to use
DEVSEL	; SELECT DEVICE
EDT()
ZEND
FIND(ABSPSTRT,ABSPEND,ABSPPIEN,ABSPTMP)	; FIND PRESCRIPTIONS FOR THIS PATIENT IN A DATE RANGE
BDT()
GETPAT()	;Prompt the user for which patient they would like to generate an E1 for
MAIN	;EP

External References

Name	Field # of Occurrence
DD^%DT	MAIN+37, MAIN+38, MAIN+51, MAIN+60
^%DTC	MAIN+29
C^%DTC	BDT+9, EDT+9
^%ZIS	DEVSEL+3, DEVSEL+5
^%ZISC	MAIN+41, MAIN+79, DEVSEL+8, ZEND+1
$$505^ABSPOS03	FIND+34
$$509^ABSPOS03	FIND+35
AUTO^ABSPOSM1	MAIN+5
$$DOB^AUPNPAT	MAIN+12
$$HRN^AUPNPAT	MAIN+13
EN^DDIOL	MAIN+30
^DIC	GETPAT+8, GETPHARM+13
^DIR	BDT+6, EDT+6
$$NPI^XUSNPI	FIND+50

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: MAIN+45
Function Call: WRITE	Prompt: !,"PATIENT: "_ABSPPNAM_" DOB: "_ABSPPDOB_" HRN: "_ABSPPHRN Line Location: MAIN+46
Function Call: WRITE	Prompt: !?15," PHARMACY RELEASE DATES FROM "_ABSPFROM_" TO "_ABSPTO Line Location: MAIN+47
Function Call: WRITE	Prompt: !!,?0,"GRAND TOTAL: "_ABSPGTOT,?25,"TOTAL INS PAID: "_ABSPGINS,?53,"TOTAL DUE: "_ABSPGDUE Line Location: MAIN+78
Function Call: WRITE	Prompt: !! Line Location: GETPHARM+8
Function Call: WRITE	Prompt: ! Line Location: BDT+2
Function Call: WRITE	Prompt: ! Line Location: EDT+2
Routine Call	DIC Line Location: GETPAT+8 GETPHARM+13
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]	MAIN+56, GETPHARM+4, GETPHARM+10
^ABSPECX("RPT" - [#9002313.61]	FIND+7, FIND+9, FIND+10, FIND+16, FIND+21, FIND+22, FIND+43
^ABSPTL - [#9002313.57]	FIND+12, FIND+14, FIND+18, FIND+19, FIND+20, FIND+48
^PSDRUG - [#50]	FIND+46, FIND+47
^PSRX - [#52]	FIND+44, FIND+45, FIND+49, FIND+51, FIND+52
^VA(200 - [#200]	MAIN+65

Label References

Name	Line Occurrences
$$BDT	MAIN+15
$$EDT	MAIN+21
$$GETPAT	MAIN+8
DEVSEL	MAIN+34, DEVSEL+13
FIND	MAIN+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSPARRY	MAIN+1~
ABSPBDT	BDT+1~, BDT+8*, BDT+9
ABSPCPAY	FIND+2~, FIND+28, FIND+34, FIND+40, FIND+53, FIND+57
ABSPCTYN	FIND+2~, FIND+23, FIND+26, FIND+31, FIND+38, FIND+42, FIND+57
ABSPCTYP	FIND+1~, FIND+16*, FIND+25, FIND+30, FIND+37, FIND+57
ABSPDAT	FIND+1~
ABSPDAYS	FIND+2~, FIND+52*, FIND+57
ABSPDDUE	MAIN+3~, MAIN+55, MAIN+70, MAIN+72, MAIN+75
ABSPDINS	MAIN+3~, MAIN+55, MAIN+69, MAIN+72, MAIN+74
ABSPDOB	MAIN+1~
ABSPDONE	MAIN+1~, MAIN+6, MAIN+14, MAIN+18, MAIN+24, MAIN+27, MAIN+28, MAIN+31, FIND+1~, FIND+2~ , FIND+5, FIND+7, FIND+8, GETPAT+1~, GETPAT+2, GETPAT+7, GETPAT+9, GETPHARM+2~, GETPHARM+3, GETPHARM+12 , GETPHARM+14
ABSPDRGN	FIND+1~, FIND+46*, FIND+57
ABSPDRGP	FIND+1~, FIND+45*, FIND+46, FIND+47
>> ABSPDSYN	FIND+47*
ABSPDTOT	MAIN+3~, MAIN+55, MAIN+68, MAIN+72, MAIN+73
ABSPDUZ2	GETPAT+1~, GETPAT+4*, GETPAT+11
ABSPEDT	EDT+1~, EDT+8*, EDT+9
ABSPEND	MAIN+1~, MAIN+2~, MAIN+21*, MAIN+22, MAIN+28, MAIN+29, MAIN+35, MAIN+38, FIND~, FIND+8
ABSPFROM	MAIN+2~, MAIN+37*, MAIN+47
ABSPGDUE	MAIN+3~, MAIN+48, MAIN+75, MAIN+78
ABSPGINS	MAIN+3~, MAIN+48, MAIN+74, MAIN+78
ABSPGTOT	MAIN+3~, MAIN+48, MAIN+73, MAIN+78
ABSPHARM	GETPHARM+2~, GETPHARM+4*, GETPHARM+6
ABSPHCNT	GETPHARM+2~, GETPHARM+3, GETPHARM+5, GETPHARM+6, GETPHARM+7
ABSPHLDP	GETPHARM+2~, GETPHARM+6*, GETPHARM+7, GETPHARM+10
ABSPNDC	FIND+1~, FIND+48*, FIND+57
ABSPNET	FIND+3~, FIND+24*
>> ABSPPAID	FIND+27, FIND+35, FIND+39, FIND+54, FIND+57
ABSPPDOB	MAIN+2~, MAIN+12*, MAIN+46
ABSPPHRM	MAIN+1~, MAIN+53, MAIN+54, MAIN+56, MAIN+58, MAIN+59, MAIN+60, MAIN+61, MAIN+62, MAIN+63 , MAIN+64, MAIN+65, MAIN+66, MAIN+68, MAIN+69, MAIN+70, FIND+1~, FIND+14, FIND+15, FIND+57
ABSPPHRN	MAIN+1~, MAIN+13*, MAIN+46
ABSPPIEN	MAIN+1~, MAIN+10*, MAIN+12, MAIN+13, MAIN+35, FIND~, FIND+13
ABSPPINF	MAIN+1~, MAIN+8*, MAIN+9, MAIN+10, MAIN+11
ABSPPNAM	MAIN+1~, MAIN+11*, MAIN+46
ABSPPNPI	FIND+2~, FIND+50*, FIND+57
ABSPPRMI	MAIN+2~, MAIN+57, MAIN+58, MAIN+59, MAIN+60, MAIN+61, MAIN+62, MAIN+63, MAIN+64, MAIN+65 , MAIN+66, MAIN+68, MAIN+69, MAIN+70
ABSPPROV	MAIN+2~, MAIN+64, MAIN+65, FIND+1~, FIND+49, FIND+50, FIND+57
ABSPPSTN	FIND+3~, FIND+20*, FIND+33, FIND+34, FIND+35
ABSPQTY	FIND+2~, FIND+51*, FIND+57
ABSPQUIT	MAIN+2~, MAIN+7, MAIN+17, MAIN+20, MAIN+23*, MAIN+26, MAIN+33
ABSPRDT	FIND+1~, FIND+4, FIND+7, FIND+8, FIND+9, FIND+56, FIND+57
ABSPRESP	FIND+3~, FIND+19*, FIND+32, FIND+34, FIND+35
>> ABSPRICE	FIND+18, FIND+28, FIND+40, FIND+55, FIND+57
ABSPRMI	FIND+1~, FIND+6, FIND+9, FIND+10, FIND+16, FIND+21, FIND+22, FIND+43
ABSPRXDT	MAIN+1~
ABSPRXN	FIND+2~
ABSPRXR	FIND+2~
ABSPSDAT	MAIN+2~, MAIN+36, MAIN+49, MAIN+50, MAIN+51, MAIN+54, MAIN+58, MAIN+59, MAIN+60, MAIN+61 , MAIN+62, MAIN+63, MAIN+64, MAIN+65, MAIN+66, MAIN+68, MAIN+69, MAIN+70
ABSPSTOP	DEVSEL+1~, DEVSEL+2, DEVSEL+9, DEVSEL+11
ABSPSTRT	MAIN+2~, MAIN+15*, MAIN+16, MAIN+27, MAIN+29, MAIN+35, MAIN+37, FIND~, FIND+4
ABSPTDAT	FIND+2~, FIND+21*, FIND+57
ABSPTMP	MAIN+1~, MAIN+35, FIND~
ABSPTMP(	MAIN+49, MAIN+50, MAIN+54, MAIN+58, MAIN+59, MAIN+60, MAIN+61, MAIN+62, MAIN+63, MAIN+64 , MAIN+65, MAIN+66, MAIN+68, MAIN+69, MAIN+70, FIND+56, FIND+57
ABSPTMP(""	MAIN+40
ABSPTO	MAIN+2~, MAIN+38*, MAIN+47
ABSPTPAT	FIND+2~, FIND+12*, FIND+13
ABSPTRNS	FIND+2~, FIND+10*, FIND+11, FIND+12, FIND+14, FIND+18, FIND+19, FIND+20, FIND+48
ABSPTRXI	FIND+1~, FIND+22*, FIND+44, FIND+45, FIND+49, FIND+51, FIND+52, FIND+57
>> ABSPTRXN	FIND+44*
>> ABSPTRXR	FIND+43*, FIND+57
DIC	GETPAT+1~, GETPAT+5, GETPAT+10!, GETPHARM+2~, GETPHARM+9
DIC("A"	GETPAT+6, GETPHARM+11
DIC("B"	GETPHARM+10*
DIC(0	GETPAT+5, GETPHARM+9
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
>> DTOUT	GETPAT+9, GETPHARM+14
>> DUOUT	GETPAT+9, GETPHARM+14, DEVSEL+7
DUZ(2	MAIN+13, GETPAT+4, GETPAT+11
IO	MAIN+4~, MAIN+44
IOF	MAIN+45
>> PHARM	GETPHARM+3*, GETPHARM+4
>> POP	DEVSEL+4, DEVSEL+12
RESP	FIND+3~
U	MAIN+10, MAIN+11, MAIN+59, FIND+10, FIND+12, FIND+14, FIND+16, FIND+18, FIND+19, FIND+20 , FIND+21, FIND+22, FIND+43, FIND+44, FIND+45, FIND+46, FIND+47, FIND+48, FIND+49, FIND+50 , FIND+51, FIND+52, GETPHARM+10
X	MAIN+30, MAIN+31, GETPAT+9, BDT+1~, BDT+10, EDT+1~, EDT+10
X1	MAIN+29, BDT+1~, BDT+9, EDT+1~, EDT+9*
>> X2	MAIN+29*
Y	MAIN+37, MAIN+38, MAIN+51, MAIN+52, MAIN+60, MAIN+61, GETPAT+1~, GETPAT+3, GETPAT+9, GETPAT+12 , GETPHARM+2~, GETPHARM+3, GETPHARM+14, GETPHARM+15, BDT+8, EDT+8

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSEX

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: