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 |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSIY

Package: Pharmacy Point of Sale

Routine: ABSPOSIY


Information

ABSPOSIY ; IHS/FCS/DRS - Filing with .51,.59 ; [ 08/30/2002 10:26 AM ]

Source Information

Source file <ABSPOSIY.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Pharmacy Point of Sale 5 ($$ISREVERS,$$REVACC)^ABSPOS57  LOG^ABSPOSL2  $$YESNO^ABSPOSU3  $$CATEG^ABSPOSUC  IMPOSS^ABSPOSUE  
VA Fileman 2 NOW^%DTC  FILE^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSIZ  

Entry Points

Name Comments DBIA/ICR reference
NOW()
RXR(IEN,ENTRY)
IEN59() ;EP - given INPUT(), what should we use for an IEN in file 9002313.59?
; It's always a decimal, canonic number.
SETUP59(N,ORIGIN,ABSPUSR) ;EP - from ABSPOSIZ - given the INPUT array - IHS/OIT/SCR 082709 patch 34
; You don't have to set null fields, so long as you have called
; CLEAR, or if this is a NEW entry.
NDC(IEN,ENTRY)
ACWTA
RXPAID(IEN,ENTRY)
WANTREV()
RXPREV(IEN,ENTRY)
CPTIEN(IEN,ENTRY)
VIS(IEN,ENTRY)
RXI(IEN,ENTRY)
ACTIVEWT(IEN59,IEN51,IEN512) ;EP - from ABSPOSIZ
; Return 0 = forget about it, don't wait, just skip this one
; 1 = yes, wait and check again in several seconds from now
;

External References

Name Field # of Occurrence
NOW^%DTC NOW
$$ISREVERS^ABSPOS57 RXPAID+12
$$REVACC^ABSPOS57 RXPAID+12
LOG^ABSPOSL2 SETUP59+44
$$YESNO^ABSPOSU3 ACWTA+1, ACWTA+4
$$CATEG^ABSPOSUC RXPAID+14
IMPOSS^ABSPOSUE IEN59+27, IEN59+34, IEN59+37
FILE^DIE SETUP59+43

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?5,"There is currently an active transaction for this item"
  • Line Location: ACTIVEWT+8
Function Call: WRITE
  • Prompt: !?5,"though for a different fill date"
  • Line Location: ACTIVEWT+12
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: ACTIVEWT+13
Function Call: WRITE
  • Prompt: ?5,"So this item will be skipped.",!
  • Line Location: ACTIVEWT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ACWTA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ACWTA+4
Routine Call
  • DIE
  • Line Location:
    • SETUP59+43

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.51 - [#9002313.51] RXI, RXR, VIS, NDC, CPTIEN
^ABSPTL("NON-FILEMAN" RXPREV+13

Label References

Name Line Occurrences
$$CPTIEN RXPREV+11
$$NDC RXPREV+7
$$NOW SETUP59+27
$$RXI RXPREV+4
$$RXPREV RXPAID+6
$$RXR RXPREV+6
$$VIS RXPREV+10
ACWTA ACWTA+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW~
%H NOW~
%I NOW~
A RXPREV+3~, RXPREV+8*, RXPREV+12*, RXPREV+13
ABSPUSR SETUP59~, SETUP59+10
B RXPREV+3~, RXPREV+8*, RXPREV+12*, RXPREV+13
CPT IEN59+32~*, IEN59+36, IEN59+38*, IEN59+39, RXPREV+3~, RXPREV+11*, RXPREV+12
DUZ SETUP59+31
>> ECHO ACTIVEWT+7
ENTRY RXPREV~, RXPREV+4, RXPREV+6, RXPREV+7, RXPREV+10, RXPREV+11, RXPAID~, RXPAID+6, RXI~, RXR~
, VIS~, NDC~, CPTIEN~
FDA SETUP59+3~
FDA( SETUP59+5*, SETUP59+9*, SETUP59+10*, SETUP59+11*, SETUP59+13*, SETUP59+14*, SETUP59+21*, SETUP59+22*, SETUP59+26*, SETUP59+27*
, SETUP59+28*, SETUP59+29*, SETUP59+30*, SETUP59+31*, SETUP59+32*, SETUP59+35*, SETUP59+38*, SETUP59+39*, SETUP59+40, SETUP59+41*
FLAGS SETUP59+3~
FN SETUP59+3~*, SETUP59+5, SETUP59+9, SETUP59+10, SETUP59+11, SETUP59+13, SETUP59+14, SETUP59+21, SETUP59+22, SETUP59+26
, SETUP59+27, SETUP59+28, SETUP59+29, SETUP59+30, SETUP59+31, SETUP59+32, SETUP59+35, SETUP59+38, SETUP59+39, SETUP59+40
, SETUP59+41
I SETUP59+3~, SETUP59+35*, SETUP59+37*, SETUP59+38, SETUP59+39
IEN RXPREV~, RXPREV+4, RXPREV+6, RXPREV+7, RXPREV+10, RXPREV+11, RXPAID~, RXPAID+6, RXI~, RXR~
, VIS~, NDC~, CPTIEN~
IEN51 ACTIVEWT~
IEN512 ACTIVEWT~
IEN59 ACTIVEWT~
INDEX RXPREV+3~, RXPREV+7*, RXPREV+12*, RXPREV+13
>> INPUT(0 IEN59+30, SETUP59+29
>> INPUT(1 IEN59+23, IEN59+25, IEN59+32, SETUP59+14, SETUP59+26, SETUP59+28, SETUP59+30
>> INPUT(2 SETUP59+20, SETUP59+21, SETUP59+22
>> INPUT(5 SETUP59+35
>> INPUT(6 SETUP59+36, SETUP59+38
>> INPUT(7 SETUP59+36, SETUP59+39
MSG SETUP59+3~, SETUP59+44, SETUP59+46
N SETUP59~, SETUP59+3, SETUP59+4
N57 RXPAID+6~*, RXPAID+7, RXPAID+12, RXPAID+14
ORIGIN SETUP59~, SETUP59+9
PROMPT ACTIVEWT+4~, ACWTA*, ACWTA+1, ACWTA+3*, ACWTA+4
REC SETUP59+3~*, SETUP59+5, SETUP59+9, SETUP59+10, SETUP59+11, SETUP59+13, SETUP59+14, SETUP59+21, SETUP59+22, SETUP59+26
, SETUP59+27, SETUP59+28, SETUP59+29, SETUP59+30, SETUP59+31, SETUP59+32, SETUP59+35, SETUP59+38, SETUP59+39, SETUP59+40
, SETUP59+41
RET IEN59+22~, IEN59+29*, IEN59+30*, IEN59+39*, IEN59+40
RXI IEN59+22~, IEN59+23*, IEN59+24, IEN59+27, IEN59+29, RXPREV+3~, RXPREV+4*, RXPREV+5, RXPREV+8
RXR IEN59+25*, IEN59+26, IEN59+29, RXPREV+3~, RXPREV+6*, RXPREV+8
TYPE SETUP59+4~*, SETUP59+5, SETUP59+14, SETUP59+29, SETUP59+30
U IEN59+23, IEN59+25, IEN59+30, IEN59+32, SETUP59+14, SETUP59+20, SETUP59+21, SETUP59+22, SETUP59+26, SETUP59+28
, SETUP59+29, SETUP59+30, SETUP59+35, SETUP59+38, SETUP59+39, RXI, RXR, VIS, NDC, CPTIEN
VIS IEN59+32~*, IEN59+33, IEN59+35*, IEN59+39, RXPREV+3~, RXPREV+10*, RXPREV+12
X SETUP59+3~, SETUP59+35*, RXPAID+14~*, RXPAID+15, NOW~
>> Y ACWTA+1*, ACWTA+2, ACWTA+4*, ACWTA+5

Marked Items

Name Field # of Occurrence
$T( IEN59+27, IEN59+34, IEN59+37
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All