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

Package: Pharmacy Point of Sale

Routine: ABSPOSIF


Information

ABSPOSIF ; IHS/FCS/DRS - handle FIND command ; [ 09/12/2002 10:11 AM ]

Source Information

Source file <ABSPOSIF.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Pharmacy Point of Sale 4 ZWRITE^ABSPOS  $$SET^ABSPOSU3  $$LIST^ABSPOSU4  IMPOSS^ABSPOSUE  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSI1  

Entry Points

Name Comments DBIA/ICR reference
RXFINDX ; removed call ; ABSP*1.0T7*8 ; D REFRESH^DDSUTL
FMTQTY(QTY)
RXFIND(PAT,TYPE,VISITIN) ;EP - from ABSPOSI1
VMEDRX(VMEDIEN,ROOT)
VISIFIND(PAT,RXTYPE,VISITIEN)
WHICHRX(SEL)
VISRX(VISIT,ROOT)
RXFINDK ; If there was only one prescription with the visit, that's the one
; we take - the drug name and date was shown, we know that's the one
LJBF(X,N)
PATFIND()
VISLIST(VISITIEN) ; set up LISTROOT ; given PAT ; if $$, it returns the count
; variations? haven't thought it through - for now, must have PAT
TEST
RXFINDC
TTYPE() ; so what are you looking for?
RXFINDA

External References

Name Field # of Occurrence
ZWRITE^ABSPOS TEST+1
$$SET^ABSPOSU3 TTYPE+6
$$LIST^ABSPOSU4 WHICHRX+34, VISIFIND+22
IMPOSS^ABSPOSUE RXFINDC+14
^DIC PATFIND+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: !,"...Searching for visits and prescriptions for "_PATNAME_" ...",!
  • Line Location: RXFINDA+7
Function Call: WRITE
  • Prompt: !,"This visit has no prescriptions! Try again..."
  • Line Location: RXFINDK+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RXFINDK+9
Function Call: WRITE
  • Prompt: PATNAME," has no visits on file.",!
  • Line Location: VISIFIND+21
Routine Call
  • DIC
  • Line Location:
    • PATFIND+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVMED("AD" VISRX+5
^AUPNVSIT - [#9000010] RXFINDA, VISLIST+10, VISLIST+12
^AUPNVSIT("AA" VISLIST+5, VISLIST+7
^DD("DD" WHICHRX+28, VISLIST+14
^DIC(40.7 - [#40.7] VISLIST+15
^DPT - [#2] RXFINDA+4, VISIFIND+7
^PSDRUG - [#50] WHICHRX+18, VISLIST+24
^PSRX - [#52] WHICHRX+16, WHICHRX+22, WHICHRX+26, VISLIST+23
^PSRX("APCC" VMEDRX+2, VMEDRX+4
^TMP($J RXFINDC+2, RXFINDC+9, RXFINDK+3, RXFINDK+4, RXFINDK+5, RXFINDK+8, RXFINDK+12, WHICHRX+2, WHICHRX+3, WHICHRX+4!*
, WHICHRX+8*, WHICHRX+12!, WHICHRX+15*, WHICHRX+32*, WHICHRX+33*, VISIFIND+9!, VISIFIND+11*, VISIFIND+12!, VISIFIND+20

Label References

Name Line Occurrences
$$FMTQTY WHICHRX+29, WHICHRX+31
$$LJBF WHICHRX+30, WHICHRX+31, VISLIST+31, VISLIST+32, VISLIST+33, VISLIST+34
$$PATFIND RXFINDA+2
$$RXFIND TEST
$$TTYPE RXFINDC+10
$$VISIFIND RXFINDC
$$WHICHRX RXFINDK+11
RXFINDA RXFINDC, RXFINDC+11
RXFINDC RXFINDK+8, RXFINDK+11
RXFINDK RXFINDC+5, RXFINDC+12
RXFINDX RXFINDA+2
VISLIST VISIFIND+13
VISRX VISLIST+19
VMEDRX VISRX+5

Naked Globals

Name Field # of Occurrence
^( VMEDRX+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS TTYPE+1~, TTYPE+6*, TTYPE+7
ANSROOT WHICHRX+12~*, WHICHRX+34, VISIFIND+12~*, VISIFIND+22
CHOICES TTYPE+1~, TTYPE+4*, TTYPE+6
CLINIC VISLIST+9~, VISLIST+15*, VISLIST+33
DATE WHICHRX+20~, WHICHRX+23*, WHICHRX+26*, WHICHRX+28*, WHICHRX+31, VISLIST+9~, VISLIST+14*, VISLIST+32
DDS RXFIND+13~
DEFAULT TTYPE+1~, TTYPE+3*, TTYPE+6
DELETED VISLIST+9~
DIC PATFIND+1~, PATFIND+2*
DIC(0 PATFIND+2*
DINUM PATFIND+1~
DISPLAY TTYPE+1~, TTYPE+3*, TTYPE+6
DLAYGO PATFIND+1~
DRUGIEN WHICHRX+17~*, WHICHRX+18, WHICHRX+19*
DRUGNAME WHICHRX+18~*, WHICHRX+30
DTOUT TTYPE+5, PATFIND+1~
DUOUT PATFIND+1~
LISTROOT WHICHRX+6~*, WHICHRX+34, VISIFIND+9~*, VISIFIND+22, VISLIST+2
N WHICHRX+15~*, WHICHRX+32, WHICHRX+33, VISLIST+9~, VISLIST+17*, VISLIST+19, VISLIST+21, VISLIST+22, VISLIST+26, VISLIST+27
, VISLIST+35, VISLIST+36, VISLIST+37, LJBF~
OPT TTYPE+1~, TTYPE+3*, TTYPE+6, WHICHRX+11~*, WHICHRX+34, VISIFIND+17~*, VISIFIND+22
PAT RXFIND~, RXFINDA*, RXFINDA+2*, RXFINDA+4, RXFINDC!, RXFINDC+11!, VISIFIND~, VISIFIND+7, VISIFIND+15, VISLIST+5
, VISLIST+7
PATNAME RXFIND+12~, RXFINDA+4*, RXFINDA+7, WHICHRX+9, VISIFIND+7*, VISIFIND+15, VISIFIND+21
PRESC VISLIST+9~
PROMPT TTYPE+1~, TTYPE+2*, TTYPE+6, WHICHRX+10~, WHICHRX+34, VISIFIND+16~*, VISIFIND+22
PROMPT(1 WHICHRX+10*
QTY WHICHRX+20~, WHICHRX+24*, WHICHRX+27*, WHICHRX+29*, WHICHRX+31, FMTQTY~, FMTQTY+1, FMTQTY+2*, FMTQTY+3*, FMTQTY+4*
, FMTQTY+5
RETVAL TEST~*, PATFIND+1~
ROOT VISLIST+2~*, VISLIST+3, VISLIST+17, VISLIST+19, VISLIST+21, VISLIST+22, VISLIST+26, VISLIST+27, VISLIST+35, VISLIST+36
, VISLIST+37, VISLIST+38, VISRX~, VISRX+3, VISRX+5, VMEDRX~, VMEDRX+3, VMEDRX+5, VMEDRX+6
RXI RXFINDK+4~*, RXFINDK+5, RXFINDK+6, WHICHRX+13~*, WHICHRX+14, WHICHRX+16, WHICHRX+22, WHICHRX+26, WHICHRX+30, WHICHRX+33
, VISLIST+9~, VISLIST+22*, VISLIST+23, VMEDRX+1~, VMEDRX+2*, VMEDRX+3, VMEDRX+4, VMEDRX+5
RXINFO VISLIST+9~, VISLIST+23*, VISLIST+24*, VISLIST+25*, VISLIST+27*, VISLIST+29*, VISLIST+30, VISLIST+34
RXR RXFINDK+5~*, RXFINDK+6, WHICHRX+13~, WHICHRX+14*, WHICHRX+21, WHICHRX+22, WHICHRX+33, VISLIST+9~, VMEDRX+1~, VMEDRX+4*
, VMEDRX+5
RXTYPE VISIFIND~, VISLIST+30
SEL RXFIND+12~, RXFINDC*, RXFINDC+2, RXFINDC+9, RXFINDK+3, RXFINDK+4, RXFINDK+5, RXFINDK+8, RXFINDK+11*, RXFINDK+12
, WHICHRX~, WHICHRX+2, WHICHRX+3
TIME9 VISLIST+4~*, VISLIST+5*, VISLIST+7
TIMEOUT TTYPE+1~, TTYPE+5*, TTYPE+6
TITLE WHICHRX+9~*, WHICHRX+34, VISIFIND+14~*, VISIFIND+15*, VISIFIND+22
TMP WHICHRX+2~*
TMP( WHICHRX+13, WHICHRX+14
TTYPE RXFIND+12~, RXFINDC+10*, RXFINDC+11, RXFINDC+12, RXFINDC+13, RXFINDC+14
TYPE RXFIND~, RXFINDA+3*, RXFINDC, RXFINDC+5, RXFINDC+6, WHICHRX+5~*, WHICHRX+34, VISIFIND+8~*, VISIFIND+22
U RXFINDA, RXFINDA+4, RXFINDK+6, WHICHRX+17, WHICHRX+18, WHICHRX+23, WHICHRX+24, WHICHRX+26, WHICHRX+27, WHICHRX+33
, VISIFIND+7, VISLIST+10, VISLIST+13, VISLIST+14, VISLIST+15, VISLIST+23, VISLIST+24
VCN VISLIST+9~, VISLIST+10*, VISLIST+11*, VISLIST+13*, VISLIST+31
VISIDESC WHICHRX+3~*, WHICHRX+10
VISIT VISRX~, VISRX+5
VISITIEN RXFIND+12~, RXFINDA*, RXFINDA+1*, RXFINDA+6, RXFINDC, RXFINDC+2*, RXFINDC+6, RXFINDC+9, RXFINDC+13, VISIFIND~
, VISIFIND+13, VISIFIND+19, VISLIST~, VISLIST+8
VISITIN RXFIND~, RXFINDA, RXFINDC+9
VMED VISRX+4~*, VISRX+5*
VMEDIEN VMEDRX~, VMEDRX+2, VMEDRX+4
VSTIEN VISLIST+6~*, VISLIST+7*, VISLIST+8, VISLIST+10, VISLIST+11, VISLIST+12, VISLIST+19, VISLIST+36
X RXFINDK+3, RXFINDK+6*, WHICHRX+7~*, WHICHRX+8, WHICHRX+30~*, WHICHRX+31*, WHICHRX+32, WHICHRX+34*, WHICHRX+35, WHICHRX+36
, WHICHRX+38, WHICHRX+39, VISIFIND+10~*, VISIFIND+11, VISIFIND+18~, VISIFIND+19*, VISIFIND+20*, VISIFIND+22*, VISIFIND+23, VISIFIND+24
, VISIFIND+26, VISIFIND+27, VISLIST+9~, VISLIST+31*, VISLIST+32*, VISLIST+33*, VISLIST+34*, VISLIST+35, PATFIND+1~, LJBF~
Y WHICHRX+28~*, VISLIST+9~, VISLIST+14*, PATFIND+1~, PATFIND+11
Z WHICHRX+16~*, WHICHRX+17, WHICHRX+22~*, WHICHRX+23, WHICHRX+24, WHICHRX+27, VISLIST+9~, VISLIST+12*, VISLIST+13, VISLIST+14
, VISLIST+15

Marked Items

Name Field # of Occurrence
$T( RXFINDC+14
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