Routine: PSSDOS

Package	Total	Call Graph
Pharmacy Data Management	4	(BCMA,BCMA1)^PSSDOSER SET^PSSDOSLZ ($$TEST,MS)^PSSDSPOP (EN2,LOC)^PSSUTIL
VA Fileman	3	^DIC ^DIE ^DIR
National Drug File	1	$$DFSU^PSNAPIS

Package	Total	Caller Graph
Pharmacy Data Management	1	PSSDEE

Entry Points

Name	Comments	DBIA/ICR reference
PR
LOC	; Edit local dose
QASK	;Ask to continue
DOSN	;
WXFPT(PSSWDXVL)	;Add print fields with PSS1147
DOSA
QUES	;
NATND
CHECK	;
ULK	;No need to unlock, called from Drug enter/edit
WXF	;
END
XNWS	;
DOSA1
LOCX	;
LPD	; Display local dose before edit
STUN
DOSNX	;
DOSLOC	;

External References

Name	Field # of Occurrence
^DIC	DOSA1, LOC+2
^DIE	WXF+4, DOSA1+3, LOC+6, LOC+7
^DIR	DOSNX+11, WXF+1, DOSLOC+4, QUES+1, QASK+2
$$DFSU^PSNAPIS	NATND+1
BCMA^PSSDOSER	DOSA1+3
BCMA1^PSSDOSER	LOC+6
SET^PSSDOSLZ	DOSA+7
$$TEST^PSSDSPOP	LOC+7
MS^PSSDSPOP	XNWS+2
EN2^PSSUTIL	DOSNX+11
LOC^PSSUTIL	LOCX+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Strength from National Drug File match => "_$S($E($G(PSSNATST),1)=".":"0",1:"")_$G(PSSNATST)_" "_$P($G(^PS(50.607,+$G(PSSUN),0)),"^") Line Location: DOSNX+7
Function Call: WRITE	Prompt: ! Line Location: DOSA+1
Function Call: WRITE	Prompt: !,"POSSIBLE DOSAGES:" Line Location: DOSA+3
Function Call: WRITE	Prompt: !," DISPENSE UNITS PER DOSE: ",$S($E($P(POSDOS,U),1)=".":"0",1:"")_$P(POSDOS,U) Line Location: DOSA+6
Function Call: WRITE	Prompt: ?38,"DOSE: ",X,?60,"PACKAGE: ",$P(POSDOS,U,3) Line Location: DOSA+7
Function Call: WRITE	Prompt: !!,"LOCAL POSSIBLE DOSAGES:" Line Location: DOSA+9
Function Call: WRITE	Prompt: !," LOCAL POSSIBLE DOSAGE: " Line Location: DOSA+11
Function Call: WRITE	Prompt: $P(LPDOS,U),?55,"PACKAGE: ",$P(LPDOS,U,2) Line Location: DOSA+12
Function Call: WRITE	Prompt: ! Line Location: WXF+1
Function Call: WRITE	Prompt: !!,"Changing the strength will update all possible dosages for this Drug.",! Line Location: WXF+2
Function Call: WRITE	Prompt: ! Line Location: WXF+4
Function Call: WRITE	Prompt: ! Line Location: WXF+4
Function Call: WRITE	Prompt: ! Line Location: WXF+4
Function Call: WRITE	Prompt: ! Line Location: DOSA1+3
Function Call: WRITE	Prompt: ! Line Location: DOSA1+4
Function Call: WRITE	Prompt: ! Line Location: DOSLOC+4
Function Call: WRITE	Prompt: ! Line Location: LOC+2
Function Call: WRITE	Prompt: ! Line Location: LOC+5
Function Call: WRITE	Prompt: !!,"LOCAL POSSIBLE DOSAGES:" Line Location: LPD+1
Function Call: WRITE	Prompt: !," " Line Location: LPD+3
Function Call: WRITE	Prompt: $P(LPDOS,U),?55,"PACKAGE: ",$P(LPDOS,U,2) Line Location: LPD+4
Function Call: WRITE	Prompt: ! Line Location: QUES+1
Function Call: WRITE	Prompt: !!,"Strength: ",?30,"Unit: " Line Location: PR+3
Function Call: WRITE	Prompt: !!,"Strength from National Drug File match => "_$S($E($G(PSSNATST),1)=".":"0",1:"")_$G(PSSNATST)_" "_$P($G(^PS(50.607,+$G(PSSUN),0)),"^") Line Location: XNWS+1
Function Call: WRITE	Prompt: @IOF Line Location: QASK+3
Function Call: WRITE	Prompt: !?4,"BCMA UNITS PER DOSE: "_PSSWDX1 Line Location: WXFPT+7
Function Call: WRITE	Prompt: !?4," NUMERIC DOSE: "_PSSWDX5,?38,"DOSE UNIT: "_PSSWDX4 Line Location: WXFPT+8
Function Call: WRITE	Prompt: !,?4," NUMERIC DOSE: "_PSSWDX5 Line Location: WXFPT+9
Function Call: WRITE	Prompt: !,?38,"DOSE UNIT: "_PSSWDX4 Line Location: WXFPT+10
Routine Call	DIE Line Location: WXF+4 DOSA1+3 LOC+6 LOC+7
Routine Call	DIC Line Location: DOSA1 LOC+2
Routine Call	DIR Line Location: DOSNX+11 WXF+1 DOSLOC+4 QUES+1 QASK+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	CHECK+5, CHECK+7, CHECK+8
^PS(50.607 - [#50.607]	DOSA+1, CHECK+5, PR+2, XNWS+1, XNWS+2
^PS(51.24 - [#51.24]	WXFPT+4
^PS(59.7 - [#59.7]	LOC+4
^PSDRUG - [#50]	DOSNX+2!, DOSNX+6, DOSNX+11, DOSNX+16, DOSA, DOSA+4, DOSA+5, DOSA+10, DOSA+11, WXF+4! , WXF+5, DOSLOC+2, DOSLOC+3, LOC+6, LPD+2, LPD+3, ULK+2, STUN, NATND, XNWS+2

Label References

Name	Line Occurrences
CHECK	DOSNX+4
DOSA	DOSNX+6
DOSA1	DOSA1+4
DOSLOC	DOSA1, DOSA1+3
DOSNX	DOSNX+11
END	DOSNX+16, WXF+1, WXF+5, DOSLOC+4, LOC+2, LOC+6, LOC+7
LOC	WXF+5, LOCX+1, LOCX+2, LOC+6, LOC+8
LOCX	DOSNX+16
LPD	DOSNX+16, WXF+5
NATND	LOC+1, CHECK+2
PR	LOC+1
QASK	DOSA+3, DOSA+6, DOSA+11, LPD+1, LPD+3, WXFPT+7, WXFPT+8, WXFPT+9, WXFPT+10
QUES	DOSNX+16, WXF+5
STUN	DOSNX+1, LOC+1
WXF	DOSA+3
WXFPT	DOSA+12, DOSA+13, LPD+4, LPD+5
XNWS	DOSNX+6

Naked Globals

Name	Field # of Occurrence
^("DOS"	STUN
^("ND"	NATND
^(0	DOSA+1, DOSLOC+3, XNWS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DOSN+3, WXF+4, DOSA1+3, LOC+5, LOC+7!
DA(1	DOSA1, DOSA1+3, LOC+2, LOC+5, LOC+7*
DIC	DOSA1!, LOC+2!
DIC("A"	DOSA1*
DIC("W"	DOSA1+1, LOC+3
DIC(0	DOSA1, LOC+2
DIDEL	LOC+7!
DIE	WXF+4!, DOSA1+3!, LOC+5!, LOC+6!, LOC+7!
DIR	DOSNX+11!, DOSNX+12!, WXF+1!, DOSLOC+4!, QUES+1!, QASK+1~, QASK+2!
DIR("?"	DOSNX+12, DOSNX+13, DOSNX+14, DOSLOC+5, DOSLOC+6*
DIR("A"	DOSNX+12, WXF+1, DOSLOC+4, QUES+1, QASK+2*
DIR("B"	DOSNX+12, WXF+1, DOSLOC+4, QUES+1
DIR(0	DOSNX+12, WXF+1, DOSLOC+4, QUES+1, QASK+2*
DIROUT	QASK+1~
DIRUT	QASK+1~
DR	WXF+4, DOSA1+3, LOC+5, LOC+7!
DTOUT	DOSA1, DOSA1+3, LOC+2, LOC+6, LOC+7, QASK+1~
DUOUT	DOSA1, LOC+2, QASK+1~
IOF	QASK+3
IOSL	DOSA+3, DOSA+6, DOSA+11, LPD+1, LPD+3, WXFPT+7, WXFPT+8, WXFPT+9, WXFPT+10
LPDOS	DOSN+1~, DOSA+11, DOSA+12, DOSA+13, LPD+3, LPD+4, LPD+5
>> PDS	DOSA+4, DOSA+5, DOSA+10, DOSA+11, LPD+2*, LPD+3
POSDOS	DOSN+1~, DOSA+5*, DOSA+6, DOSA+7
PSS11	DOSNX+6~
PSSDESTP	XNWS+1~, XNWS+2*, XNWS+3!
PSSDIEN	DOSN+2~, LOCX+6*!
PSSDOSA	DOSN+1~, DOSA1+2, DOSA1+3, LOC+4, LOC+5, LOC+6, LOC+7, END!
PSSIEN	DOSN+3~*, DOSNX+2, DOSNX+6, DOSNX+11, DOSNX+16, DOSA, DOSA+4, DOSA+5, DOSA+10, DOSA+11 , WXF+4, WXF+5, DOSA1, DOSA1+3, DOSLOC+2, DOSLOC+3, LOCX+6, LOC+2, LOC+5, LOC+6 , LOC+7, LPD+2, LPD+3, END!, ULK+1, ULK+2, STUN, NATND, XNWS+2
PSSIENS	DOSNX+6~
PSSIND	DOSN+1~, END!
PSSIZZ	DOSN+2~, DOSNX+3, LOCX+2, LOCX+4, LOCX+5, CHECK+1!, CHECK+7
PSSNAME	DOSN+1~, END!
PSSNAT	DOSN+1~, CHECK+1!, END!, NATND*, NATND+1
PSSNAT1	DOSN+1~, END!, NATND*, NATND+1
PSSNATDF	DOSN+1~, CHECK+1!, CHECK+4, CHECK+5, CHECK+7, CHECK+8, END!, NATND+1*
PSSNATND	DOSN+1~, CHECK+1!, END!, NATND+1*
PSSNATST	DOSN+1~, CHECK+1!, CHECK+4, CHECK+6, END!, NATND+1*, PR, PR+1, XNWS+1
PSSNATUN	DOSN+1~, CHECK+1!, CHECK+4, CHECK+5, CHECK+7, CHECK+8, END!, NATND+1*, PR, PR+2
PSSNFID	DOSN+1~, END!
PSSNOCON	DOSN+1~, END!
PSSONLYI	DOSN+2~, LOCX+3!, LOCX+5*, LOCX+6!
PSSONLYO	DOSN+2~, LOCX+3!, LOCX+4*, LOCX+6!
PSSOTH	LOC+4*, LOC+6!
PSSOZZ	DOSN+2~, DOSNX+3, LOCX+2, LOCX+4, LOCX+5, CHECK+1!, CHECK+8
PSSPCI	DOSLOC+1, DOSLOC+3, DOSLOC+4!, DOSLOC+7!
PSSPCO	DOSLOC+1, DOSLOC+3, DOSLOC+4!, DOSLOC+7!
PSSPCZ	DOSLOC+2*, DOSLOC+3, DOSLOC+4!, DOSLOC+7!
PSSSKIPP	DOSN+2~, DOSNX+3, DOSNX+11, LOCX+1
PSSST	DOSN+1~, DOSNX+2, DOSA, DOSA+1, WXF+2, WXF+4, END!, STUN, PR, PR+1
PSSTALK	DOSN+2~, LOCX+6*!
PSSUN	DOSN+1~, DOSA+1, END!, STUN*, PR, PR+2, XNWS+1, XNWS+2
PSSWDX1	WXFPT+1~, WXFPT+3*, WXFPT+7
PSSWDX2	WXFPT+1~, WXFPT+3*, WXFPT+4
PSSWDX3	WXFPT+1~, WXFPT+3*, WXFPT+5
PSSWDX4	WXFPT+1~, WXFPT+2, WXFPT+4, WXFPT+8, WXFPT+10
PSSWDX5	WXFPT+1~, WXFPT+5*, WXFPT+6, WXFPT+8, WXFPT+9
PSSWDX6	WXFPT+1~, WXFPT+6*, WXFPT+8
PSSWDXF	DOSN+2~, DOSA, DOSA+3, DOSA+4, DOSA+6, DOSA+9, DOSA+10, DOSA+11, LPD+1, LPD+2 , LPD+3, QASK+2, WXFPT+7, WXFPT+8, WXFPT+9, WXFPT+10
PSSWDXVL	WXFPT~, WXFPT+3
PSSXYZ	DOSN+1~, DOSNX+4, DOSNX+11, WXF+4!, CHECK+7, CHECK+8*, END!
U	DOSA+6, DOSA+7, DOSA+12, DOSA+13, LPD+4, LPD+5
X	DOSN+1~, DOSA+7*, QASK+1~
Y	DOSN+1~, DOSNX+11, DOSNX+16, WXF+1, WXF+5, DOSA1, DOSA1+2, DOSA1+3, DOSLOC+4, LOC+2 , LOC+4, LOC+6, LOC+7, QASK+1~, QASK+2

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSDOS

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: