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

Package: Pharmacy Point of Sale

Routine: ABSPOSRX


Information

ABSPOSRX ; IHS/FCS/DRS - callable from RPMS pharm ; [ 01/21/2003 8:40 AM ]

Source Information

Source file <ABSPOSRX.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Pharmacy Point of Sale 5 PRINTLOG^ABSPOSL  SHOWQ^ABSPOSR2  $$STATI^ABSPOSU  $$CATEG^ABSPOSUC  IMPOSS^ABSPOSUE  
VA Fileman 2 ^%DT  NOW^%DTC  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Pharmacy Point of Sale 5 ABSPOS1  ABSPOS6D  ABSPOSNC  ABSPOSR3  ABSPOSRB  
IHS Changes To Pharmacy 3 APSPAUTO  APSPFUNC  APSQBRES  
Outpatient Pharmacy 1 PSORXED  

Entry Points

Name Comments DBIA/ICR reference
DOCU1 ; There are only four callable entry points!
; $$CLAIM^ABSPOSRX Submit a claim to Point of Sale
; $$UNCLAIM^ABSPOSRX Reverse a previously submitted claim.
; $$STATUS^ABSPOSRX Inquire about a claim's status
; SHOWQ^ABSPOSRX Display queue of claims to be processed
LASTUP59(RXI,RXR) ;EP - ABSPOSR1; time of last update
TASK ;N ;IHS/SD/lwj 11/25/02 newing everything
CLAIM(RXI,RXR,MOREDATA)
STATUS(RXI,RXR,MOREDATA) ;EP - ABSPOSRB
;
UNLOCK59
LOCK59()
RUNNING()
UNLOCK(X) ;EP - ABSPOSRB
DOCU
RESTXT59(RXI,RXR)
IEN59(RXI,RXR) ;EP - from ABSPOS,ABSPOSNC,ABSPOSRB
SHOWQ
LASTLOG ; tool for test - find and print most recent log file
EDCLAIM(RXI,RXR,MOREDATA)
UNCLAIM(RXI,RXR,MOREDATA) ;EP - ABSPOSR1
RXRDEF(RXI) ;EP - ABSPOSNC
LOCKNOW(X) ;EP - ABSPOSRB
NOW()
LOCK(X) ;EP - ABSPOSRB
TASKAT(ZTDTH)
STATUS59(RXI,RXR)
RESULT59(RXI,RXR) ;EP - ABSPOS6D ; result as defined in CATEG^ABSPOSUC

External References

Name Field # of Occurrence
^%DT TASK+2
NOW^%DTC NOW
^%ZTLOAD TASKAT+2
PRINTLOG^ABSPOSL LASTLOG+4
SHOWQ^ABSPOSR2 SHOWQ
$$STATI^ABSPOSU STATUS+19
$$CATEG^ABSPOSUC RESULT59+3
IMPOSS^ABSPOSUE EDCLAIM+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(X,";",2,99),!
  • Line Location: DOCU+1
Function Call: WRITE
  • Prompt: "No log file found",!
  • Line Location: LASTLOG+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.99 - [#9002313.99] RUNNING+8, RUNNING+9, RUNNING+13*
^ABSPECP( CLAIM+4!, CLAIM+5*, CLAIM+6*, UNCLAIM+4!, UNCLAIM+5*, UNCLAIM+6*, LOCK+3, LOCKNOW+3, UNLOCK+1
^ABSPECP("LOG" LASTLOG+2
^ABSPT - [#9002313.59] LOCK59, UNLOCK59, STATUS+10, RESTXT59+3, LASTUP59+3, STATUS59+4
^PSRX - [#52] RXRDEF+1

Label References

Name Line Occurrences
$$IEN59 STATUS+9, RESULT59+2, RESTXT59+2, LASTUP59+2, STATUS59+2
$$LASTUP59 STATUS+12, STATUS+20
$$LOCK CLAIM+3, UNCLAIM+3
$$LOCK59 STATUS59+3
$$NOW CLAIM+5, UNCLAIM+5
$$RESTXT59 STATUS+16
$$RESULT59 STATUS+15
$$RXRDEF RESULT59+2, RESTXT59+2, LASTUP59+2, STATUS59+2
$$STATUS59 STATUS+13, STATUS+21
LOCK EDCLAIM+4
RUNNING CLAIM+8, UNCLAIM+8
TASK RUNNING+15
TASKAT TASK+2
UNLOCK CLAIM+7, UNCLAIM+7, EDCLAIM+5
UNLOCK59 STATUS59+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW~
%DT TASK+2~*
%H NOW~
%I NOW~
A STATUS+11~, STATUS+15*, STATUS+18*, STATUS+22
C STATUS+11~, STATUS+16*, STATUS+19*, STATUS+22
CDT RUNNING+5~, RUNNING+11*, RUNNING+12
CTM RUNNING+5~, RUNNING+11*, RUNNING+12
DUZ TASK+1
I DOCU~*
IEN59 STATUS+8~, STATUS+9*, STATUS+10, RESULT59+1~*, RESULT59+2*, RESULT59+3, RESTXT59+1~*, RESTXT59+2*, RESTXT59+3, LASTUP59+1~*
, LASTUP59+2*, LASTUP59+3, STATUS59~, STATUS59+1*, STATUS59+2*, STATUS59+4
LDT RUNNING+5~, RUNNING+10*, RUNNING+12
LOCKED59 STATUS59+3~*, STATUS59+5
LTM RUNNING+5~, RUNNING+10*, RUNNING+12
MOREDATA CLAIM~, CLAIM+6, UNCLAIM~, UNCLAIM+6, STATUS~, EDCLAIM~
QFL RUNNING+5~, RUNNING+6*, RUNNING+9*, RUNNING+12*, RUNNING+14
RESULT UNCLAIM+1~
RETVAL CLAIM+1~, CLAIM+9*, CLAIM+10, UNCLAIM+1~, UNCLAIM+9*, UNCLAIM+10, STATUS+2~, EDCLAIM+3~*, EDCLAIM+6
RXI CLAIM~, CLAIM+4, CLAIM+5, CLAIM+6, UNCLAIM~, UNCLAIM+4, UNCLAIM+5, UNCLAIM+6, STATUS~, STATUS+9
, STATUS+12, STATUS+13, STATUS+15, STATUS+16, STATUS+20, STATUS+21, EDCLAIM~, RESULT59~, RESULT59+1, RESULT59+2
, RESTXT59~, RESTXT59+1, RESTXT59+2, LASTUP59~, LASTUP59+1, LASTUP59+2, RXRDEF~, RXRDEF+1, IEN59~, IEN59+1
, STATUS59~, STATUS59+1, STATUS59+2
RXR CLAIM~, CLAIM+2*, CLAIM+4, CLAIM+5, CLAIM+6, UNCLAIM~, UNCLAIM+2*, UNCLAIM+4, UNCLAIM+5, UNCLAIM+6
, STATUS~, STATUS+3*, STATUS+9, STATUS+12, STATUS+13, STATUS+15, STATUS+16, STATUS+20, STATUS+21, EDCLAIM~
, RESULT59~, RESULT59+2*, RESTXT59~, RESTXT59+2*, LASTUP59~, LASTUP59+2*, IEN59~, IEN59+1, STATUS59~, STATUS59+2*
S1 STATUS+11~, STATUS+13*, STATUS+14, STATUS+19
S2 STATUS+11~, STATUS+21*
STAT CLAIM+1~, UNCLAIM+1~, STATUS59~, STATUS59+4~*, STATUS59+6
T1 STATUS+11~, STATUS+12*, STATUS+22
T2 STATUS+11~, STATUS+20*
TYPE CLAIM+1~*, CLAIM+4, CLAIM+5, CLAIM+6, UNCLAIM+1~*, UNCLAIM+4, UNCLAIM+5, UNCLAIM+6
U STATUS+22, RESTXT59+3, LASTUP59+3, RXRDEF+1, STATUS59+4
X DOCU~*, DOCU+1, NOW~, LOCK~, LOCK+3, LOCKNOW~, LOCKNOW+3, UNLOCK~, UNLOCK+1, RUNNING+5~
, RUNNING+9*, RUNNING+10, RUNNING+11*, TASK+2~*, LASTLOG+1~*, LASTLOG+2*, LASTLOG+3, LASTLOG+4
Y TASK+2~
ZTDTH TASKAT~
ZTIO TASKAT+1~*
ZTRTN TASKAT+2~*

Marked Items

Name Field # of Occurrence
$T( CLAIM+4, CLAIM+5, CLAIM+6, UNCLAIM+4, UNCLAIM+5, UNCLAIM+6, EDCLAIM+1, LOCK+3, LOCKNOW+3, UNLOCK+1
$T(DOCU1+I DOCU
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All