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 ;Sep 02, 2020@15:05:53

Source Information

Source file <PSBOPM.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Barcode Medication Administration 4 $$GETINIT^PSBCSUTX  ($$PTFTR,PT)^PSBOHDR  $$MME^PSBOML  ($$GETORD,FINDIENS)^PSBOPM1  
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) ;
STATUS(STATABBR) ; Give a full status from abbr - PSB*3.0*82 rbd
SCHED(SCHABBR) ; Give a full schedule type from abbr - PSB*3.0*82 rbd
COMNTS
WRAP(SIZE,ZP,BRIEN)
WRAP2(TEXTLINE,MAX,TEXT) ; Splits Text into TEXT array
WR0 ; Loop for Remaining Text
WRQ ; Quit Wrap
HEADA ;
ADD(XE,TYP)
WRAPMEDS(W,SITE,MED,UG,UO,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+11
C^%DTC EN+12
NOW^%DTC EN+10
LIST^DIC GETADSO+3, GETADSO+10
$$GET1^DIQ GETOIS+24, OFROMA+1, OFROMS+1, OUTPUT+7, OUTPUT+17, OUTPUT+20, OUTPUT+21, OUTPUT+52, OUTPUT+61, OUTPUT+62
, OUTPUT+64, OUTPUT+72, OUTPUT+75, OUTPUT+76, OUTPUT+79, OUTPUT+80, MEDS+5, MEDS+15
D^DIQ WRITEOT+2, WRITEOT+3
$$GETINIT^PSBCSUTX OUTPUT+26, OUTPUT+27
$$PTFTR^PSBOHDR WRITEOT+11, WRITEOT+20
PT^PSBOHDR WRITEOT+8, WRITEOT+12
$$MME^PSBOML OUTPUT+8
$$GETORD^PSBOPM1 OUT+7
FINDIENS^PSBOPM1 OUT+13
EN^PSJBCMA1 GETORDN+2
$$FMTE^XLFDT OUTPUT+69
$$UP^XLFSTR OUTPUT+69
$$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: &
  • Line Location: OUTPUT+2
Function Call: WRITE
  • Prompt: to
  • Line Location: OUTPUT+59
Function Call: WRITE
  • Prompt: to
  • Line Location: OUTPUT+60
Function Call: WRITE
  • Prompt: to
  • Line Location: OUTPUT+62
Function Call: WRITE
  • Prompt: to
  • Line Location: OUTPUT+64
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADA+1
Function Call: WRITE
  • Prompt: ?1,"Location",?27,"Status",?51,"Schedule Type"
  • Line Location: HEADA+4
Function Call: WRITE
  • Prompt: ?71,"Administration Date",?98,"Units",?109,"Units",?121,"Units of"
  • Line Location: HEADA+5
Function Call: WRITE
  • Prompt: !?1,"By",?27,"Medication & Dosage",?71,"Body Site"
  • Line Location: HEADA+6
Function Call: WRITE
  • Prompt: ?97,"Ordered",?109,"GIVEN",?122,"Admin"
  • Line Location: HEADA+7
Function Call: WRITE
  • Prompt: !!?5,"PRN Reason",?33,"PRN Effectiveness",?61,"Effectiveness Entered By"
  • Line Location: HEADA+8
Function Call: WRITE
  • Prompt: ?91,"Effectiveness Entered"
  • Line Location: HEADA+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADA+10
Function Call: WRITE
  • Prompt: $$MAKELINE("-",132)
  • Line Location: HEADA+11
Function Call: WRITE
  • Prompt: (possible
  • Line Location: WRAPMEDS+0
Function Call: WRITE
  • Prompt: !!,"Initial - Name Legend"
  • Line Location: WRITEOT+15
Function Call: WRITE
  • Prompt: $$PTFTR^PSBOHDR()
  • Line Location: WRITEOT+20
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
^VA(200 - [#200] GET1^DIQ
^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+11, OUTPUT+14, OUTPUT+16, OUTPUT+40, OUTPUT+42, OUTPUT+43, OUTPUT+57, COMNTS+3, COMNTS+6, COMNTS+10
COMNTS+19
^TMP("PSB" ADD+1*, WRITEOT+6, WRITEOT+9, WRITEOT+13, CLEANALL+1!, CLEANSUM+1!
^TMP("PSB_WINITNAM" OUTPUT+28*, OUTPUT+53*, COMNTS+16*, WRITEOT+16, WRITEOT+17, WRITEOT+19!
^TMP("PSJ1" GETORDN+1!, GETOIS+4, GETOIS+5, GETOIS+13, GETOIS+14, GETOIS+15, GETOIS+16, GETOIS+20, GETOIS+21, GETOIS+22
GETOIS+23, GETOIS+24, CLEANALL+1!, CLEANSUM+1!
^VA(200 - [#200] COMNTS+12

Label References

Name Line Occurrences
$$MAKELINE COMNTS+5, COMNTS+21, HEADA+11
$$OFROMA GETOIS+18
$$OFROMS GETOIS+27
$$PAD WRAPMEDS+16, WRAPMEDS+17
$$SCHED OUTPUT+16
$$STATUS OUTPUT+15, OUTPUT+49
ADD OUTPUT+24, OUTPUT+70, OUTPUT+74, OUTPUT+81, OUTPUT+83, OUTPUT+85, COMNTS+4, COMNTS+5, COMNTS+7, COMNTS+21
, WRAP+5, WRAP+7, WRAPMEDS+16, WRAPMEDS+17, WRITEOT+5
CLEANALL OUT+1
CLEANSUM OUT+16
COMNTS OUTPUT+84
GETADSO OUT+12
GETOIS OUT+11
GETORDN OUT+10
HEADA WRITEOT+8, WRITEOT+12
MEDS WRITEOT+7
OUT EN+14
OUTPUT PREOUT+9
PARSE WRAPMEDS+12
PARSEM WRAPMEDS+11
PREOUT OUT+14
WR0 WR0+8
WRAP COMNTS+19
WRAP2 OUTPUT+77, WRAP+5
WRAPMEDS OUTPUT+62, OUTPUT+64
WRITEOT OUT+15
WRQ WRAP2+2

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+20*, WRAPMEDS+9*, WRAPMEDS+10, WRAPMEDS+12, WRAPMEDS+13, WRAPMEDS+15, WRAPMEDS+16
, WRAPMEDS+17, PAD~, PAD+1, MAKELINE~, MAKELINE+3, PARSE~, PARSE+1, PARSE+4
CNTX WRAPMEDS+5~, WRAPMEDS+6*, PARSE+1*, PARSE+2, PARSE+3, PARSE+4
CNTXX WRAPMEDS+5~, 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+8~, WRITEOT+9*, WRITEOT+13
FLE MEDS+1~, MEDS+11*, MEDS+12*, MEDS+13*, MEDS+15, CLEANALL+1!
G1 OUTPUT+1~
G2 OUTPUT+1~
G3 OUTPUT+1~
G4 OUTPUT+1~
GIVE OUTPUT+1~
I PREOUT+1~, PREOUT+5*, PREOUT+6, PREOUT+7, WRAP2+1~, WR0+1*, WR0+2, WR0+5*, WR0+6, WR0+7
IOM FTR+2, FTR+4, MEDS+6
IOSL WRITEOT+10, FTR+1
J WRAP2+1~*, WRAP2+2*, WR0+3*, WR0+6*, WR0+9*, WRQ+1
MAX WRAP2~, WRAP2+2, WR0+2, WR0+3, WR0+4, WR0+5, WR0+8
MED WRAPMEDS~, WRAPMEDS+4*, WRAPMEDS+11, WRAPMEDS+16, MEDS+1~, MEDS+2*, MEDS+5*, MEDS+6, MEDS+7, MEDS+8
, PARSEM+5
PSBADD GETOIS+1~, GETOIS+16*, GETOIS+18, OFROMA~, OFROMA+1
PSBAOUT GETADSO+1~, GETADSO+7!
PSBAOUT("DILIST" GETADSO+4, GETADSO+5, GETADSO+6
PSBCLINORD WRITEOT+8~*
PSBCMNT COMNTS+1~, COMNTS+10*, COMNTS+11, COMNTS+12
PSBCNT WRAPMEDS+5~, WRAPMEDS+10*, WRAPMEDS+11, PARSEM~, PARSEM+2, PARSEM+5
PSBCNTX PARSEM+1~, PARSEM+2*, PARSEM+3, PARSEM+4, PARSEM+5
PSBCNTXX PARSEM+1~, PARSEM+5*
PSBCOM EN+1~, EN+8*, EN+13*, OUTPUT+84
PSBDD OUTPUT+4~, OUTPUT+56*, OUTPUT+61, OUTPUT+62, OUTPUT+63, OUTPUT+64
PSBGBL EN+1~, 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+1~, PREOUT+7*, PREOUT+8, OUTPUT+11, OUTPUT+14, OUTPUT+16, OUTPUT+26, OUTPUT+27, OUTPUT+40, OUTPUT+42
, OUTPUT+43, OUTPUT+57, COMNTS+3, COMNTS+6, COMNTS+10, COMNTS+19
PSBIENS PREOUT+1~, PREOUT+8*, OUTPUT+7, OUTPUT+8, OUTPUT+17, OUTPUT+20, OUTPUT+21, OUTPUT+61, OUTPUT+62, OUTPUT+64
, OUTPUT+72, OUTPUT+75, OUTPUT+76, OUTPUT+79, OUTPUT+80
PSBINIT COMNTS+1~, COMNTS+13*, COMNTS+15, COMNTS+16, COMNTS+18
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
PSBNAME COMNTS+1~, COMNTS+14*, COMNTS+15, COMNTS+16
PSBNODE OUTPUT+4~, OUTPUT+55*, OUTPUT+56, OUTPUT+57
PSBOI GETOIS+1~, GETOIS+5*, GETOIS+6*, GETOIS+7
PSBOR OUT+2~, OUT+5*, OUT+7*, OUT+8, OUT+9, CLEANALL+1!
PSBORDNM EN+14, OUT~, OUT+6, OUT+7, OUT+8, GETORDN+2, GETOIS+2, GETOIS+11
PSBPRREC COMNTS+1~, COMNTS+12*, COMNTS+13, COMNTS+14
>> PSBRPT( EN+6, EN+7, EN+8
PSBSOL GETOIS+1~, GETOIS+23*, GETOIS+24, GETOIS+27, OFROMS~, OFROMS+1
PSBSOUT GETADSO+1~, GETADSO+14!
PSBSOUT("DILIST" GETADSO+11, GETADSO+12, GETADSO+13
PSBSPC EN+1~, OUTPUT+5*, OUTPUT+7, OUTPUT+15, OUTPUT+16, OUTPUT+17, OUTPUT+29, OUTPUT+68, OUTPUT+72, OUTPUT+75
, OUTPUT+78, OUTPUT+79, OUTPUT+80, WRAPMEDS+16, WRITEOT+18
PSBSTOP EN+1~, EN+7*, EN+10*, EN+11, EN+14, OUT~, WRITEOT+3
PSBSTRT EN+1~, EN+6*, EN+9, EN+12*, EN+14, OUT~, WRITEOT+2
PSBUNK OUTPUT+3~, OUTPUT+11*, OUTPUT+14
PSBY OUTPUT+4~, OUTPUT+57*, OUTPUT+61, OUTPUT+62, OUTPUT+64
PSTP WRITEOT+1~, WRITEOT+3*, WRITEOT+4
PSTRTA WRITEOT+1~, WRITEOT+2*, WRITEOT+4
SBSC MEDS+1~, MEDS+11*, MEDS+12*, MEDS+13*, MEDS+14, MEDS+17, CLEANALL+1!
SCHABBR SCHED~, SCHED+1, SCHED+2
SITE OUTPUT+19~, OUTPUT+20*, OUTPUT+21*, OUTPUT+62, OUTPUT+64, WRAPMEDS~, WRAPMEDS+16
SIZE WRAP~, WRAP+5
SIZE2 WRAP+5~, WRAP+6
SIZE2( WRAP+7
SIZE2(1 WRAP+5
SIZE2NUM WRAP+5~, WRAP+6*, WRAP+7
STATABBR STATUS~, STATUS+1, STATUS+2, STATUS+3, STATUS+4
TEXT WRAP2~, WRAP2+1!, WRQ+1*
TEXT( WRAP2+2*, WR0+3*, WR0+6*, WR0+9*
TEXTLINE WRAP2~, WRAP2+2, WR0+1, WR0+3, WR0+4*, WR0+5, WR0+6, WR0+7*, WR0+8, WR0+9
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+8*, GETOIS+7*, GETOIS+18*, GETOIS+27*, 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+24, OUTPUT+62
, OUTPUT+64, OUTPUT+70, OUTPUT+74, OUTPUT+81, OUTPUT+83, OUTPUT+85, COMNTS+4, COMNTS+5, COMNTS+7, COMNTS+21
, WRAP+5, WRAP+7, ADD~, ADD+1, WRAPMEDS~, WRAPMEDS+16, WRAPMEDS+17, MEDS~, MEDS+10, MEDS+11*
, MEDS+12*, MEDS+13*, MEDS+16
U EN+6, EN+7, OUTPUT+11, OUTPUT+14, OUTPUT+16, OUTPUT+44, OUTPUT+45, OUTPUT+46, OUTPUT+49, OUTPUT+51
, OUTPUT+68, OUTPUT+69, OUTPUT+70
UG WRAPMEDS~, WRAPMEDS+7*, WRAPMEDS+13
UGWRAP WRAPMEDS+5~, WRAPMEDS+13*, WRAPMEDS+16, WRAPMEDS+17
UO WRAPMEDS~, WRAPMEDS+8*, WRAPMEDS+15
UOA WRAPMEDS~, WRAPMEDS+12, PARSE+4
UOA1 WRAPMEDS+5~, WRAPMEDS+6*, WRAPMEDS+16
UOA16 WRAPMEDS+5~, WRAPMEDS+6*
UOA31 WRAPMEDS+5~, WRAPMEDS+6*
UOAX WRAPMEDS+5~, PARSE+1*, PARSE+2*, PARSE+3*, PARSE+4
UOWRAP WRAPMEDS+5~, WRAPMEDS+15*, WRAPMEDS+16, WRAPMEDS+17
W OUTPUT+3~, OUTPUT+7*, OUTPUT+8*, OUTPUT+15*, OUTPUT+16*, OUTPUT+17*, OUTPUT+24, OUTPUT+29*, OUTPUT+62, OUTPUT+64
, OUTPUT+72*, OUTPUT+73, OUTPUT+74*, OUTPUT+75*, OUTPUT+78*, OUTPUT+79*, OUTPUT+80*, OUTPUT+81, WRAPMEDS~, WRAPMEDS+16
W2 OUTPUT+3~
W2( OUTPUT+49*, OUTPUT+66!, OUTPUT+67, OUTPUT+68
W2("" OUTPUT+66
W22LINE OUTPUT+3~, OUTPUT+76*, OUTPUT+77
W22NUM OUTPUT+3~, OUTPUT+82*, OUTPUT+83
W22TEXT OUTPUT+3~, OUTPUT+77, OUTPUT+82
W22TEXT( OUTPUT+83
W22TEXT(1 OUTPUT+78
W3 OUTPUT+3~, OUTPUT+68*, OUTPUT+69*, OUTPUT+70*
WCURSTAT OUTPUT+3~, OUTPUT+14*, OUTPUT+15
WINIT OUTPUT+3~, OUTPUT+26*, OUTPUT+28, OUTPUT+29, WRITEOT+16*, WRITEOT+17, WRITEOT+18
WNAME OUTPUT+3~, OUTPUT+27*, OUTPUT+28, OUTPUT+52*, OUTPUT+53, WRITEOT+17*, WRITEOT+18
WNPIEN OUTPUT+4~, OUTPUT+51*, OUTPUT+52
WOLDSTAT OUTPUT+4~, OUTPUT+46*, OUTPUT+47*, OUTPUT+48*, OUTPUT+49
WSUB9 OUTPUT+4~, OUTPUT+43*, OUTPUT+44, OUTPUT+45, OUTPUT+46, OUTPUT+51, OUTPUT+68*, OUTPUT+69, OUTPUT+70
WSUB9BY OUTPUT+4~, OUTPUT+45*, OUTPUT+49, OUTPUT+50, OUTPUT+53
WSUB9CNT OUTPUT+4~, OUTPUT+41*, OUTPUT+42*, OUTPUT+43, OUTPUT+49, OUTPUT+66*, OUTPUT+67*, OUTPUT+68
WSUB9DT OUTPUT+4~, OUTPUT+45*, OUTPUT+49
WUO OUTPUT+4~, OUTPUT+61*, OUTPUT+62, OUTPUT+64
X EN+12, PAD~, PAD+1, FTR+3*, FTR+4, MAKELINE~, MAKELINE+3, PARSE~, PARSE+1
X1 EN+1~, EN+11*
X2 EN+1~, EN+11*, EN+12*
XA GETADSO+1~, GETADSO+2*, GETADSO+5, GETADSO+9*, GETADSO+12, MEDS+1~, MEDS+4*, MEDS+5, MEDS+9*
XB GETADSO+1~, 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+1~, COMNTS+11*, COMNTS+18
XDT PREOUT+1~, PREOUT+4*, PREOUT+5, PREOUT+6
XE ADD~, ADD+1
XT COMNTS+1~, COMNTS+6*, COMNTS+10, COMNTS+19
XXX GETOIS+1~, GETOIS+14*, GETOIS+15, GETOIS+16, GETOIS+21*, GETOIS+22, GETOIS+23
XXY GETOIS+1~, GETOIS+15*, GETOIS+16, GETOIS+22*, GETOIS+23
Y COMNTS+11*, WRITEOT+2*, WRITEOT+3*, MAKELINE+1~, MAKELINE+2*, MAKELINE+3*, MAKELINE+4
Z COMNTS+1~, COMNTS+2*, COMNTS+18*, COMNTS+19, MAKELINE+1~, MAKELINE+3*
ZP WRAP~, WRAP+5
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