Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Entry Points | Interaction Calls

Print Page as PDF

Routine: PSDDWK

Package: Controlled Substances

Routine: PSDDWK

Information

PSDDWK ;BIR/JPW-Pharm Dispensing Worksheet ;6 July 94

Source Information

Source file <PSDDWK.m>

Entry Points

Name	Comments	DBIA/ICR reference
ASKD	;ask dispensing location
SETD
ASKM	;ask method of dispensing - by worksheet or individual request
END
WK	;compile worksheet dispensing data
REQ	;dispense by individual request
SET	;sets data for display/editing
MSG
PSDLCK	;; PSD359 CLEAR LOCKS FOR THIS ORDER

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"process/dispense narcotic supplies.",!!,"PSJ RPHARM, PSJ PHARM TECH or PSD TECH ADV security key required.",! Line Location: PSDDWK+7
Function Call: WRITE	Prompt: $C(7),!!,"There are no pending request orders.",!! Line Location: PSDDWK+9
Function Call: WRITE	Prompt: !!,"Accessing worksheet information..." Line Location: WK+1
Function Call: WRITE	Prompt: !!,"Accessing worksheet information..." Line Location: REQ+1
Function Call: WRITE	Prompt: ! Line Location: REQ+4
Function Call: WRITE	Prompt: !!,"This request is currently being processed by ",$P(^VA(200,$P(^XTMP("PSDLCK",PSDN,0),"^",3),0),"^") Line Location: REQ+5
Function Call: WRITE	Prompt: !!,"The status of this request is "_$P($G(^PSD(58.82,STAT,0)),"^")_".",!,"You cannot edit this request using this option.",! Line Location: REQ+6
Function Call: WRITE	Prompt: $C(7),!!,"There are no pending CS requests for ",PSDSN,".",! Line Location: MSG+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: MSG+1
Function Call: WRITE	Prompt: !,"Press <RET> to return to the menu" Line Location: MSG+1
Function Call: WRITE	Prompt: !! Line Location: MSG+1

Info | Source | Entry Points | Interaction Calls