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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All
Print Page as PDF
Routine: PSBMD

Package: Barcode Medication Administration

Routine: PSBMD


Information

PSBMD ;BIRMINGHAM/EFC - BCMA MISSING DOSE FUNCTIONS ;4/23/21 08:34

Source Information

Source file <PSBMD.m>

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 PSB*3*100 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 PSB*3*100 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

Used in RPC

RPC Name Call Tags
PSB SUBMIT MISSING DOSE RPC

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All