Routine: PSARDCBA

Information

PSARDCBA ;BIRM/MFR - Return Drug Batch - ListMan ;07/01/08

Package	Total	Call Graph
VA FileMan	5	^DIC $$GET1^DID ^DIE ($$GET1,GETS)^DIQ ^DIR
Drug Accountability	3	EN^PSARDCIT ITEM^PSARDCU1 ($$CHKEY,$$DEFCTMF,$$PHLOC,LMHDR,LOGACT,UPDINV)^PSARDCUT
List Manager	2	EN^VALM (FULL,INSTR)^VALM1
Kernel	1	$$NOW^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 12

Package	Total	Caller Graph
Drug Accountability	11	PSA RET DRG ADD ITEM PSA RET DRG BATCH CREDIT UPDATE PSA RET DRG BATCH MENU PSA RET DRG CANCEL BATCH PSA RET DRG COMPLETE BATCH PSA RET DRG EDIT BATCH PSA RET DRG PICKUP BATCH PSA RET DRG SELECT ITEM PSA RET DRG VIEW/UPDATE BATCH PSA RETURN DRUG BATCH PSARDCBL
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
SB	; - Single Batch View/Process
EN(PSAPHLOC,PSABATCH)	; - ListManager entry point
HDR	; - Header
SETHDR()	; - Displays the Header Line
INIT	; - Populates the Body section for ListMan
SORT	; - Sets the line to be displayed in ListMan
SETLINE	; - Sets the line to be displayed in ListMan
ADD	; - Add New Item action
CAN	; - Cancel Batch action
PKP	; - Pickup Batch action
CRE	; - Update Credit action
EDT	; - Edit Batch action
EDIT	; - Edit Batch action
LKBAT(PHLOC,BATCH)	; - Locks the batch
UNLKBAT(PHLOC,BATCH)	; - Unlocks the batch
COM	; - Complete Batch action
SEL	; - Select Item action
EXIT	;
HELP
LOAD()	; - Load Batch information
CHKCRE(PHLOC,BATCH)	; - Check if Actual Credit have been entered
LOGACT(FIELD,OLDVALUE,NEWVALUE,ITEM)	; - Log an activity for the return item
AMT(VAL)	; Returns the amount formatted

External References

Name	Field # of Occurrence
^DIC	SB+12, EDIT+9
$$GET1^DID	LOGACT+2
^DIE	CAN+27, PKP+24, CRE+36, CRE+49, EDT+24, COM+24, COM+34
$$GET1^DIQ	SORT+5, SETLINE+10, ADD+5, CAN+6, CAN+10, CAN+11, CAN+33, CAN+34, CAN+35, PKP+7 , CRE+3, CRE+32, CRE+33, CRE+37, CRE+38, CRE+39, CRE+40, CRE+41, CRE+42, CRE+44 , CRE+46, CRE+47, EDT+6, EDT+7, EDT+10, EDT+11, EDT+12, COM+6, COM+10, COM+32 , CHKCRE+6, CHKCRE+8
GETS^DIQ	SETLINE+7, LOAD+4
^DIR	ADD+13, CAN+16, CAN+21, PKP+19, PKP+27, CRE+13, CRE+24, EDT+18, EDIT+16, COM+18 , SEL+18, CHKCRE+17
EN^PSARDCIT	SEL+24
ITEM^PSARDCU1	ADD+12
$$CHKEY^PSARDCUT	SB+4
$$DEFCTMF^PSARDCUT	EDIT+8
$$PHLOC^PSARDCUT	SB+7
LMHDR^PSARDCUT	HDR+1
LOGACT^PSARDCUT	CAN+32, LOGACT+4
UPDINV^PSARDCUT	CAN+36
EN^VALM	EN+5
FULL^VALM1	EN+6, ADD+9, CAN+14, PKP+15, CRE+10, EDT+14, EDIT+3, COM+14, SEL+11
INSTR^VALM1	SETHDR+5, SETHDR+9
$$NOW^XLFDT	CAN+26, COM+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SB+12
Function Call: WRITE	Prompt: !,"Please wait..." Line Location: EN+4
Function Call: WRITE	Prompt: $C(7) Line Location: ADD+6
Function Call: WRITE	Prompt: ! Line Location: ADD+9
Function Call: WRITE	Prompt: ! Line Location: ADD+13
Function Call: WRITE	Prompt: ! Line Location: ADD+13
Function Call: WRITE	Prompt: $C(7) Line Location: CAN+7
Function Call: WRITE	Prompt: $C(7) Line Location: CAN+11
Function Call: WRITE	Prompt: ! Line Location: CAN+15
Function Call: WRITE	Prompt: ! Line Location: CAN+20
Function Call: WRITE	Prompt: !!,"Cancelling Batch..." Line Location: CAN+23
Function Call: WRITE	Prompt: "OK" Line Location: CAN+28
Function Call: WRITE	Prompt: $C(7) Line Location: PKP+4
Function Call: WRITE	Prompt: $C(7) Line Location: PKP+8
Function Call: WRITE	Prompt: ! Line Location: PKP+18
Function Call: WRITE	Prompt: ! Line Location: PKP+26
Function Call: WRITE	Prompt: $C(7) Line Location: CRE+4
Function Call: WRITE	Prompt: !!,"Item ",ITEM,": ",^TMP("PSARDCBA",$J,ITEM,"DISP") Line Location: CRE+34
Function Call: WRITE	Prompt: ! Line Location: CRE+36
Function Call: WRITE	Prompt: $C(7) Line Location: EDT+7
Function Call: WRITE	Prompt: ! Line Location: EDT+17
Function Call: WRITE	Prompt: !!,"Saving Batch..." Line Location: EDT+20
Function Call: WRITE	Prompt: "OK" Line Location: EDT+25
Function Call: WRITE	Prompt: ! Line Location: EDIT+3
Function Call: WRITE	Prompt: $C(7) Line Location: COM+7
Function Call: WRITE	Prompt: $C(7) Line Location: COM+11
Function Call: WRITE	Prompt: ! Line Location: COM+17
Function Call: WRITE	Prompt: !!,"Completing Batch..." Line Location: COM+20
Function Call: WRITE	Prompt: "OK" Line Location: COM+36
Function Call: WRITE	Prompt: $C(7) Line Location: SEL+5
Function Call: WRITE	Prompt: $C(7) Line Location: SEL+8
Function Call: WRITE	Prompt: !!,"WARNING: The following items will have their CREDIT STATUS" Line Location: CHKCRE+11
Function Call: WRITE	Prompt: !?9,"set to DENIED because no credit amount has been" Line Location: CHKCRE+12
Function Call: WRITE	Prompt: !?9,"entered for them:",! Line Location: CHKCRE+13
Function Call: WRITE	Prompt: !?9,XX,!?9,"RETURN DRUG (NDC)",?49,"DISP QTY",?58,"UNIT",!?9,XX,! Line Location: CHKCRE+14
Function Call: WRITE	Prompt: $C(13) Line Location: CHKCRE+17
Function Call: WRITE	Prompt: ! Line Location: CHKCRE+18
Routine Call	DIC Line Location: SB+12 EDIT+9
Routine Call	DIE Line Location: CAN+27 PKP+24 CRE+36 CRE+49 EDT+24 COM+24 COM+34
Routine Call	DIR Line Location: ADD+13 CAN+16 CAN+21 PKP+19 PKP+27 CRE+13 CRE+24 EDT+18 EDIT+16 COM+18 SEL+18 CHKCRE+17
Routine Call	VALM Line Location: EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^DIC(51.5 - [#51.5]	GET1^DIQ
58.351	GET1^DIQ, GETS^DIQ
58.3511	GET1^DID, GET1^DIQ, GETS^DIQ
^PSD(58.36 - [#58.36]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	LKBAT+1
^PSD(58.35 - [#58.35]	SORT+4, CAN+31, PKP+3, LKBAT+1, UNLKBAT+1, COM+29, COM+30, SEL+7, CHKCRE+3, CHKCRE+4
^TMP("PSARDCBA"	INIT+1!, SETLINE+15, SETLINE+16, SETLINE+17, SETLINE+19, SETLINE+20, CRE+31, CRE+34, SEL+4, SEL+10 , SEL+21, EXIT+1!
^TMP("PSARDCSR"	INIT+1!, SORT+6*, SETLINE+4, SETLINE+5, EXIT+1!

Label References

Name	Line Occurrences
$$AMT	CRE+38, CRE+40
$$LKBAT	ADD+2, CAN+3, PKP+11, CRE+7, EDT+3, COM+3
CHKCRE	COM+14
CRE	PKP+29
EDIT	PKP+16, EDT+15
EN	SB+15
EXIT	EN+7
HDR	PKP+27, CRE+51, EDT+26
INIT	ADD+15, CRE+51, SEL+24
LOAD	EN+3
LOGACT	CRE+38, CRE+40, CRE+43, CRE+45, CRE+48, COM+32
SETHDR	HDR+2
SETLINE	INIT+4
SORT	INIT+4
UNLKBAT	ADD+7, ADD+15, CAN+8, CAN+12, CAN+16, CAN+21, CAN+37, PKP+5, PKP+9, PKP+13 , PKP+16, PKP+19, PKP+27, PKP+29, CRE+5, CRE+13, CRE+24, CRE+51, EDT+8, EDT+15 , EDT+18, EDT+26, COM+8, COM+12, COM+18, COM+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTCRD	SETLINE+1~, SETLINE+11*, SETLINE+14
BATCH	LKBAT~, LKBAT+1, UNLKBAT~, UNLKBAT+1, CHKCRE~, CHKCRE+3, CHKCRE+4
CNT	CHKCRE+1~, CHKCRE+15, CHKCRE+17
COMM	LOGACT+1~, LOGACT+2, LOGACT+3, LOGACT+4
DA	SB+1~, SB+10!, CAN+24, PKP+1~, PKP+21, CRE+1~, CRE+27!, CRE+31, CRE+32, CRE+33 , CRE+37, CRE+38, CRE+39, CRE+40, CRE+41, CRE+42, CRE+44, CRE+46, CRE+47, EDT+1~ , EDT+21, EDIT+1~, COM+1~, COM+21, COM+26!, COM+34
DA(1	CAN+24, PKP+21, CRE+29, CRE+32, CRE+33, CRE+37, CRE+38, CRE+39, CRE+40, CRE+41 , CRE+42, CRE+44, CRE+46, CRE+47, EDT+21, COM+21, COM+27
DA(2	CRE+29, CRE+32, CRE+33, CRE+37, CRE+38, CRE+39, CRE+40, CRE+41, CRE+42, CRE+44 , CRE+46, CRE+47, COM+27
DATA	SETLINE+1~, SETLINE+8!, LOAD+1~, LOAD+5!
DATA(	SETLINE+9
DATA(12	SETLINE+11
DATA(17	SETLINE+11
DATA(3	SETLINE+9
DATA(4	LOAD+6
DATA(5	SETLINE+10, LOAD+6
DATA(6	SETLINE+9
DATA(8	SETLINE+11
DIC	SB+1~, SB+10!, SB+11, EDIT+1~, EDIT+4!, EDIT+5
DIC("A"	SB+11, EDIT+5
DIC("B"	EDIT+7, EDIT+8!
DIC("S"	EDIT+6*
DIC(0	SB+11, EDIT+5
DIE	CAN+25, PKP+21, CRE+1~, CRE+28, EDT+1~, EDT+21, EDIT+1~, COM+1~, COM+22, COM+26! , COM+33
DIR	ADD+1~, CAN+1~, PKP+1~, CRE+1~, CRE+11!, CRE+16!, EDT+1~, EDIT+1~, EDIT+12!, COM+1~ , SEL+12~, CHKCRE+1~
DIR("?"	CRE+18, CRE+19, CRE+20, CRE+21, CRE+22, EDIT+15, SEL+14, SEL+15, SEL+16*
DIR("??"	CRE+23, SEL+17
DIR("A"	ADD+10, CAN+15, CAN+20, PKP+18, PKP+26, CRE+12, CRE+17, EDT+17, EDIT+14, COM+17 , SEL+13*
DIR("B"	ADD+10, CAN+20, PKP+18, PKP+26, CRE+12, EDT+17, EDIT+13!, COM+17
DIR(0	ADD+10, CAN+15, CAN+20, PKP+18, PKP+26, CRE+12, CRE+17, EDT+17, EDIT+14, COM+17 , SEL+13, CHKCRE+17
DIROUT	CAN+1~, CAN+16, CAN+21, PKP+19, PKP+27, CRE+1~, CRE+11!, CRE+13, CRE+16!, CRE+24 , EDT+1~, EDT+18, EDIT+12!, EDIT+17, COM+1~, COM+18, SEL+12~, SEL+18
DIRUT	CAN+1~, CAN+16, CAN+21, PKP+19, PKP+27, CRE+1~, CRE+11!, CRE+13, CRE+16!, CRE+24 , EDT+1~, EDT+18, EDIT+12!, EDIT+17, COM+1~, COM+18, SEL+12~, SEL+18, CHKCRE+1~, CHKCRE+15 , CHKCRE+16
DR	CAN+26, PKP+22, CRE+1~, CRE+27!, CRE+35, CRE+36, CRE+43, CRE+45, CRE+48, EDT+1~ , EDT+22, EDIT+1~, COM+1~, COM+23, COM+26!, COM+34
DRNAM	CHKCRE+1~, CHKCRE+15*, CHKCRE+16, CHKCRE+17
DRUG	SETLINE+1~, SETLINE+9, SETLINE+13, SETLINE+17, CAN+1~, CAN+34, CAN+36
DRUGNAM	SORT+1~, SORT+5, SORT+6, SETLINE+1~, SETLINE+3, SETLINE+4*, SETLINE+5
DSPLN	CHKCRE+1~, CHKCRE+6, CHKCRE+7, CHKCRE+8
DSPUNT	SETLINE+1~, SETLINE+11*, SETLINE+14
DTOUT	SB+10!, SB+12, EDIT+9
DUOUT	SB+10!, SB+12, EDIT+9
DUQTY	SETLINE+1~, SETLINE+11*, SETLINE+14
DUZ	CAN+26, COM+23
FIELD	LOGACT~, LOGACT+2, LOGACT+3
FLDS	SETLINE+1~, LOAD+1~, LOAD+4!
FLDS(	SETLINE+8, LOAD+5
HDR	SETHDR+1~, SETHDR+4, SETHDR+5, SETHDR+7, SETHDR+8, SETHDR+9*
I	ADD+1~, ADD+11, CRE+1~, CRE+30
>> IOINORM	SETHDR+5, SETHDR+9
>> IORVON	SETHDR+5, SETHDR+9
ITEM	SORT+1~, SORT+3, SORT+4, SORT+5, SORT+6, SETLINE+1~, SETLINE+3, SETLINE+5, SETLINE+7, SETLINE+8 , SETLINE+16, CAN+1~, CAN+30, CAN+31, CAN+32, CAN+33, CAN+34, CAN+35, CAN+36, CRE+1~ , CRE+30, CRE+31, CRE+34, SEL+1~, SEL+21, SEL+24, LOGACT~, LOGACT+4
ITEMIEN	CRE+1~, CRE+31*, CRE+38, CRE+40, CRE+43, CRE+45, CRE+48
ITM	COM+1~, COM+28, COM+29, COM+30, COM+32, COM+34, CHKCRE+1~, CHKCRE+2, CHKCRE+3, CHKCRE+4 , CHKCRE+8, CHKCRE+16*, CHKCRE+17
LINE	SETLINE+1~, SETLINE+13, SETLINE+14, SETLINE+15
NDC	SETLINE+1~, SETLINE+9*, SETLINE+13, SETLINE+17
NEWVALUE	LOGACT~, LOGACT+3
NOCRED	CHKCRE+1~, CHKCRE+10
NOCRED(	CHKCRE+8*, CHKCRE+15, CHKCRE+16, CHKCRE+17
OLDACT	CRE+1~, CRE+33*, CRE+39, CRE+40
OLDEST	CRE+1~, CRE+32*, CRE+37, CRE+38
OLDSTS	CRE+1~, CRE+41*, CRE+43, CRE+45, CRE+47, CRE+48
OLDVALUE	LOGACT~, LOGACT+3
ORDUNT	SETLINE+1~, SETLINE+10*, SETLINE+13, SETLINE+17
PHLOC	LKBAT~, LKBAT+1, UNLKBAT~, UNLKBAT+1, CHKCRE~, CHKCRE+3, CHKCRE+4
PSABATCH	SB+1~, SB+13*, SB+15, EN~, HDR+1, SORT+4, SORT+5, SETLINE+7, SETLINE+8, ADD+2 , ADD+5, ADD+7, ADD+12, ADD+15, CAN+3, CAN+6, CAN+8, CAN+10, CAN+11, CAN+12 , CAN+16, CAN+21, CAN+24, CAN+31, CAN+32, CAN+33, CAN+34, CAN+35, CAN+36, CAN+37 , PKP+3, PKP+5, PKP+7, PKP+9, PKP+11, PKP+13, PKP+16, PKP+19, PKP+21, PKP+27 , PKP+29, CRE+3, CRE+5, CRE+7, CRE+13, CRE+23, CRE+24, CRE+28, CRE+29, CRE+51 , EDT+3, EDT+6, EDT+7, EDT+8, EDT+10, EDT+11, EDT+12, EDT+15, EDT+18, EDT+21 , EDT+26, COM+3, COM+6, COM+8, COM+10, COM+12, COM+14, COM+18, COM+21, COM+27 , COM+29, COM+30, COM+32, COM+33, COM+38, SEL+7, SEL+17, SEL+24, LOAD+4, LOAD+5 , LOGACT+4
PSACOMM	CAN+1~, CAN+17*, CAN+32
PSACTMF	EN+1~, EDT+10, EDIT+10, LOAD+2, LOAD+6
PSACTMFN	EN+1~, EDT+11, EDIT+7, EDIT+10, LOAD+2, LOAD+6
PSAMORE	ADD+1~, ADD+10, ADD+11, ADD+13
PSAPHLOC	SB+1~, SB+7*, SB+11, SB+15, EN~, HDR+1, SORT+4, SORT+5, SETLINE+7, SETLINE+8 , ADD+2, ADD+5, ADD+7, ADD+12, ADD+15, CAN+3, CAN+6, CAN+8, CAN+10, CAN+11 , CAN+12, CAN+16, CAN+21, CAN+24, CAN+25, CAN+31, CAN+32, CAN+33, CAN+34, CAN+35 , CAN+36, CAN+37, PKP+3, PKP+5, PKP+7, PKP+9, PKP+11, PKP+13, PKP+16, PKP+19 , PKP+21, PKP+27, PKP+29, CRE+3, CRE+5, CRE+7, CRE+13, CRE+23, CRE+24, CRE+28 , CRE+29, CRE+51, EDT+3, EDT+6, EDT+7, EDT+8, EDT+10, EDT+11, EDT+12, EDT+15 , EDT+18, EDT+21, EDT+26, COM+3, COM+6, COM+8, COM+10, COM+12, COM+14, COM+18 , COM+21, COM+22, COM+27, COM+29, COM+30, COM+32, COM+33, COM+38, SEL+7, SEL+17 , SEL+24, LOAD+4, LOAD+5, LOGACT+4
PSAQUIT	EN+1~, ADD+1~, ADD+10, ADD+11, ADD+12, PKP+16, EDT+15, EDIT+3, EDIT+9, EDIT+17
PSAREF	EN+1~, EDT+12, EDIT+13, EDIT+16, EDIT+18, LOAD+2, LOAD+6*
PSASEL	SEL+1~, SEL+3, SEL+4, SEL+10, SEL+19, SEL+21
QTY	SETLINE+1~, SETLINE+9, SETLINE+13, SETLINE+17, CAN+1~, CAN+35, CAN+36
SEQ	SORT+3, SETLINE+1~, SETLINE+3, SETLINE+6*, SETLINE+13, SETLINE+15, SETLINE+16, SETLINE+17
SEQS	CRE+1~, CRE+25*, CRE+30
TYPE	CRE+1~, CRE+14*, CRE+35
VAL	AMT~, AMT+1, AMT+2
>> VALMBCK	ADD+3, ADD+6, ADD+16, CAN+4, CAN+7, CAN+11, CAN+16, CAN+21, PKP+4, PKP+8 , PKP+12, PKP+19, PKP+27, PKP+30, CRE+4, CRE+8, CRE+13, CRE+24, CRE+52, EDT+4 , EDT+7, EDT+18, EDT+27, EDIT+9, EDIT+16, EDIT+17, COM+4, COM+7, COM+11, COM+18 , SEL+5, SEL+8, SEL+10, SEL+18, SEL+26*
>> VALMCNT	INIT+3, SETLINE+15, SETLINE+21*, CRE+17, SEL+13
>> VALMSG	INIT+5, ADD+3, ADD+6, CAN+4, CAN+7, CAN+11, PKP+4, PKP+8, PKP+12, CRE+4 , CRE+8, EDT+4, EDT+7, COM+4, COM+7, COM+11, SEL+5, SEL+8
X	SB+1~, SB+10!, SB+12, CAN+17, PKP+1~, CRE+1~, CRE+11!, CRE+16!, EDT+1~, EDIT+1~ , EDIT+4!, EDIT+9, EDIT+16, EDIT+17, EDIT+18, COM+1~, SEL+12~, CHKCRE+1~
XQORM	SEL+23~
XX	CHKCRE+1~, CHKCRE+13*, CHKCRE+14
Y	SB+1~, SB+10!, SB+13, ADD+1~, ADD+13, CAN+21, PKP+1~, PKP+19, PKP+27, CRE+1~ , CRE+11!, CRE+14, CRE+16!, CRE+24, CRE+25, EDT+1~, EDT+18, EDIT+1~, EDIT+4!, EDIT+10 , COM+1~, COM+18, SEL+12~, SEL+18, SEL+19, CHKCRE+1~
Y(1	SEL+3
Z	COM+1~, COM+30, COM+31, CHKCRE+1~, CHKCRE+4, CHKCRE+5, CHKCRE+6, CHKCRE+7, CHKCRE+8

Customize PDF page

Package: Drug Accountability

Routine: PSARDCBA

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: