Routine: PSSLDOSE

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
National Drug File	1	($$DFSU,$$OVRIDE,$$PROD0,OVRIDE)^PSNAPIS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Pharmacy Data Management	1	PSS LOCAL POSSIBLE DOSAGES

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
END	;
MESS	;
START	;Print Local Possible Dosages Report
TEST()	;Test to see if Drug meets criteria
HD	;Report Header

External References

Name	Field # of Occurrence
^%ZIS	EN+18
^%ZISC	END+7
^%ZTLOAD	EN+19
^DIR	EN+14, EN+15, EN+18, EN+20, END+3, HD+1
$$DFSU^PSNAPIS	TEST+9
$$OVRIDE^PSNAPIS	TEST+6
$$PROD0^PSNAPIS	START+51
OVRIDE^PSNAPIS	TEST+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will print Local Possible Dosage information only for Drugs for" Line Location: EN+1
Function Call: WRITE	Prompt: !,"which Dosage Checks can be performed. Drugs that are inactive, marked and/or" Line Location: EN+2
Function Call: WRITE	Prompt: !,"classed as supply items, not matched to NDF or excluded from dosage checks (due" Line Location: EN+3
Function Call: WRITE	Prompt: !,"to dosage form or VA Product override) will not be included in this report." Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Users will be able to print Local Possible Dosage information for all eligible" Line Location: EN+5
Function Call: WRITE	Prompt: !,"drugs or only for drugs with missing data in the Numeric Dose and Dose Unit" Line Location: EN+6
Function Call: WRITE	Prompt: !,"fields. These two fields must be populated to perform Dosage Checks for a Local" Line Location: EN+7
Function Call: WRITE	Prompt: !,"Possible Dosage selected when placing a Pharmacy order." Line Location: EN+8
Function Call: WRITE	Prompt: !!,"This report is designed for 132 column format!",! Line Location: EN+17
Function Call: WRITE	Prompt: !!,"Report queued to print.",! Line Location: EN+19
Function Call: WRITE	Prompt: !?12,PSSKZMSG Line Location: START+26
Function Call: WRITE	Prompt: $G(PSSKZUNZ) Line Location: START+28
Function Call: WRITE	Prompt: ! Line Location: START+29
Function Call: WRITE	Prompt: "(None)" Line Location: START+47
Function Call: WRITE	Prompt: !?3,"Note: Strength of "_PSSKZSTR_" does not match NDF strength of "_PSSKZNN2_"." Line Location: START+53
Function Call: WRITE	Prompt: !!,"No local possible dosage missing data found.",! Line Location: END+1
Function Call: WRITE	Prompt: !!,"End of Report.",! Line Location: END+2
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: END+3
Function Call: WRITE	Prompt: ! Line Location: END+4
Function Call: WRITE	Prompt: @IOF Line Location: END+5
Function Call: WRITE	Prompt: @IOF Line Location: HD+2
Function Call: WRITE	Prompt: !,"Local Possible Dosages Report (All)" Line Location: HD+3
Function Call: WRITE	Prompt: !,"Local Possible Dosages Report (Missing Data Only)" Line Location: HD+4
Function Call: WRITE	Prompt: ?118,"PAGE: "_PSSKZCT,!,PSSKZLIN,! Line Location: HD+5
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: MESS+1
Routine Call	DIR Line Location: EN+14 EN+15 EN+18 EN+20 END+3 HD+1
Routine Call	%ZIS Line Location: EN+18

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	TEST+11, TEST+12, TEST+13
^PS(50.607 - [#50.607]	START+12
^PS(50.7 - [#50.7]	TEST+10
^PS(51.24 - [#51.24]	START+44
^PSDRUG - [#50]	START+9, START+10, START+14, START+15, START+18, START+20, START+21, START+33, START+34, TEST+3 , TEST+10
^PSDRUG("B"	START+7

Label References

Name	Line Occurrences
$$TEST	START+16
HD	START+6, START+25, START+27, START+32, START+38, START+40, START+45, START+48, START+54, START+56
MESS	EN+14, EN+15, EN+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+9~, EN+18!*, EN+19!
DIR	EN+9~, EN+10!, EN+14!, EN+15!, EN+18!, EN+20!, END+3!, HD+1!
DIR("?"	EN+11, EN+12, EN+13*
DIR("A"	EN+10, EN+14, EN+15, EN+18, EN+20, END+3, HD+1*
DIR("B"	EN+10*
DIR(0	EN+10, EN+14, EN+15, EN+18, EN+20, END+3, HD+1*
DIROUT	EN+9~
DIRUT	EN+9~
DT	TEST+3
DTOUT	EN+9~, EN+14
DUOUT	EN+9~, EN+14
IO	START+1
IO("Q"	EN+19
IOF	END+5, HD+2
IOP	EN+9~, EN+18!
IOSL	START+25, START+27, START+32, START+38, START+40, START+45, START+48, START+54, START+56
IOST	START+4
POP	EN+9~, EN+18!
PSSKZ1	START+3~, START+8!, START+33*, START+34
PSSKZ2	START+3~, START+8!, START+34*, START+35, START+36, START+39, START+42, START+44
PSSKZ3	START+3~, START+8!, START+33, START+37, START+47
PSSKZAPU	START+3~, START+8!, START+14*, START+31
PSSKZCT	START+2~, START+4, HD+1, HD+5
PSSKZDAT	START+2~, START+8!, START+18*, START+19
PSSKZDEV	START+2~, START+4*, END+2, END+3, END+4, HD+1
PSSKZDF	START+2~, START+8!, TEST+8!, TEST+9, TEST+10, TEST+11, TEST+12, TEST+13
PSSKZDOV	TEST+4~, TEST+5, TEST+6, TEST+11, TEST+12, TEST+13
PSSKZDT1	START+2~, START+8!, START+20, START+21, START+22
PSSKZIEN	START+2~, START+7*, START+9, START+10, START+14, START+15, START+18, START+20, START+21, START+24 , START+33, START+34, TEST+3, TEST+10
PSSKZLD5	START+3~, START+41!, START+42*, START+44
PSSKZLD6	START+3~, START+41!, START+42*, START+43
PSSKZLD7	START+3~, START+41!, START+43*, START+44
PSSKZLIN	START+2~, START+5!*, HD+5
PSSKZLIP	START+2~, START+8!, START+18*
PSSKZLP1	START+2~, START+8!, START+20*, START+21
PSSKZMSG	START+3~, START+8!, START+13*, START+26
PSSKZND1	START+2~, START+8!, START+15*, START+50, START+51, TEST+2, TEST+6, TEST+9
PSSKZND3	START+2~, START+8!, START+15*, START+50, START+51, TEST+2, TEST+6, TEST+9
PSSKZNDF	START+2~, START+8!, TEST+9*
PSSKZNFL	START+3~, START+8!, START+13*, START+24
PSSKZNM	START+2~, START+7*
PSSKZNN1	START+3~, START+49!, START+51*, START+52, START+55
PSSKZNN2	START+3~, START+49!, START+52*, START+53
PSSKZNOF	START+2~, START+4, START+23, END+1
PSSKZOK	START+2~, START+8!, START+16*, START+17
PSSKZOUT	START+2~, START+4, START+7, START+25, START+27, START+32, START+33, START+38, START+40, START+45 , START+46, START+48, START+54, START+56, END+1, END+3, HD+1
PSSKZSTR	START+3~, START+8!, START+10, START+11, START+28, START+53
PSSKZTPE	EN+9~, EN+16*, START+20, START+22, START+36, END+1, END+6!, HD+3, HD+4
PSSKZUNT	START+3~, START+8!, START+10*, START+12
PSSKZUNZ	START+3~, START+8!, START+12*, START+28, START+29
PSSKZZR	START+2~, START+8!, START+9*, START+13, START+24, TEST+7
X	EN+9~
Y	EN+9~, EN+15, EN+16, HD+1!
ZTDESC	EN+9~, EN+19*
>> ZTQUEUED	END+7
>> ZTREQ	END+7*
ZTRTN	EN+9~, EN+19*
ZTSAVE	EN+9~
ZTSAVE("PSSKZTPE"	EN+19*
ZTSK	EN+9~

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSLDOSE

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items