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 |  All
Print Page as PDF
Routine: BEXSITE

Package: IHS Pharmacy Auto Refill System

Routine: BEXSITE


Information

BEXSITE ;IHS/CMI/DAY - BEX - Division and Site Selection ; 05 Oct 2015 11:42 AM

Source Information

Source file <BEXSITE.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 1 ^PSOLSET  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Pharmacy Auto Refill System 2 BEXRQUE  BEXRX7  

Entry Points

Name Comments DBIA/ICR reference
HOLD ;EP - Store original settings when a user enters BEX processing
CHECK() ;EP - Check if user changed their site settings
CHANGE ;EP - Display current site and ask user if they want to change

External References

Name Field # of Occurrence
^DIC CHANGE+44
$$GET1^DIQ CHANGE+16, CHANGE+18, CHANGE+34
^DIR CHANGE+26
^PSOLSET CHANGE+7, CHANGE+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHANGE+12
Function Call: WRITE
  • Prompt: "*"
  • Line Location: CHANGE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+14
Function Call: WRITE
  • Prompt: "*** O/P Site (Division) is: "
  • Line Location: CHANGE+15
Function Call: WRITE
  • Prompt: ?30,$$GET1^DIQ(59,PSOSITE,.01),?67,"***",!
  • Line Location: CHANGE+16
Function Call: WRITE
  • Prompt: "*** Related Institution is: "
  • Line Location: CHANGE+17
Function Call: WRITE
  • Prompt: ?30,$$GET1^DIQ(4,PSOPINST,.01),?67,"***",!
  • Line Location: CHANGE+18
Function Call: WRITE
  • Prompt: "*"
  • Line Location: CHANGE+19
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHANGE+33
Function Call: WRITE
  • Prompt: "The RELATED INSTITUTION is ",$$GET1^DIQ(4,PSOPINST,.01),!
  • Line Location: CHANGE+34
Function Call: WRITE
  • Prompt: "and will be used to lookup and display health record numbers.",!
  • Line Location: CHANGE+35
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHANGE+47
Routine Call
  • DIC
  • Line Location:
    • CHANGE+44
Routine Call
  • DIR
  • Line Location:
    • CHANGE+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DIC(4 - [#4] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] CHANGE+3, CHECK+7

Label References

Name Line Occurrences
CHANGE CHANGE+8, CHANGE+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BEXHOLD("DUZ(2)" HOLD+8*, CHECK+15
>> BEXHOLD("PSOPINST" HOLD+7*, CHECK+14
>> BEXHOLD("PSOSITE" HOLD+6*, CHECK+13
DIC CHANGE+38!, CHANGE+40*, CHANGE+45!
DIC("A" CHANGE+42*
DIC("B" CHANGE+43*
DIC("P" CHANGE+41*
DIC(0 CHANGE+39*
DIR CHANGE+22!
DIR("A" CHANGE+24*
DIR("B" CHANGE+25*
DIR(0 CHANGE+23*
DUZ(2 CHANGE+46*, HOLD+8, CHECK+11, CHECK+15
>> I CHANGE+13*, CHANGE+19*
PSOPAR CHANGE+6!, CHANGE+7, CHANGE+8, CHANGE+29!, CHANGE+31
PSOPINST CHANGE+18, CHANGE+29!, CHANGE+34, CHANGE+43, CHANGE+46*, HOLD+7, CHECK+10, CHECK+14
PSOSITE CHANGE+6, CHANGE+16, CHANGE+29!, HOLD+6, CHECK+9, CHECK+13
U CHANGE+3, CHECK+7
>> Y CHANGE+27, CHANGE+46
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 |  All