Routine: ABSPOSN6

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
DRG Grouper	1	$$ICDDX^ICDCODE

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSN2

Name	Field # of Occurrence
^%ZIS	ABSUD102+2
^%ZISC	ABSUD102+5
$$ICDDX^ICDCODE	DIAGINFO+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?9,$E(X,1,15) Line Location: PFM+14
Function Call: WRITE	Prompt: ?31,$E($G(INSINFO("Cardholder Number")),1,45) Line Location: PFM+15
Function Call: WRITE	Prompt: ! Line Location: PFM+16
Function Call: WRITE	Prompt: ! Line Location: PFM+19
Function Call: WRITE	Prompt: ?6,$E($G(INSINFO("Cardholder Name")),1,33) Line Location: PFM+22
Function Call: WRITE	Prompt: ?40,"X" Line Location: PFM+23
Function Call: WRITE	Prompt: ?46,"X" Line Location: PFM+24
Function Call: WRITE	Prompt: ! Line Location: PFM+25
Function Call: WRITE	Prompt: $$DIAGINFO Line Location: PFM+28
Function Call: WRITE	Prompt: ! Line Location: PFM+29
Function Call: WRITE	Prompt: ! Line Location: PFM+32
Function Call: WRITE	Prompt: ?5,$E($G(PHARINFO("Name")),1,23) Line Location: PFM+35
Function Call: WRITE	Prompt: ?29,$S($L($G(PATINFO("Name")))>19:$E($P($G(PATINFO("Name")),",",1),1,18)_",",1:$E($G(PATINFO("Name")),1,19)) Line Location: PFM+36
Function Call: WRITE	Prompt: ! Line Location: PFM+37
Function Call: WRITE	Prompt: ?49,$E($G(PATINFO("DOB")),4,5) Line Location: PFM+41
Function Call: WRITE	Prompt: ?52,$E($G(PATINFO("DOB")),6,7) Line Location: PFM+42
Function Call: WRITE	Prompt: ?55,$E($G(PATINFO("DOB")),2,3) Line Location: PFM+43
Function Call: WRITE	Prompt: ?X*3+60,"X" Line Location: PFM+51
Function Call: WRITE	Prompt: ?63,"X" Line Location: PFM+54
Function Call: WRITE	Prompt: ?66,"X" Line Location: PFM+55
Function Call: WRITE	Prompt: ?66,"X" Line Location: PFM+56
Function Call: WRITE	Prompt: ?66,"X" Line Location: PFM+57
Function Call: WRITE	Prompt: ?69,"X" Line Location: PFM+58
Function Call: WRITE	Prompt: ?69,"X" Line Location: PFM+59
Function Call: WRITE	Prompt: ?72,"X" Line Location: PFM+60
Function Call: WRITE	Prompt: ! Line Location: PFM+61
Function Call: WRITE	Prompt: ?5,$E($G(PHARINFO("Street")),1,23) Line Location: PFM+64
Function Call: WRITE	Prompt: ! Line Location: PFM+65
Function Call: WRITE	Prompt: ?29,$E(INSINFO("INS. Co. Name"),1,25) Line Location: PFM+68
Function Call: WRITE	Prompt: ?56,$J(DRUGINFO(1,"Ingr. Cost"),7,2) Line Location: PFM+71
Function Call: WRITE	Prompt: ?64,$J(DRUGINFO(2,"Ingr. Cost"),7,2) Line Location: PFM+72
Function Call: WRITE	Prompt: ! Line Location: PFM+73
Function Call: WRITE	Prompt: ?5,$E($G(PHARINFO("City/State/ZIP")),1,23) Line Location: PFM+77
Function Call: WRITE	Prompt: ?29,$E(INSINFO("INS. Co. ADDR 1"),1,25) Line Location: PFM+78
Function Call: WRITE	Prompt: ! Line Location: PFM+79
Function Call: WRITE	Prompt: ?1,"TaxID# ",PHARINFO("Tax ID #") Line Location: PFM+83
Function Call: WRITE	Prompt: ?29,$E(INSINFO("INS. Co. ADDR 2"),1,25) Line Location: PFM+84
Function Call: WRITE	Prompt: ?56,$J(DRUGINFO(1,"Disp. Fee"),7,2) Line Location: PFM+85
Function Call: WRITE	Prompt: ?64,$J(DRUGINFO(2,"Disp. Fee"),7,2) Line Location: PFM+86
Function Call: WRITE	Prompt: ! Line Location: PFM+87
Function Call: WRITE	Prompt: ?6,$E(X,1,13) Line Location: PFM+96
Function Call: WRITE	Prompt: ?20,$E($G(DRUGINFO("DATE Written")),4,5) Line Location: PFM+97
Function Call: WRITE	Prompt: ?23,$E($G(DRUGINFO("DATE Written")),6,7) Line Location: PFM+98
Function Call: WRITE	Prompt: ?26,$E($G(DRUGINFO("DATE Written")),2,3) Line Location: PFM+99
Function Call: WRITE	Prompt: ?29,INSINFO("INS. Co. City/State/Zip") Line Location: PFM+100
Function Call: WRITE	Prompt: ! Line Location: PFM+101
Function Call: WRITE	Prompt: ?55-$L(DIPA("VCN")),"Patient #" Line Location: PFM+105
Function Call: WRITE	Prompt: ! Line Location: PFM+106
Function Call: WRITE	Prompt: ?6,$E($G(PHARINFO("Phone")),1,13) Line Location: PFM+109
Function Call: WRITE	Prompt: ?20,$E($G(DRUGINFO("DATE Filled")),4,5) Line Location: PFM+110
Function Call: WRITE	Prompt: ?23,$E($G(DRUGINFO("DATE Filled")),6,7) Line Location: PFM+111
Function Call: WRITE	Prompt: ?26,$E($G(DRUGINFO("DATE Filled")),2,3) Line Location: PFM+112
Function Call: WRITE	Prompt: ?31,PHARINFO("Representative") Line Location: PFM+113
Function Call: WRITE	Prompt: ?55-$L(X),X Line Location: PFM+114
Function Call: WRITE	Prompt: ! Line Location: PFM+115
Function Call: WRITE	Prompt: ?56,$J(DRUGINFO(1,"Total Price"),7,2) Line Location: PFM+119
Function Call: WRITE	Prompt: ?64,$J(DRUGINFO(2,"Total Price"),7,2) Line Location: PFM+120
Function Call: WRITE	Prompt: ! Line Location: PFM+121
Function Call: WRITE	Prompt: ?23,DRUGINFO(1,"DRUG Name") Line Location: PFM+127
Function Call: WRITE	Prompt: ! Line Location: PFM+128
Function Call: WRITE	Prompt: ?4,$E($G(DRUGINFO(1,"RX Number")),1,7) Line Location: PFM+132
Function Call: WRITE	Prompt: ?12,$E($G(DRUGINFO(1,"N/Refill")),1,2) Line Location: PFM+133
Function Call: WRITE	Prompt: ?15,$E($G(DRUGINFO(1,"Metric Quantity")),1,5) Line Location: PFM+134
Function Call: WRITE	Prompt: ?21,$E($G(DRUGINFO(1,"Days Supply")),1,4) Line Location: PFM+135
Function Call: WRITE	Prompt: ?26,X Line Location: NUM+1
Function Call: WRITE	Prompt: ?34,X Line Location: NUM4+1
Function Call: WRITE	Prompt: ?41,X Line Location: NUM2+1
Function Call: WRITE	Prompt: ?44,$E(X,1,8) Line Location: NUM2+4
Function Call: WRITE	Prompt: ! Line Location: NUM2+5
Function Call: WRITE	Prompt: ?23,DRUGINFO(2,"DRUG Name") Line Location: NUM2+8
Function Call: WRITE	Prompt: ! Line Location: NUM2+9
Function Call: WRITE	Prompt: ?64,$J(DRUGINFO(2,"Balance"),7,2) Line Location: NUM3+10
Function Call: WRITE	Prompt: ! Line Location: NUM3+11
Function Call: WRITE	Prompt: ! Line Location: NUM3+17
Function Call: WRITE	Prompt: ! Line Location: NUM3+20
Function Call: WRITE	Prompt: "$Y=",$Y," " Line Location: ABSUD102+4
Function Call: WRITE	Prompt: ! Line Location: ABSUD102+4
Function Call: WRITE	Prompt: $X#10 Line Location: 1+2
Function Call: WRITE	Prompt: "." Line Location: 1+3
Function Call: WRITE	Prompt: " " Line Location: 1+4
Routine Call	%ZIS Line Location: ABSUD102+2

Name	Line Occurrences (* Changed, ! Killed)
^ABSBCOMB	PFM+50
^ABSBV(	DIAGCODE+3
^ABSP(9002313.99 - [#9002313.99]	DRUGNAME+7, TAXID+4, DIAG+5
^ABSPEI - [#9002313.4]	PFM+90, DRUGNAME+4, TAXID+1, DIAG+2
^AUPNVPOV - [#9000010.07]	DIAGCODE+6, DIAGCODE+7
^AUPNVPOV("AD"	DIAGCODE+5
^AUTTRLSH - [#9999999.36]	PFM+53

Name	Line Occurrences
$$DIAG	PFM+28
$$DIAGCODE	DIAGINFO+2
$$DIAGINFO	PFM+28
$$DRUGNAME	PFM+127, NUM2+8
$$TAXID	PFM+83, PFM+93
$$TRANSNDC	PFM+136, DG2+5
1	ABSUD102+4
FIX749A	FIX749+1, FIX749+2
NUM	NUM
NUM1	NUM1
NUM2	NUM2
NUM3	NUM3
NUM4	NUM4
NUM5	NUM5

Name	Field # of Occurrence
^(0	PFM+53, DIAGCODE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DIAGINFO+7~*, DIAGINFO+8
DIAGCODE	DIAGINFO+2~*, DIAGINFO+3, DIAGINFO+7
>> DIPA("VCN"	PFM+105, PFM+114
>> DRUGINFO(	FIX749A+1, FIX749A+2, FIX749A+3, FIX749A+4*
>> DRUGINFO("DAT	E Filled" , PFM+110, PFM+111, PFM+112, E Written" , PFM+97, PFM+98, PFM+99
>> DRUGINFO(0	PFM+72, PFM+86, PFM+120, NUM2+8, DG2, NUM3+10, FIX749+2
>> DRUGINFO(1	PFM+71, PFM+85, PFM+119, PFM+127, PFM+132, PFM+133, PFM+134, PFM+135, PFM+136, PFM+137 , PFM+138, PFM+140, PFM+141, NUM+2, NUM4+2, NUM2+2, NUM2+3, NUM3+9
>> DRUGINFO(2	PFM+72, PFM+86, PFM+120, NUM2+8, DG2+1, DG2+2, DG2+3, DG2+4, DG2+5, DG2+8* , DG2+9, NUM1+2, NUM5+2, NUM3+6, NUM3+7, NUM3+10
I	ABSUD102+4~*
>> INSINFO("Card	holder Name" , PFM+22, holder Number" , PFM+15
>> INSINFO("Grou	p Name" , PFM+13, p Number" , PFM+12
>> INSINFO("IEN"	PFM+90, DRUGNAME+4, TAXID+1, DIAG+2
>> INSINFO("INS.	Co. ADDR 1" , PFM+78, Co. ADDR 2" , PFM+84, Co. City/State/Zip" , PFM+100, Co. Name" , PFM+2, PFM+68
>> INSINFO("Othe	r 3rd Party Coverage" , PFM+23
>> INSINFO("Relationship"	PFM+47
IO	PFM+4, ABSUD102+3
ISAKCAID	PFM+1~, PFM+2, PFM+3, PFM+10, PFM+91, NUM2+2, NUM3+6, TRANSNDC+2
N	DIAGCODE~
NUM	PFM+1~, NUM, NUM4, NUM2, NUM1, NUM5, NUM3
>> PATINFO("DOB"	PFM+41, PFM+42, PFM+43
>> PATINFO("Name"	PFM+36, PFM+40
>> PATINFO("Sex"	PFM+44, PFM+45
>> PHARINFO("City/State/ZIP"	PFM+2, PFM+77
>> PHARINFO("Med	icaid PHARmacy #" , PFM+10, PFM+91, PFM+94
>> PHARINFO("Name"	PFM+35
>> PHARINFO("PHA	Rmacy #" , PFM+92, PFM+95
>> PHARINFO("Phone"	PFM+109
>> PHARINFO("Representative"	PFM+113
>> PHARINFO("Street"	PFM+64
>> PHARINFO("Tax	ID #" , PFM+83, PFM+93
POP	ABSUD102+2~
RET	DIAGCODE+4~, DIAGCODE+6, DIAGCODE+7*, DIAGCODE+8
STOP	DIAGCODE+4~, DIAGCODE+5, DIAGCODE+6
U	PFM+53, PFM+90, DRUGNAME+4, DRUGNAME+7, TAXID+1, TAXID+4, DIAG+2, DIAG+5, DIAGINFO+8, DIAGCODE+3 , DIAGCODE+6, DIAGCODE+7
>> VSTIEN	DIAGCODE+3, DIAGCODE+5
X	PFM+9~, PFM+10, PFM+12, PFM+13, PFM+14, PFM+47, PFM+51, PFM+53, PFM+54, PFM+55 , PFM+56, PFM+57, PFM+58, PFM+59, PFM+90, PFM+91, PFM+92, PFM+93, PFM+94, PFM+95* , PFM+96, PFM+114, PFM+138~, PFM+139, PFM+140, PFM+141, NUM, NUM+1, NUM+2, NUM4* , NUM4+1, NUM4+2, NUM2, NUM2+1, NUM2+2, NUM2+3, NUM2+4, DG2+5, DG2+6, DG2+7 , DG2+8, DG2+9, NUM1, NUM1+1, NUM1+2, NUM5, NUM5+1, NUM5+2, NUM3, NUM3+1 , NUM3+6, NUM3+7, NUM3+8, TRANSNDC~, TRANSNDC+2, TRANSNDC+3, DRUGNAME+4~, DRUGNAME+5, DRUGNAME+7, DRUGNAME+8 , TAXID+1~, TAXID+2, TAXID+4, TAXID+5, DIAG+2~, DIAG+3, DIAG+5, DIAG+6, DIAGINFO+1~, DIAGINFO+8* , DIAGINFO+9, DIAGINFO+10, DIAGCODE+3~, DIAGCODE+5*, DIAGCODE+6, DIAGCODE+7, FIX749A~, FIX749A+1, FIX749A+2, FIX749A+3 , FIX749A+4

Name	Comments	DBIA/ICR reference
NUM4
NUM5
DIAG()	; Does this INSurer wnat the diagnosis printed? ; first, check an INSurer-specific setting
NUM1
NUM2
NUM3
TRANSNDC(X)	; Translate NDC code for special cases ; 1.261* ; output should contain "-" where appropriate
PFM	;EP
DIAGCODE(N)
FIX749	;
DG2
1	;
DIAGINFO()
NUM
ABSUD102	; temp hack of test pattern ; trying to get NCPDP Fms to run on SPAT2 printer
DRUGNAME()
FIX749A(X)
TAXID()	; Does this INSurer want the tax id # printed?

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSN6

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: