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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABSPOSR5

Package: Pharmacy Point of Sale

Routine: ABSPOSR5


Information

ABSPOSR5 ;IHS/OIT/SCR - REJECTION REPORT BY REJECTION REASON

Source Information

Source file <ABSPOSR5.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 DD^%DT  (,C)^%DTC  EN^DDIOL  ^DIC  ^DIR  
Kernel 2 ^%ZIS  ^%ZISC  
IHS VA Utilities 1 ^XBCLS  
Pharmacy Point of Sale 1 ($$GTNDCDRG,$$WRITE)^ABSPOSUU  

Entry Points

Name Comments DBIA/ICR reference
PRHDR ; PRINT HEADER
DEVSEL ; SELECT DEVICE
RTYPE()
INS() ; SELECT THE INSURER OR CHOOSE ALL INSURERS
EDT()
UPD ; UPDATE THE REPORT MASTER FILE IN ABSP
PRNTDTL
ZEND ; END AND KILL VARIABLES
PRNTSUM ; PRINT THE SUMMARY REPORT
NEXT ; WHAT TO DO NEXT
START
BDT()
CLNC() ; PICK WHICH OR ALL CLINIC PHARMACIES
CODE()
SUM ; PRINT SUMMARY PAGE
; TOTAL COUNTS BY REJECT CODE (1ST ON LIST)
; AND TOTAL AMT PER EACH THAT WAS REJECTED
PRNTDHD ; PRINT DETAIL HEADER
FIND ; FIND REJECTIONS BY RELEASE DATE "B" CROSS REFERENCE

External References

Name Field # of Occurrence
DD^%DT PRHDR+4, PRHDR+7, PRNTDTL+17
^%DTC UPD+19
C^%DTC BDT+9, EDT+9
^%ZIS DEVSEL+3, DEVSEL+5
^%ZISC ZEND+1
$$GTNDCDRG^ABSPOSUU PRNTDTL+54
$$WRITE^ABSPOSUU PRNTSUM+17, PRNTSUM+23, PRNTSUM+30, PRNTSUM+40, PRNTSUM+42, PRNTSUM+47, PRNTSUM+49, PRNTDHD+3, PRNTDHD+5, PRNTDHD+8
, PRNTDTL+26, PRNTDTL+35, PRNTDTL+58, PRNTDTL+61, PRNTDTL+70, PRNTDTL+73, PRNTDTL+80
EN^DDIOL UPD+20
^DIC CLNC+5, INS+5, CODE+6
^DIR RTYPE+5, BDT+6, EDT+6
^XBCLS RTYPE+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRHDR+9
Function Call: WRITE
  • Prompt: !,?19,"Pharmacy Point of Sale Rejection Report"
  • Line Location: PRHDR+10
Function Call: WRITE
  • Prompt: !,?22,"Claims sorted by Rejection Reason"
  • Line Location: PRHDR+11
Function Call: WRITE
  • Prompt: !?22,"From "_ABSPFBDT_" TO "_ABSPFEDT
  • Line Location: PRHDR+12
Function Call: WRITE
  • Prompt: !?30,"***SUMMARY REPORT***",!
  • Line Location: PRHDR+13
Function Call: WRITE
  • Prompt: !!,"P - Preventable, N - Non-recoverable, B - Both"
  • Line Location: PRNTSUM+50
Function Call: WRITE
  • Prompt: !!,"TOTAL AMOUNT REJECTED: ",ABSBPRTT,!!,"P - Preventable, N - Non-recoverable, B - Both"
  • Line Location: PRNTDTL+78
Function Call: WRITE
  • Prompt: !
  • Line Location: BDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+2
Routine Call
  • DIC
  • Line Location:
    • CLNC+5
    • INS+5
    • CODE+6
Routine Call
  • DIR
  • Line Location:
    • RTYPE+5
    • BDT+6
    • EDT+6
Routine Call
  • %ZIS
  • Line Location:
    • DEVSEL+3
    • DEVSEL+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSPRJC - [#9002313.3] Classic Fileman Calls
^ABSPEI - [#9002313.4] Classic Fileman Calls
^ABSP(9002313.56 - [#9002313.56] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.56 - [#9002313.56] PRNTSUM+15, PRNTDTL+22, PRNTDTL+43
^ABSPC - [#9002313.02] FIND+45, FIND+47
^ABSPECX("RPT" - [#9002313.61] FIND+6, FIND+9, FIND+11, FIND+12, FIND+23, FIND+24, FIND+30, FIND+31, FIND+35, FIND+36
, PRNTDTL+46, PRNTDTL+47, PRNTDTL+52
^ABSPTL - [#9002313.57] FIND+12, FIND+16, FIND+19, FIND+41, FIND+53, PRNTDTL+53
^AUPNPAT - [#9000001] PRNTDTL+45
^AUTNINS - [#9999999.18] PRNTDTL+49
^DPT - [#2] PRNTDTL+42
^PS(59 - [#59] PRNTDTL+44
^TMP("ABSPOSR5-RUNLOG" RTYPE+13*

Label References

Name Line Occurrences
$$BDT UPD+7
$$CLNC UPD+23
$$CODE UPD+27
$$EDT UPD+12
$$INS UPD+25
$$RTYPE UPD+29
DEVSEL RTYPE+8, DEVSEL+11
FIND RTYPE+11, START+8
NEXT RTYPE+14
PRHDR NEXT+4, PRNTSUM+12
PRNTDHD PRNTDTL+23
PRNTDTL NEXT+13
PRNTSUM NEXT+11
START UPD+3
SUM NEXT+10
ZEND DEVSEL+7, NEXT+6, NEXT+12, NEXT+14, PRNTDHD+1, START+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABSBPRTT PRNTDTL+64*, ZEND+2!
ABSPBDT ZEND+3!, BDT+1~, BDT+8*, BDT+9
ABSPBTOT PRNTSUM+8*, PRNTDTL+28*, PRNTDTL+65*, ZEND+2!
ABSPCARD FIND+1~, FIND+43*, FIND+45*, FIND+46*, FIND+53, PRNTDTL+1~, PRNTDTL+40*
ABSPCLMI FIND+1~, FIND+41*, FIND+44, FIND+45, FIND+47, PRNTDTL+51~, PRNTDTL+53*, PRNTDTL+54
ABSPCODE FIND+2~
ABSPDONE UPD+1~, UPD+4*, UPD+6, UPD+10*, UPD+15*, UPD+17*, UPD+18*, UPD+21*, FIND+1~, FIND+4*
, FIND+6, FIND+7*
ABSPDRNM PRNTDTL+1~, PRNTDTL+7*, PRNTDTL+56*
ABSPDRT ZEND+3!
ABSPDRTR PRNTSUM+27*, PRNTSUM+28, ZEND+3!
ABSPEDT ZEND+3!, EDT+1~, EDT+8*, EDT+9
ABSPEND UPD+1~, UPD+12*, UPD+13, UPD+18, UPD+19, RTYPE+13, FIND+7, PRHDR+6, START+4*
ABSPFBDT PRHDR+1~, PRHDR+5*, PRHDR+12, ZEND+3!
ABSPFEDT PRHDR+1~, PRHDR+8*, PRHDR+12, ZEND+3!
ABSPFRDT PRNTDTL+1~, PRNTDTL+18*
ABSPGCNT PRNTSUM+1~, PRNTSUM+7*, PRNTSUM+38*
ABSPGRP FIND+1~, FIND+42*, FIND+47*, FIND+48*, FIND+53, PRNTDTL+1~, PRNTDTL+41*
ABSPGTOT PRNTSUM+6*, PRNTSUM+37*, PRNTDTL+9*, PRNTDTL+75*, ZEND+2!
ABSPINS INS+7*, INS+8*, FIND+14, ZEND+2!, START+5*
ABSPINSN INS+8*, PRNTDTL+49*, ZEND+2!
ABSPJ FIND+9*, ZEND+3!, START+1~
ABSPLCNT UPD+1~
ABSPNDC PRNTDTL+1~, PRNTDTL+6*, PRNTDTL+55*
>> ABSPNUM FIND+25*, FIND+26
ABSPOPS PRNTDTL+38*, PRNTDTL+43*, PRNTDTL+44, ZEND+2!
ABSPOUT NEXT+1~, NEXT+2*, NEXT+12, PRNTSUM+11*, PRNTSUM+14, PRNTSUM+17*, PRNTSUM+18, PRNTSUM+23*, PRNTSUM+24, PRNTSUM+26
, PRNTSUM+30*, PRNTSUM+31, PRNTSUM+34, PRNTSUM+36, PRNTSUM+40*, PRNTSUM+41, PRNTSUM+42*, PRNTSUM+43, PRNTSUM+45, PRNTSUM+47*
, PRNTSUM+48, PRNTSUM+49*, PRNTDHD+3*, PRNTDHD+4, PRNTDHD+5*, PRNTDHD+6, PRNTDHD+8*, PRNTDTL+1~, PRNTDTL+13*, PRNTDTL+14
, PRNTDTL+20, PRNTDTL+24, PRNTDTL+26*, PRNTDTL+27, PRNTDTL+29, PRNTDTL+31, PRNTDTL+35*, PRNTDTL+36, PRNTDTL+37, PRNTDTL+58*
, PRNTDTL+59, PRNTDTL+61*, PRNTDTL+62, PRNTDTL+67, PRNTDTL+68, PRNTDTL+70*, PRNTDTL+71, PRNTDTL+73*, PRNTDTL+74, PRNTDTL+77
, PRNTDTL+80*
ABSPPAT PRNTDTL+39*, PRNTDTL+42, PRNTDTL+45, ZEND+2!, START+1~
ABSPPATN PRNTDTL+42*, ZEND+2!
ABSPPCHT PRNTDTL+38*, PRNTDTL+45*, ZEND+2!
ABSPPCNT SUM+3~, SUM+16*, SUM+19, PRNTSUM+1~, PRNTSUM+5*, PRNTSUM+21*, PRNTSUM+33*, PRNTSUM+38
ABSPPDIV PRNTDTL+38*, PRNTDTL+44*, PRNTDTL+45, ZEND+2!
ABSPPHM1 FIND+13*, FIND+17*, FIND+19*, FIND+20, FIND+50, FIND+52, FIND+53, ZEND+4!
ABSPPHMN CLNC+8*, PRNTSUM+15*, PRNTDTL+22*, ZEND+4!
ABSPPIEN START+1~
ABSPPINS PRNTDTL+21*, PRNTDTL+29*, PRNTDTL+31, PRNTDTL+37, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+48, PRNTDTL+49, ZEND+4!
ABSPPPHM CLNC+7*, CLNC+8*, FIND+15, FIND+16, FIND+17, FIND+19, PRNTSUM+3*, PRNTSUM+13*, PRNTSUM+15, PRNTSUM+25
, PRNTSUM+27, PRNTSUM+32, PRNTSUM+33, PRNTDTL+3*, PRNTDTL+15*, PRNTDTL+20*, PRNTDTL+22, PRNTDTL+29, PRNTDTL+31, PRNTDTL+33
, PRNTDTL+37, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+43, PRNTDTL+48, ZEND+2!, START+6*
ABSPPRDT PRNTDTL+2*, PRNTDTL+14*, PRNTDTL+16, PRNTDTL+20, PRNTDTL+29, PRNTDTL+31, PRNTDTL+37, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41
, PRNTDTL+48, ZEND+2!
ABSPPRMI PRNTDTL+32*, PRNTDTL+37*, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+46, PRNTDTL+47, PRNTDTL+48, PRNTDTL+52, ZEND+2!
ABSPPRNM PRNTSUM+19*, PRNTSUM+25*, PRNTSUM+27, PRNTSUM+32, PRNTSUM+33, PRNTDTL+4*, PRNTDTL+30*, PRNTDTL+31*, PRNTDTL+33, PRNTDTL+37
, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+48, ZEND+4!
ABSPPRX PRNTDTL+46*, PRNTDTL+54, ZEND+2!
ABSPPRXR PRNTDTL+47*, ZEND+2!
ABSPPTP PRNTDTL+48*, PRNTDTL+64, PRNTDTL+65, PRNTDTL+66, ZEND+2!
ABSPQUIT UPD+1~, UPD+5*, UPD+9*, UPD+11, UPD+14*, UPD+16, UPD+22, UPD+23*, UPD+24, UPD+25*
, UPD+26, UPD+27*, UPD+28, UPD+29*, FIND+2~, FIND+10*, FIND+26*, FIND+28, PRNTSUM+10*, PRNTDTL+1~
, PRNTDTL+12*, PRNTDTL+14
ABSPRCD FIND+33*, FIND+39*, ZEND+4!
ABSPRCNT FIND+1~, FIND+50*, FIND+52
ABSPRDT FIND+1~, FIND+3*, FIND+6*, FIND+7, FIND+8, FIND+9, FIND+53
ABSPRDTL PRNTDTL+10*, PRNTDTL+19*, PRNTDTL+66*, PRNTDTL+75, ZEND+4!
ABSPREA FIND+24*, FIND+25, FIND+31*, FIND+32, FIND+36*, FIND+37*, FIND+52, FIND+53, ZEND+4!
ABSPREAS ZEND+3!
ABSPREAS( FIND+50, FIND+52*
ABSPREAS("" SUM+16, PRNTDTL+33
>> ABSPREJ CODE+8*, CODE+9*, FIND+22
>> ABSPREJX CODE+9*, FIND+26
ABSPRJC START+1~
ABSPRJCD PRNTDTL+33*, ZEND+3!
ABSPRMI FIND+5*, FIND+9*, FIND+11, FIND+12, FIND+23, FIND+24, FIND+30, FIND+31, FIND+35, FIND+36
, FIND+53, ZEND+3!
ABSPRNUM FIND+1~, FIND+32*, FIND+38*, FIND+50, FIND+52, FIND+53
ABSPRTOT PRNTSUM+4*, PRNTSUM+20*, PRNTSUM+32*, PRNTSUM+37, PRNTDTL+8*, PRNTDTL+64, ZEND+2!
ABSPRTYP RTYPE+7*, NEXT+13, PRNTDHD+1, PRNTDTL+80, ZEND+3!, START+7*
ABSPSPHM SUM+6*, SUM+7*, SUM+9, SUM+11, SUM+13, SUM+14, SUM+16, SUM+17, SUM+18, SUM+19
, ZEND+3!
ABSPSRDT SUM+4*, SUM+5*, SUM+7, SUM+9, SUM+11, SUM+13, SUM+14, SUM+17, ZEND+3!
ABSPSREA SUM+14*, SUM+19, ZEND+4!
ABSPSRMI SUM+12*, SUM+13*, SUM+14, SUM+17, ZEND+3!
ABSPSRNM SUM+10*, SUM+11*, SUM+13, SUM+14, SUM+16, SUM+17, SUM+18, SUM+19, ZEND+3!
ABSPSTIN SUM+8*, SUM+9*, SUM+11, SUM+13, SUM+14, SUM+17, SUM+19, ZEND+3!
ABSPSTL1 SUM+12*, SUM+18*, SUM+19, ZEND+4!
ABSPSTOP DEVSEL+1~, DEVSEL+2*, DEVSEL+8*, DEVSEL+9, NEXT+1~, NEXT+2*, NEXT+7*, NEXT+9, PRNTSUM+1~, PRNTSUM+2*
, PRNTSUM+9*, PRNTSUM+13, PRNTSUM+14*, PRNTSUM+25, PRNTSUM+26*, PRNTSUM+35, PRNTSUM+44, PRNTDTL+1~, PRNTDTL+11*, PRNTDTL+76
ABSPSTRT UPD+1~, UPD+7*, UPD+8, UPD+17, UPD+19, RTYPE+13, FIND+3, PRHDR+3, ZEND+4!, START+3*
ABSPSTTL SUM+12*, SUM+17*, SUM+18, ZEND+3!
ABSPSUM PRHDR+2, ZEND+2!
ABSPSUM( SUM+18, SUM+19*, PRNTSUM+13, PRNTSUM+25, PRNTSUM+27, PRNTSUM+32, PRNTSUM+33
ABSPTINS FIND+12*, FIND+14, FIND+53, ZEND+3!
ABSPTMP ZEND+2!
ABSPTMP( FIND+8*, FIND+53*, SUM+5, SUM+7, SUM+9, SUM+11, SUM+13, SUM+14, SUM+17, PRNTDTL+14
, PRNTDTL+20, PRNTDTL+29, PRNTDTL+31, PRNTDTL+37, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+48
ABSPTMP("" NEXT+3
ABSPTRNS FIND+12*, FIND+16, FIND+19, FIND+41, FIND+53, PRNTDTL+51~, PRNTDTL+52*, PRNTDTL+53, ZEND+3!
DIC CLNC+1~, CLNC+2*, CLNC+5!, INS+1~, INS+2*, INS+5!, CODE+2~, CODE+3*, CODE+6!
DIC("A" CLNC+4*, INS+4*, CODE+5*
DIC(0 CLNC+3*, INS+3*, CODE+4*
DIR RTYPE+1~, BDT+1~, BDT+3!, EDT+1~, EDT+3!
DIR("A" RTYPE+4*, BDT+5*, EDT+5*
DIR("B" RTYPE+3*
DIR(0 RTYPE+2*, BDT+4*, EDT+4*
>> DIRUT RTYPE+6, BDT+7, EDT+7
DT START+3, START+4
>> DUOUT DEVSEL+6
IO PRHDR+2
IOF PRHDR+2, PRHDR+9
>> NDCDRG PRNTDTL+54*, PRNTDTL+55, PRNTDTL+56
>> POP DEVSEL+4, DEVSEL+10
RNUM ZEND+3!
STARTIME RTYPE+1~, RTYPE+10*, RTYPE+13
STOPTIME RTYPE+1~, RTYPE+12*, RTYPE+13
U FIND+11, FIND+12, FIND+16, FIND+19, FIND+24, FIND+31, FIND+36, FIND+53, SUM+14, SUM+16
, SUM+17, SUM+18, PRNTSUM+15, PRNTSUM+27, PRNTSUM+32, PRNTSUM+33, PRNTDTL+22, PRNTDTL+33, PRNTDTL+39, PRNTDTL+40
, PRNTDTL+41, PRNTDTL+42, PRNTDTL+43, PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+47, PRNTDTL+48, PRNTDTL+49
X UPD+20, UPD+21, CLNC+1~, CLNC+6, INS+1~, INS+6, CODE+2~, CODE+7, RTYPE+7, START+1~
, BDT+1~, BDT+10, EDT+1~, EDT+10
X1 UPD+19*, BDT+1~, BDT+9*, EDT+1~, EDT+9*
>> X2 UPD+19*
Y CLNC+1~, CLNC+7, CLNC+8, INS+1~, INS+7, INS+8, CODE+2~, CODE+8, CODE+9, PRHDR+3*
, PRHDR+5, PRHDR+6*, PRHDR+8, PRNTDTL+16*, PRNTDTL+18, START+1~, BDT+8, EDT+8
>> ZTQPARAM UPD+3, START+2, START+3, START+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All