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

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

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

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

Customize PDF page

Package: Pharmacy Barcode Scan

Routine: BPBSUPD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: