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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSX

Package: Pharmacy Point of Sale

Routine: ABSPOSX


Information

ABSPOSX ; IHS/FCS/DRS - Support ;

Source Information

Source file <ABSPOSX.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Pharmacy Point of Sale 7 VOLUME^ABSPOS35  SHOWQ^ABSPOSR2  ($$DTR,$$NOWEXT,$$NOWFM)^ABSPOSU1  PRESSANY^ABSPOSU5  PURGE^ABSPOSU7  ($$SECSDHMS,$$TADD)^ABSPOSUD  SEARCH^ABSPOSXE  
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 2 (H,YMD)^%DTC  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSXE  

Entry Points

Name Comments DBIA/ICR reference
WEEK ;EP
GETRANGE(HOW)
THELIST ; calls to all the little things you want to monitor
; given RANGE=fileman start^end dates
; Put errors and shouldn't-happen things first:
AUTO ; EP - automatic, using setup params for date range
TRANSACT ; count 9002313.57 transactions in RANGE
; It's a date range; be sure you get them all
STRANDED ;
TRANS1 ;
; ^TMP($J,"TRANSACT")=count of 9002313.57 transactions
; ^TMP($J,"TRANSACT","R",result)=count by result type
; ^TMP($J,"TRANSACT","INS",company)=count by insurance company
; ^TMP($J,"TRANSACT","INS",company,"R",result)=count result by company
; ^TMP($J,"TRANSACT","TIME",secs)=count
; ^TMP($J,"TRANSACT","TIME",secs,IEN57) for certain too-long ones
DTRANGE() ;EP -
HRANGE(RANGE) ;EP - convert fileman^fileman to $H^$H
INTERJ ; join
UE ; ^TMP("ABSPOSUE",$J)=DUZ^$H
INTER ; EP - interactive use
YESTER ;EP
TODAY ;EP

External References

Name Field # of Occurrence
H^%DTC HRANGE+4
YMD^%DTC UE+11
^%ZIS INTERJ+1
^%ZISC INTERJ+3
VOLUME^ABSPOS35 THELIST+16
SHOWQ^ABSPOSR2 THELIST+10
$$DTR^ABSPOSU1 GETRANGE+7, DTRANGE+2
$$NOWEXT^ABSPOSU1 THELIST+5
$$NOWFM^ABSPOSU1 DTRANGE+1
PRESSANY^ABSPOSU5 THELIST+15
PURGE^ABSPOSU7 STRANDED+3
$$SECSDHMS^ABSPOSUD TRANSACT+17
$$TADD^ABSPOSUD YESTER+1, WEEK+1, GETRANGE+5
SEARCH^ABSPOSXE THELIST+6
$$GET1^DIQ TRANS1+16, TRANS1+17, TRANS1+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Support Utility to survey Point of Sale activity (",$T(+0),")",!
  • Line Location: THELIST+3
Function Call: WRITE
  • Prompt: "Site: ",$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: THELIST+4
Function Call: WRITE
  • Prompt: "Date: ",$$NOWEXT^ABSPOSU1,!
  • Line Location: THELIST+5
Function Call: WRITE
  • Prompt: "Winnowing old data:",!
  • Line Location: THELIST+11
Function Call: WRITE
  • Prompt: " the log files are in: ",$G(^ABSP(9002313.99,1,"WINNOW LOGS")),!
  • Line Location: THELIST+12
Function Call: WRITE
  • Prompt: "Update of Report Master file: ",$G(^ABSP(9002313.99,1,"ABSPOSM1")),!
  • Line Location: THELIST+13
Function Call: WRITE
  • Prompt: "Count of complete transactions: ",^TMP($J,"TRANSACT"),!
  • Line Location: TRANSACT+3
Function Call: WRITE
  • Prompt: "Tally by result type: ",!
  • Line Location: TRANSACT+4
Function Call: READ
  • Timeout: R=""
  • Line Location: TRANSACT+5
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TRANSACT","R",R),10)," ",R,!
  • Line Location: TRANSACT+6
Function Call: WRITE
  • Prompt: "Tally by insurer and by result type: ",!
  • Line Location: TRANSACT+7
Function Call: WRITE
  • Prompt: ?10,$J(^TMP($J,"TRANSACT","INS",INS),5)," for ",INS
  • Line Location: TRANSACT+9
Function Call: WRITE
  • Prompt: " - all PAPER",!
  • Line Location: TRANSACT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: TRANSACT+11
Function Call: WRITE
  • Prompt: ?20,$J(^TMP($J,"TRANSACT","INS",INS,"R",R),5)," ",R,!
  • Line Location: TRANSACT+13
Function Call: WRITE
  • Prompt: "Tally by transaction time:",!
  • Line Location: TRANSACT+14
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TRANSACT","TIME",SECS),10)," - "
  • Line Location: TRANSACT+16
Function Call: WRITE
  • Prompt: $$SECSDHMS^ABSPOSUD(SECS)
  • Line Location: TRANSACT+17
Function Call: WRITE
  • Prompt: SECS
  • Line Location: TRANSACT+18
Function Call: WRITE
  • Prompt: " - IEN57=",$O(^TMP($J,"TRANSACT","TIME",SECS,""))
  • Line Location: TRANSACT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: TRANSACT+20
Function Call: READ
  • Prompt: IEN57C
  • Formatting: S R=$$GET1^DIQ(9002313.57
  • Timeout: R=""
  • Variable: 4.0098) S
  • Line Location: TRANS1+16
Function Call: WRITE
  • Prompt: "Errors which went through ABSPOSUE:",!
  • Line Location: UE+4
Function Call: WRITE
  • Prompt: "Encountered by ",$P($G(^VA(200,+X,0)),U)," on ",H,!
  • Line Location: UE+13
Routine Call
  • %ZIS
  • Line Location:
    • INTERJ+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSPTL - [#9002313.57] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.99 - [#9002313.99] THELIST+12, THELIST+13, STRANDED+1, UE+1, GETRANGE+3, GETRANGE+4*
^ABSPTL("AH" TRANS1+12, TRANS1+14
^DIC(4 - [#4] THELIST+4
^TMP("ABSPOSUE" UE+3, UE+5, UE+6, UE+9!
^TMP($J TRANSACT+3, TRANSACT+5, TRANSACT+6, TRANSACT+8, TRANSACT+9, TRANSACT+10, TRANSACT+12, TRANSACT+13, TRANSACT+15, TRANSACT+16
, TRANSACT+19, TRANS1+8!*, TRANS1+18*, TRANS1+19*, TRANS1+20*, TRANS1+21*, TRANS1+24*, TRANS1+25*
^VA(200 - [#200] UE+13

Label References

Name Line Occurrences
$$GETRANGE AUTO+1, INTER+1
$$HRANGE THELIST+6
INTERJ TODAY+1, YESTER+1, WEEK+1
STRANDED THELIST+7
THELIST AUTO+2, INTERJ+2
TRANS1 TRANSACT+2
TRANSACT THELIST+14
UE THELIST+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UE+11~
%H UE+11~*, HRANGE+1~, HRANGE+5
%T HRANGE+1~, HRANGE+5
%Y HRANGE+1~
DEF DTRANGE+1~*, DTRANGE+2
DT TODAY+1, YESTER+1, WEEK+1, GETRANGE+5
DUZ(2 THELIST+4
H UE+7~*, UE+8, UE+9, UE+11*, UE+12, UE+13
HOW GETRANGE~, GETRANGE+2
HRS STRANDED+1~*, STRANDED+2*, STRANDED+3
I HRANGE+1~, HRANGE+2*, HRANGE+3, HRANGE+5
IEN57 TRANS1+13~*, TRANS1+14*, TRANS1+15, TRANS1+25
IEN57C TRANS1+15~*, TRANS1+16, TRANS1+17, TRANS1+22
INS TRANSACT+8~*, TRANSACT+9, TRANSACT+10, TRANSACT+12, TRANSACT+13, TRANS1+17~*, TRANS1+20, TRANS1+21
J UE+3~*, UE+5*, UE+6, UE+9
NDAYS UE+1~*, UE+2*, UE+8, UE+9
POP INTERJ+1~
R TRANSACT+5~*, TRANSACT+6, TRANSACT+12*, TRANSACT+13, TRANS1+16~*, TRANS1+19, TRANS1+21
RANGE AUTO+1*, INTER+1*, TODAY+1*, YESTER+1*, WEEK+1*, THELIST+6, THELIST+16, TRANS1+9, UE+12, GETRANGE+5*
, GETRANGE+7*, GETRANGE+8, HRANGE~, HRANGE+2, HRANGE+3, HRANGE+5*, HRANGE+6
SECS TRANSACT+15~*, TRANSACT+16, TRANSACT+17, TRANSACT+18, TRANSACT+19, TRANS1+22~*, TRANS1+23*, TRANS1+24, TRANS1+25
T TRANS1+9~, TRANS1+11*, TRANS1+12*, TRANS1+14
U TODAY+1, YESTER+1, WEEK+1, THELIST+4, THELIST+16, TRANS1+9, STRANDED+1, UE+1, UE+7, UE+12
, UE+13, GETRANGE+5, HRANGE+2, HRANGE+3, HRANGE+5
X TRANS1+9~*, TRANS1+11, UE+6~*, UE+7, UE+11~, UE+13, GETRANGE+3~*, GETRANGE+4*, GETRANGE+5, DTRANGE+2~*
, DTRANGE+3, HRANGE+1~, HRANGE+3*
Y TRANS1+9~*, TRANS1+10*, TRANS1+12

Marked Items

Name Field # of Occurrence
$T( THELIST+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All