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

Package: Pharmacy Barcode Scan

Routine: BPBSUPD


Information

BPBSUPD ;IHS/CIA/PLS - Update Drug File from AWP data ;10-Aug-2005 21:57;SM

Source Information

Source file <BPBSUPD.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 (,$$FIND1)^DIC  MIX^DIC1  (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ($$TRIM,$$UP)^XLFSTR  $$VERSION^XPDUTL  
Outpatient Pharmacy 1 (,FINAL)^PSOLSET  
Pharmacy Barcode Scan 1 PSSMAN^BPBSUPD1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Barcode Scan 1 BPBS AWP SCAN BARCODE  

Entry Points

Name Comments DBIA/ICR reference
SETDATA(DRUG,DATA,FDA) ;EP
GETIEN(APSFILE,APSPMPT,APSDFLD,D,APSSCRN,APSDIC0,APSLYFLD) ;EP
EN ;PEP - Called by the BPBS AWP SCAN BARCODE option
EDITDRG(MANUAL,DRUG) ;EP
FMTNDC(NDC) ;EP
GAWPDNM(DRGIEN) ;EP
DIRZ(APSPMT) ;EP
GETDATA(IEN,DATA) ;EP
DIRYN(APSPMT,APSDFL,APSHLP,APSPOP) ;EP
LKUP(BC) ;EP
GETIENA(APSFILE,APSPMPT,APSDFLD,D,APSSCRN,APSDIC0,APSLYFLD,EVRYREC) ;EP
T1 ;EP
INIT ;EP
DISPLAY(IEN) ;EP
GETNDC() ;EP
STORE(DRUG,FDA,NEW) ;EP
DIR(APSDTP,APSPMT,APSDFL,APSHLP,APSPOP,APSSCRN) ;EP
FINDDRG(NDC) ;EP
HASSYN(DRGIEN,SYN) ;EP

External References

Name Field # of Occurrence
PSSMAN^BPBSUPD1 EDITDRG+2
^DIC GETIENA+11
$$FIND1^DIC FINDDRG+2, GETIEN+8, GETIENA+6, GETNDC+17
MIX^DIC1 GETIEN+13
FILE^DIE STORE+7
UPDATE^DIE STORE+5
$$GET1^DIQ DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+6, GETDATA+2, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7
, GETDATA+8, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14, GETIEN+8, GETIENA+6, GAWPDNM+1
^DIR GETNDC+7, DIR+8
^PSOLSET EN+4
FINAL^PSOLSET EN+8
$$TRIM^XLFSTR GETDATA+10
$$UP^XLFSTR GETDATA+10
$$VERSION^XPDUTL EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LKUP+3
Function Call: WRITE
  • Prompt: !,"You have selected to edit the settings for the following drug:"
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: !,?5,"Name : ",$$GET1^DIQ(9009037,IEN,201)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,?5,"NDC : ",$$GET1^DIQ(9009037,IEN,.01)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,?5,"Manuf: ",$$GET1^DIQ(9009037,IEN,205)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,?5,"Dispense Units per Order: "_$$GET1^DIQ(9009037,IEN,103)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,?5,"Applying updates..."
  • Line Location: STORE+2
Function Call: WRITE
  • Prompt: !,?5,"Updates are complete..."
  • Line Location: STORE+11
Function Call: WRITE
  • Prompt: $$DIRYN(.PRMPT,"Yes")
  • Line Location: T1+4
Routine Call
  • DIE
  • Line Location:
    • STORE+5
Routine Call
  • DIC
  • Line Location:
    • FINDDRG+2
    • GETIEN+8
    • GETIENA+6
    • GETNDC+17
Routine Call
  • DIE
  • Line Location:
    • STORE+7
Routine Call
  • DIR
  • Line Location:
    • GETNDC+7
    • DIR+8
Routine Call
  • DIC
  • Line Location:
    • GETIENA+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] FIND1^DIC
^APSAMDF - [#9009037] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] HASSYN+4, HASSYN+5

Label References

Name Line Occurrences
$$DIR DIRYN+2, DIRZ+2
$$DIRYN LKUP+13, LKUP+18, T1+4
$$GETIENA LKUP+5
$$GETNDC LKUP+9
$$HASSYN SETDATA+2
$$LKUP EN+6
DISPLAY LKUP+17
EDITDRG LKUP+14, LKUP+21
GETDATA LKUP+19
INIT EN+5
SETDATA LKUP+19
STORE LKUP+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AIEN LKUP+2~, LKUP+9*, LKUP+10, LKUP+17, LKUP+19
APRMPT LKUP+2~, LKUP+11*, LKUP+13
APRMPT(1 LKUP+12*
APSD GETIEN+1~, GETIEN+6*, GETIEN+8*, GETIEN+10, GETIENA+1~, GETIENA+4*, GETIENA+6*, GETIENA+9
APSDFL DIRYN~, DIRYN+2, DIR~, DIR+3
APSDFLD GETIEN~, GETIEN+5*, GETIEN+8, GETIENA~, GETIENA+3*, GETIENA+6
APSDIC0 GETIEN~, GETIEN+4, GETIENA~, GETIENA+2
APSDTP DIR~, DIR+2
APSFILE GETIEN~, GETIEN+8, GETIEN+9, GETIENA~, GETIENA+6, GETIENA+7
APSHLP DIRYN~, DIRYN+2, DIR~, DIR+5
>> APSKDIRB DIR+7
APSLYFLD GETIEN~, GETIEN+12, GETIENA~, GETIENA+10
APSPMPT GETIEN~, GETIEN+10, GETIENA~, GETIENA+9
APSPMT DIRYN~, DIRYN+2, DIR~, DIR+4, DIRZ~, DIRZ+2
APSPOP EN+1~, DIRYN~, DIRYN+2, DIR~, DIR+9*, DIRZ+2
APSSCRN GETIEN~, GETIEN+7, GETIENA~, GETIENA+5, DIR~, DIR+6
BC LKUP~
D GETIEN~, GETIEN+2*, GETIEN+3*, GETIEN+8, GETIEN+11, GETIENA~, GETIENA+6
DA LKUP+2~, GETIEN+1~, GETIENA+1~
DATA LKUP+1~, LKUP+19, GETDATA~, SETDATA~
DATA( GETDATA+2*, GETDATA+3*, GETDATA+4*, GETDATA+5*, SETDATA+4, SETDATA+11, SETDATA+12, SETDATA+13, SETDATA+18
DATA(101 GETDATA+6*
DATA(102 GETDATA+7*
DATA(103 GETDATA+8*, SETDATA+10
DATA(201 GETDATA+10*, SETDATA+2, SETDATA+16
DATA(205 GETDATA+11*, SETDATA+19
DATA(206 GETDATA+12*
DATA(403 GETDATA+13*, SETDATA+14
DATA(404 GETDATA+14*, SETDATA+15
DIC LKUP+1~, GETIEN+1~, GETIEN+9*, GETIENA+1~, GETIENA+7*
DIC("A" GETIEN+10*, GETIENA+9*
DIC("B" GETIEN+10*, GETIENA+9*
DIC("DR" GETIEN+12*, GETIENA+10*
DIC("S" GETIEN+7*, GETIEN+8, GETIENA+5*, GETIENA+6
DIC("T" GETIENA+8*
DIC(0 GETIEN+4*, GETIEN+11*, GETIEN+12, GETIENA+2*, GETIENA+10
DIR GETNDC+1~, DIR+1~
DIR("?" GETNDC+5*, DIR+5*
DIR("A" GETNDC+2*, GETNDC+3*, GETNDC+4*, DIR+4*
DIR("B" DIR+3*, DIR+7!
DIR("S" DIR+6*
DIR(0 GETNDC+6*, DIR+2*
DIROUT GETNDC+1~
DIRUT GETNDC+1~
DONE EN+1~
DRGIEN GAWPDNM~, GAWPDNM+1, HASSYN~, HASSYN+3, HASSYN+4, HASSYN+5
DRUG LKUP+1~, GETDATA+1~, SETDATA~, SETDATA+2, SETDATA+3*, SETDATA+8, SETDATA+10, SETDATA+11, SETDATA+12, SETDATA+13
, SETDATA+14, SETDATA+15, SETDATA+16, SETDATA+17, SETDATA+18, SETDATA+19, STORE~, EDITDRG~, EDITDRG+2
DTOUT GETIEN+14, GETIENA+1~, GETIENA+12, GETNDC+1~, GETNDC+8, DIR+1~, DIR+9
DUOUT GETIEN+14, GETIENA+1~, GETIENA+12, GETNDC+1~, GETNDC+8, DIR+1~, DIR+9
ERR FINDDRG+1~, GETDATA+1~, GETNDC+1~
EVRYREC GETIENA~, GETIENA+8
FDA LKUP+2~, LKUP+19, LKUP+20, SETDATA~, STORE~, STORE+12!
FDA( SETDATA+8*, SETDATA+10*, SETDATA+11*, SETDATA+12*, SETDATA+13*, SETDATA+14*, SETDATA+15*, SETDATA+16*, SETDATA+17*, SETDATA+18*
, SETDATA+19*
FN SETDATA+1~, SETDATA+3*, SETDATA+8, SETDATA+10, SETDATA+11, SETDATA+12, SETDATA+13, SETDATA+14, SETDATA+15, SETDATA+16
, SETDATA+17, SETDATA+18, SETDATA+19
IEN LKUP+1~, LKUP+5*, LKUP+6, LKUP+8, LKUP+14, LKUP+19, LKUP+20, LKUP+21, LKUP+22*, DISPLAY~
, DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+6, GETDATA~, GETDATA+2, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6
, GETDATA+7, GETDATA+8, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14, GETNDC+1~, GETNDC+17*, GETNDC+18
LP HASSYN+1~, HASSYN+4*, HASSYN+5
MANUAL EDITDRG~, EDITDRG+1*, EDITDRG+2
MSG STORE+1~, STORE+8
MSG("DIERR" STORE+10
NDC FINDDRG~, FINDDRG+2, SETDATA+1~, SETDATA+4*, SETDATA+8, GETNDC+1~, GETNDC+12*, GETNDC+13*, GETNDC+14*, GETNDC+16*
, GETNDC+17, FMTNDC~, FMTNDC+2*, FMTNDC+3*, FMTNDC+4
NEW STORE~, STORE+3*, STORE+4
PRMPT T1+1~, T1+2*, T1+4
PRMPT(1 T1+3*
>> PSOPAR EN+4
PSSFLAG LKUP+2~, LKUP+4*
PSSZ LKUP+2~, LKUP+4*
RES HASSYN+1~, HASSYN+2*, HASSYN+4, HASSYN+5*, HASSYN+6
SYN SETDATA+1~, SETDATA+2*, SETDATA+16, SETDATA+17, SETDATA+18, SETDATA+19, HASSYN~, HASSYN+3, HASSYN+5
TXT1 EN+1~, INIT+1*
TXT2 EN+1~, INIT+2*
>> TXT3 INIT+3*
U GETIEN+11, HASSYN+5
UPC GETNDC+1~, GETNDC+9*, GETNDC+10, GETNDC+11, GETNDC+12, GETNDC+16
X LKUP+2~, DIRZ+1~, DIRZ+2*
Y GETIEN+1~, GETIEN+14, GETIENA+1~, GETIENA+12, GETNDC+1~, GETNDC+9, DIRYN+1~, DIRYN+2*, DIRYN+3, DIR+1~
, DIR+10
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