Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | 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>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
VA FileMan 11 NOW^%DTC  ^DDS  (MSG,REFRESH)^DDSUTL  ($$GET,PUT)^DDSVAL  ^DIC  FILE^DICN  FIELD^DID  FILE^DIE  
^DIK  ($$GET1,D)^DIQ  ^DIR  
Barcode Medication Administration 2 (HFSCLOSE,HFSOPEN)^PSBUTL  (CLEAN,PSJ1)^PSBVT  
Kernel 2 ^%ZTLOAD  $$NAME^XUAF4  
MailMan 1 ^XMD  
Pharmacy Data Management 1 $$HAZ^PSSUTIL  
Registration 1 (DEM,IN5)^VADPT  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Barcode Medication Administration 2 PSB MISSING DOSE FOLLOWUP  PSB SUBMIT MISSING DOSE  

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
;

External References

Name Field # of Occurrence
NOW^%DTC RPC+12, SUBMIT+34, DQ+9, NEW+10
^%ZTLOAD SUBMIT+39
^DDS XQ+4, PAGE+13
MSG^DDSUTL VAL+9
REFRESH^DDSUTL POST+6
$$GET^DDSVAL VAL+2
PUT^DDSVAL POST+4, POST+5
^DIC ONE+6
FILE^DICN NEW+14
FIELD^DID OUT+1, VAL+6
FILE^DIE RPC+31, RPC+44
^DIK XQ+6
$$GET1^DIQ SUBMIT+21, DQ+17, DQ+21, DQ+22, DQ+24, DQ+25, OUT+3, OUT+5, ALL+4, ONE+3
, ONE+8, ONE+9, FLWUP+3, FLWUP+30, FLWUP+31, FLWUP+33, FLWUP+35, FLWUP+38, FLWUP+39, FLWUP+40
D^DIQ DQ+9
^DIR XQ+3, CHK1+11, PAGE+6
HFSCLOSE^PSBUTL SUBMIT+48
HFSOPEN^PSBUTL SUBMIT+46
CLEAN^PSBVT RPC+48
PSJ1^PSBVT RPC+34, RPC+35, RPC+41
$$HAZ^PSSUTIL HAZOUT+2, FLWUP+36
DEM^VADPT OUT+5
IN5^VADPT RPC+23, POST+3
^XMD SUBMIT+51
$$GET^XPAR SUBMIT+8, SUBMIT+9, SUBMIT+22, SUBMIT+23, SUBMIT+25, SUBMIT+26, OUT+6
$$NAME^XUAF4 ALL+6

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
Routine Call
  • DDS
  • Line Location:
    • XQ+4
    • PAGE+13
Routine Call
  • DIC
  • Line Location:
    • ONE+6
Routine Call
  • DIE
  • Line Location:
    • RPC+31
    • RPC+44
Routine Call
  • DIR
  • Line Location:
    • XQ+3
    • CHK1+11
    • PAGE+6

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] ALL+3, ONE+2, FLWUP+5
^DIC(42 - [#42] RPC+22, SUBMIT+3
^DPT - [#2] RPC+21
^PS(53.46 - [#53.46] SUBMIT+4
^PSB(53.68 - [#53.68] RPC+32, RPC+37*, RPC+39*, RPC+42*, RPC+43*, RPC+45, SUBMIT+2, SUBMIT+10*, SUBMIT+28*, DQ+2
, DQ+3, DQ+4, DQ+5, DQ+20, DQ+21, DQ+22, DQ+23, DQ+24, DQ+25, OUT+12
, NEW+7, NEW+10, NEW+15, FLWUP+18, FLWUP+22, FLWUP+39, FLWUP+40, PAGE+15, PAGE+16
^TMP("PSB" FLWUP+15!, FLWUP+18*, FLWUP+22*, FLWUP+24, FLWUP+29, FLWUP+43!, PAGE+5, PAGE+11, PAGE+15!*, PAGE+16!*
^TMP("PSBMD" CHK1+4!, ALL+8*, ONE+11*, FLWUP+9, FLWUP+10, FLWUP+43!
^VA(200 - [#200] FLWUP+4

Label References

Name Line Occurrences
$$PAGE FLWUP+41, FLWUP+42
ALL CHK1+14, FLWUP+7
CHK1 FLWUP+6
DQ SUBMIT+47
HAZOUT DQ+17, DQ+22, DQ+25
NEW RPC+9, XQ+2
ONE CHK1+13
OUT DQ+16, DQ+18, DQ+19
SUBMIT RPC+46, XQ+7

Naked Globals

Name Field # of Occurrence
^( FLWUP+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RPC+12, SUBMIT+36, DQ+9, NEW+10
CLIEN SUBMIT+1~, SUBMIT+4*, SUBMIT+21
D0 NEW+13!, FLWUP+2~, FLWUP+3*
DA XQ+1~, XQ+4*, XQ+7, SUBMIT~, SUBMIT+2, SUBMIT+10, SUBMIT+28, SUBMIT+38, SUBMIT+47, VAL+2
, FLWUP+12~, PAGE+11*, POST+4, POST+5
DDIEN DQ+1~, DQ+17*, DQ+22*, DQ+25*, FLWUP+13~, FLWUP+35*, FLWUP+36
>> DDSERROR VAL+10*
DDSFILE XQ+1~, XQ+4*, FLWUP+12~, PAGE+11*
DFN RPC+7~, RPC+23*, OUT+5~*, POST+2~, POST+3*
DIC NEW+2~, NEW+11*, ONE+5*, FLWUP+2~
DIC("A" ONE+5*
DIC("B" ONE+4*
DIC("DR" NEW+12*
DIC("S" ONE+5*
DIC(0 NEW+11*, ONE+5*
>> DIE POST+4, POST+5
DIK XQ+1~, XQ+6*
>> DILOCKTM RPC+32, DQ+3, NEW+7
DIR CHK1+5~, CHK1+11!, FLWUP+12~
DIR("?" CHK1+8*
DIR("A" CHK1+9*, PAGE+3*, PAGE+4*
DIR("B" CHK1+10*
DIR(0 XQ+3*, CHK1+7*, PAGE+5*
>> DIROUT CHK1+11
>> DIRUT CHK1+11
DR XQ+1~, XQ+4*, FLWUP+12~, PAGE+11*
>> DTOUT CHK1+11, PAGE+8
>> DUOUT CHK1+11
DUZ RPC+14, NEW+4, FLWUP+4
DUZ("AG" OUT+7
DUZ(2 RPC+15, NEW+5, ALL+2, ALL+3, ALL+5, ALL+6, ONE+2, FLWUP+5
>> I RPC+36*, RPC+37*, RPC+38*, RPC+39*, RPC+42*, RPC+43*
IO SUBMIT+47
IOF XQ+5, FLWUP+28, PAGE+10, PAGE+18
IOM FLWUP+28, PAGE+10, PAGE+18
IOSL FLWUP+41
LOC FLWUP+12~, FLWUP+33*, FLWUP+34
P50 HAZOUT~, HAZOUT+2
POS HAZOUT~, HAZOUT+3
PSB VAL+1~, VAL+2*, VAL+4*, VAL+6
PSB("LABEL" VAL+7
PSB("TITLE" VAL+7
>> PSBAD RPC+36*
PSBADA RPC+34!, RPC+35!, RPC+37, RPC+42
PSBADA( RPC+36*, RPC+37, RPC+42
PSBADMIN RPC~, RPC+27
>> PSBCFLD DQ+4*, DQ+15, DQ+19
PSBCLIN RPC~, RPC+18, SUBMIT+4, SUBMIT+20, SUBMIT+24
PSBCLNIEN RPC~, RPC+8*, RPC+19, SUBMIT+4
PSBCX PAGE+2~, PAGE+11*, PAGE+15
PSBDATA FLWUP+2~
PSBDFN RPC~, RPC+16, RPC+21, RPC+23, RPC+34, RPC+35, RPC+41
PSBDIV ALL+2*, ALL+8, ONE+10*, ONE+11, FLWUP+2~, FLWUP+9*, FLWUP+22, PAGE+16
PSBDOSE RPC~, RPC+25
PSBDPTR ONE+9*, ONE+10, FLWUP+2~
PSBDRUG RPC~, RPC+24, RPC+40, FLWUP+12~, FLWUP+35*, FLWUP+36, FLWUP+37
PSBDVNM ONE+3*, ONE+4, FLWUP+2~
PSBDX PAGE+2~, PAGE+6*
PSBFDA RPC+7~
PSBFDA( RPC+13*, RPC+14*, RPC+15*, RPC+16*, RPC+19*, RPC+22*, RPC+23*, RPC+24*, RPC+25*, RPC+26*
, RPC+27*, RPC+28*, RPC+29*, RPC+30*, RPC+37*, RPC+39*, RPC+42*, RPC+43*
PSBFLD DQ+1~, DQ+16*, DQ+18*, DQ+19*, OUT+1, OUT+3, OUT+4, OUT+12, VAL+1~, VAL+2*
PSBFLD( VAL+2*, VAL+3!, VAL+4
PSBFLDS VAL~, VAL+2
PSBHAZ HAZOUT+1~, HAZOUT+2*, HAZOUT+3, FLWUP+13~, FLWUP+36*
PSBHDR FLWUP+12~, FLWUP+25*, FLWUP+26*, FLWUP+28, PAGE+10, PAGE+18
PSBIEN FLWUP+12~, FLWUP+29*, FLWUP+30, FLWUP+31, FLWUP+33, FLWUP+35, FLWUP+38, FLWUP+39, FLWUP+40
PSBIENS RPC+7~, RPC+11*, RPC+13, RPC+14, RPC+15, RPC+16, RPC+19, RPC+22, RPC+23, RPC+24
, RPC+25, RPC+26, RPC+27, RPC+28, RPC+29, RPC+30, RPC+32, RPC+37, RPC+39, RPC+42
, RPC+43, RPC+45, RPC+46, RPC+47
PSBIX PAGE~, PAGE+4, PAGE+5, PAGE+7
PSBMD RPC+7~, RPC+9, XQ+1~, XQ+2, DQ~, DQ+2, DQ+3, DQ+4, DQ+5, DQ+17
, DQ+20, DQ+21, DQ+22, DQ+23, DQ+24, DQ+25, OUT+3, OUT+5, OUT+12
PSBMD(0 RPC+10, RPC+11, XQ+3, XQ+4
PSBMG SUBMIT+1~, SUBMIT+8*, SUBMIT+9*, SUBMIT+10, SUBMIT+44, SUBMIT+45, SUBMIT+49
PSBMM DQ~, DQ+6
PSBMSG RPC+7~, VAL+1~, VAL+5, VAL+8, VAL+9
PSBMSG( VAL+7*
PSBMSG("" VAL+7
PSBMSG(0 VAL+5*
PSBMSG(1 VAL+5*
PSBMSG(2 VAL+5*
PSBMUDV ALL+7*, ALL+8, ONE+11, FLWUP+2~, FLWUP+3*, FLWUP+6, FLWUP+7, FLWUP+17, FLWUP+21, FLWUP+25
, FLWUP+26, PAGE+15, PAGE+16
PSBNAME ALL+6*, ALL+8, ONE+8*, ONE+11, FLWUP+2~, FLWUP+10*, FLWUP+26
PSBNEED RPC~, RPC+28
PSBNOW RPC+7~, RPC+12*, RPC+13
PSBON RPC~, RPC+34, RPC+41
>> PSBPONX RPC+35
PSBPRT SUBMIT+1~, SUBMIT+21*, SUBMIT+22*, SUBMIT+23*, SUBMIT+25*, SUBMIT+26*, SUBMIT+28, SUBMIT+32, SUBMIT+33, SUBMIT+35
PSBRET DQ+1~
PSBRET("LABEL" OUT+2
PSBRSN RPC~, RPC+26
PSBSAVE XQ+1~, XQ+6, XQ+7
PSBSCHD RPC~, RPC+29
>> PSBSOL RPC+38*
PSBSOLA RPC+34!, RPC+35!, RPC+39, RPC+43
PSBSOLA( RPC+38*, RPC+39, RPC+43
PSBSTIEN ALL+3*, ALL+4, ONE+2*, ONE+3, FLWUP+2~
PSBUID RPC~, RPC+30, RPC+33, RPC+35, RPC+36, RPC+38, RPC+40
>> PSBUIDA( RPC+35, RPC+36, RPC+38
PSBWRD SUBMIT+1~, SUBMIT+2*, SUBMIT+3*, SUBMIT+8, SUBMIT+25
PSBX FLWUP+12~, FLWUP+29*, FLWUP+30, FLWUP+41, FLWUP+42, PAGE+5, PAGE+18*
RESULTS RPC~, NEW~, NEW+3!
RESULTS(0 RPC+10*, RPC+47*, NEW+4*, NEW+5*, NEW+8*, NEW+17*, NEW+18*
U RPC+23, RPC+36, RPC+38, RPC+42, RPC+43, XQ+3, SUBMIT+2, SUBMIT+10, SUBMIT+28, DQ+4
, OUT+12, HAZOUT+3, ALL+8, ONE+11, FLWUP+4, FLWUP+9, FLWUP+10, FLWUP+36, POST+4, POST+5
VA OUT+5~
VA("BID" OUT+11
VADM OUT+5~
>> VAIP(5 POST+4
>> VAIP(6 RPC+23, POST+5
X RPC+21*, RPC+22*, RPC+37*, RPC+39*, RPC+42*, RPC+43*, DQ+20*, DQ+21*, DQ+22, DQ+23*
, DQ+24*, DQ+25, NEW+10*, VAL+7*, FLWUP+2~, FLWUP+15*, FLWUP+18*, FLWUP+22*, FLWUP+39*, FLWUP+40*
, PAGE+2~, PAGE+15*, PAGE+16*, POST+3
X1 PAGE+2~, PAGE+15*, PAGE+16*
XMSUB XQ+1~, SUBMIT+50*
XMTEXT XQ+1~, SUBMIT+49*
XMY XQ+1~
XMY("G." SUBMIT+49*
Y DQ+9*, NEW+17, NEW+18, CHK1+12, ALL+4*, ALL+5*, ONE+8, ONE+9, FLWUP+2~, FLWUP+4*
, FLWUP+5*, FLWUP+8, FLWUP+14*, FLWUP+18*, FLWUP+22*, FLWUP+24*, FLWUP+29, FLWUP+41*, FLWUP+42*, PAGE+6
, PAGE+7*, PAGE+8*, PAGE+9, PAGE+10, PAGE+11, PAGE+12
Y(0 CHK1+13, CHK1+14, ALL+1*
>> ZTDESC SUBMIT+37*
>> ZTDTH SUBMIT+36*
>> ZTIO SUBMIT+35*
>> ZTREQ OUT+13*
>> ZTRTN SUBMIT+38*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All