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: ABSPOSPE

Package: Pharmacy Point of Sale

Routine: ABSPOSPE


Information

ABSPOSPE ; IHS/OIT/RAN - Pharmacy EXPENSE report modeled after ABSPOSEX Patient Expense report

Source Information

Source file <ABSPOSPE.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  $$NPI^XUSNPI  
Pharmacy Point of Sale 3 ($$505,$$509)^ABSPOS03  $$ISBEN^ABSPOS26  $$RESP1000^ABSPOSQ4  
VA Fileman 2 DD^%DT  $$GET1^DIQ  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSBC  

Entry Points

Name Comments DBIA/ICR reference
MAIN(ABSPTRNS) ;PHAREX
DEVSEL(ABSPPHRM)
CHKPARMS(ABSBPATI,ABSPPHRM)
GETINFO(ABSPPIEN,ABSPTRNS)
ZEND

External References

Name Field # of Occurrence
DD^%DT MAIN+22, MAIN+31
^%ZIS DEVSEL+9, DEVSEL+11
^%ZISC DEVSEL+13, ZEND+1
$$505^ABSPOS03 GETINFO+35
$$509^ABSPOS03 GETINFO+36
$$ISBEN^ABSPOS26 CHKPARMS+10
$$RESP1000^ABSPOSQ4 GETINFO+13
$$DOB^AUPNPAT MAIN+11
$$HRN^AUPNPAT MAIN+12
$$GET1^DIQ GETINFO+9, GETINFO+10
$$NPI^XUSNPI GETINFO+45

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PATIENT: "_ABSPPNAM_" DOB: "_ABSPPDOB_" HRN: "_ABSPPHRN
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !!?10,"RELEASE DATE: "_Y
  • Line Location: MAIN+23
Function Call: WRITE
  • Prompt: !!?8,"PHARMACY: "_$P($G(^ABSP(9002313.56,ABSPPHRM,0)),"^",1)
  • Line Location: MAIN+27
Function Call: WRITE
  • Prompt: !!,"RX #/REFILL: `"_ABSPPRMI_"/"_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),U,1)
  • Line Location: MAIN+30
Function Call: WRITE
  • Prompt: !?0,"TRANSACTION DATE: "_Y,?40,"TRANSACTION TYPE: "_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),"^",4)
  • Line Location: MAIN+32
Function Call: WRITE
  • Prompt: !?5,"DRUG NAME: "_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),"^",5),?50,"NDC#: "_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),"^",6)
  • Line Location: MAIN+33
Function Call: WRITE
  • Prompt: !?5,"QTY: "_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),"^",9),?50,"D/S: "_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),"^",10)
  • Line Location: MAIN+34
Function Call: WRITE
  • Prompt: !?5,"PROVIDER NAME: "_$P(^VA(200,ABSPPROV,0),"^",1),?50,"PROVIDER NPI#: "_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),"^",8)
  • Line Location: MAIN+36
Function Call: WRITE
  • Prompt: !?0,"TOTAL PRICE: "_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),"^",11),?25,"INSURER PAID: "_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),"^",12),?53,"AMOUNT DUE: "_$P(ABSPTMP(ABSPSDAT,ABSPPHRM,ABSPPRMI),"^",13)
  • Line Location: MAIN+37
Function Call: WRITE
  • Prompt: !!,?0,"TOTAL: "_ABSPDTOT,?25,"INS PAID: "_ABSPDINS,?53,"DUE: "_ABSPDDUE
  • Line Location: MAIN+41
Routine Call
  • %ZIS
  • Line Location:
    • DEVSEL+9
    • DEVSEL+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.56 - [#9002313.56] MAIN+27, CHKPARMS+7, CHKPARMS+8, CHKPARMS+9, DEVSEL+4
^ABSPTL - [#9002313.57] MAIN+4, MAIN+6, GETINFO+4, GETINFO+6, GETINFO+16, GETINFO+17, GETINFO+18, GETINFO+43
^DPT - [#2] MAIN+10
^PSDRUG - [#50] GETINFO+41, GETINFO+42
^PSRX - [#52] GETINFO+38, GETINFO+39, GETINFO+40, GETINFO+44, GETINFO+46, GETINFO+47
^VA(200 - [#200] MAIN+36

Label References

Name Line Occurrences
$$CHKPARMS MAIN+8
$$DEVSEL MAIN+15
GETINFO MAIN+17
ZEND MAIN+42

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS("HFSMODE" DEVSEL+7*
ABSBPATI CHKPARMS~
ABSPARRY MAIN+1~
ABSPCPAY GETINFO+2~, GETINFO+24*, GETINFO+29*, GETINFO+35*, GETINFO+48*, GETINFO+52
ABSPCTYN GETINFO+2~, GETINFO+19*, GETINFO+22*, GETINFO+27*, GETINFO+32*, GETINFO+37, GETINFO+52
ABSPCTYP GETINFO+1~, GETINFO+13*, GETINFO+14*, GETINFO+21, GETINFO+26, GETINFO+31, GETINFO+52
ABSPDAT GETINFO+1~
ABSPDAYS GETINFO+2~, GETINFO+47*, GETINFO+52
ABSPDDUE MAIN+3~, MAIN+26*, MAIN+40*, MAIN+41
ABSPDINS MAIN+3~, MAIN+26*, MAIN+39*, MAIN+41
ABSPDOB MAIN+1~
ABSPDONE GETINFO+2~
ABSPDRGN GETINFO+1~, GETINFO+41*, GETINFO+52
ABSPDRGP GETINFO+1~, GETINFO+40*, GETINFO+41, GETINFO+42
>> ABSPDSYN GETINFO+42*
ABSPDTOT MAIN+3~, MAIN+26*, MAIN+38*, MAIN+41
ABSPEND MAIN+1~, MAIN+2~
ABSPFROM MAIN+2~
ABSPNDC GETINFO+1~, GETINFO+43*, GETINFO+52
ABSPNET GETINFO+3~, GETINFO+20*
>> ABSPPAID GETINFO+23*, GETINFO+28*, GETINFO+36*, GETINFO+49*, GETINFO+52
ABSPPDOB MAIN+2~, MAIN+11*, MAIN+19
ABSPPHRM MAIN+1~, MAIN+6*, MAIN+7, MAIN+8, MAIN+15, MAIN+24*, MAIN+25*, MAIN+27, MAIN+29, MAIN+30
, MAIN+31, MAIN+32, MAIN+33, MAIN+34, MAIN+35, MAIN+36, MAIN+37, MAIN+38, MAIN+39, MAIN+40
, GETINFO+1~, GETINFO+6*, GETINFO+7*, GETINFO+52, CHKPARMS~, CHKPARMS+7, CHKPARMS+8, CHKPARMS+9, DEVSEL~, DEVSEL+4
ABSPPHRN MAIN+1~, MAIN+12*, MAIN+19
ABSPPIEN MAIN+4*, MAIN+5, MAIN+8, MAIN+10, MAIN+11, MAIN+12, MAIN+17, GETINFO~, GETINFO+5
ABSPPINF MAIN+1~
ABSPPNAM MAIN+1~, MAIN+10*, MAIN+19
ABSPPNPI GETINFO+2~, GETINFO+45*, GETINFO+52
ABSPPRMI MAIN+2~, MAIN+28*, MAIN+29*, MAIN+30, MAIN+31, MAIN+32, MAIN+33, MAIN+34, MAIN+35, MAIN+36
, MAIN+37, MAIN+38, MAIN+39, MAIN+40
ABSPPROV MAIN+2~, MAIN+35*, MAIN+36, GETINFO+1~, GETINFO+44*, GETINFO+45, GETINFO+52
ABSPPSTN GETINFO+3~, GETINFO+9*, GETINFO+13, GETINFO+34, GETINFO+35, GETINFO+36
ABSPQTY GETINFO+2~, GETINFO+46*, GETINFO+52
ABSPRDT GETINFO+1~
ABSPRESP GETINFO+3~, GETINFO+10*, GETINFO+13, GETINFO+33, GETINFO+35, GETINFO+36
>> ABSPRICE GETINFO+16*, GETINFO+24, GETINFO+29, GETINFO+50*, GETINFO+52
ABSPRUN MAIN+3~, MAIN+8*, MAIN+9
ABSPRXDT MAIN+1~
ABSPRXN GETINFO+2~
ABSPRXR GETINFO+2~
ABSPSDAT MAIN+2~, MAIN+18*, MAIN+20*, MAIN+21, MAIN+22, MAIN+25, MAIN+29, MAIN+30, MAIN+31, MAIN+32
, MAIN+33, MAIN+34, MAIN+35, MAIN+36, MAIN+37, MAIN+38, MAIN+39, MAIN+40
ABSPSTOP DEVSEL+1~, DEVSEL+8*, DEVSEL+14*, DEVSEL+15
ABSPSTRT MAIN+2~
ABSPTDAT GETINFO+2~, GETINFO+17*, GETINFO+51, GETINFO+52
ABSPTMP MAIN+1~
ABSPTMP( MAIN+20, MAIN+21, MAIN+25, MAIN+29, MAIN+30, MAIN+31, MAIN+32, MAIN+33, MAIN+34, MAIN+35
, MAIN+36, MAIN+37, MAIN+38, MAIN+39, MAIN+40, GETINFO+51*, GETINFO+52*
ABSPTO MAIN+2~
ABSPTPAT GETINFO+2~, GETINFO+4*, GETINFO+5
ABSPTRNS MAIN~, MAIN+4, MAIN+6, MAIN+17, GETINFO~, GETINFO+4, GETINFO+6, GETINFO+9, GETINFO+10, GETINFO+16
, GETINFO+17, GETINFO+18, GETINFO+43
ABSPTRXI GETINFO+1~, GETINFO+18*, GETINFO+38, GETINFO+39, GETINFO+40, GETINFO+44, GETINFO+46, GETINFO+47, GETINFO+52
>> ABSPTRXN GETINFO+39*
>> ABSPTRXR GETINFO+38*, GETINFO+52
>> DUOUT DEVSEL+12
DUZ(2 MAIN+12
>> FILENUM GETINFO+8*, GETINFO+9, GETINFO+10
IO MAIN+3~, MAIN+19, MAIN+23, MAIN+27, MAIN+30, MAIN+32, MAIN+33, MAIN+34, MAIN+36, MAIN+37
, MAIN+41
IOP DEVSEL+1~, DEVSEL+4*, DEVSEL+5, DEVSEL+6*
OK MAIN+3~, MAIN+13*, MAIN+15*, MAIN+16, CHKPARMS+5~, CHKPARMS+6*, CHKPARMS+8*, CHKPARMS+10*, CHKPARMS+11, DEVSEL+1~
, DEVSEL+2*, DEVSEL+16*, DEVSEL+17
>> POP DEVSEL+10, DEVSEL+16
RESP GETINFO+3~
U MAIN+4, MAIN+6, MAIN+10, MAIN+30, GETINFO+4, GETINFO+6, GETINFO+16, GETINFO+17, GETINFO+18, GETINFO+38
, GETINFO+39, GETINFO+40, GETINFO+41, GETINFO+42, GETINFO+43, GETINFO+44, GETINFO+45, GETINFO+46, GETINFO+47, CHKPARMS+7
, CHKPARMS+8, CHKPARMS+9, DEVSEL+4
>> Y MAIN+22*, MAIN+23, MAIN+31*, MAIN+32
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All