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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABSPOSMA

Package: Pharmacy Point of Sale

Routine: ABSPOSMA


Information

ABSPOSMA ; IHS/FCS/DRS - General Inquiry/Report .57; [ 08/28/2002 3:01 PM ]

Source Information

Source file <ABSPOSMA.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Pharmacy Point of Sale 2 JOIN^ABSPOSMB  ($$ASKPAT,$$ASKPHARM,$$ASKRTYPE,$$DEFOUT)^ABSPOSMZ  

Entry Points

Name Comments DBIA/ICR reference
JOIN
ONLY ; EP - Option ABSP INQUIRY BY DATE ONLY
INSURER ; EP - Option ABSP INQUIRY BY INSURER
NDC ; EP - Option ABSP INQUIRY BY NDC NUMBER
CLAIMID ; EP - Option ABSP INQUIRY BY CLAIM ID
; A sort criterion. Prompt for FR and TO.
; Lookup on file 9002313.02 now?
RESTYPE ; EP - Option ABSP INQUIRY BY RESULT TYPE
; Select from the entries in file 9002313.83
; Build screens corresponding to the list (i.e., it's not a sort item)
FM ; EP - Option ABSP INQUIRY BY FILEMAN
; we will leave the BY undefined
ADDSCREE(X) ; store the screen, xecutable code stored in X
INIT ; EP - init ABSPOSMA
; Nice idea for future - retain settings on user-by-user basis
PHARM ; EP - Option ABSP INQUIRY BY PHARMACY
TEST
PATIENT ; EP - Option ABSP INQUIRY BY PATIENT
; Select a list of patients.
; Build screens corresponding to the list (i.e., it's not a sort item)
; I $P(^ABSPTL(D0,0),U,6)=patient ien
KILLSORT ; EP - kill all sort fields except the date/time ones
PRICE ; EP - Option ABSP INQUIRY BY PRICE

External References

Name Field # of Occurrence
JOIN^ABSPOSMB JOIN
$$ASKPAT^ABSPOSMZ PATIENT+5
$$ASKPHARM^ABSPOSMZ PHARM+2
$$ASKRTYPE^ABSPOSMZ RESTYPE+4
$$DEFOUT^ABSPOSMZ INIT+6

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: R=""
  • Variable: F S R=$$ASKRTYPE^ABSPOSMZ Q
  • Line Location: RESTYPE+4
Function Call: WRITE
  • Prompt: !,"When prompted for NDC number, use the 11-digit form "
  • Line Location: NDC+2
Function Call: WRITE
  • Prompt: "with no hyphens.",!
  • Line Location: NDC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.56 - [#9002313.56] PHARM+4, PHARM+5

Label References

Name Line Occurrences
ADDSCREE PATIENT+6, RESTYPE+5
INIT PHARM+1, PATIENT+4, RESTYPE+3, CLAIMID+3, INSURER+1, NDC+1, PRICE+1, FM+2, ONLY+1
JOIN PATIENT+7, RESTYPE+6, CLAIMID+7, INSURER+4, NDC+6, PRICE+4, FM+4, ONLY+3
KILLSORT CLAIMID+4, ONLY+2
ONLY TEST

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A KILLSORT+1~*, KILLSORT+2, KILLSORT+3
ABSPL ADDSCREE+6~, ADDSCREE+7*, ADDSCREE+8*
ABSPLST ADDSCREE+6~, ADDSCREE+8*, ADDSCREE+9
ABSPOSMA INIT+2!
ABSPOSMA("BY WHICH DATE" , INIT+3*, KILLSORT+2
ABSPOSMA("MODE" INIT+5*
ABSPOSMA("OUT PUT TYPE" , INIT+6*
ABSPOSMA("SCREEN" INIT+7*, ADDSCREE+8, ADDSCREE+9*
ABSPOSMA("SORT" INIT+4*, KILLSORT+1, KILLSORT+3!, PHARM+4*, PHARM+5*, CLAIMID+5*, CLAIMID+6*, INSURER+2*, INSURER+3*, NDC+4*
, NDC+5*, PRICE+2*, PRICE+3*, FM+3!
PAT PATIENT+5~*, PATIENT+6
PHARM PHARM+2~*, PHARM+3, PHARM+4, PHARM+5
R RESTYPE+4~*, RESTYPE+5
U PHARM+4, PHARM+5
X ADDSCREE~, ADDSCREE+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All