Routine: PSSUTIL

Package	Total	Call Graph
National Drug File	1	$$DFSU^PSNAPIS
Pharmacy Data Management	1	TEST^PSSDOSCR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Pharmacy Data Management	4	PSSDEE PSSDOS PSSDOSER PSSPOIMN
National Drug File	3	PSNDRUG PSNHELP1 PSNMRG

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;Set local possible dosages
DASK	;Ask to continue
QUIET	;
EN1(PSSDIEN,PSSTALK)	;Receive Drug entries that have been unmatched	ICR #3107 Status: Active Usage: Private
QUIET1	;
DOSEADX	;New fields added with PSS1147
EN2(PSSDIEN,PSSTALK)	;Receive Drug entries matched to NDF	ICR #3107 Status: Active Usage: Private
ZASK	;Ask to continue
XASK	;Ask to continue
LOCMRG	;Merge new Local Possible Dosages with existing ones
DOSEADD	;New fields added with PSS1147
EN(PSSDIEN)	;Receive Drug entries unmatched as a result of NDF changes
EQ

External References

Name	Field # of Occurrence
^DIR	EN1+9, EN2+7, LOC+9, LOC+11, LOCMRG+11, LOCMRG+13, ZASK+2, XASK+2, DASK+2
$$DFSU^PSNAPIS	EN2+11
TEST^PSSDOSCR	QUIET+8, QUIET1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Deleting Possible Dosages.." Line Location: EN1+4
Function Call: WRITE	Prompt: "." Line Location: EN1+6
Function Call: WRITE	Prompt: ! Line Location: EN1+8
Function Call: WRITE	Prompt: ! Line Location: EN1+9
Function Call: WRITE	Prompt: !!,"Deleting Local Possible Dosages.." Line Location: EN1+9
Function Call: WRITE	Prompt: !!,"Deleting Local Possible Dosages.." Line Location: EN1+9
Function Call: WRITE	Prompt: !!,"Deleting Local Possible Dosages.." Line Location: EN1+9
Function Call: WRITE	Prompt: !!,"LOCAL POSSIBLE DOSAGES:" Line Location: EN1+10
Function Call: WRITE	Prompt: !,$P($G(^PSDRUG(PSSDIEN,"DOS2",PSSLD,0)),"^")_" "_$S($P($G(^(0)),"^",2)="":"(No package)",1:"(Package -> "_$P($G(^(0)),"^",2)_")") Line Location: EN1+12
Function Call: WRITE	Prompt: !!,"Local Possible Dosages not deleted.",! Line Location: EN1+13
Function Call: WRITE	Prompt: !!,"Resetting Possible Dosages..",! Line Location: EN2+7
Function Call: WRITE	Prompt: ! Line Location: LOC+7
Function Call: WRITE	Prompt: !!,"Setting Local Possible Dosages..",! Line Location: LOC+10
Function Call: WRITE	Prompt: !!,"This drug has the following Local Possible Dosages:",! Line Location: LOCMRG+3
Function Call: WRITE	Prompt: !,PSSLIENX,?55,"PACKAGE: ",$P($G(^PSDRUG(PSSDIEN,"DOS2",PSSLIEN,0)),"^",2) Line Location: LOCMRG+6
Function Call: WRITE	Prompt: ! Line Location: LOCMRG+8
Function Call: WRITE	Prompt: !!,"Setting Local Possible Dosages..",! Line Location: LOCMRG+12
Function Call: WRITE	Prompt: !?3,"BCMA UNITS PER DOSE: "_PSSPW3 Line Location: DOSEADD+6
Function Call: WRITE	Prompt: !?3,"NUMERIC DOSE: "_PSSPW6_" DOSE UNIT: "_PSSPW7 Line Location: DOSEADD+11
Function Call: WRITE	Prompt: !?3,"NUMERIC DOSE: "_PSSPW6 Line Location: DOSEADD+12
Function Call: WRITE	Prompt: !?3,"DOSE UNIT: "_PSSPW7 Line Location: DOSEADD+13
Function Call: WRITE	Prompt: !?3,"BCMA UNITS PER DOSE: "_PSSPWX3 Line Location: DOSEADX+6
Function Call: WRITE	Prompt: !?3,"NUMERIC DOSE: "_PSSPWX6_" DOSE UNIT: "_PSSPWX7 Line Location: DOSEADX+11
Function Call: WRITE	Prompt: !?3,"NUMERIC DOSE: "_PSSPWX6 Line Location: DOSEADX+12
Function Call: WRITE	Prompt: !?3,"DOSE UNIT: "_PSSPWX7 Line Location: DOSEADX+13
Function Call: WRITE	Prompt: @IOF Line Location: ZASK+3
Function Call: WRITE	Prompt: @IOF Line Location: XASK+3
Function Call: WRITE	Prompt: ! Line Location: DASK+2
Function Call: WRITE	Prompt: @IOF Line Location: DASK+3
Routine Call	DIR Line Location: EN1+9 EN2+7 LOC+9 LOC+11 LOCMRG+11 LOCMRG+13 ZASK+2 XASK+2 DASK+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	EN2+13, EN2+16, EN2+17, EN2+20, EN2+24, EN2+28, EN2+30, EN2+32, EN2+33, LOC+4 , LOC+8, QUIET+1, QUIET+3, QUIET+5, QUIET+11, LOCMRG+9, QUIET1+1, QUIET1+2, QUIET1+4, QUIET1+13
^PS(50.607 - [#50.607]	EN2+13
^PS(50.7 - [#50.7]	LOC+3
^PS(51.24 - [#51.24]	DOSEADD+9, DOSEADX+9
^PS(59.7 - [#59.7]	EN1+2, EN2+5
^PSDRUG - [#50]	EN1+5!, EN1+7!, EN1+8, EN1+9!, EN1+11, EN1+12, EN1+13, EN2+2, EN2+3!, EN2+10 , EN2+19, EN2+22, EN2+23, EN2+26, EN2+27, EN2+30, EN2+31, EN2+35, LOC+2, LOC+5 , QUIET+1, QUIET+10, QUIET+15, QUIET+16, LOCMRG+4, LOCMRG+5, LOCMRG+6, LOCMRG+7, QUIET1+9, QUIET1+12* , QUIET1+17, QUIET1+20*, DOSEADD+3, DOSEADX+3

Label References

Name	Line Occurrences
DASK	EN1+9
DOSEADD	EN1+12
DOSEADX	LOCMRG+6, LOCMRG+7
EQ	EN1+7, EN1+9
LOC	EN2+10, EN2+12, EN2+13, EN2+14, EN2+18, EN2+19, EN2+23
LOCMRG	LOC+5
QUIET	LOC+6
QUIET1	LOCMRG+2
XASK	LOCMRG+5, DOSEADX+6, DOSEADX+11
ZASK	EN1+12, DOSEADD+6, DOSEADD+11

Naked Globals

Name	Field # of Occurrence
^(	QUIET+3, QUIET+5, QUIET+11, QUIET1+2, QUIET1+4, QUIET1+13
^("ND"	EN2+10
^(0	EN1+12, QUIET+3, QUIET+11, QUIET1+2, QUIET1+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	EN1+9!, EN2+7!, LOC+7!, LOC+9!, LOC+11!, LOCMRG+8!, LOCMRG+11!, LOCMRG+13!, ZASK+1~, ZASK+2! , XASK+1~, XASK+2!, DASK+1~, DASK+2!
DIR("?"	LOC+8, LOCMRG+9, LOCMRG+10*
DIR("A"	EN1+9, EN2+7, LOC+7, LOC+11, LOCMRG+8, LOCMRG+13, ZASK+2, XASK+2, DASK+2*
DIR("B"	EN1+9, LOC+7, LOCMRG+8*
DIR(0	EN1+9, EN2+7, LOC+7, LOC+11, LOCMRG+8, LOCMRG+13, ZASK+2, XASK+2, DASK+2*
DIROUT	ZASK+1~, XASK+1~, DASK+1~
DIRUT	ZASK+1~, XASK+1~, DASK+1~
DTOUT	ZASK+1~, XASK+1~, DASK+1~
DUOUT	ZASK+1~, XASK+1~, DASK+1~
IOF	ZASK+3, XASK+3, DASK+3
IOSL	EN1+12, LOCMRG+5, DOSEADD+6, DOSEADD+11, DOSEADX+6, DOSEADX+11
PSALL	LOC+1~, QUIET+9, QUIET+10, QUIET1+8, QUIET1+9, QUIET1+12
PSDOD	LOC+1~, QUIET+5, QUIET1+4
PSDUPDPT	LOC+1~, QUIET+5, QUIET+9, QUIET1+4, QUIET1+8
PSNOUN	LOC+1~, QUIET+3, QUIET+11, QUIET1+2, QUIET1+13
PSNOUNPA	LOC+1~, QUIET+3, QUIET+4, QUIET+6, QUIET+7, QUIET+10, QUIET+11, QUIET+12, QUIET+13, QUIET+14 , QUIET+15, QUIET1+2, QUIET1+3, QUIET1+5, QUIET1+6, QUIET1+12, QUIET1+13, QUIET1+14, QUIET1+15, QUIET1+16 , QUIET1+20
PSNOUNPT	LOC+1~, QUIET+3, QUIET+9, QUIET+11, QUIET+15, QUIET1+2, QUIET1+8, QUIET1+13, QUIET1+17, QUIET1+20
PSSBOTH	EN2+4~, EN2+8, EN2+19, EN2+23*
PSSDF	EN2+4~, EN2+11*, EN2+12, EN2+13, EN2+16, EN2+17, EN2+20, EN2+24, EN2+28, EN2+30 , EN2+32, EN2+33
PSSDIEN	EN~, EN1~, EN1+5, EN1+7, EN1+8, EN1+9, EN1+11, EN1+12, EN1+13, EN2~ , EN2+2, EN2+3, EN2+10, EN2+19, EN2+22, EN2+23, EN2+26, EN2+27, EN2+30, EN2+31 , EN2+35, LOC+2, LOC+5, QUIET+1, QUIET+10, QUIET+15, QUIET+16, LOCMRG+4, LOCMRG+5, LOCMRG+6 , LOCMRG+7, QUIET1+9, QUIET1+12, QUIET1+17, QUIET1+20, DOSEADD+3, DOSEADX+3
PSSDUPD	EN2+4~, EN2+20, EN2+21, EN2+22, EN2+24, EN2+25, EN2+26, EN2+28, EN2+29, EN2+30 , EN2+32, EN2+33, EN2+34, EN2+35
PSSFLAG	EN2+4~, EN2+9, EN2+27, EN2+31*
PSSI	EN2+4~, EN2+15, EN2+16, EN2+18, EN2+19, EN2+23, EN2+27, EN2+31
PSSLD	EN1+1~, EN1+11*, EN1+12, DOSEADD+3
PSSLIEN	LOCMRG+1~, LOCMRG+4*, LOCMRG+5, LOCMRG+6, LOCMRG+7, DOSEADX+3
PSSLIENX	LOCMRG+1~, LOCMRG+5*, LOCMRG+6, LOCMRG+7
PSSLOC	EN2+4~, EN2+5*
PSSLOCV	EN1+1~, EN1+2*
PSSLP	LOC+1~, QUIET1+9, QUIET1+17
PSSLPNO	LOC+1~, QUIET1+9, QUIET1+10, QUIET1+17, QUIET1+18
PSSLPT	LOC+1~, QUIET1+9, QUIET1+11, QUIET1+12, QUIET1+17, QUIET1+19, QUIET1+20
PSSLPTX	LOC+1~, QUIET1+9, QUIET1+11, QUIET1+12, QUIET1+17, QUIET1+19, QUIET1+20
PSSLTOT	LOC+1~, QUIET+1, QUIET+2, QUIET+10, QUIET+11, QUIET+15, QUIET+16
PSSLTOTX	LOC+1~, QUIET+1, QUIET+16
PSSND	EN2+4~, EN2+10*, EN2+11
PSSND1	EN2+4~, EN2+10*, EN2+11
PSSNL	LOC+1~, QUIET+9!, QUIET1+8!
PSSNLF	LOC+1~, QUIET+9!, QUIET1+8!
PSSNLX	LOC+1~, QUIET+9!, QUIET1+8!
PSSNODE	EN2+4~, EN2+11*
PSSO	EN2+4~, EN2+15, EN2+17, EN2+18, EN2+19, EN2+23, EN2+27, EN2+31
PSSOID	LOC+1~, LOC+3*, LOC+4, LOC+8, QUIET+1, QUIET+3, QUIET+5, QUIET+11, LOCMRG+9, QUIET1+1 , QUIET1+2, QUIET1+4, QUIET1+13
PSSOITEM	LOC+1~, LOC+2*, LOC+3
PSSONLYI	EN2+4~, EN2+9, EN2+23, QUIET+7, QUIET+13, QUIET1+6, QUIET1+16
PSSONLYO	EN2+4~, EN2+9, EN2+19, QUIET+6, QUIET+14, QUIET1+5, QUIET1+15
PSSPW1	DOSEADD+1~, DOSEADD+3*, DOSEADD+4, DOSEADD+7
PSSPW2	DOSEADD+1~, DOSEADD+4*, DOSEADD+5
PSSPW3	DOSEADD+1~, DOSEADD+5*, DOSEADD+6
PSSPW4	DOSEADD+1~, DOSEADD+7*, DOSEADD+9
PSSPW5	DOSEADD+1~, DOSEADD+7*, DOSEADD+8
PSSPW6	DOSEADD+1~, DOSEADD+8*, DOSEADD+10, DOSEADD+11, DOSEADD+12
PSSPW7	DOSEADD+1~, DOSEADD+2, DOSEADD+9, DOSEADD+10, DOSEADD+11, DOSEADD+13
PSSPW8	DOSEADD+1~, DOSEADD+10*, DOSEADD+11
PSSPWX1	DOSEADX+1~, DOSEADX+3*, DOSEADX+4, DOSEADX+7
PSSPWX2	DOSEADX+1~, DOSEADX+4*, DOSEADX+5
PSSPWX3	DOSEADX+1~, DOSEADX+5*, DOSEADX+6
PSSPWX4	DOSEADX+1~, DOSEADX+7*, DOSEADX+9
PSSPWX5	DOSEADX+1~, DOSEADX+7*, DOSEADX+8
PSSPWX6	DOSEADX+1~, DOSEADX+8*, DOSEADX+10, DOSEADX+11, DOSEADX+12
PSSPWX7	DOSEADX+1~, DOSEADX+2, DOSEADX+9, DOSEADX+10, DOSEADX+11, DOSEADX+13
PSSPWX8	DOSEADX+1~, DOSEADX+10*, DOSEADX+11
PSSPWXEX	EN1+1~, EN1+10, EN1+11, EN1+12, DOSEADD+6, DOSEADD+11, ZASK+2
PSSPWZEX	LOCMRG+1~, LOCMRG+4, LOCMRG+5, DOSEADX+6, DOSEADX+11, XASK+2
PSSST	EN2+4~, EN2+11*, EN2+12, EN2+14, EN2+19, EN2+21, EN2+23, EN2+25, EN2+27, EN2+29 , EN2+31, EN2+34
PSSTALK	EN1~, EN1+7, EN2~, EN2+7, LOC+6, LOCMRG+2
PSSTODOS	EN2+4~, EN2+21, EN2+22, EN2+25, EN2+26, EN2+29, EN2+30, EN2+34, EN2+35
PSSTOT	EN2+4~, EN2+19, EN2+20, EN2+22, EN2+23, EN2+24, EN2+26, EN2+27, EN2+28, EN2+30 , EN2+31, EN2+35*
PSSTOTX	EN2+4~, EN2+19, EN2+23, EN2+27, EN2+31
PSSUN	EN2+4~, EN2+11*, EN2+12, EN2+13, EN2+16, EN2+17, EN2+19, EN2+23, EN2+27, EN2+31
X	ZASK+1~, XASK+1~, DASK+1~
Y	EN1+9, LOC+9, LOCMRG+11, ZASK+1~, ZASK+2, XASK+1~, XASK+2, DASK+1~

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSUTIL

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: