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 |  Local Variables |  All
Print Page as PDF
Routine: ABSPOSRZ

Package: Pharmacy Point of Sale

Routine: ABSPOSRZ


Information

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

Source Information

Source file <ABSPOSRZ.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  ^%DTC  EN^DDIOL  ^DIR  
Pharmacy Point of Sale 2 ($$BDT,$$CLNC,$$EDT,DEVSEL)^ABSPOSRU  ($$CODE,$$GETDO,$$GTNDCDRG,$$INS,$$WRITE)^ABSPOSUU  
IHS VA Utilities 1 ^XBCLS  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSRU  

Entry Points

Name Comments DBIA/ICR reference
EN ; EP
RTYPE()
SUM ;PRINT SUMMARY PAGE AND TOTAL AMT PER EACH THAT WAS REJECTED
ZEND ;END AND KILL VARIABLES
FIND ; FIND REJECTIONS BY RELEASE DATE "B" CROSS REFERENCE
START
PRNTDHD ;PRINT DETAIL HEADER
PRNTDTL
PRNTSUM ;PRINT THE SUMMARY REPORT
NEXT ;WHAT TO DO NEXT
PRHDR ;PRINT HEADER

External References

Name Field # of Occurrence
DD^%DT PRHDR+4, PRHDR+7, PRNTDTL+19
^%DTC EN+19
^%ZISC ZEND+1
$$BDT^ABSPOSRU EN+6
$$CLNC^ABSPOSRU EN+24
$$EDT^ABSPOSRU EN+11
DEVSEL^ABSPOSRU RTYPE+8
$$CODE^ABSPOSUU EN+28
$$GETDO^ABSPOSUU FIND+27
$$GTNDCDRG^ABSPOSUU PRNTDTL+57
$$INS^ABSPOSUU EN+26
$$WRITE^ABSPOSUU PRNTSUM+18, PRNTSUM+24, PRNTSUM+31, PRNTSUM+41, PRNTSUM+43, PRNTSUM+48, PRNTSUM+50, PRNTDHD+3, PRNTDHD+5, PRNTDHD+8
, PRNTDTL+28, PRNTDTL+37, PRNTDTL+61, PRNTDTL+64, PRNTDTL+73, PRNTDTL+76, PRNTDTL+82
EN^DDIOL EN+20
^DIR RTYPE+5
^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+51
Routine Call
  • DIR
  • Line Location:
    • RTYPE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.56 - [#9002313.56] PRNTSUM+16, PRNTDTL+24, PRNTDTL+48
^ABSPC - [#9002313.02] FIND+49, FIND+51, PRNTDTL+55
^ABSPF(9002313.93 - [#9002313.93] FIND+44, FIND+45
^ABSPR - [#9002313.03] FIND+27, FIND+30, FIND+31, FIND+41, FIND+43
^ABSPTL - [#9002313.57] FIND+19
^ABSPTL("B" FIND+15, FIND+17
^AUPNPAT - [#9000001] PRNTDTL+50
^AUTNINS - [#9999999.18] PRNTDTL+52
^DPT - [#2] PRNTDTL+47
^PS(59 - [#59] PRNTDTL+49
^PSRX("AL" FIND+8, FIND+12
^TMP("ABSPOSRZ" FIND+10*, FIND+56*, NEXT+3, SUM+3, SUM+4, PRNTDTL+14, PRNTDTL+16, ZEND+2!
^TMP("ABSPOSRZ-RUNLOG" RTYPE+13*
^TMP($J FIND+4!, FIND+21*, FIND+31*, FIND+32, FIND+54*, ZEND+2!

Label References

Name Line Occurrences
$$RTYPE EN+30
FIND RTYPE+11, START+8
NEXT RTYPE+14
PRHDR NEXT+4, PRNTSUM+12
PRNTDHD PRNTDTL+25
PRNTDTL NEXT+13
PRNTSUM NEXT+11
START EN+2
SUM NEXT+10
ZEND 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+67*, ZEND+2!
ABSPBDT ZEND+3!
ABSPBTOT PRNTSUM+8*, PRNTDTL+30*, PRNTDTL+68*, ZEND+2!
ABSPCARD FIND+1~, FIND+48*, FIND+49*, FIND+50*, FIND+56, PRNTDTL+1~, PRNTDTL+45*
ABSPCLMI FIND+1~, FIND+24*, FIND+25, FIND+49, FIND+51, FIND+56, PRNTDTL+1~, PRNTDTL+53*, PRNTDTL+55, PRNTDTL+57
ABSPCODE FIND+3~
ABSPDONE EN+1~, EN+3*, EN+5, EN+9*, EN+14*, EN+17*, EN+18*, EN+21*, FIND+1~, FIND+7*
, FIND+8, FIND+9*
ABSPDRNM PRNTDTL+1~, PRNTDTL+7*, PRNTDTL+59*
ABSPDRT ZEND+3!
ABSPDRTR PRNTSUM+28*, PRNTSUM+29, ZEND+3!
ABSPEDT ZEND+3!
ABSPEND EN+1~, EN+11*, EN+12, EN+18, EN+19, RTYPE+13, FIND+6*, FIND+9, 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+20*
ABSPGCNT PRNTSUM+1~, PRNTSUM+7*, PRNTSUM+39*
ABSPGRP FIND+1~, FIND+47*, FIND+51*, FIND+52*, FIND+56, PRNTDTL+1~, PRNTDTL+46*
ABSPGTOT PRNTSUM+6*, PRNTSUM+38*, PRNTDTL+9*, PRNTDTL+78*, ZEND+2!
ABSPIDTE FIND+2~
ABSPIDTS FIND+2~
ABSPINS FIND+35, ZEND+2!, START+5*
ABSPINSN PRNTDTL+52*, ZEND+2!
ABSPIRME FIND+2~, FIND+13*, FIND+15
ABSPIRMI FIND+2~, FIND+14*, FIND+15*, FIND+17, FIND+21, FIND+27, FIND+31, FIND+32, FIND+54, FIND+56
ABSPJ ZEND+3!, START+1~
ABSPLCNT EN+1~
ABSPNDC PRNTDTL+1~, PRNTDTL+6*, PRNTDTL+58*
ABSPOPS PRNTDTL+40*, PRNTDTL+48*, PRNTDTL+49, ZEND+2!
ABSPOUT NEXT+1~, NEXT+2*, NEXT+12, PRNTSUM+11*, PRNTSUM+14, PRNTSUM+18*, PRNTSUM+19, PRNTSUM+24*, PRNTSUM+25, PRNTSUM+27
, PRNTSUM+31*, PRNTSUM+32, PRNTSUM+35, PRNTSUM+37, PRNTSUM+41*, PRNTSUM+42, PRNTSUM+43*, PRNTSUM+44, PRNTSUM+46, PRNTSUM+48*
, PRNTSUM+49, PRNTSUM+50*, PRNTDHD+3*, PRNTDHD+4, PRNTDHD+5*, PRNTDHD+6, PRNTDHD+8*, PRNTDTL+1~, PRNTDTL+13*, PRNTDTL+14
, PRNTDTL+22, PRNTDTL+26, PRNTDTL+28*, PRNTDTL+29, PRNTDTL+31, PRNTDTL+33, PRNTDTL+37*, PRNTDTL+38, PRNTDTL+39, PRNTDTL+61*
, PRNTDTL+62, PRNTDTL+64*, PRNTDTL+65, PRNTDTL+70, PRNTDTL+71, PRNTDTL+73*, PRNTDTL+74, PRNTDTL+76*, PRNTDTL+77, PRNTDTL+80
, PRNTDTL+82*
ABSPPAT PRNTDTL+44*, PRNTDTL+47, PRNTDTL+50, ZEND+2!, START+1~
ABSPPATN PRNTDTL+47*, ZEND+2!
ABSPPCHT PRNTDTL+40*, PRNTDTL+50*, ZEND+2!
ABSPPCNT SUM+1~, SUM+14*, SUM+17, PRNTSUM+1~, PRNTSUM+5*, PRNTSUM+22*, PRNTSUM+34*, PRNTSUM+39
ABSPPDIV PRNTDTL+40*, PRNTDTL+49*, PRNTDTL+50, ZEND+2!
ABSPPHM1 FIND+34*, FIND+37*, FIND+38*, FIND+39, FIND+53, FIND+55, FIND+56, ZEND+4!
ABSPPHMN PRNTSUM+16*, PRNTDTL+24*, ZEND+4!
ABSPPIEN START+1~
ABSPPINS PRNTDTL+23*, PRNTDTL+31*, PRNTDTL+33, PRNTDTL+39, PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+51, PRNTDTL+52, PRNTDTL+53
, ZEND+4!
ABSPPPHM FIND+36, FIND+37, FIND+38, PRNTSUM+3*, PRNTSUM+13*, PRNTSUM+15*, PRNTSUM+16, PRNTSUM+26, PRNTSUM+28, PRNTSUM+33
, PRNTSUM+34, PRNTDTL+3*, PRNTDTL+17*, PRNTDTL+22*, PRNTDTL+24, PRNTDTL+31, PRNTDTL+33, PRNTDTL+35, PRNTDTL+39, PRNTDTL+44
, PRNTDTL+45, PRNTDTL+46, PRNTDTL+48, PRNTDTL+51, PRNTDTL+53, ZEND+2!, START+6*
ABSPPRDT PRNTDTL+2*, PRNTDTL+14*, PRNTDTL+16, PRNTDTL+18, PRNTDTL+22, PRNTDTL+31, PRNTDTL+33, PRNTDTL+39, PRNTDTL+44, PRNTDTL+45
, PRNTDTL+46, PRNTDTL+51, PRNTDTL+53, ZEND+2!
ABSPPRMI FIND+1~, FIND+11*, FIND+12*, FIND+13, FIND+14, PRNTDTL+34*, PRNTDTL+39*, PRNTDTL+42, PRNTDTL+43, PRNTDTL+44
, PRNTDTL+45, PRNTDTL+46, PRNTDTL+51, PRNTDTL+53, PRNTDTL+54, ZEND+2!
ABSPPRNM PRNTSUM+20*, PRNTSUM+26*, PRNTSUM+28, PRNTSUM+33, PRNTSUM+34, PRNTDTL+4*, PRNTDTL+32*, PRNTDTL+33*, PRNTDTL+35, PRNTDTL+39
, PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+51, PRNTDTL+53, ZEND+4!
ABSPPRX PRNTDTL+54*, PRNTDTL+57, ZEND+2!
ABSPPRXR PRNTDTL+55*, ZEND+2!
ABSPPTP PRNTDTL+51*, PRNTDTL+67, PRNTDTL+68, PRNTDTL+69, ZEND+2!
>> ABSPPTYP PRNTDTL+41*, PRNTDTL+42*, PRNTDTL+43*
ABSPQUIT EN+1~, EN+4*, EN+8*, EN+10, EN+13*, EN+16, EN+23, EN+24*, EN+25, EN+26*
, EN+27, EN+28*, EN+29, EN+30*, FIND+3~, FIND+46*, PRNTSUM+10*, PRNTDTL+1~, PRNTDTL+12*, PRNTDTL+14
ABSPRCD ZEND+4!
ABSPRCNT FIND+1~, FIND+53*, FIND+55
ABSPRDT FIND+1~, FIND+5*, FIND+8*, FIND+9, FIND+10, FIND+12, FIND+56
ABSPRDTL PRNTDTL+10*, PRNTDTL+21*, PRNTDTL+69*, PRNTDTL+78, ZEND+4!
ABSPREA FIND+41*, FIND+44*, FIND+45*, FIND+55, FIND+56, ZEND+4!
ABSPREAS ZEND+3!
ABSPREAS( FIND+53, FIND+55*
ABSPREAS("" SUM+14, PRNTDTL+35
ABSPREJ EN+1~, FIND+46
>> ABSPREJX FIND+46
ABSPRESC FIND+2~
ABSPRJ EN+1~
ABSPRJC START+1~
ABSPRJCD PRNTDTL+35*, ZEND+3!
ABSPRMI ZEND+3!
ABSPRNUM FIND+1~, FIND+41*, FIND+43*, FIND+44, FIND+45, FIND+46, FIND+53, FIND+55, FIND+56
ABSPRSMI FIND+1~, FIND+23*, FIND+25, FIND+27, FIND+30, FIND+31, FIND+41, FIND+43
ABSPRTOT PRNTSUM+4*, PRNTSUM+21*, PRNTSUM+33*, PRNTSUM+38, PRNTDTL+8*, PRNTDTL+67, ZEND+2!
ABSPRTYP RTYPE+7*, NEXT+13, PRNTDHD+1, PRNTDTL+82, ZEND+3!, START+7*
ABSPSPHM SUM+5*, SUM+6*, SUM+8, SUM+10, SUM+12, SUM+13, SUM+14, SUM+15, SUM+16, SUM+17
, ZEND+3!
ABSPSRDT SUM+2*, SUM+3*, SUM+4, SUM+6, SUM+8, SUM+10, SUM+12, SUM+13, SUM+15, ZEND+3!
ABSPSREA SUM+13*, SUM+17, ZEND+4!
ABSPSRMI SUM+11*, SUM+12*, SUM+13, SUM+15, ZEND+3!
ABSPSRNM SUM+9*, SUM+10*, SUM+12, SUM+13, SUM+14, SUM+15, SUM+16, SUM+17, ZEND+3!
ABSPSTIN SUM+7*, SUM+8*, SUM+10, SUM+12, SUM+13, SUM+15, SUM+17, ZEND+3!
ABSPSTL1 SUM+11*, SUM+16*, SUM+17, ZEND+4!
ABSPSTOP NEXT+1~, NEXT+2*, NEXT+7*, NEXT+9, PRNTSUM+1~, PRNTSUM+2*, PRNTSUM+9*, PRNTSUM+13, PRNTSUM+14*, PRNTSUM+26
, PRNTSUM+27*, PRNTSUM+36, PRNTSUM+45, PRNTDTL+1~, PRNTDTL+11*, PRNTDTL+79
ABSPSTRT EN+1~, EN+6*, EN+7, EN+17, EN+19, RTYPE+13, FIND+5, PRHDR+3, ZEND+4!, START+3*
ABSPSTTL SUM+11*, SUM+15*, SUM+16, ZEND+3!
ABSPSUM PRHDR+2, ZEND+2!
ABSPSUM( SUM+16, SUM+17*, PRNTSUM+13, PRNTSUM+26, PRNTSUM+28, PRNTSUM+33, PRNTSUM+34
ABSPTINS FIND+33*, FIND+35, FIND+56, ZEND+3!
ABSPTL FIND+18~
ABSPTL( FIND+19*, FIND+21, FIND+22, FIND+33, FIND+36, FIND+38, FIND+56
ABSPTLTP FIND+2~, FIND+22*, FIND+23, FIND+24, FIND+26
ABSPTMP SUM+1~, SUM+18!, PRNTSUM+1~, PRNTDTL+1~, PRNTDTL+15~, ZEND+2!
ABSPTMP( SUM+4*, SUM+6, SUM+8, SUM+10, SUM+12, SUM+13, SUM+15, PRNTDTL+16*, PRNTDTL+22, PRNTDTL+31
, PRNTDTL+33, PRNTDTL+39, PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+51, PRNTDTL+53
ABSPTRNS FIND+16*, FIND+17*, FIND+19, FIND+21, FIND+22, FIND+33, FIND+36, FIND+38, FIND+56, ZEND+3!
ABSPTRTM FIND+1~
DIR RTYPE+1~
DIR("A" RTYPE+4*
DIR("B" RTYPE+3*
DIR(0 RTYPE+2*
>> DIRUT RTYPE+6
DO FIND+2~, FIND+26*, FIND+27*, FIND+28, FIND+30, FIND+31, FIND+41, FIND+43
DT START+3, START+4
IO PRHDR+2
IOF PRHDR+2, PRHDR+9
NDCDRG PRNTDTL+1~, PRNTDTL+57*, PRNTDTL+58, PRNTDTL+59
RNUM ZEND+3!
STARTIME RTYPE+1~, RTYPE+10*, RTYPE+13
STOPTIME RTYPE+1~, RTYPE+12*, RTYPE+13
U FIND+23, FIND+24, FIND+26, FIND+31, FIND+33, FIND+36, FIND+38, FIND+43, FIND+45, FIND+49
, FIND+51, FIND+53, FIND+55, FIND+56, SUM+13, SUM+14, SUM+15, SUM+16, SUM+17, PRNTSUM+16
, PRNTSUM+28, PRNTSUM+33, PRNTSUM+34, PRNTDTL+24, PRNTDTL+35, PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+47, PRNTDTL+48
, PRNTDTL+49, PRNTDTL+50, PRNTDTL+51, PRNTDTL+52, PRNTDTL+53, PRNTDTL+55, PRNTDTL+58, PRNTDTL+59
X EN+20, EN+21, RTYPE+7, START+1~
>> X1 EN+19*
>> X2 EN+19*
Y PRHDR+1~, PRHDR+3*, PRHDR+5, PRHDR+6*, PRHDR+8, PRNTDTL+1~, PRNTDTL+18*, PRNTDTL+20, START+1~
>> ZTQPARAM EN+2, START+2, START+3, START+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All