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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSBMLTS

Package: Barcode Medication Administration

Routine: PSBMLTS


Information

PSBMLTS ;BIRMINGHAM/EFC-BCMA MEDICATION LOG FUNCTIONS ;Mar 2004

Source Information

Source file <PSBMLTS.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 7 ^%DT  NOW^%DTC  (,$$FIND1,FIND)^DIC  YN^DICN  FIELD^DID  ($$GET1,D)^DIQ  ^DIR  
Inpatient Medications 2 EN^PSJBCMA  EN^PSJBCMA1  
Barcode Medication Administration 1 VAL^PSBMLVAL  
Toolkit 1 $$GET^XPAR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Barcode Medication Administration 3 PSB MED LOG TROUBLE SHOOTER  PSBIHS DRUG IEN CHECK  PSBIHS2  

Entry Points

Name Comments DBIA/ICR reference
HDR() ;
EN ;
SCANNER ; This checks the scanning mechanism
SMED(RESULTS,PSBDATA) ; Lookup Medication
NEW(Y) ; Create the new entry
EN1 ;
FILE ; Call the med log RPC to validate and order

External References

Name Field # of Occurrence
^%DT NEW+18, NEW+25
NOW^%DTC EN+14
^DIC EN+5
$$FIND1^DIC SMED+2
FIND^DIC SCANNER+14
YN^DICN NEW+12
FIELD^DID SCANNER+24
$$GET1^DIQ SMED+4
D^DIQ NEW+18, NEW+25, NEW+32
^DIR EN+7, EN1+8, EN1+14, NEW+30, FILE+3, SCANNER+3
VAL^PSBMLVAL FILE+2
EN^PSJBCMA EN+11
EN^PSJBCMA1 NEW+3
$$GET^XPAR SMED+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Manual Medication Log Trouble Shooter",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Searching for Orders..."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!?5,"No Med Orders Found!",!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: !,"Order: ",$P(PSBORD(0),U,3)
  • Line Location: NEW+5
Function Call: WRITE
  • Prompt: !,"Medication: ",$P(PSBORD(2),U,2)
  • Line Location: NEW+6
Function Call: WRITE
  • Prompt: !,"Dosage: ",$P(PSBORD(2),U,3)
  • Line Location: NEW+7
Function Call: WRITE
  • Prompt: !,"Schedule: ",$P(PSBORD(4),U,2)
  • Line Location: NEW+8
Function Call: WRITE
  • Prompt: !,"Admin Times: ",$P(PSBORD(4),U,9)
  • Line Location: NEW+9
Function Call: WRITE
  • Prompt: !,"Start D/T: "
  • Line Location: NEW+10
Function Call: WRITE
  • Prompt: !,"Stop D/T: "
  • Line Location: NEW+11
Function Call: WRITE
  • Prompt: !,"-1^Medication is already logged!"
  • Line Location: FILE+1
Function Call: WRITE
  • Prompt: !,RESULTS(X)
  • Line Location: FILE+2
Function Call: WRITE
  • Prompt: @IOF,"Medication Log Trouble Shooter",!," # "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SCANNER+2
Function Call: WRITE
  • Prompt: !!,"Performing 'Exact Matches' scan of Drug File..."
  • Line Location: SCANNER+5
Function Call: WRITE
  • Prompt: !!,"Results of Scan:"
  • Line Location: SCANNER+7
Function Call: WRITE
  • Prompt: $S(+PSBSCAN(0)>0:" Good",1:" Invalid")," scan value."
  • Line Location: SCANNER+8
Function Call: WRITE
  • Prompt: !!?5,PSBSCAN(X)
  • Line Location: SCANNER+9
Function Call: WRITE
  • Prompt: !!,"Performing 'Non-Exact Match' scan on the Drug File...",!
  • Line Location: SCANNER+11
Function Call: WRITE
  • Prompt: !!,"Nothing found in drug file matching '",PSBVAL,"'."
  • Line Location: SCANNER+16
Function Call: WRITE
  • Prompt: !,"There are ",+^TMP("DILIST",$J,0)," matches to '",PSBVAL,"'."
  • Line Location: SCANNER+17
Function Call: WRITE
  • Prompt: "."
  • Line Location: SCANNER+25
Routine Call
  • DIC
  • Line Location:
    • SCANNER+14
Routine Call
  • DIC
  • Line Location:
    • SMED+2
Routine Call
  • DIC
  • Line Location:
    • EN+5
Routine Call
  • DIR
  • Line Location:
    • EN+7
    • EN1+8
    • EN1+14
    • NEW+30
    • FILE+3
    • SCANNER+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^PSDRUG - [#50] FIELD^DID,  FIND1^DIC,  FIND^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] FILE+1
^TMP("DILIST" SCANNER+12!, SCANNER+16, SCANNER+17, SCANNER+18, SCANNER+20, SCANNER+21, SCANNER+23, SCANNER+26, SCANNER+27!
^TMP("PSB" EN+2!, EN+25*, EN1+1, EN1+3, EN1+6, EN1+7, EN1+11, EN1+12
^TMP("PSBTMP" EN+17!, EN1+12*, EN1+15!
^TMP("PSJ" EN+2!, EN+10!, EN+12, EN+15, EN+16, EN+18, NEW+2!, NEW+4

Label References

Name Line Occurrences
$$HDR EN1+1, EN1+8
EN EN+26
EN1 EN+26, EN1+15
FILE NEW+19, NEW+33
NEW EN1+15
SCANNER SCANNER+10, SCANNER+16
SMED SCANNER+6

Naked Globals

Name Field # of Occurrence
^( EN1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+14, NEW+12*
>> %DT NEW+17*, NEW+24*
>> %DT("A" NEW+17*, NEW+24*
>> %DT("B" NEW+18*, NEW+25*
DFN EN+1~, EN+5*, EN+11, NEW+3, FILE+1, FILE+2
DIC EN+4*, EN+5!
DIC("A" EN+4*
DIC(0 EN+4*
DIR EN+6!, EN1+8!, EN1+14!, NEW+29!, FILE+3!, SCANNER+2!, SCANNER+4!
DIR("A" EN+6*, NEW+29*, SCANNER+3*
DIR(0 EN+6*, EN1+8*, EN1+14*, NEW+29*, FILE+3*, SCANNER+3*
IOF EN+3, NEW+3, HDR+1
IOM HDR+2
IOSL EN1+8, EN1+13
PSBCNT EN+1~, EN1+2*, EN1+9*, EN1+10, EN1+12, EN1+14
PSBDATA SMED~, SMED+1*, SMED+2
PSBDT EN+1~, NEW+18*, NEW+25*, NEW+31*, NEW+32, FILE+1, FILE+2
PSBERR EN+1~, EN+13*
PSBFLD SCANNER+1~, SCANNER+22*, SCANNER+23*, SCANNER+24, SCANNER+26
PSBFLD("LABEL" SCANNER+25
PSBMED EN+1~, EN1+5*, EN1+6*, EN1+7, EN1+10, EN1+11, EN1+12
PSBNOW EN+1~, EN+14*
PSBORD EN+2!, EN+17!, EN+18*, NEW+4!*
PSBORD(0 EN+22, EN+23, EN+25, NEW+5, FILE+1, FILE+2
PSBORD(1 EN+19, EN+21, EN+25
PSBORD(2 NEW+6, NEW+7
PSBORD(3 EN+25
PSBORD(4 NEW+8, NEW+9, NEW+16, NEW+23, NEW+26
PSBREC EN+2!, NEW+1~
PSBSCAN SCANNER+1~, SCANNER+6!
PSBSCAN( SCANNER+9
PSBSCAN(0 SCANNER+8, SCANNER+10
PSBSCHD EN+1~, EN+19*, EN+20, EN+21, EN+25, EN1+2*, EN1+3*, EN1+6, EN1+7, EN1+8*
, EN1+10, EN1+11, EN1+12
PSBVAL SCANNER+1~, SCANNER+4*, SCANNER+14, SCANNER+16, SCANNER+17
PSBVDT EN+1~, EN+8*, EN+11
PSBX EN+15*, EN+16, EN+18, EN+25, EN1+7*, EN1+11, EN1+12, SCANNER+1~, SCANNER+18*, SCANNER+19
, SCANNER+20, SCANNER+21, SCANNER+23, SCANNER+26
RESULTS NEW+2!, FILE+2, SMED~
RESULTS( FILE+2
RESULTS(0 SMED+3*, SMED+4*
U EN+16, EN+19, EN+21, EN+22, EN+23, EN+25, EN1+11, EN1+12, NEW+5, NEW+6
, NEW+7, NEW+8, NEW+9, NEW+16, NEW+23, NEW+26, FILE+1, FILE+2, SMED+4
>> X NEW+26*, NEW+28*, NEW+29, FILE+2*, SCANNER+4, SCANNER+6, SCANNER+9*, SMED+2*, SMED+3, SMED+4
Y EN+5, EN+7, EN+8, EN1+8, EN1+15*, NEW~, NEW+3, NEW+18, NEW+25, NEW+26*
, NEW+27, NEW+28, NEW+30, NEW+32*, SCANNER+3
Y(0 NEW+31
>> Z NEW+27*, NEW+28
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All