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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABSPOSEX

Package: Pharmacy Point of Sale

Routine: ABSPOSEX


Information

ABSPOSEX ; IHS/OIT/SCR - PATIENT EXPENSE gereration routine ; [ 10/24/2005 10:09:07 AM ]

Source Information

Source file <ABSPOSEX.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 5 DD^%DT  (,C)^%DTC  EN^DDIOL  ^DIC  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  $$NPI^XUSNPI  
Pharmacy Point of Sale 2 ($$505,$$509)^ABSPOS03  AUTO^ABSPOSM1  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
GETPHARM() ;when more than one pharmacy is set up for this site, prompt
; for which one to use
DEVSEL ; SELECT DEVICE
EDT()
ZEND
FIND(ABSPSTRT,ABSPEND,ABSPPIEN,ABSPTMP) ; FIND PRESCRIPTIONS FOR THIS PATIENT IN A DATE RANGE
BDT()
GETPAT() ;Prompt the user for which patient they would like to generate an E1 for
MAIN ;EP

External References

Name Field # of Occurrence
DD^%DT MAIN+37, MAIN+38, MAIN+51, MAIN+60
^%DTC MAIN+29
C^%DTC BDT+9, EDT+9
^%ZIS DEVSEL+3, DEVSEL+5
^%ZISC MAIN+41, MAIN+79, DEVSEL+8, ZEND+1
$$505^ABSPOS03 FIND+34
$$509^ABSPOS03 FIND+35
AUTO^ABSPOSM1 MAIN+5
$$DOB^AUPNPAT MAIN+12
$$HRN^AUPNPAT MAIN+13
EN^DDIOL MAIN+30
^DIC GETPAT+8, GETPHARM+13
^DIR BDT+6, EDT+6
$$NPI^XUSNPI FIND+50

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+45
Function Call: WRITE
  • Prompt: !,"PATIENT: "_ABSPPNAM_" DOB: "_ABSPPDOB_" HRN: "_ABSPPHRN
  • Line Location: MAIN+46
Function Call: WRITE
  • Prompt: !?15," PHARMACY RELEASE DATES FROM "_ABSPFROM_" TO "_ABSPTO
  • Line Location: MAIN+47
Function Call: WRITE
  • Prompt: !!,?0,"GRAND TOTAL: "_ABSPGTOT,?25,"TOTAL INS PAID: "_ABSPGINS,?53,"TOTAL DUE: "_ABSPGDUE
  • Line Location: MAIN+78
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETPHARM+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+2
Routine Call
  • DIC
  • Line Location:
    • GETPAT+8
    • GETPHARM+13
Routine Call
  • DIR
  • Line Location:
    • BDT+6
    • EDT+6
Routine Call
  • %ZIS
  • Line Location:
    • DEVSEL+3
    • DEVSEL+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.56 - [#9002313.56] MAIN+56, GETPHARM+4, GETPHARM+10
^ABSPECX("RPT" - [#9002313.61] FIND+7, FIND+9, FIND+10, FIND+16, FIND+21, FIND+22, FIND+43
^ABSPTL - [#9002313.57] FIND+12, FIND+14, FIND+18, FIND+19, FIND+20, FIND+48
^PSDRUG - [#50] FIND+46, FIND+47
^PSRX - [#52] FIND+44, FIND+45, FIND+49, FIND+51, FIND+52
^VA(200 - [#200] MAIN+65

Label References

Name Line Occurrences
$$BDT MAIN+15
$$EDT MAIN+21
$$GETPAT MAIN+8
DEVSEL MAIN+34, DEVSEL+13
FIND MAIN+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABSPARRY MAIN+1~
ABSPBDT BDT+1~, BDT+8*, BDT+9
ABSPCPAY FIND+2~, FIND+28*, FIND+34*, FIND+40*, FIND+53*, FIND+57
ABSPCTYN FIND+2~, FIND+23*, FIND+26*, FIND+31*, FIND+38*, FIND+42, FIND+57
ABSPCTYP FIND+1~, FIND+16*, FIND+25, FIND+30, FIND+37, FIND+57
ABSPDAT FIND+1~
ABSPDAYS FIND+2~, FIND+52*, FIND+57
ABSPDDUE MAIN+3~, MAIN+55*, MAIN+70*, MAIN+72, MAIN+75
ABSPDINS MAIN+3~, MAIN+55*, MAIN+69*, MAIN+72, MAIN+74
ABSPDOB MAIN+1~
ABSPDONE MAIN+1~, MAIN+6*, MAIN+14, MAIN+18*, MAIN+24*, MAIN+27*, MAIN+28*, MAIN+31*, FIND+1~, FIND+2~
, FIND+5*, FIND+7, FIND+8*, GETPAT+1~, GETPAT+2*, GETPAT+7, GETPAT+9*, GETPHARM+2~, GETPHARM+3*, GETPHARM+12
, GETPHARM+14*
ABSPDRGN FIND+1~, FIND+46*, FIND+57
ABSPDRGP FIND+1~, FIND+45*, FIND+46, FIND+47
>> ABSPDSYN FIND+47*
ABSPDTOT MAIN+3~, MAIN+55*, MAIN+68*, MAIN+72, MAIN+73
ABSPDUZ2 GETPAT+1~, GETPAT+4*, GETPAT+11
ABSPEDT EDT+1~, EDT+8*, EDT+9
ABSPEND MAIN+1~, MAIN+2~, MAIN+21*, MAIN+22, MAIN+28, MAIN+29, MAIN+35, MAIN+38, FIND~, FIND+8
ABSPFROM MAIN+2~, MAIN+37*, MAIN+47
ABSPGDUE MAIN+3~, MAIN+48*, MAIN+75*, MAIN+78
ABSPGINS MAIN+3~, MAIN+48*, MAIN+74*, MAIN+78
ABSPGTOT MAIN+3~, MAIN+48*, MAIN+73*, MAIN+78
ABSPHARM GETPHARM+2~, GETPHARM+4*, GETPHARM+6
ABSPHCNT GETPHARM+2~, GETPHARM+3*, GETPHARM+5*, GETPHARM+6, GETPHARM+7
ABSPHLDP GETPHARM+2~, GETPHARM+6*, GETPHARM+7, GETPHARM+10
ABSPNDC FIND+1~, FIND+48*, FIND+57
ABSPNET FIND+3~, FIND+24*
>> ABSPPAID FIND+27*, FIND+35*, FIND+39*, FIND+54*, FIND+57
ABSPPDOB MAIN+2~, MAIN+12*, MAIN+46
ABSPPHRM MAIN+1~, MAIN+53*, MAIN+54*, MAIN+56, MAIN+58, MAIN+59, MAIN+60, MAIN+61, MAIN+62, MAIN+63
, MAIN+64, MAIN+65, MAIN+66, MAIN+68, MAIN+69, MAIN+70, FIND+1~, FIND+14*, FIND+15*, FIND+57
ABSPPHRN MAIN+1~, MAIN+13*, MAIN+46
ABSPPIEN MAIN+1~, MAIN+10*, MAIN+12, MAIN+13, MAIN+35, FIND~, FIND+13
ABSPPINF MAIN+1~, MAIN+8*, MAIN+9, MAIN+10, MAIN+11
ABSPPNAM MAIN+1~, MAIN+11*, MAIN+46
ABSPPNPI FIND+2~, FIND+50*, FIND+57
ABSPPRMI MAIN+2~, MAIN+57*, MAIN+58*, MAIN+59, MAIN+60, MAIN+61, MAIN+62, MAIN+63, MAIN+64, MAIN+65
, MAIN+66, MAIN+68, MAIN+69, MAIN+70
ABSPPROV MAIN+2~, MAIN+64*, MAIN+65, FIND+1~, FIND+49*, FIND+50, FIND+57
ABSPPSTN FIND+3~, FIND+20*, FIND+33, FIND+34, FIND+35
ABSPQTY FIND+2~, FIND+51*, FIND+57
ABSPQUIT MAIN+2~, MAIN+7*, MAIN+17*, MAIN+20, MAIN+23*, MAIN+26, MAIN+33
ABSPRDT FIND+1~, FIND+4*, FIND+7*, FIND+8, FIND+9, FIND+56, FIND+57
ABSPRESP FIND+3~, FIND+19*, FIND+32, FIND+34, FIND+35
>> ABSPRICE FIND+18*, FIND+28, FIND+40, FIND+55*, FIND+57
ABSPRMI FIND+1~, FIND+6*, FIND+9*, FIND+10, FIND+16, FIND+21, FIND+22, FIND+43
ABSPRXDT MAIN+1~
ABSPRXN FIND+2~
ABSPRXR FIND+2~
ABSPSDAT MAIN+2~, MAIN+36*, MAIN+49*, MAIN+50, MAIN+51, MAIN+54, MAIN+58, MAIN+59, MAIN+60, MAIN+61
, MAIN+62, MAIN+63, MAIN+64, MAIN+65, MAIN+66, MAIN+68, MAIN+69, MAIN+70
ABSPSTOP DEVSEL+1~, DEVSEL+2*, DEVSEL+9*, DEVSEL+11
ABSPSTRT MAIN+2~, MAIN+15*, MAIN+16, MAIN+27, MAIN+29, MAIN+35, MAIN+37, FIND~, FIND+4
ABSPTDAT FIND+2~, FIND+21*, FIND+57
ABSPTMP MAIN+1~, MAIN+35, FIND~
ABSPTMP( MAIN+49, MAIN+50, MAIN+54, MAIN+58, MAIN+59, MAIN+60, MAIN+61, MAIN+62, MAIN+63, MAIN+64
, MAIN+65, MAIN+66, MAIN+68, MAIN+69, MAIN+70, FIND+56*, FIND+57*
ABSPTMP("" MAIN+40
ABSPTO MAIN+2~, MAIN+38*, MAIN+47
ABSPTPAT FIND+2~, FIND+12*, FIND+13
ABSPTRNS FIND+2~, FIND+10*, FIND+11, FIND+12, FIND+14, FIND+18, FIND+19, FIND+20, FIND+48
ABSPTRXI FIND+1~, FIND+22*, FIND+44, FIND+45, FIND+49, FIND+51, FIND+52, FIND+57
>> ABSPTRXN FIND+44*
>> ABSPTRXR FIND+43*, FIND+57
DIC GETPAT+1~, GETPAT+5*, GETPAT+10!, GETPHARM+2~, GETPHARM+9*
DIC("A" GETPAT+6*, GETPHARM+11*
DIC("B" GETPHARM+10*
DIC(0 GETPAT+5*, GETPHARM+9*
DIR BDT+1~, BDT+3!, EDT+1~, EDT+3!
DIR("A" BDT+5*, EDT+5*
DIR(0 BDT+4*, EDT+4*
>> DIRUT BDT+7, EDT+7
>> DTOUT GETPAT+9, GETPHARM+14
>> DUOUT GETPAT+9, GETPHARM+14, DEVSEL+7
DUZ(2 MAIN+13, GETPAT+4*, GETPAT+11*
IO MAIN+4~, MAIN+44
IOF MAIN+45
>> PHARM GETPHARM+3*, GETPHARM+4
>> POP DEVSEL+4, DEVSEL+12
RESP FIND+3~
U MAIN+10, MAIN+11, MAIN+59, FIND+10, FIND+12, FIND+14, FIND+16, FIND+18, FIND+19, FIND+20
, FIND+21, FIND+22, FIND+43, FIND+44, FIND+45, FIND+46, FIND+47, FIND+48, FIND+49, FIND+50
, FIND+51, FIND+52, GETPHARM+10
X MAIN+30, MAIN+31, GETPAT+9, BDT+1~, BDT+10, EDT+1~, EDT+10
X1 MAIN+29*, BDT+1~, BDT+9*, EDT+1~, EDT+9*
>> X2 MAIN+29*
Y MAIN+37*, MAIN+38*, MAIN+51*, MAIN+52, MAIN+60*, MAIN+61, GETPAT+1~, GETPAT+3*, GETPAT+9, GETPAT+12
, GETPHARM+2~, GETPHARM+3*, GETPHARM+14, GETPHARM+15, BDT+8, EDT+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All