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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSBOPM

Package: Barcode Medication Administration

Routine: PSBOPM


Information

PSBOPM ;BIRMINGHAM/BSR-BCMA OIT HISTORY ;03/06/16 3:06pm

Source Information

Source file <PSBOPM.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Barcode Medication Administration 5 $$GETINIT^PSBCSUTX  ($$PTFTR,PT)^PSBOHDR  $$MME^PSBOML  ($$GETORD,FINDIENS)^PSBOPM1  $$FINDGIVE^PSBUTL  
VA FileMan 4 DD^%DT  (C,NOW)^%DTC  LIST^DIC  ($$GET1,D)^DIQ  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
Inpatient Medications 1 EN^PSJBCMA1  
Toolkit 1 $$GET^XPAR  

Entry Points

Name Comments DBIA/ICR reference
EN ;
OUT(DFN,PSBSTRT,PSBSTOP,PSBORDNM)
GETORDN ;
GETOIS
OFROMA(PSBADD) ;GET ORDERABLE ITEM FROM AN ADDITIVE
OFROMS(PSBSOL) ; GET ORDERABLE ITEM FROM A SOLUTION
GETADSO ; GET ALL ADDITIVES FOR ALL ORDERABLE ITEMS
PREOUT ;
OUTPUT(TYP) ;
COMNTS
WRAP(SIZE,ZP,BRIEN)
HEADA ;
ADD(XE,TYP)
WRAPMEDS(W,MED,UG,UOA,TYP)
PAD(X,CNT) ;
WRITEOT ;
FTR() ;
MEDS(TYP) ;
CLEANALL
CLEANSUM
MAKELINE(X,CNT) ;LINE OF WHAT'S PASSED IN CNT TIMES
PARSE(X,CNT) ;Split text for wrapping.
PARSEM(PSBMED,PSBCNT) ;Split text for wrapping meds, PSB*3*72

External References

Name Field # of Occurrence
DD^%DT COMNTS+8
C^%DTC EN+12
NOW^%DTC EN+10
LIST^DIC GETADSO+3, GETADSO+10
$$GET1^DIQ OFROMA+1, OFROMS+1, OUTPUT+3, OUTPUT+8, OUTPUT+12, OUTPUT+13, OUTPUT+31, OUTPUT+32, MEDS+5, MEDS+15
D^DIQ WRITEOT+2, WRITEOT+3
$$GETINIT^PSBCSUTX OUTPUT+9
$$PTFTR^PSBOHDR WRITEOT+11, WRITEOT+14
PT^PSBOHDR WRITEOT+8, WRITEOT+12
$$MME^PSBOML OUTPUT+4
$$GETORD^PSBOPM1 OUT+6
FINDIENS^PSBOPM1 OUT+12
$$FINDGIVE^PSBUTL OUTPUT+20
EN^PSJBCMA1 GETORDN+2
$$FMTE^XLFDT OUTPUT+23
$$UP^XLFSTR OUTPUT+23
$$GET^XPAR EN+11, EN+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,("Error: No Patient IEN")
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: to
  • Line Location: OUTPUT+31
Function Call: WRITE
  • Prompt: to
  • Line Location: OUTPUT+32
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADA+1
Function Call: WRITE
  • Prompt: "Location",?21,"St Sch Administration Date",?50,"By",?61,"Body Site",?96,"Units",?112,"Units of"
  • Line Location: HEADA+2
Function Call: WRITE
  • Prompt: !,?56,"Medication & Dosage",?96,"GIVEN",?112,"Administration"
  • Line Location: HEADA+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADA+4
Function Call: WRITE
  • Prompt: $$MAKELINE("-",132)
  • Line Location: HEADA+5
Function Call: WRITE
  • Prompt: (possible
  • Line Location: WRAPMEDS+0
Function Call: WRITE
  • Prompt: $$PTFTR^PSBOHDR()
  • Line Location: WRITEOT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: FTR+1
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: FTR+2
Function Call: WRITE
  • Prompt: !,PSBHDR("NAME"),?(IOM-11\2),PSBHDR("SSN"),?(IOM-$L(X)),X
  • Line Location: FTR+4
Routine Call
  • DIC
  • Line Location:
    • GETADSO+3
    • GETADSO+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] GET1^DIQ
^PS(52.6 - [#52.6] GET1^DIQ,  LIST^DIC
^PS(52.7 - [#52.7] GET1^DIQ,  LIST^DIC
^PSB(53.79 - [#53.79] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] OUTPUT+5, OUTPUT+6, OUTPUT+7, OUTPUT+19, OUTPUT+22, OUTPUT+30, COMNTS+3, COMNTS+6, COMNTS+8, COMNTS+9
, COMNTS+10
^TMP("PSB" ADD+1*, WRITEOT+6, WRITEOT+9, WRITEOT+13, CLEANALL+1!, CLEANSUM+1!
^TMP("PSJ1" GETORDN+1!, GETOIS+3, GETOIS+4, GETOIS+12, GETOIS+13, GETOIS+14, GETOIS+15, GETOIS+19, GETOIS+20, GETOIS+21
, GETOIS+22, CLEANALL+1!, CLEANSUM+1!
^VA(200 - [#200] COMNTS+9

Label References

Name Line Occurrences
$$MAKELINE COMNTS+5, COMNTS+12, HEADA+5
$$OFROMA GETOIS+17
$$OFROMS GETOIS+25
$$PAD WRAPMEDS+13, WRAPMEDS+14
ADD OUTPUT+16, OUTPUT+34, COMNTS+4, COMNTS+5, COMNTS+7, COMNTS+12, WRAP+1, WRAP+2, WRAP+3, WRAPMEDS+13
, WRAPMEDS+14, WRITEOT+5
CLEANALL OUT+1
CLEANSUM OUT+15
COMNTS OUTPUT+33
GETADSO OUT+11
GETOIS OUT+10
GETORDN OUT+9
HEADA WRITEOT+8, WRITEOT+12
MEDS WRITEOT+7
OUT EN+14
OUTPUT PREOUT+9
PARSE WRAPMEDS+11
PARSEM WRAPMEDS+10
PREOUT OUT+13
WRAP COMNTS+10
WRAPMEDS OUTPUT+31, OUTPUT+32
WRITEOT OUT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+10
BRIEN WRAP~
CNT COMNTS+1~, COMNTS+2*, COMNTS+7, COMNTS+11*, WRAPMEDS+8*, WRAPMEDS+9, WRAPMEDS+11, WRAPMEDS+12, WRAPMEDS+13, WRAPMEDS+14
, PAD~, PAD+1, MAKELINE~, MAKELINE+3, PARSE~, PARSE+1, PARSE+4
>> CNTX WRAPMEDS+6*, PARSE+1*, PARSE+2, PARSE+3, PARSE+4
>> CNTXX PARSE+4*
DFN EN+1~, EN+4*, EN+5, EN+14, OUT~, GETORDN+2, WRITEOT+8, WRITEOT+12
DPTR MEDS+1~, MEDS+14*, MEDS+15, CLEANALL+1!
DRG MEDS+1~, MEDS+2*, MEDS+15*, MEDS+16, CLEANALL+1!
>> EX WRITEOT+9*, WRITEOT+13
FLE MEDS+1~, MEDS+11*, MEDS+12*, MEDS+13*, MEDS+15, CLEANALL+1!
G1 OUTPUT+1~, OUTPUT+21*, OUTPUT+26
G2 OUTPUT+1~, OUTPUT+22*, OUTPUT+26
G3 OUTPUT+1~, OUTPUT+23*, OUTPUT+26
G4 OUTPUT+1~, OUTPUT+24*, OUTPUT+26
GIVE OUTPUT+1~, OUTPUT+20*, OUTPUT+21, OUTPUT+23, OUTPUT+24
>> I PREOUT+5*, PREOUT+6, PREOUT+7
IOM FTR+2, FTR+4, MEDS+6
IOSL WRITEOT+10, FTR+1
MED WRAPMEDS~, WRAPMEDS+4*, WRAPMEDS+10, WRAPMEDS+13, MEDS+1~, MEDS+2*, MEDS+5*, MEDS+6, MEDS+7, MEDS+8
, PARSEM+5
PSBADD GETOIS+15*, GETOIS+17, OFROMA~, OFROMA+1
PSBAOUT GETADSO+1!, GETADSO+7!
PSBAOUT("DILIST" GETADSO+4, GETADSO+5, GETADSO+6
PSBCLINORD WRITEOT+8~*
PSBCNT WRAPMEDS+5~, WRAPMEDS+9*, WRAPMEDS+10, PARSEM~, PARSEM+2, PARSEM+5
PSBCNTX PARSEM+1~, PARSEM+2*, PARSEM+3, PARSEM+4, PARSEM+5
PSBCNTXX PARSEM+1~, PARSEM+5*
>> PSBCOM EN+8*, EN+13*, OUTPUT+33
>> PSBDD OUTPUT+29*, OUTPUT+31, OUTPUT+32
>> PSBGBL EN+2*, EN+3*, EN+4
PSBHDR EN+1~, WRITEOT+8, WRITEOT+12
PSBHDR( MEDS+6, MEDS+7*, MEDS+8*, MEDS+9!, MEDS+16*
PSBHDR("NAME" FTR+4
PSBHDR("ROOM" FTR+3
PSBHDR("SSN" FTR+4
PSBHDR("WARD" FTR+3
PSBHDR(1 WRITEOT+4*
PSBHDR(3 MEDS+3*
PSBHDR(999 MEDS+16
>> PSBIEN PREOUT+7*, PREOUT+8, OUTPUT+5, OUTPUT+6, OUTPUT+7, OUTPUT+9, OUTPUT+19, OUTPUT+20, OUTPUT+22, OUTPUT+30
, COMNTS+3, COMNTS+6, COMNTS+8, COMNTS+9, COMNTS+10
>> PSBIENS PREOUT+8*, OUTPUT+3, OUTPUT+4, OUTPUT+8, OUTPUT+12, OUTPUT+13, OUTPUT+31, OUTPUT+32
PSBMED PARSEM~, PARSEM+2
PSBMED1 WRAPMEDS+5~, WRAPMEDS+6*
PSBMED41 WRAPMEDS+5~, WRAPMEDS+6*
PSBMED81 WRAPMEDS+5~, WRAPMEDS+6*
PSBMEDX PARSEM+1~, PARSEM+2*, PARSEM+3*, PARSEM+4*, PARSEM+5
>> PSBNODE OUTPUT+28*, OUTPUT+29, OUTPUT+30
>> PSBOI GETOIS+4*, GETOIS+5*, GETOIS+6
PSBOR OUT+4*, OUT+6*, OUT+7, OUT+8, CLEANALL+1!
PSBORDNM EN+14, OUT~, OUT+5, OUT+6, OUT+7, GETORDN+2, GETOIS+1, GETOIS+10
>> PSBRPT( EN+6, EN+7, EN+8
PSBSOL GETOIS+22*, GETOIS+25, OFROMS~, OFROMS+1
PSBSOUT GETADSO+1!, GETADSO+14!
PSBSOUT("DILIST" GETADSO+11, GETADSO+12, GETADSO+13
>> PSBSPC OUTPUT+2*, OUTPUT+3, OUTPUT+7, OUTPUT+8, OUTPUT+9, OUTPUT+21, OUTPUT+22, OUTPUT+24
PSBSTOP EN+7*, EN+10*, EN+11, EN+14, OUT~, WRITEOT+3
PSBSTRT EN+6*, EN+9, EN+12*, EN+14, OUT~, WRITEOT+2
PSBUNK PREOUT+4!, OUTPUT+6*
>> PSBY OUTPUT+30*, OUTPUT+31, OUTPUT+32
>> PSTP WRITEOT+3*, WRITEOT+4
>> PSTRTA WRITEOT+2*, WRITEOT+4
SBSC MEDS+1~, MEDS+11*, MEDS+12*, MEDS+13*, MEDS+14, MEDS+17, CLEANALL+1!
SITE OUTPUT+11~, OUTPUT+12*, OUTPUT+13*, OUTPUT+14
SIZE WRAP~, WRAP+2, WRAP+3
>> TMP( MEDS+14, MEDS+17!
>> TMP("ARY" CLEANALL+1!
>> TMP("PSBADDS" GETADSO+6*, CLEANALL+1!, CLEANSUM+1!
>> TMP("PSBIENS" PREOUT+3, PREOUT+4, PREOUT+5, PREOUT+6, WRITEOT+5, CLEANALL+1!, CLEANSUM+1!
>> TMP("PSBOIS" OUT+7*, GETOIS+6*, GETOIS+17*, GETOIS+25*, GETADSO+2, GETADSO+9, MEDS+4, CLEANALL+1!, CLEANSUM+1!
>> TMP("PSBSOLS" GETADSO+13*, CLEANALL+1!, CLEANSUM+1!
TPE WRITEOT+1~, WRITEOT+6*, WRITEOT+7, WRITEOT+9, WRITEOT+13, CLEANALL+1!
TYP PREOUT+1~, PREOUT+2*, PREOUT+3, PREOUT+4, PREOUT+5, PREOUT+6, PREOUT+9, OUTPUT~, OUTPUT+16, OUTPUT+31
, OUTPUT+32, OUTPUT+34, COMNTS+4, COMNTS+5, COMNTS+7, COMNTS+12, WRAP+1, WRAP+2, WRAP+3, ADD~
, ADD+1, WRAPMEDS~, WRAPMEDS+13, WRAPMEDS+14, MEDS~, MEDS+10, MEDS+11*, MEDS+12*, MEDS+13*, MEDS+16
U EN+6, EN+7, OUTPUT+5, OUTPUT+6, OUTPUT+7, OUTPUT+19, OUTPUT+21, OUTPUT+22, OUTPUT+23, OUTPUT+24
UG WRAPMEDS~, WRAPMEDS+7*, WRAPMEDS+12
UGWRAP WRAPMEDS+5~, WRAPMEDS+12*, WRAPMEDS+13, WRAPMEDS+14
UOA WRAPMEDS~, WRAPMEDS+11, PARSE+4
>> UOA1 WRAPMEDS+6*, WRAPMEDS+13
>> UOA16 WRAPMEDS+6*
>> UOA31 WRAPMEDS+6*
>> UOAX PARSE+1*, PARSE+2*, PARSE+3*, PARSE+4
W OUTPUT+3*, OUTPUT+4*, OUTPUT+5*, OUTPUT+7*, OUTPUT+8*, OUTPUT+9*, OUTPUT+14*, OUTPUT+16, OUTPUT+17*, OUTPUT+25*
, OUTPUT+26*, OUTPUT+31, OUTPUT+32, WRAPMEDS~, WRAPMEDS+13
X EN+12, PAD~, PAD+1, FTR+3*, FTR+4, MAKELINE~, MAKELINE+3, PARSE~, PARSE+1
>> X1 EN+11*
>> X2 EN+11*, EN+12*
XA GETADSO+2*, GETADSO+5, GETADSO+9*, GETADSO+12, MEDS+1~, MEDS+4*, MEDS+5, MEDS+9*
XB GETADSO+4*, GETADSO+5, GETADSO+6, GETADSO+11*, GETADSO+12, GETADSO+13, MEDS+1~, MEDS+2*, MEDS+6, MEDS+7*
, MEDS+8, MEDS+9
>> XBR COMNTS+8*, COMNTS+9
>> XDT PREOUT+4*, PREOUT+5, PREOUT+6
XE ADD~, ADD+1
>> XT COMNTS+6*, COMNTS+8, COMNTS+9, COMNTS+10
>> XXX GETOIS+13*, GETOIS+14, GETOIS+15, GETOIS+20*, GETOIS+21, GETOIS+22
>> XXY GETOIS+14*, GETOIS+15, GETOIS+21*, GETOIS+22
Y COMNTS+8*, WRITEOT+2*, WRITEOT+3*, MAKELINE+1~, MAKELINE+2*, MAKELINE+3*, MAKELINE+4
Z COMNTS+1~, COMNTS+2*, COMNTS+9*, COMNTS+10, MAKELINE+1~, MAKELINE+3*
ZP WRAP~, WRAP+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All