Routine: BPBSUPD1

Package	Total	Call Graph
Pharmacy Data Management	4	(ASKND,CK,COMMON1,DEA,MF,NOPE,USE)^PSSDEE OIKILL^PSSDEE1 ^PSSDEE2 DRG^PSSHUIDG
Kernel	1	$$PATCH^XPDUTL
VA Fileman	1	^DIE

Package	Total	Caller Graph
Pharmacy Barcode Scan	1	BPBSUPD

Name	Comments	DBIA/ICR reference
HUIDG	;
SETDRARY(PSS)	; Set the DR array with fields to edit
PSSMAN(MANUAL,BPBSDRG)	; EP
COMMON

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Another person is editing this one." Line Location: PSSMAN+9
Routine Call	DIE Line Location: COMMON+4

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	HUIDG+3
^PSDRUG - [#50]	PSSMAN+9, PSSMAN+13, COMMON+6*, COMMON+7
^TMP($J	PSSMAN+7!

Name	Field # of Occurrence
BPBSDRG	PSSMAN~, PSSMAN+2, PSSMAN+8
DA	PSSMAN+1~, PSSMAN+8*, COMMON+6, COMMON+7
DIC	PSSMAN+1~
>> DIE	COMMON*
>> DISPDRG	PSSMAN+8*, PSSMAN+9, PSSMAN+13, HUIDG+3
DR	COMMON+2, COMMON+4!, SETDRARY+5, SETDRARY+12*
DR(1	SETDRARY+6, SETDRARY+7, SETDRARY+13*
DR(2	SETDRARY+8, SETDRARY+9, SETDRARY+10, SETDRARY+14
>> DTOUT	COMMON+4
>> FLAG	PSSMAN+6*
>> FLG1	PSSMAN+6*
>> FLG2	PSSMAN+6*
FLG3	PSSMAN+6*, PSSMAN+14!
>> FLG4	PSSMAN+6*
>> FLG5	PSSMAN+6*
>> FLG6	PSSMAN+6*
>> FLG7	PSSMAN+6*
>> FLGKY	PSSMAN+6*
>> FLGOI	PSSMAN+6*
MANUAL	PSSMAN~, PSSMAN+3*, COMMON+1
P61	SETDRARY+1~, SETDRARY+2*, SETDRARY+5
PSDRUG	PSSMAN+1~
PSS	SETDRARY~, SETDRARY+3*, SETDRARY+4
PSSFLAG	PSSMAN+1~, PSSMAN+5*
PSSHUIDG	PSSMAN+10*, PSSMAN+11!
PSSNEW	PSSMAN+10*, PSSMAN+14!, HUIDG+3
PSSXX	PSSMAN+1~, PSSMAN+5*
PSSZ	PSSMAN+1~, PSSMAN+5*
X	HUIDG+1~, HUIDG+2*
>> Y	COMMON+4, COMMON+5, COMMON+7

Information