Routine: PSBMD

Entry Points

Name	Comments	DBIA/ICR reference
RPC(RESULTS,PSBDFN,PSBDRUG,PSBDOSE,PSBRSN,PSBADMIN,PSBNEED,PSBUID,PSBON,PSBSCHD,PSBCLIN,PSBCLNIEN)	;
XQ	; Called via Kernel Menus
SUBMIT(DA)	; Submit Request to Pharmacy
DQ(PSBMD,PSBMM)	; Dequeue report from Taskman
OUT	;
HAZOUT(P50,POS)	; Write warnings for drugs, additives and solutions that are Hazardous to Handle or Dispose *106
NEW(RESULTS)	; Create a new missing dose request ; Called interactively and via RPCBroker
VAL(PSBFLDS)	; Validate that fields in PSBFLDS are filled in
CHK1	; Start PSB3100 changes: use 'DIVAS' cross ref for multidivision sites ; DUZ(2), the user's division, is set at sign-on. At multidivision sites where a user has access ; to multiple divisions, allow selection of a division from the divisions defined in file #40.8. ; The user must have at least one division from file #40.8 in his file #200 record.
ALL	; user gets all divisions (current behavior); applicable to single division sites as well
ONE	; when user selects one division from many in file #200, look at file #40.8 for a match if available
FLWUP	; Follow-Up on missing dose ; start PSB3100 changes
PAGE(PSBIX)	;
POST	;call from 'Patient' field of screenman form PSB MISSING DOSE REQUEST ;

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Error: ",$P(PSBMD(0),U,2) Line Location: XQ+3
Function Call: WRITE	Prompt: @IOF Line Location: XQ+5
Function Call: WRITE	Prompt: !,"Cancelling Request..." Line Location: XQ+6
Function Call: WRITE	Prompt: "Cancelled!" Line Location: XQ+6
Function Call: WRITE	Prompt: Y Line Location: DQ+9
Function Call: WRITE	Prompt: !?3,"ADDITIVE: ",$$GET1^DIQ(52.6,+^PSB(53.68,PSBMD,.6,X,0),.01) Line Location: DQ+13
Function Call: WRITE	Prompt: !?3,"SOLUTION: ",$$GET1^DIQ(52.7,+^PSB(53.68,PSBMD,.7,X,0),.01) Line Location: DQ+14
Function Call: WRITE	Prompt: !?3,"ADDITIVE: ",$$GET1^DIQ(52.6,+^PSB(53.68,PSBMD,.6,X,0),.01) Line Location: DQ+21
Function Call: WRITE	Prompt: !?3,"SOLUTION: ",$$GET1^DIQ(52.7,+^PSB(53.68,PSBMD,.7,X,0),.01) Line Location: DQ+24
Function Call: WRITE	Prompt: !?3,PSBRET("LABEL"),":" Line Location: OUT+2
Function Call: WRITE	Prompt: "." Line Location: OUT+2
Function Call: WRITE	Prompt: $$GET1^DIQ(53.68,PSBMD_",",PSBFLD) Line Location: OUT+3
Function Call: WRITE	Prompt: "." Line Location: OUT+8
Function Call: WRITE	Prompt: "." Line Location: OUT+10
Function Call: WRITE	Prompt: !?POS Line Location: HAZOUT+3
Function Call: WRITE	Prompt: "<<HAZ Handle>> " Condition for execution: $P(PSBHAZ,U) Line Location: HAZOUT+3
Function Call: WRITE	Prompt: "<<HAZ Dispose>>" Condition for execution: $P(PSBHAZ,U,2) Line Location: HAZOUT+3
Function Call: WRITE	Prompt: ! Line Location: CHK1+6
Function Call: WRITE	Prompt: ! Line Location: ONE+1
Function Call: WRITE	Prompt: !!,$C(7),"You have no valid divisions in the NEW PERSON file." Line Location: FLWUP+4
Function Call: WRITE	Prompt: !!,$C(7),"Your NEW PERSON file division was not found in the MEDICAL CENTER DIVISION file." Line Location: FLWUP+5
Function Call: WRITE	Prompt: !!,"No Unresolved Missing Dose Requests Found." Line Location: FLWUP+24
Function Call: WRITE	Prompt: !?5,PSBDRUG Line Location: FLWUP+36
Function Call: WRITE	Prompt: !?5 Line Location: FLWUP+36
Function Call: WRITE	Prompt: "<<HAZ Handle>> " Condition for execution: $P(PSBHAZ,U) Line Location: FLWUP+36
Function Call: WRITE	Prompt: "<<HAZ Dispose>>" Condition for execution: $P(PSBHAZ,U,2) Line Location: FLWUP+36
Function Call: WRITE	Prompt: !?10,"ADDITIVES: ",$$GET1^DIQ(52.6,+^PSB(53.68,+PSBIEN,.6,X,0),.01) Line Location: FLWUP+39
Function Call: WRITE	Prompt: !?10,"SOLUTIONS: ",$$GET1^DIQ(52.7,+^PSB(53.68,+PSBIEN,.7,X,0),.01) Line Location: FLWUP+40
Function Call: WRITE	Prompt: @IOF,PSBHDR,!,$TR($J("",IOM)," ","-") Line Location: PAGE+10
Function Call: WRITE	Prompt: @IOF,PSBHDR,!,$TR($J("",IOM)," ","-") Line Location: PAGE+18

FileNo	Call Tags
^DG(40.8 - [#40.8]	Classic Fileman Calls, GET1^DIQ
^DG(43 - [#43]	GET1^DIQ
^PS(52.6 - [#52.6]	GET1^DIQ
^PS(52.7 - [#52.7]	GET1^DIQ
^PS(53.46 - [#53.46]	GET1^DIQ
^PSB(53.68 - [#53.68]	Classic Fileman Calls, FIELD^DID, GET1^DIQ, GET^DDSVAL

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBMD

Information

Source Information

Entry Points

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call