Routine: PSDNMBA

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	3	NOW^%DTC D^DIQ ^DIR
Controlled Substances	1	(DATE,INPS,PLOC,PLOCA)^PSDNMU

Package	Total	Caller Graph
Controlled Substances	1	PSD NM CS ADJ

Entry Points

Name	Comments	DBIA/ICR reference
END
DQQ
EOR	;PSDNMBA - CSM Balance Adjustments; 18 DEC 02
ST	;CS Monitoring OPTION ENTRY
PRT	;Report print
PHD	;
PAGE	;
HD	;Report heading
DQ	;Report Run

External References

Name	Field # of Occurrence
NOW^%DTC	HD+8
^%ZIS	ST+17
^%ZISC	DQQ
^%ZTLOAD	ST+21
D^DIQ	DQ+17
^DIR	ST+9, ST+14, PAGE+2
DATE^PSDNMU	ST+13
INPS^PSDNMU	ST+7
PLOC^PSDNMU	ST+10
PLOCA^PSDNMU	ST+11
$$FMTE^XLFDT	HD+8
$$CJ^XLFSTR	HD+2, HD+5, HD+6
$$REPEAT^XLFSTR	HD+9, PHD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"This report lists Drug Accountability Balance Adjustments" Line Location: ST+3
Function Call: WRITE	Prompt: !,?5,"made for the Inpatient Site Pharmacy Location(s) entered.",!! Line Location: ST+4
Function Call: WRITE	Prompt: !!,"<< Drug Accountability Transaction Type, Balance Adjustment, not defined! >>" Line Location: ST+6
Function Call: WRITE	Prompt: ! Line Location: ST+8
Function Call: WRITE	Prompt: ! Line Location: ST+14
Function Call: WRITE	Prompt: " <No report>",! Line Location: ST+15
Function Call: WRITE	Prompt: !!,?9,"This report should be queued to run during non-peak hours.",! Line Location: ST+16
Function Call: WRITE	Prompt: " <No device selected.>" Line Location: ST+17
Function Call: WRITE	Prompt: !!?5,"TASK #",$G(ZTSK)," QUEUED!",! Line Location: ST+21
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("CS Monitoring - Balance Adjustments Report",IOM) Line Location: HD+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(PSDY,IOM) Line Location: HD+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Balance Adjustments made: "_$P(PSDSD,U,2)_" thru "_$P(PSDED,U,2),IOM) Line Location: HD+6
Function Call: WRITE	Prompt: !,"Report Run: "_$E($$FMTE^XLFDT(%),1,18),?70,"PAGE: ",PSDPG Line Location: HD+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HD+9
Function Call: WRITE	Prompt: !!,?10,"Compiling report, please wait ..." Line Location: DQ+4
Function Call: WRITE	Prompt: !!,?10,"<<<< NO DATA FOUND >>>>",! Line Location: PRT+4
Function Call: WRITE	Prompt: !!,"Pharmacy Location: ",PSDIV Line Location: PRT+9
Function Call: WRITE	Prompt: !,?19,"NO DATA FOUND" Line Location: PRT+11
Function Call: WRITE	Prompt: !!,"TRANSACTOR: ",PSDS Line Location: PRT+14
Function Call: WRITE	Prompt: !,$P(PSDY,U,1),?10,$P(PSDY,U,2),?33,$P(PSDY,U,3),?40,$P(PSDY,U,4) Line Location: PRT+19
Function Call: WRITE	Prompt: !,?10,"Reason: ",$P(PSDY,U,5) Line Location: PRT+20
Function Call: WRITE	Prompt: ! Line Location: DQQ+0
Function Call: WRITE	Prompt: !,"Trans. #",?10,"Date",?28,"Quantity",?40,"Drug" Line Location: PHD+1
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("_",IOM) Line Location: PHD+2
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Routine Call	DIR Line Location: ST+9 ST+14 PAGE+2
Routine Call	%ZIS Line Location: ST+17

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.81 - [#58.81]	DQ+9, DQ+13, DQ+14
^PSD(58.84 - [#58.84]	ST+5, DQ+5
^PSDRUG - [#50]	DQ+15
^TMP("PSDNMBA"	DQ+3!, DQ+7, DQ+18, PRT+2, PRT+7, PRT+11, PRT+12, PRT+16, PRT+17, DQQ!
^VA(200 - [#200]	DQ+16

Label References

Name	Line Occurrences
DQ	ST+22
DQQ	DQ+5, PRT+2
END	ST+6, ST+7, ST+9, ST+10, ST+13, ST+15, ST+17
HD	PRT+3, PRT+6, PRT+8, PRT+13, PRT+18
PAGE	PRT+8, PRT+13, PRT+18
PHD	PRT+3, PRT+6, PRT+8, PRT+13, PRT+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ST+1~, HD+1~, HD+8, DQ+2~
%ZIS	ST+2~, ST+17*
DFN	DQ+1~
DIC	ST+2~
DIR	ST+2~, ST+14!, PAGE+1~
DIR("A"	ST+8, ST+14
DIR("B"	ST+9, ST+14
DIR(0	ST+9, ST+14, PAGE+2*
DIROUT	ST+2~
DIRUT	ST+2~, PAGE+1~, PAGE+3
DTOUT	ST+2~, ST+9, PAGE+1~, PAGE+3
DUOUT	ST+2~, PAGE+1~
IO	ST+22
IO("Q"	ST+17!, ST+18, ST+22, ST+23!
IOF	HD+2
IOM	HD+2, HD+5, HD+6, HD+9, PHD+2
IOP	ST+23!
IOSL	PRT+8, PRT+13, PRT+18
IOST	DQ+4, PAGE+2
POP	ST+2~, ST+17
PSDA	ST+1~, ST+5, ST+6, DQ+1~, DQ+5, DQ+13
PSDCII	ST+1~, DQQ!
PSDDTN	ST+1~, ST+13*
PSDED	ST+1~, HD+6, DQ+9, DQQ!
PSDFD	DQ+1~, DQ+8, DQ+9, DQ+13, DQ+17
PSDI	DQ+1~
PSDIDIV	ST+1~, ST+7, ST+8, HD+3, DQQ!
PSDIDT	DQ+1~
PSDIV	DQ+1~, PRT+3, PRT+5, PRT+7*, PRT+9, PRT+11, PRT+12, PRT+16, PRT+17
PSDOUT	ST+1~, ST+7, ST+10, ST+13, DQ+1~, PRT+1, PRT+7, PRT+8, PRT+12, PRT+13 , PRT+16, PRT+18, PAGE+3
PSDP	DQ+1~, DQ+6, DQ+7, DQ+10, DQ+11, DQ+13, DQ+18
PSDPG	HD+7, HD+8, DQ+1~, PRT+1, PRT+3*
PSDPLOC	ST+1~, HD+4, DQQ!
PSDPLOC(	DQ+7, DQ+11, DQ+18
PSDPLOC(0	ST+10
PSDRG	DQ+1~, DQ+15*, DQ+18
PSDS	DQ+1~, DQ+17, DQ+18, PRT+10, PRT+11, PRT+12*, PRT+14, PRT+16, PRT+17
PSDSD	ST+1~, ST+13, HD+6, DQ+8, DQQ!
PSDSITE	ST+1~
PSDUZ	DQ+1~, DQ+16*, DQ+18
PSDX	DQ+2~, DQ+12, DQ+13, DQ+14, DQ+18, PRT+15, PRT+16, PRT+17
PSDX0	DQ+2~, DQ+14*, DQ+15, DQ+16, DQ+18
PSDX2	DQ+2~
PSDXOR1	DQ+2~
PSDY	HD+1~, HD+3, HD+4, HD+5, DQ+2~, PRT+17*, PRT+19, PRT+20
U	ST+8, HD+3, HD+6, DQ+15, DQ+16, DQ+18, PRT+19, PRT+20
X	ST+1~, ST+9, HD+1~, DQ+2~, PAGE+1~
Y	ST+1~, ST+10, ST+11, ST+15, HD+1~, DQ+2~, DQ+17*, PAGE+1~
ZTDESC	ST+2~, ST+19*
ZTIO	ST+2~
ZTRTN	ST+2~, ST+19*
ZTSAVE	ST+2~
ZTSAVE("PSDED"	ST+20*
ZTSAVE("PSDIDIV"	ST+20*
ZTSAVE("PSDPLOC("	ST+20*
ZTSAVE("PSDSD"	ST+20*
ZTSK	ST+2~, ST+21

Customize PDF page

Package: Controlled Substances

Routine: PSDNMBA

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: