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

Package: Pharmacy Point of Sale

Routine: ABSPOSH7


Information

ABSPOSH7 ;IHS/SD/lwj - NCPDP 5.1 Post 5.1 response [ 09/04/2002 10:54 AM ]

Source Information

Source file <ABSPOSH7.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSH5  

Entry Points

Name Comments DBIA/ICR reference
RESPPRC ;EP - NCPDP 5.1 response processing (moved from ABSPOSH5)
; called from WRTTRAN^ABSPOSH5
; MEDN is set in ABSPOSH5 in the WRTTRAN subroutine
; process the response pricing segment - here's the fields we MIGHT
; encounter:
; 505 - patient pay amount
; 506 - ingredient code paid
; 507 - dispensing fee paid
; 557 - tax exempt indicator
; 558 - flat sales tax amount paid
; 559 - percentage sales tax amount paid
; 560 - percentage sales tax rate paid
; 561 - percentage sales tax basis paid
; 521 - incentive amount paid
; 562 - professional service fee paid
; 563 - other amount paid count
; 564 - other amount paid qualifier (repeating)
; 565 - other amount paid (repeating)
; 566 - other payer amount recognized
; 509 - total amount paid
; 522 - basis of reimbursement determination
; 523 - amount attributed to sales tax
; 512 - accumulated deductible amount
; 513 - remaining deductible amount
; 514 - remaining benefit amount
; 517 - amount applied to periodic deductible
; 518 - amount of copay/co-insurance
; 519 - amount attributed to product selection
; 520 - amount exceeding periodic benefit maximum
; 346 - basis of calculation - dispensing fee
; 347 - basis of calculation - copay
; 348 - basis of calculation - flat sales tax
; 349 - basis of calculation - percentage sales tax
RESPDUR ;EP - NCPDP 5.1 response processing (moved from ABSPOSH5)
; called from WRTTRAN^ABSPOSH5
; MEDN is set in ABSPOSH5 in the WRTTRAN subroutine
; process the response DUR segment - here's the fields we MIGHT
; encounter:
; 567 - DUR/PPS Response Code counter (repeating)
; 439 - reason for service (repeating)
; 528 - clinical significance code (repeating)
; 529 - other pharmacy indicator (repeating)
; 530 - previous date of fill (repeating)
; 531 - quanityt of previous fill (repeating)
; 532 - database indicator (repeating)
; 533 - other prescriber indicator (repeating)
; 544 - DUR free text message (repeating)
REPOPA ; This subroutine will process the other amount paid repeating fields
; that are a part of the pricing segment.
; Two fields here - 564 - other amount paid qualifier
; 565 - other amount paid
RESPPA ;EP - NCPDP 5.1 response processing (moved from ABSPOSH5)
; called from WRTTRAN^ABSPOSH5
; MEDN is set in ABSPOSH5 in the WRTTRAN subroutine
; process the response prior authorization segment - here's the
; fields we MIGHT encounter:
; 498.51 - prior authorization processed date
; 498.52 - prior authorization effective date
; 498.53 - prior authorization expiration date
; 498.57 - prior authorization quantity
; 498.58 - prior authorization dollars authorized
; 498.54 - prior authorization number of refills authorized
; 498.55 - prior authorization quantity accumulated
; 498.14 - prior authorization number - assigned

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSPR - [#9002313.03] RESPPRC+35*, RESPPRC+36*, RESPPRC+37*, RESPPRC+38*, RESPPRC+39*, RESPPRC+40*, RESPPRC+41*, RESPPRC+42*, RESPPRC+43*, RESPPRC+44*
, RESPPRC+47*, RESPPRC+51*, RESPPRC+52*, RESPPRC+53*, RESPPRC+54*, RESPPRC+55*, RESPPRC+56*, RESPPRC+57*, RESPPRC+58*, RESPPRC+59*
, RESPPRC+60*, RESPPRC+61*, RESPPRC+62*, RESPPRC+63*, RESPPRC+64*, RESPPRC+65*, REPOPA+17*, REPOPA+18*, REPOPA+20*, REPOPA+21*
, REPOPA+24*, RESPDUR+44*, RESPDUR+45*, RESPDUR+46*, RESPDUR+47*, RESPDUR+48*, RESPDUR+49*, RESPDUR+50*, RESPDUR+51*, RESPDUR+52*
, RESPDUR+53*, RESPDUR+56*, RESPPA+17*, RESPPA+18*, RESPPA+19*, RESPPA+20*, RESPPA+21*, RESPPA+22*, RESPPA+23*, RESPPA+24*

Label References

Name Line Occurrences
REPOPA RESPPRC+48

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMTPD REPOPA+5~, REPOPA+12*, REPOPA+14*, REPOPA+15, REPOPA+21
AMTPDQ REPOPA+5~, REPOPA+12*, REPOPA+13*, REPOPA+15, REPOPA+20
CKREC REPOPA+5~, REPOPA+15*, REPOPA+16
CLINCD RESPDUR+23~, RESPDUR+32*, RESPDUR+34*, RESPDUR+47
CNTR REPOPA+5~, REPOPA+11*, REPOPA+13, REPOPA+14, REPOPA+17, REPOPA+18, REPOPA+20, REPOPA+21, RESPDUR+23~, RESPDUR+27*
, RESPDUR+29*, RESPDUR+33, RESPDUR+34, RESPDUR+35, RESPDUR+36, RESPDUR+37, RESPDUR+38, RESPDUR+39, RESPDUR+40, RESPDUR+44
, RESPDUR+45, RESPDUR+46, RESPDUR+47, RESPDUR+48, RESPDUR+49, RESPDUR+50, RESPDUR+51, RESPDUR+52, RESPDUR+53
COUNT REPOPA+5~, REPOPA+8*, REPOPA+9, REPOPA+11
DBID RESPDUR+23~, RESPDUR+32*, RESPDUR+38*, RESPDUR+51
>> FDATA("M" RESPPRC+35, RESPPRC+36, RESPPRC+37, RESPPRC+38, RESPPRC+39, RESPPRC+40, RESPPRC+41, RESPPRC+42, RESPPRC+43, RESPPRC+44
, RESPPRC+47, RESPPRC+48, RESPPRC+51, RESPPRC+52, RESPPRC+53, RESPPRC+54, RESPPRC+55, RESPPRC+56, RESPPRC+57, RESPPRC+58
, RESPPRC+59, RESPPRC+60, RESPPRC+61, RESPPRC+62, RESPPRC+63, RESPPRC+64, RESPPRC+65, REPOPA+8, REPOPA+13, REPOPA+14
, RESPDUR+25, RESPDUR+29, RESPDUR+33, RESPDUR+34, RESPDUR+35, RESPDUR+36, RESPDUR+37, RESPDUR+38, RESPDUR+39, RESPDUR+40
, RESPPA+17, RESPPA+18, RESPPA+19, RESPPA+20, RESPPA+21, RESPPA+22, RESPPA+23, RESPPA+24
FREETX RESPDUR+23~, RESPDUR+32*, RESPDUR+40*, RESPDUR+53
>> INDEX RESPPRC+35, RESPPRC+36, RESPPRC+37, RESPPRC+38, RESPPRC+39, RESPPRC+40, RESPPRC+41, RESPPRC+42, RESPPRC+43, RESPPRC+44
, RESPPRC+47, RESPPRC+51, RESPPRC+52, RESPPRC+53, RESPPRC+54, RESPPRC+55, RESPPRC+56, RESPPRC+57, RESPPRC+58, RESPPRC+59
, RESPPRC+60, RESPPRC+61, RESPPRC+62, RESPPRC+63, RESPPRC+64, RESPPRC+65, REPOPA+17, REPOPA+18, REPOPA+20, REPOPA+21
, REPOPA+24, RESPDUR+44, RESPDUR+45, RESPDUR+46, RESPDUR+47, RESPDUR+48, RESPDUR+49, RESPDUR+50, RESPDUR+51, RESPDUR+52
, RESPDUR+53, RESPDUR+56, RESPPA+17, RESPPA+18, RESPPA+19, RESPPA+20, RESPPA+21, RESPPA+22, RESPPA+23, RESPPA+24
>> MEDN RESPPRC+35, RESPPRC+36, RESPPRC+37, RESPPRC+38, RESPPRC+39, RESPPRC+40, RESPPRC+41, RESPPRC+42, RESPPRC+43, RESPPRC+44
, RESPPRC+47, RESPPRC+48, RESPPRC+51, RESPPRC+52, RESPPRC+53, RESPPRC+54, RESPPRC+55, RESPPRC+56, RESPPRC+57, RESPPRC+58
, RESPPRC+59, RESPPRC+60, RESPPRC+61, RESPPRC+62, RESPPRC+63, RESPPRC+64, RESPPRC+65, REPOPA+8, REPOPA+13, REPOPA+14
, RESPDUR+25, RESPDUR+29, RESPDUR+33, RESPDUR+34, RESPDUR+35, RESPDUR+36, RESPDUR+37, RESPDUR+38, RESPDUR+39, RESPDUR+40
, RESPPA+17, RESPPA+18, RESPPA+19, RESPPA+20, RESPPA+21, RESPPA+22, RESPPA+23, RESPPA+24
OTHPHM RESPDUR+23~, RESPDUR+32*, RESPDUR+35*, RESPDUR+48
OTHPRS RESPDUR+23~, RESPDUR+32*, RESPDUR+39*, RESPDUR+52
PREVDT RESPDUR+23~, RESPDUR+32*, RESPDUR+36*, RESPDUR+49
PRVQTY RESPDUR+23~, RESPDUR+32*, RESPDUR+37*, RESPDUR+50
>> RESPIEN RESPPRC+35, RESPPRC+36, RESPPRC+37, RESPPRC+38, RESPPRC+39, RESPPRC+40, RESPPRC+41, RESPPRC+42, RESPPRC+43, RESPPRC+44
, RESPPRC+47, RESPPRC+51, RESPPRC+52, RESPPRC+53, RESPPRC+54, RESPPRC+55, RESPPRC+56, RESPPRC+57, RESPPRC+58, RESPPRC+59
, RESPPRC+60, RESPPRC+61, RESPPRC+62, RESPPRC+63, RESPPRC+64, RESPPRC+65, REPOPA+17, REPOPA+18, REPOPA+20, REPOPA+21
, REPOPA+24, RESPDUR+44, RESPDUR+45, RESPDUR+46, RESPDUR+47, RESPDUR+48, RESPDUR+49, RESPDUR+50, RESPDUR+51, RESPDUR+52
, RESPDUR+53, RESPDUR+56, RESPPA+17, RESPPA+18, RESPPA+19, RESPPA+20, RESPPA+21, RESPPA+22, RESPPA+23, RESPPA+24
RLCNT REPOPA+7*, REPOPA+19*, REPOPA+23, REPOPA+24, RESPDUR+23~, RESPDUR+27*, RESPDUR+31*, RESPDUR+55, RESPDUR+56
RSNCD RESPDUR+23~, RESPDUR+32*, RESPDUR+33*, RESPDUR+46
U RESPPRC+35, RESPPRC+36, RESPPRC+37, RESPPRC+38, RESPPRC+39, RESPPRC+40, RESPPRC+41, RESPPRC+42, RESPPRC+43, RESPPRC+44
, RESPPRC+47, RESPPRC+51, RESPPRC+52, RESPPRC+53, RESPPRC+54, RESPPRC+55, RESPPRC+56, RESPPRC+57, RESPPRC+58, RESPPRC+59
, RESPPRC+60, RESPPRC+61, RESPPRC+62, RESPPRC+63, RESPPRC+64, RESPPRC+65, REPOPA+17, REPOPA+20, REPOPA+21, RESPDUR+44
, RESPDUR+46, RESPDUR+47, RESPDUR+48, RESPDUR+49, RESPDUR+50, RESPDUR+51, RESPDUR+52, RESPDUR+53, RESPPA+17, RESPPA+18
, RESPPA+19, RESPPA+20, RESPPA+21, RESPPA+22, RESPPA+23, RESPPA+24
Info |  Source |  Caller Graph |  Entry Points |  Global Variables Directly Accessed |  Label References |  Local Variables |  All