Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABSPOSN6

Package: Pharmacy Point of Sale

Routine: ABSPOSN6


Information

ABSPOSN6 ; IHS/FCS/DRS - NCPDP Fms F ILC A/R ; [ 09/12/2002 10:16 AM ]

Source Information

Source file <ABSPOSN6.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSN2  

Entry Points

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.26*1*
; 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?

External References

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All