Routine: PSARDCBL

Package	Total	Call Graph
VA FileMan	8	NOW^%DTC ^DIC FILE^DICN ^DIE EN^DIK $$EXTERNAL^DILFD ($$GET1,GETS)^DIQ ^DIR
List Manager	3	EN^VALM (FULL,INSTR)^VALM1 (CNTRL,RESTORE,SAVE)^VALM10
Drug Accountability	2	EN^PSARDCBA ($$CHKEY,$$DEFCTMF,$$DTRNG,$$PHLOC,$$STASEL,$$TOTCRE)^PSARDCUT
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Drug Accountability	8	PSA RET DRG ADD BATCH PSA RET DRG BAT COMPLETE LIST PSA RET DRG BATCH LIST MENU PSA RET DRG BATCH WORKLIST PSA RET DRG CONTRACTOR ADD/EDIT PSA RET DRG SELECT BATCH PSA RETURN DRUG BATCH LIST ^PSD(58.36
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
ST	; Entry point
EN(PSAPHLOC,PSADT,PSASTA)	;- ListManager entry point
LST	; - ListManager entry point
HDR	; - Header
INIT	; - Populates the Body section for ListMan
SORT	; - Sort according to the status to be displayed in ListMan
SETLINE	; - Sets the line to be displayed in ListMan ; - Resetting list to NORMAL video attributes
RV	;
NIT	;
ADD	; - Add New Batch
ADDQ
CMF	; - Add/Edit Contractor
CMFQ
SEL	; - Select Item action
CBAT	; Complete Batch
EXIT	;
HELP
DELCMF(DA)	; check if cmf has entries tied to it

External References

Name	Field # of Occurrence
NOW^%DTC	ADD+20
^DIC	ADD+16, CMF+3
FILE^DICN	ADD+4, ADD+24
^DIE	CMF+4
EN^DIK	ADD+5
$$EXTERNAL^DILFD	SETLINE+7
$$GET1^DIQ	SORT+7, SORT+9
GETS^DIQ	SETLINE+10
^DIR	ADD+17, ADD+19, SEL+10
EN^PSARDCBA	ADD+28, SEL+16
$$CHKEY^PSARDCUT	ST+1, CBAT+1
$$DEFCTMF^PSARDCUT	ADD+15
$$DTRNG^PSARDCUT	CBAT+8
$$PHLOC^PSARDCUT	ST+5, CBAT+5
$$STASEL^PSARDCUT	CBAT+11
$$TOTCRE^PSARDCUT	SETLINE+15
EN^VALM	LST+1
FULL^VALM1	LST+2, ADD+11, CMF+2, SEL+8
INSTR^VALM1	HDR+8, HDR+10
CNTRL^VALM10	RV+3, RV+4, RV+5
RESTORE^VALM10	SETLINE+2
SAVE^VALM10	SETLINE+25
$$FMTE^XLFDT	HDR+3, SETLINE+12, SETLINE+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"** The File is Being Edited by Another User - Try Later **",! Line Location: ADD+7
Function Call: WRITE	Prompt: !!," New Batch #: "_PSABAT Line Location: ADD+11
Function Call: WRITE	Prompt: !!,"Batch not created - contracter/mfr not entered!",! Line Location: ADD+17
Function Call: WRITE	Prompt: ! Line Location: ADD+19
Function Call: WRITE	Prompt: $C(7),!!,"** The File is Being Edited by Another User - Try Later **",! Line Location: CMF+1
Function Call: WRITE	Prompt: ! Line Location: CMF+2
Function Call: WRITE	Prompt: ! Line Location: CMF+4
Function Call: WRITE	Prompt: $C(7) Line Location: SEL+1
Function Call: WRITE	Prompt: $C(7) Line Location: SEL+5
Function Call: WRITE	Prompt: ! Line Location: CBAT+8
Function Call: WRITE	Prompt: ! Line Location: CBAT+11
Routine Call	DIC Line Location: ADD+16 CMF+3
Routine Call	DIE Line Location: CMF+4
Routine Call	DIR Line Location: ADD+17 ADD+19 SEL+10
Routine Call	VALM Line Location: LST+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSD(58.35 - [#58.35]	Classic Fileman Calls
58.351	EXTERNAL^DILFD, GET1^DIQ, GETS^DIQ
^PSD(58.36 - [#58.36]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	ADD+7, CMF+1
^PSD(58.35 - [#58.35]	SORT+6, NIT+1, ADD+1, ADD+5*, ADD+7, ADD+8, ADD+24, ADDQ, DELCMF+4
^PSD(58.36 - [#58.36]	CMF+1, CMF+5
^TMP("PSARDCBL"	INIT+1!, SETLINE+8, SETLINE+19, SETLINE+20, SETLINE+28, SETLINE+29, SEL+4, SEL+6, SEL+13, EXIT+1!
^TMP("PSATMP"	INIT+1!, SORT+11*, SETLINE+6, SETLINE+9, EXIT+1!

Label References

Name	Line Occurrences
ADDQ	ADD+7, ADD+16, ADD+19
CMFQ	CMF+1
EN	ST+12, CBAT+14
EXIT	LST+3
INIT	ADDQ, CMFQ, SEL+16
NIT	SETLINE+16
RV	SETLINE+31
SETLINE	INIT+3
SORT	INIT+3

Naked Globals

Name	Field # of Occurrence
^(	NIT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ADD+23, ADD+24!
ARR	SORT+1~
ARR(	SORT+4*, SORT+8
ARR("ALL"	SORT+8
BAT	SORT+1~, SORT+5, SORT+6, SORT+7, SORT+9, SORT+11, SETLINE+4~, SETLINE+5, SETLINE+9, SETLINE+10 , SETLINE+11, SETLINE+15, SETLINE+20, NIT+1, SEL+2~, SEL+13*, SEL+16
BATN	SETLINE+4~, SETLINE+12*, SETLINE+18
CMF	ADD+6~, ADD+18*, ADD+23
CMFR	SETLINE+4~, SETLINE+14*, SETLINE+18
CNT	SETLINE+4~, SETLINE+5, SETLINE+12, SETLINE+18, SETLINE+20, SETLINE+22, RV+2*, RV+3, RV+4, RV+5
DA	ADD+2~, ADD+5, ADD+21~, CMF+4!, DELCMF~, DELCMF+1, DELCMF+4
DA(1	ADD+23*
DD	ADD+4!, ADD+21~, ADD+24!
DIC	ADD+2~, ADD+3, ADD+12!, ADD+13, ADD+21~, ADD+22, CMF+3!
DIC("A"	ADD+13*
DIC("B"	ADD+15*!
DIC("DR"	ADD+23*
DIC("S"	ADD+14*
DIC(0	ADD+3, ADD+13, ADD+22, CMF+3
DIE	CMF+4*!
DIK	ADD+5!*
DIK(1	ADD+5*
DINUM	ADD+2~, ADD+3*, ADD+21~
DIR	ADD+17~, ADD+19!, SEL+7~
DIR("A"	ADD+19, SEL+8
DIR("B"	ADD+19*
DIR(0	ADD+17, ADD+19, SEL+8*
DIROUT	SEL+7~, SEL+10
DIRUT	SEL+7~, SEL+10
DLAYGO	ADD+21~, CMF+3*
DO	ADD+4!, ADD+21~, ADD+24!
DR	ADD+21~, CMF+4*!
DSTA	SETLINE+4~, SETLINE+7, SETLINE+8, RV+2, RV+4, RV+5
DT	ADD+6
DTCP	SETLINE+4~, SETLINE+13*, SETLINE+18
DTCR	SETLINE+4~, SETLINE+12*, SETLINE+18
DTOUT	ADD+16!
DTPU	SETLINE+4~, SETLINE+12*, SETLINE+18
DUOUT	ADD+16!
EDT	SORT+1~, SORT+3*, SORT+10
FDT	SORT+1~, SORT+9*, SORT+10
FLDS	SETLINE+4~, SETLINE+11!
FLDS(	SETLINE+11
FQ	CMF+3~*
GRPLN	SETLINE+4~
GRPLN(	SETLINE+8*, RV+1, RV+2
HDR	HDR+6~, HDR+7, HDR+8, HDR+9, HDR+10
I	SORT+4, SETLINE+2, SETLINE+25, ADD+6~, DELCMF+2~, DELCMF+3, DELCMF+4*
>> IOINHI	RV+3, RV+4, RV+5
>> IOINORM	HDR+8, HDR+10, RV+3, RV+4, RV+5
>> IORVOFF	RV+4
>> IORVON	HDR+8, HDR+10, RV+4
>> IOUON	RV+3, RV+5
J	ADD+6~, ADD+8, ADD+9, ADD+10, DELCMF+2~, DELCMF+4*
LASTLINE	EN+2~, SETLINE+2, SETLINE+24, SETLINE+25, SETLINE+26*
LINE1	HDR+1~, HDR+2*, HDR+5
LINE2	HDR+1~, HDR+3*, HDR+5
LINE3	HDR+1~
LINE4	HDR+1~
LN	SETLINE+4~, SETLINE+7, SETLINE+8, SETLINE+16, SETLINE+18, SETLINE+19, RV+1, RV+2, RV+3, RV+4 , RV+5, NIT+1*
NIT	SETLINE+4~, SETLINE+16, SETLINE+18, NIT+1
PSABASTS	ST+2~, ST+11, ST+12, CBAT+2~, CBAT+11, CBAT+14
PSABAT	ADD+6~, ADD+8, ADD+9, ADD+10, ADD+11, ADD+22
PSACNT	SETLINE+5, SETLINE+22, SEL+8, EXIT+1!
PSADEL	DELCMF+2~, DELCMF+3, DELCMF+4, DELCMF+5
PSADT	EN~, HDR+3, SORT+2, SORT+3
PSADTRNG	ST+2~, ST+8, ST+12, CBAT+2~, CBAT+8, CBAT+14
PSALK	ADD+6~*, ADD+7, ADD+24, ADDQ
PSALOC	EN+1~*, SORT+6, SORT+7, SORT+9, SETLINE+10, SETLINE+11, SETLINE+15, NIT+1, ADD+1, ADD+3 , ADD+5, ADD+7, ADD+8, ADD+22, ADD+23, ADD+24, ADD+28, ADDQ, SEL+16
PSAPHLOC	ST+2~, ST+5, ST+12, EN~, EN+1, HDR+2, CBAT+2~, CBAT+5, CBAT+14
PSASEL	SEL+2~, SEL+3, SEL+4, SEL+6, SEL+11, SEL+13
PSASTA	EN~, SORT+4
REC	SETLINE+4~, SETLINE+11!*
REC(	SETLINE+11, SETLINE+12
REC(2	SETLINE+12
REC(3	SETLINE+12
REC(4	SETLINE+14
REC(9	SETLINE+13
SDT	SORT+1~, SORT+2*, SORT+10
SEQ	SORT+1~, SORT+5, SETLINE+4~, SETLINE+5, SETLINE+8, SETLINE+12, SETLINE+19, SETLINE+24, SETLINE+25, SETLINE+26
STA	SORT+1~, SORT+7, SORT+8, SORT+11, SETLINE+4~, SETLINE+5, SETLINE+6*, SETLINE+7, SETLINE+9
TOTC	SETLINE+4~, SETLINE+15*, SETLINE+18
>> VALMBCK	ADDQ, CMFQ, SEL+1, SEL+5, SEL+6, SEL+10, SEL+18*
>> VALMCNT	INIT+2, SETLINE+8, SETLINE+19, SETLINE+30, SEL+1
VALMHDR	HDR+4!
VALMHDR(1	HDR+5*
VALMHDR(2	HDR+5*
>> VALMSG	INIT+4, SEL+1, SEL+5*
X	ADD+2~, ADD+3, ADD+12!, ADD+16, ADD+19!, ADD+21~, ADD+22, SEL+7~
XQORM	ADD+27~, SEL+15~
Y	ADD+4, ADD+12!, ADD+18, ADD+19!, ADD+28, CMF+3, CMF+4, SEL+7~, SEL+10, SEL+11
Y(1	SEL+3

Customize PDF page

Package: Drug Accountability

Routine: PSARDCBL

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: