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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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