Routine: PSJDOSE

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIR
Inpatient Medications	1	ENHLP^PSGOEM
Pharmacy Data Management	1	DOSE^PSSORPH
Registration	1	PAUSE^VALM1

Package	Total	Caller Graph
Inpatient Medications	8	PSGOE4 PSGOE8 PSGOE82 PSGOE9 PSGOE92 PSGOEF PSGOEV PSJCOM

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN	;Prompt for dosage order again
EDITDD	;Editing DDs
DOSECHK	;
GETDOSE(PSJDD)	;Dosage Order
ONEDD	;
SELDOSE(X,PSJDD)	;
DSPWARN	;
CONT(X)	;Ask if user accepting the dose
DUPD	;
SETDUPD(X)	;
BCMAUPD(PSJDD)	;
EDITDOSE	;Editing Dosage Ordered for active order
DOSECHK1	;
SETVAR	;
DOSE(PSJDD)	;Prompt for Dosage Ordered

External References

Name	Field # of Occurrence
^DIE	EDITDD+2
^DIR	AGAIN+7, AGAIN+12, CONT+4
ENHLP^PSGOEM	AGAIN+36, DUPD+5, DUPD+6, DUPD+8
DOSE^PSSORPH	DOSE+5, AGAIN+30, AGAIN+32, DOSECHK1+7, DOSECHK1+13
PAUSE^VALM1	EDITDOSE+9, DSPWARN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1"),! Line Location: EDITDOSE+8
Function Call: WRITE	Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1"),! Line Location: GETDOSE+8
Function Call: WRITE	Prompt: !?4,$J(PSJX,3),". ",$P(PSJDOX(PSJDL),U,PSJPIECE) Line Location: AGAIN+6
Function Call: WRITE	Prompt: ! Line Location: AGAIN+8
Function Call: WRITE	Prompt: " ",X Line Location: AGAIN+22
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: DUPD+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: DUPD+5
Function Call: WRITE	Prompt: " ("_$E("0",X<1)_X_")" Line Location: DUPD+7
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: DUPD+8
Function Call: WRITE	Prompt: $C(7),!!,"WARNING: This order must have at least one dispense drug before pharmacy can",!?9,"verify it!" Line Location: EDITDD+3
Function Call: WRITE	Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1"),! Line Location: DSPWARN+3
Routine Call	DIE Line Location: EDITDD+2
Routine Call	DIR Line Location: AGAIN+7 AGAIN+12 CONT+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(53.45 - [#53.45]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.45 - [#53.45]	EDITDOSE+4, SETDUPD+2, SETDUPD+4, EDITDD+3, DOSECHK+5, DOSECHK+6, DOSECHK+7, DOSECHK1+4, DOSECHK1+5

Label References

Name	Line Occurrences
$$CONT	AGAIN+23, AGAIN+31, AGAIN+39
AGAIN	AGAIN+20, AGAIN+28, AGAIN+36, AGAIN+39
BCMAUPD	DOSECHK1+13
DOSE	EDITDOSE+5, GETDOSE+2
DOSECHK	EDITDOSE+6, GETDOSE+6
DOSECHK1	DOSECHK+9
DUPD	GETDOSE+4, DUPD+5, DUPD+6, DUPD+8
ONEDD	DOSECHK1+12, DOSECHK1+14
SELDOSE	AGAIN+25, AGAIN+33, AGAIN+41
SETDUPD	GETDOSE+5, DUPD+10
SETVAR	DOSE+4, DSPWARN+2

Naked Globals

Name	Field # of Occurrence
^(	EDITDOSE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHK	ONEDD+4~*
DA	DOSE+3~, EDITDD+1~, EDITDD+2*
DIE	EDITDD+1~, EDITDD+2*
DIR	DOSE+3~, AGAIN+2~, AGAIN+9!, CONT+1~, CONT+2!
DIR("?"	AGAIN+12*
DIR("A"	AGAIN+10, CONT+3
DIR("B"	AGAIN+11, CONT+3
DIR(0	AGAIN+7, AGAIN+9, CONT+3*
DIRUT	DOSE+3~, AGAIN+17, CONT+1~, CONT+2!
DR	DOSE+3~, EDITDD+1~, EDITDD+2*
DR(2	EDITDD+2*
DTIME	DUPD+3
DTOUT	DOSE+3~, AGAIN+17
DUOUT	DOSE+3~, AGAIN+4, AGAIN+17, CONT+2!, CONT+5!
>> PSGDO	AGAIN+11, AGAIN+16, AGAIN+42, SELDOSE+2*, DOSECHK+3, DOSECHK1+2, DOSECHK1+16, ONEDD+3, ONEDD+4, ONEDD+5
>> PSGOEE	EDITDOSE+10*
PSGOER1	EDITDOSE+2~
>> PSGOROE1	AGAIN+17, DUPD+3
>> PSGUD	DUPD+2, DUPD+3, DUPD+5, SETDUPD+1, SETDUPD+3*, SETDUPD+4
PSJBCMA	BCMAUPD+2!
PSJBCMA(	BCMAUPD+6*
PSJCNT	DOSECHK+4~, DOSECHK+8, DOSECHK1+12, DOSECHK1+14, DOSECHK1+16, BCMAUPD+1~, BCMAUPD+5*, BCMAUPD+6
PSJCONT	DOSE+3~, AGAIN+20, AGAIN+23, AGAIN+24, AGAIN+28, AGAIN+31, AGAIN+32
PSJDD	EDITDOSE+2~, EDITDOSE+4*, EDITDOSE+5, GETDOSE~, GETDOSE+2, DOSE~, DOSE+5, AGAIN+16, AGAIN+25, AGAIN+30 , AGAIN+32, AGAIN+33, AGAIN+41, AGAIN+42, SELDOSE~, SELDOSE+4, BCMAUPD~, BCMAUPD+6
PSJDL	DOSE+3~, AGAIN+4*, AGAIN+6
PSJDOSE	DSPWARN+1~
PSJDOSE("DO"	SELDOSE+3*
PSJDOSE("WARN"	EDITDOSE+8, GETDOSE+8, SETVAR+1*, DSPWARN+3
PSJDOSE("WARN1"	EDITDOSE+8, GETDOSE+8, SETVAR+2*, DSPWARN+3
>> PSJDOX	DOSE+5, DOSE+6, AGAIN+30, AGAIN+32
>> PSJDOX(	AGAIN+4, AGAIN+6, AGAIN+20, AGAIN+21, AGAIN+41, SELDOSE+1
>> PSJDOX(1	DOSE+6, DOSE+7, DOSE+8, AGAIN+3, AGAIN+30, AGAIN+31
PSJDSFLG	EDITDOSE+7, GETDOSE+7, DOSECHK+1!, DOSECHK1+3, DOSECHK1+4, DOSECHK1+12, DOSECHK1+16, ONEDD+1, ONEDD+2, ONEDD+3 , ONEDD+4, ONEDD+5
PSJDSSEL	EDITDOSE+2~, GETDOSE+1~, GETDOSE+3, GETDOSE+5, AGAIN+16, AGAIN+40!, AGAIN+42, SELDOSE+4, SELDOSE+5, SELDOSE+6* , DUPD+9*, SETDUPD+1
PSJDSUPD	EDITDOSE+2~, GETDOSE+1~, GETDOSE+4, GETDOSE+5, AGAIN+16, AGAIN+42
PSJPIECE	DOSE+3~, DOSE+7*, DOSE+8, AGAIN+6, AGAIN+21, AGAIN+28, AGAIN+41, SELDOSE+2, SELDOSE+4, SELDOSE+6
>> PSJSYSP	EDITDOSE+4, SETDUPD+2, SETDUPD+4, EDITDD+2, EDITDD+3, DOSECHK+5, DOSECHK+6, DOSECHK+7, DOSECHK1+4, DOSECHK1+5
>> PSJSYSU	DOSECHK+2
PSJTOT	DOSECHK1+1~, DOSECHK1+3, DOSECHK1+15, DOSECHK1+16
PSJUNIT	DOSECHK1+1~, DOSECHK1+2*, DOSECHK1+10, DOSECHK1+11
PSJX	EDITDOSE+2~, EDITDOSE+4, DOSE+3~, AGAIN+1, AGAIN+5, AGAIN+6, AGAIN+7, AGAIN+10, DUPD+1~, SETDUPD+2 , SETDUPD+4, DOSECHK+4~, DOSECHK+5, DOSECHK+6, DOSECHK+7, DOSECHK1+1~, DOSECHK1+4, DOSECHK1+5
PSJXDD	DOSECHK+4~, DOSECHK+6, DOSECHK+7, DOSECHK1+1~, DOSECHK1+5, DOSECHK1+6, DOSECHK1+7, DOSECHK1+13
>> PSJXDOSE	AGAIN+41*
>> PSJXDOX	DOSECHK1+7, DOSECHK1+8, DOSECHK1+13
>> PSJXDOX(	ONEDD+2, ONEDD+3, ONEDD+4, ONEDD+5, BCMAUPD+3, BCMAUPD+4, BCMAUPD+6
>> PSJXDOX(1	DOSECHK1+8, DOSECHK1+15
>> PSJXDUP	DOSECHK1+6*, DOSECHK1+13, ONEDD+3, ONEDD+4, ONEDD+5
PSJXFLG	DOSECHK1+1~, DOSECHK1+3, DOSECHK1+4, DOSECHK1+8
PSJXUNIT	DOSECHK1+1~, DOSECHK1+9, DOSECHK1+10, DOSECHK1+11*, ONEDD+3
>> PSJY	AGAIN+13*, AGAIN+16, AGAIN+20, AGAIN+21, AGAIN+25, AGAIN+28, AGAIN+29, AGAIN+30, AGAIN+36, AGAIN+39 , AGAIN+41, AGAIN+42
U	GETDOSE+5, DOSE+7, DOSE+8, AGAIN+3, AGAIN+6, AGAIN+16, AGAIN+21, AGAIN+30, AGAIN+31, AGAIN+41 , AGAIN+42, SELDOSE+2, SELDOSE+3, SELDOSE+4, SELDOSE+5, SELDOSE+6, DUPD+9, SETDUPD+1, SETDUPD+4, DOSECHK+7 , DOSECHK1+6, DOSECHK1+8, ONEDD+3, ONEDD+4, ONEDD+5, BCMAUPD+4, BCMAUPD+6
X	AGAIN+21~, AGAIN+22, AGAIN+23, AGAIN+41, SELDOSE~, SELDOSE+1, SELDOSE+2, SELDOSE+3, SELDOSE+4, SELDOSE+5 , SELDOSE+6, CONT~, CONT+3, DUPD+1~, DUPD+3, DUPD+4, DUPD+5, DUPD+6, DUPD+7, DUPD+8 , DUPD+9, DUPD+10, SETDUPD~, SETDUPD+1, SETDUPD+2, DOSECHK1+11, ONEDD+1~, ONEDD+2, ONEDD+3, ONEDD+4 , ONEDD+5, BCMAUPD+3, BCMAUPD+4, BCMAUPD+6
Y	EDITDOSE+2~, AGAIN+13, CONT+1~, CONT+6

Customize PDF page

Package: Inpatient Medications

Routine: PSJDOSE

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: