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

Package: Pharmacy Point of Sale

Routine: ABSPOSM1


Information

ABSPOSM1 ; IHS/FCS/DRS - build Report Master data ; [ 09/12/2002 10:12 AM ]

Source Information

Source file <ABSPOSM1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Pharmacy Point of Sale 10 ZWRITE^ABSPOS  REJTEXT^ABSPOS03  $$LAST57^ABSPOSBB  LOG^ABSPOSL2  ($$MESSAGE,RESPPOS)^ABSPOSM  $$DTR^ABSPOSU1  $$NUMERIC^ABSPOSU2  $$YESNO^ABSPOSU3  
$$TADD^ABSPOSUD  $$IMPOSS^ABSPOSUE  
VA Fileman 3 NOW^%DTC  (FILE,UPDATE)^DIE  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Pharmacy Point of Sale 3 ABSPOSEX  ABSPOSM  ABSPOSMB  

Entry Points

Name Comments DBIA/ICR reference
LASTRUN
DELETE(IEN) ;
CLEAN61 ;EP - Clean up 9002313.61 for BEGINDT - ENDDT
; Delete all entries for which the release date has changed.
; Could be that the release date changed on something.
P1
BUILD61 ; Build file 9002313.61 for BEGINDT - ENDDT
FIND() ; look for existing RXI,RXR entry in 9002313.61
PREPARE ; not used?
UNLOCK61
LOCK61()
NOW()
UPDWHEN()
D5
UPDYN()
PURPOSE
AUTO(SILENT) ; EP - entry action to the claims report menu
; automatically update for a few days prior to the last update
; up through the end of today
ONE ; RXI, RXR released at time WHEN
AUTO9
WHY ;
UPDATE61(BEGINDT,ENDDT,SILENT) ; EP - update the .61 file.
; If called with $$, returns 1 success, 0 failure
ONE5

External References

Name Field # of Occurrence
NOW^%DTC NOW
ZWRITE^ABSPOS D5+3, ONE5+7
REJTEXT^ABSPOS03 ONE+61
$$LAST57^ABSPOSBB ONE+7
LOG^ABSPOSL2 D5+1, ONE5+2, ONE5+5
$$MESSAGE^ABSPOSM ONE+40, ONE+47
RESPPOS^ABSPOSM ONE+60
$$DTR^ABSPOSU1 UPDATE61+10
$$NUMERIC^ABSPOSU2 UPDWHEN+6
$$YESNO^ABSPOSU3 UPDYN+3
$$TADD^ABSPOSUD AUTO+8, AUTO+15, P1+3
$$IMPOSS^ABSPOSUE D5+4, ONE5+8
FILE^DIE D5, ONE5+4
UPDATE^DIE ONE5+1
$$GET1^DIQ ONE+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: UPDATE61+3
Function Call: WRITE
  • Prompt: !,"Someone else is already using this program.",!
  • Line Location: UPDATE61+5
Function Call: WRITE
  • Prompt: !,"Choose the date range of prescription RELEASE DATE",!
  • Line Location: UPDATE61+8
Function Call: WRITE
  • Prompt: "to include in this report.",!
  • Line Location: UPDATE61+9
Function Call: WRITE
  • Prompt: !,"Thinking..."
  • Line Location: UPDATE61+15
Function Call: WRITE
  • Prompt: !,"Done",!
  • Line Location: UPDATE61+21
Function Call: WRITE
  • Prompt: !,"...updating the Report Master file, please stand by...",!
  • Line Location: AUTO+4
Function Call: WRITE
  • Prompt: !,"Report Master file is being prepared for its first use.",!
  • Line Location: AUTO+10
Function Call: WRITE
  • Prompt: "The past month's transactions will be loaded.",!
  • Line Location: AUTO+11
Function Call: WRITE
  • Prompt: "If you need to do older reports, use the menu option to ",!
  • Line Location: AUTO+12
Function Call: WRITE
  • Prompt: "update the Report Master for a specific date range.",!
  • Line Location: AUTO+13
Function Call: WRITE
  • Prompt: !,"Updating the Report Master file for "
  • Line Location: AUTO+18
Function Call: WRITE
  • Prompt: Y
  • Line Location: AUTO+19
Function Call: WRITE
  • Prompt: " thru ",Y,!
  • Line Location: AUTO+20
Function Call: WRITE
  • Prompt: !,"Updating..."
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !,"Couldn't update the Report Master file",!
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: "You may still try to run some reports, however.",!
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: "The Report Master file is the mechanism which",!
  • Line Location: PURPOSE+0
Function Call: WRITE
  • Prompt: "links the Prescription and POS Transaction files together",!
  • Line Location: PURPOSE+1
Function Call: WRITE
  • Prompt: "for efficient sorting and Fileman reporting.",!
  • Line Location: PURPOSE+2
Function Call: WRITE
  • Prompt: "The Report Master file may need to be updated with the latest",!
  • Line Location: WHY+1
Function Call: WRITE
  • Prompt: "prescription Released Dates and POS Transaction Numbers",!
  • Line Location: WHY+2
Function Call: WRITE
  • Prompt: "to ensure 100% accurate reporting.",!
  • Line Location: WHY+3
Function Call: WRITE
  • Prompt: "This is the first time the Report Master file has ever been updated.",!
  • Line Location: LASTRUN+1
Function Call: WRITE
  • Prompt: "The last time the Report Master file was updated was "
  • Line Location: LASTRUN+2
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: LASTRUN+3
Function Call: WRITE
  • Prompt: "The update covered "
  • Line Location: LASTRUN+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: LASTRUN+5
Function Call: WRITE
  • Prompt: " thru "
  • Line Location: LASTRUN+7
Function Call: WRITE
  • Prompt: Y
  • Line Location: LASTRUN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LASTRUN+8
Function Call: WRITE
  • Prompt: !,"CORRUPTED X-REF FOUND!",!,"RE-INDEX ABSP REPORT MASTER"
  • Line Location: CLEAN61+14
Function Call: WRITE
  • Prompt: !,"CORRUPTED X-REF FOUND!",!,"RE-INDEX ABSP REPORT MASTER"
  • Line Location: FIND+5
Routine Call
  • DIE
  • Line Location:
    • ONE5+1
Routine Call
  • DIE
  • Line Location:
    • D5
    • ONE5+4

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] UPDATE61+16*, UPDATE61+19*, AUTO+5, AUTO+6, AUTO9, LASTRUN
^ABSPECX("RPT" - [#9002313.61] CLEAN61+10, CLEAN61+11, CLEAN61+13, LOCK61, UNLOCK61, FIND+2, FIND+4
^ABSPTL - [#9002313.57] ONE+9
^DD("DD" AUTO+19, AUTO+20, LASTRUN+3, LASTRUN+5, LASTRUN+7
^PSRX - [#52] CLEAN61+16, CLEAN61+18
^PSRX("AL" BUILD61+3, BUILD61+4, BUILD61+5

Label References

Name Line Occurrences
$$FIND ONE+2, ONE+3
$$LOCK61 UPDATE61+4
$$NOW UPDATE61+16, UPDATE61+19, AUTO+8, AUTO+22
$$UPDATE61 AUTO+23, P1+4
$$UPDWHEN P1+1
$$UPDYN P1
AUTO9 AUTO+23
BUILD61 UPDATE61+18
CLEAN61 UPDATE61+17
D5 D5+4
DELETE CLEAN61+19
LASTRUN UPDATE61+3
ONE BUILD61+6
ONE5 ONE5+8
P1 P1+1
UNLOCK61 UPDATE61+20
WHY PREPARE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW~
%H NOW~
%I NOW~
ATTIME AUTO+22~*
BEGINDT UPDATE61~, UPDATE61+6, UPDATE61+12*, UPDATE61+13, UPDATE61+16, CLEAN61+8, BUILD61+2
DEF UPDYN+1~*, UPDYN+3, UPDWHEN+1~*, UPDWHEN+2*, UPDWHEN+6
DT AUTO+14, AUTO+16, P1+3, P1+4
ENDDT UPDATE61~, UPDATE61+12*, UPDATE61+13*, UPDATE61+14*, UPDATE61+16, CLEAN61+10, BUILD61+3
FDA DELETE+1~, ONE+1~
FDA( DELETE+2*, ONE+6*, ONE+7*, ONE+9*, ONE+10*, ONE+11*, ONE+31*, ONE+53*, ONE+54*, ONE+63*
, ONE+64*
FN ONE+1~, ONE+5*, ONE+6, ONE+7, ONE+9, ONE+10, ONE+11, ONE+31, ONE+53, ONE+54
, ONE+63, ONE+64
FOUND FIND+1~*, FIND+2, FIND+6*, FIND+7
IEN CLEAN61+11~*, CLEAN61+13, CLEAN61+19, BUILD61+1~*, DELETE~, DELETE+2, FIND+1~*, FIND+2*, FIND+4, FIND+6
IEN57 ONE+1~, ONE+7*, ONE+9, ONE+13, ONE+40, ONE+47, ONE+60
IENS ONE+1~, ONE+2*, ONE+3*, ONE+4*, ONE+6, ONE+7, ONE+9, ONE+10, ONE+11, ONE+31
, ONE+53, ONE+54, ONE+63, ONE+64, ONE5, ONE5+8
MAX UPDWHEN+5~*, UPDWHEN+6
MIN UPDWHEN+4~*, UPDWHEN+6
MSG DELETE+1~, D5+1, D5+2, ONE+1~, ONE5+2, ONE5+5, ONE5+6
MSGTEXT ONE+38~, ONE+53
MSGTEXT(1 ONE+42*, ONE+44*, ONE+45*, ONE+46*
MSGTEXT(2 ONE+50*, ONE+51*, ONE+52*
N P1+1~*, P1+3*, P1+4
OPT UPDYN+2~*, UPDYN+3, UPDWHEN+3~*, UPDWHEN+6
POS ONE+60~, ONE+61
PREV AUTO+6~*, AUTO+7, AUTO+8*, AUTO+14*, AUTO+15*, AUTO+19, AUTO+23
PROMPT UPDYN~*, UPDYN+3, UPDWHEN~*, UPDWHEN+6
REC LASTRUN~*, LASTRUN+1, LASTRUN+3, LASTRUN+5, LASTRUN+6, LASTRUN+7
REJTEXT ONE+58~, ONE+61, ONE+63
RESP ONE+60~, ONE+61
RWR ONE+12~, ONE+13*, ONE+14*, ONE+19, ONE+20, ONE+28, ONE+29, ONE+39, ONE+59
RXI CLEAN61+15*, CLEAN61+16, CLEAN61+18, BUILD61+2~, BUILD61+4*, BUILD61+5, FIND+2, ONE+7, ONE+10
RXR CLEAN61+15*, CLEAN61+16, BUILD61+2~, BUILD61+5*, FIND+6, ONE+7, ONE+11
SILENT UPDATE61~, UPDATE61+2*, UPDATE61+3, UPDATE61+5, UPDATE61+15, UPDATE61+21, AUTO~, AUTO+3*, AUTO+9, AUTO+17
, AUTO+23
THRU AUTO+16~*, AUTO+20, AUTO+23
U UPDATE61+12, UPDATE61+16, UPDATE61+19, AUTO+6, LASTRUN+3, LASTRUN+5, LASTRUN+6, LASTRUN+7, CLEAN61+15, CLEAN61+16
, CLEAN61+18, FIND+6, ONE+9
WHEN CLEAN61+8~*, CLEAN61+10*, CLEAN61+11, CLEAN61+19, BUILD61+2~*, BUILD61+3*, BUILD61+4, BUILD61+5, ONE+6
WHEN1 CLEAN61+8~, CLEAN61+9*, CLEAN61+16*, CLEAN61+18*, CLEAN61+19
X UPDATE61+7~, UPDATE61+10*, UPDATE61+11, UPDATE61+12, UPDYN+3~*, UPDYN+4, UPDWHEN+6~*, UPDWHEN+7, UPDWHEN+8, CLEAN61+13~*
, CLEAN61+14, CLEAN61+15, FIND+4~*, FIND+5, FIND+6, ONE+1~, ONE+12~, ONE+20*, ONE+21*, ONE+22*
, ONE+23*, ONE+24*, ONE+25*, ONE+26*, ONE+27*, ONE+28*, ONE+29*, ONE+30*, ONE+31, ONE+40*
, ONE+42, ONE+44, ONE+45, ONE+46, ONE+47*, ONE+48*, ONE+49*, ONE+50, ONE+51, ONE+52
, NOW~
Y AUTO+19~*, AUTO+20*, LASTRUN+3~*, LASTRUN+5*, LASTRUN+6*, LASTRUN+7

Marked Items

Name Field # of Occurrence
$T( UPDATE61+16, UPDATE61+19, AUTO+5, AUTO+6, AUTO9, LASTRUN, D5+4, ONE5+8
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