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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSL

Package: Pharmacy Point of Sale

Routine: ABSPOSL


Information

ABSPOSL ; IHS/FCS/DRS - logging ;

Source Information

Source file <ABSPOSL.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Pharmacy Point of Sale 2 PRINTLOG^ABSPOSL1  $$IMPOSS^ABSPOSUE  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 46

Package Total Caller Graph
Pharmacy Point of Sale 46 ABSPOS2D  ABSPOS57  ABSPOS6D  ABSPOS6M  ABSPOSAB  ABSPOSAM  ABSPOSAN  ABSPOSAO  
ABSPOSAP  ABSPOSAQ  ABSPOSAR  ABSPOSAS  ABSPOSAW  ABSPOSBB  ABSPOSBD  ABSPOSBF  
ABSPOSBM  ABSPOSBV  ABSPOSBW  ABSPOSBX  ABSPOSC2  ABSPOSC3  ABSPOSJ2  ABSPOSK  
ABSPOSK1  ABSPOSL1  ABSPOSQ  ABSPOSQ1  ABSPOSQ3  ABSPOSQ4  ABSPOSQA  ABSPOSQB  
ABSPOSQC  ABSPOSQD  ABSPOSQG  ABSPOSQJ  ABSPOSQL  ABSPOSQS  ABSPOSR1  ABSPOSR3  
ABSPOSR4  ABSPOSRB  ABSPOSRX  ABSPOSU  ABSPOSU6  ABSPOSUT  

Entry Points

Name Comments DBIA/ICR reference
EXISTS(X) ;EP -
SETSLOT(SLOT) ;EP -
LOG(TEXT,ECHO,SPECIAL) ;EP - log the event given by TEXT
; SPECIAL="D" to prefix with printable date, T time, DT both
FINDPREV(TYPE,START) ;
PRINTLOG(SLOT,START,END)
LOG2CLM(MSG,IEN02) ;EP - write MSG to log file for all claims in this 9002313.02
GETPLACE() ;EP -
LOGARRAY(ROOT,SLOT,MAX) ;EP -
LOG2LIST(MSG) ;EP - write MSG to the log files of all in RXILIST(*)
LOG2SLOT(MSG,SLOT) ;EP -
DONE ;EP -
RELSLOT ; EP -
PRCLLOG(WHERE,CLAIM) ;EP - print portion of comms log related to given claim
GETSLOT() ;EP -
PRINTEND(SLOT) ;EP -find the end of the logging session
GETINDEX(SLOT)
HDIF(THEN,NOW)
LOG59(MSG,IEN59)
INIT(SLOTNUM,NODELETE,TMSTAMP) ;EP - very first caller does this:
; TMSTAMP undef or 1 -> you'll get a one-line time stamp
; TMSTAMP = 0 -> you won't get it.
; TMSTAMP = -1 -> timestamp only if brand new log file

External References

Name Field # of Occurrence
NOW^%DTC LOG+6, INIT+28
PRINTLOG^ABSPOSL1 PRINTLOG+1
$$IMPOSS^ABSPOSUE INIT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>0
  • Line Location: LOG+14
Function Call: WRITE
  • Prompt: TEXT,!
  • Line Location: LOG+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSPECP("LOG" LOG+3, LOG+4, LOG+10*, LOG+16*, INIT+4, INIT+5, INIT+6*, INIT+7, INIT+13, INIT+18
, INIT+19, INIT+21*, INIT+23!, INIT+24*, INIT+26, INIT+29, SETSLOT+1*, SETSLOT+3*, RELSLOT+1, RELSLOT+2*
, GETSLOT+1, GETINDEX, DONE+3!, PRCLLOG+6, PRCLLOG+12, PRINTEND+1, PRINTEND+4, EXISTS+1, FINDPREV+3, FINDPREV+6
^ABSPT("AE" LOG2CLM+2
^DD("DD" LOG+6, INIT+28

Label References

Name Line Occurrences
$$GETINDEX GETPLACE+1
$$GETSLOT GETINDEX, GETPLACE+1, LOG2SLOT+1
$$PRINTEND PRCLLOG+3
LOG INIT+28, DONE+1, LOG59+4, LOG2SLOT+3, LOGARRAY+8
LOG2SLOT LOG59+1, LOGARRAY+7, LOGARRAY+12, LOGARRAY+13
LOG59 LOG2LIST+3, LOG2CLM+3
PRINTLOG PRCLLOG+18
RELSLOT DONE+2, LOG59+5, LOG2SLOT+4
SETSLOT INIT+22, LOG59+3, LOG2SLOT+2, LOG2SLOT+5

Naked Globals

Name Field # of Occurrence
^(0 LOG+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LOG+6~, INIT+28~
%H LOG+6~, INIT+28~
%I LOG+6~, INIT+28~
CLAIM PRCLLOG~, PRCLLOG+7, PRCLLOG+9, PRCLLOG+13
COUNT LOGARRAY+2~*, LOGARRAY+9*, LOGARRAY+13
ECHO LOG~, LOG+12
END PRCLLOG+1~, PRCLLOG+3*, PRCLLOG+11, PRCLLOG+17, PRINTEND+1~*, PRINTEND+2, PRINTEND+4*, PRINTEND+5, PRINTEND+6, PRINTLOG~
, PRINTLOG+1
END1 PRCLLOG+1~, PRCLLOG+11*, PRCLLOG+12, PRCLLOG+17*, PRCLLOG+18
FOUND PRCLLOG+1~, PRCLLOG+10*, PRCLLOG+11, PRCLLOG+13*, PRCLLOG+14
H LOG+2~*, LOG+10, LOG+16
IEN02 LOG2CLM~, LOG2CLM+2
IEN59 LOG2LIST+1~*, LOG2LIST+2*, LOG2LIST+3, LOG2CLM+1~*, LOG2CLM+2*, LOG2CLM+3, LOG59~, LOG59+1, LOG59+3
IO LOG+13~*, LOG+15
MAX LOGARRAY~, LOGARRAY+3*, LOGARRAY+5, LOGARRAY+11*, LOGARRAY+12
MSG LOG2LIST~, LOG2LIST+3, LOG2CLM~, LOG2CLM+3, LOG59~, LOG59+1, LOG59+4, LOG2SLOT~, LOG2SLOT+3
N LOG+4~*, LOG+10
NODELETE INIT~, INIT+23, INIT+24
NOW HDIF~
OLDSLOT LOG2SLOT+1~*, LOG2SLOT+5
>> ORIGROOT LOGARRAY+13
REF LOGARRAY+1~*, LOGARRAY+4*, LOGARRAY+5, LOGARRAY+7, LOGARRAY+8, LOGARRAY+10*, LOGARRAY+12
ROOT LOGARRAY~, LOGARRAY+1, LOGARRAY+12
>> RXILIST( LOG2LIST+2
SLOT LOG+3~*, LOG+4, LOG+10, LOG+16, INIT+8~, INIT+10*, INIT+13*, INIT+16*, INIT+18, INIT+19
, INIT+21, INIT+22, INIT+23, INIT+24, INIT+26, INIT+28, SETSLOT~, SETSLOT+1, SETSLOT+3, RELSLOT+1~*
, RELSLOT+2, GETINDEX~, PRCLLOG+1~, PRCLLOG+2*, PRCLLOG+3, PRCLLOG+6, PRCLLOG+12, PRCLLOG+18, PRINTEND~, PRINTEND+1
, PRINTEND+4, PRINTLOG~, PRINTLOG+1, LOG2SLOT~, LOG2SLOT+2, LOGARRAY~, LOGARRAY+6, LOGARRAY+7, LOGARRAY+12, LOGARRAY+13
SLOTNUM INIT~, INIT+9, INIT+10, INIT+12*, INIT+13
SPECIAL LOG~, LOG+5, LOG+7, LOG+8, LOG+16
START PRCLLOG+1~, PRCLLOG+2*, PRCLLOG+6, PRCLLOG+11, PRCLLOG+17, PRCLLOG+18, PRINTLOG~, PRINTLOG+1, FINDPREV~, FINDPREV+1
, FINDPREV+2*, FINDPREV+3*, FINDPREV+4*, FINDPREV+5*, FINDPREV+6*, FINDPREV+7
STOP INIT+15~*, INIT+16, INIT+20*
TEXT LOG~, LOG+9*, LOG+10, LOG+14
THEN HDIF~
TMSTAMP INIT~, INIT+25, INIT+26*, INIT+27
TYPE FINDPREV~, FINDPREV+2*, FINDPREV+4, FINDPREV+5
U RELSLOT+2, PRCLLOG+7, PRCLLOG+13
WHERE PRCLLOG~, PRCLLOG+2
X LOG+6~, INIT+5~*, INIT+6, INIT+28~, GETSLOT+1~*, GETSLOT+2*, GETSLOT+3, PRCLLOG+1~, PRCLLOG+6*, PRCLLOG+7
, PRCLLOG+8, PRCLLOG+12*, PRCLLOG+13, EXISTS~, EXISTS+1
Y LOG+6~*, LOG+7*, LOG+8*, LOG+9, INIT+28*

Marked Items

Name Field # of Occurrence
$T( INIT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All