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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSBOWA

Package: Barcode Medication Administration

Routine: PSBOWA


Information

PSBOWA ;BIRMINGHAM/EFC-WARD ADMINISTRATION TIMES ;03/06/16 3:06pm

Source Information

Source file <PSBOWA.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Barcode Medication Administration 8 ERROR^PSBMLU  FILTERCO^PSBO  GETREMOV^PSBO1  ($$PTFTR,$$SRCHLIST,CLINIC,PT,WARD)^PSBOHDR  $$TIMEOUT^PSBUTL  ($$GETADMIN,$$GETFREQ,$$OKAY,INCLUDCO,REMOVECO)^PSBVDLU1  (CLEAN,PSJ)^PSBVT  $$PSBDCHK1^PSBVT1  
Inpatient Medications 1 EN^PSJBCMA  
Kernel 1 $$FMADD^XLFDT  
VA FileMan 1 D^DIQ  

Entry Points

Name Comments DBIA/ICR reference
QUIT
EN ;
PATIENT ;* * * Print By Patient * * *
CLNHDR() ;
PTHDR() ;
CLINIC ;* * * Print By Clinic * * * ;*70-1480
WARD ;* * * * Print By Ward * * *
WRDHDR() ;

External References

Name Field # of Occurrence
D^DIQ EN+5, EN+14, PATIENT+77, PATIENT+78, WRDHDR+3, CLNHDR+4, PTHDR+6
ERROR^PSBMLU PATIENT+22, PATIENT+29, PATIENT+33, PATIENT+47, WARD+27, WARD+34, WARD+38, WARD+51, CLINIC+28, CLINIC+35
, CLINIC+39, CLINIC+52
FILTERCO^PSBO PATIENT+8, CLINIC+10
GETREMOV^PSBO1 PATIENT+54
$$PTFTR^PSBOHDR PATIENT+88, PATIENT+93
$$SRCHLIST^PSBOHDR EN+8
CLINIC^PSBOHDR CLNHDR+2
PT^PSBOHDR PTHDR+2
WARD^PSBOHDR WRDHDR+2
$$TIMEOUT^PSBUTL PATIENT+91
$$GETADMIN^PSBVDLU1 PATIENT+36, WARD+40, CLINIC+41
$$GETFREQ^PSBVDLU1 PATIENT+18, WARD+23, CLINIC+24
$$OKAY^PSBVDLU1 PATIENT+39, PATIENT+40, WARD+43, WARD+44, CLINIC+44, CLINIC+45
INCLUDCO^PSBVDLU1 PATIENT+9, CLINIC+11
REMOVECO^PSBVDLU1 PATIENT+10, WARD+14
CLEAN^PSBVT PATIENT+13, WARD+17, CLINIC+18, QUIT
PSJ^PSBVT PATIENT+14, WARD+18, CLINIC+19
$$PSBDCHK1^PSBVT1 PATIENT+19, WARD+24, CLINIC+25
EN^PSJBCMA PATIENT+6, WARD+13, CLINIC+7
$$FMADD^XLFDT PATIENT+1, WARD+1, CLINIC+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$PTHDR()
  • Line Location: PATIENT+84
Function Call: WRITE
  • Prompt: !,$P(PSBTOT(PSBX,PSBY,PSBZ),U,1),?20,PSBY
  • Line Location: PATIENT+89
Function Call: WRITE
  • Prompt: $$PTFTR^PSBOHDR()
  • Line Location: PATIENT+93
Function Call: WRITE
  • Prompt: $J(PSBTOT(PSBX),4)
  • Line Location: WARD+58
Function Call: WRITE
  • Prompt: $J($E(X_"00",2,3),4)
  • Line Location: WARD+61
Function Call: WRITE
  • Prompt: $J($E(X_"00",2,3),4)
  • Line Location: CLINIC+73
Function Call: WRITE
  • Prompt: !,"Patient Name",?64,Y_" Administration Times"
  • Line Location: WRDHDR+4
Function Call: WRITE
  • Prompt: !,"Room-Bed",?32
  • Line Location: WRDHDR+5
Function Call: WRITE
  • Prompt: $J($E(X_"00",2,3),4)
  • Line Location: WRDHDR+6
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: WRDHDR+7
Function Call: WRITE
  • Prompt: !,"Patient Name",?64,Y_" Administration Times"
  • Line Location: CLNHDR+5
Function Call: WRITE
  • Prompt: !,"SSN",!,"Location",?32
  • Line Location: CLNHDR+6
Function Call: WRITE
  • Prompt: $J($E(X_"00",2,3),4)
  • Line Location: CLNHDR+7
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: CLNHDR+8
Function Call: WRITE
  • Prompt: !,"Date/Time",?10,"Self Med",?20,"Medication",?55,"Dose/Route"
  • Line Location: PTHDR+4
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: PTHDR+5
Function Call: WRITE
  • Prompt: !!,Y,!
  • Line Location: PTHDR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] WARD+8, WARD+9, CLINIC+64
^TMP("PSB" PATIENT+34!, PATIENT+37*, PATIENT+41, PATIENT+53!, PATIENT+56, PATIENT+57, PATIENT+58, PATIENT+60, PATIENT+63, PATIENT+64
, PATIENT+65, PATIENT+66, PATIENT+67, PATIENT+68, PATIENT+69, WARD+39!, WARD+41*, WARD+45, CLINIC+40!, CLINIC+42*
, CLINIC+46, QUIT+1!
^TMP("PSBO" WARD+5, WARD+6, CLINIC+4, CLINIC+5
^TMP("PSJ" PATIENT+5!, PATIENT+11, PATIENT+12, WARD+12!, WARD+15, WARD+16, CLINIC+6!, CLINIC+12, CLINIC+13, CLINIC+15
, CLINIC+16, CLINIC+17, QUIT+1!

Label References

Name Line Occurrences
$$CLNHDR CLINIC+61, CLINIC+63, CLINIC+66, CLINIC+69
$$PTHDR PATIENT+80, PATIENT+84, PATIENT+88
$$WRDHDR WARD+3, WARD+7
CLINIC EN+19
PATIENT EN+17
QUIT EN+20
WARD EN+18

Naked Globals

Name Field # of Occurrence
^( WARD+9
^(0 WARD+8, CLINIC+64

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN+1~, PATIENT+4*, PATIENT+18, PATIENT+22, PATIENT+29, PATIENT+33, PATIENT+36, PATIENT+47, PATIENT+54, WARD+6*
, WARD+8, WARD+9, WARD+13, WARD+23, WARD+27, WARD+34, WARD+38, WARD+40, WARD+51, CLINIC+5*
, CLINIC+7, CLINIC+14, CLINIC+24, CLINIC+28, CLINIC+35, CLINIC+39, CLINIC+41, CLINIC+52, CLINIC+53, CLINIC+56
, CLINIC+62*, CLINIC+64, CLINIC+65, CLINIC+68, CLINIC+70
I PATIENT+20*, WARD+25*, CLINIC+26*, QUIT+1!
IOM WARD+59, WARD+60, WARD+68, CLINIC+71, CLINIC+72, CLINIC+80, WRDHDR+7, CLNHDR+8, PTHDR+5
IOSL PATIENT+88, WARD+7, CLINIC+63, CLINIC+66, CLINIC+69
PREVRPDT PATIENT+75~, PATIENT+79*, PATIENT+84*
PSBADST EN+1~, PATIENT+21, PATIENT+32, PATIENT+35*, PATIENT+36*, PATIENT+37, PATIENT+38, PATIENT+41*, PATIENT+42, PATIENT+46
, WARD+26, WARD+37, WARD+40*, WARD+41, WARD+42, WARD+45*, WARD+46, WARD+50, CLINIC+27, CLINIC+38
, CLINIC+41*, CLINIC+42, CLINIC+43, CLINIC+46*, CLINIC+47, CLINIC+51
>> PSBCADM PATIENT+17*, PATIENT+36*, WARD+22*, WARD+40*, CLINIC+23*, CLINIC+41*
>> PSBCHEMT PATIENT+25, PATIENT+26, WARD+30, WARD+31, CLINIC+31, CLINIC+32
PSBCL EN+2~, CLINIC+13*, CLINIC+14, CLINIC+16*, CLINIC+53, CLINIC+56, CLINIC+65*, CLINIC+67, CLINIC+68, CLINIC+70
>> PSBCLINORD PATIENT+7, PATIENT+10, PATIENT+61, PATIENT+62, PATIENT+90, CLINIC+9, PTHDR+3
>> PSBCLORD PATIENT+50, PATIENT+60*, PATIENT+61, PATIENT+62, PATIENT+72
>> PSBDFN PATIENT+4, PATIENT+6, PTHDR+2
>> PSBDOSE PATIENT+50, PATIENT+67*, PATIENT+72
>> PSBEVDT EN+5*, EN+14, PATIENT+1, PATIENT+59, WARD+1, CLINIC+1
>> PSBEVDT2 EN+14*, PATIENT+1, PATIENT+59, PATIENT+78, WARD+1, CLINIC+1
>> PSBFREQ PATIENT+18*, PATIENT+27*, PATIENT+28, PATIENT+30, PATIENT+31, PATIENT+35, PATIENT+36, PATIENT+39, PATIENT+40, WARD+23*
, WARD+32*, WARD+33, WARD+35, WARD+36, WARD+40, WARD+43, WARD+44, CLINIC+24*, CLINIC+33*, CLINIC+34
, CLINIC+36, CLINIC+37, CLINIC+41, CLINIC+44, CLINIC+45
PSBGTOT EN+1~, WARD+63*, WARD+66*, WARD+67, CLINIC+75*, CLINIC+78*, CLINIC+79
PSBGTOT( WARD+2*, WARD+53*, WARD+56*, WARD+64, WARD+65, WARD+66, CLINIC+2*, CLINIC+54*, CLINIC+57*, CLINIC+76
, CLINIC+77, CLINIC+78
PSBHDR EN+1~, WRDHDR+2, CLNHDR+2, PTHDR+2
PSBHDR(1 PATIENT+76*, WRDHDR+1*, CLNHDR+1*, PTHDR+1*
PSBHDR(2 EN+6*, EN+15*, PATIENT+77*, PATIENT+78*
PSBHDR(3 EN+10*
PSBHDR(4 EN+11*, EN+12*
>> PSBHSM PATIENT+48, PATIENT+70
PSBIEN EN+3~, PATIENT+57*, PATIENT+58, PATIENT+60, PATIENT+63, PATIENT+64, PATIENT+65, PATIENT+66, PATIENT+67, PATIENT+68
, PATIENT+69
>> PSBIFR PATIENT+50, PATIENT+71*, PATIENT+72
PSBINDX EN+1~, WARD+4*, WARD+5*, WARD+6, CLINIC+3*, CLINIC+4*, CLINIC+5
>> PSBISYR PATIENT+24, PATIENT+25, WARD+29, WARD+30, CLINIC+30, CLINIC+31
>> PSBIVT PATIENT+23, PATIENT+24, PATIENT+25, PATIENT+26, WARD+28, WARD+29, WARD+30, WARD+31, CLINIC+29, CLINIC+30
, CLINIC+31, CLINIC+32
>> PSBIX PATIENT+1*, WARD+1*, CLINIC+1*
>> PSBMR PATIENT+50, PATIENT+68*, PATIENT+72
>> PSBMRRFL WARD+54, CLINIC+55
>> PSBODD PATIENT+17*, PATIENT+31*, PATIENT+32, WARD+22*, WARD+36*, WARD+37, CLINIC+23*, CLINIC+37*, CLINIC+38
>> PSBOIT PATIENT+39, PATIENT+40, WARD+43, WARD+44, CLINIC+44, CLINIC+45
>> PSBOITX PATIENT+22, PATIENT+29, PATIENT+33, PATIENT+35, PATIENT+47, PATIENT+50, PATIENT+64*, PATIENT+72, WARD+27, WARD+34
, WARD+38, WARD+51, CLINIC+28, CLINIC+35, CLINIC+39, CLINIC+52
>> PSBONX PATIENT+18, PATIENT+22, PATIENT+23, PATIENT+29, PATIENT+33, PATIENT+35, PATIENT+36, PATIENT+39, PATIENT+40, PATIENT+47
, PATIENT+50, PATIENT+63*, PATIENT+72, WARD+23, WARD+27, WARD+28, WARD+34, WARD+38, WARD+40, WARD+43
, WARD+44, WARD+51, CLINIC+24, CLINIC+28, CLINIC+29, CLINIC+35, CLINIC+39, CLINIC+41, CLINIC+44, CLINIC+45
, CLINIC+52
>> PSBOSP PATIENT+44, PATIENT+66*, WARD+48, CLINIC+49
>> PSBOST PATIENT+36, PATIENT+39, PATIENT+40, PATIENT+43, WARD+40, WARD+43, WARD+44, WARD+47, CLINIC+41, CLINIC+44
, CLINIC+45, CLINIC+48
>> PSBOSTS PATIENT+16, PATIENT+65*, WARD+20, CLINIC+21
>> PSBRPDT PATIENT+1*, PATIENT+6, PATIENT+36, PATIENT+39, PATIENT+40, PATIENT+43, PATIENT+44, PATIENT+50, PATIENT+82*, PATIENT+84
, WARD+1*, WARD+40, WARD+43, WARD+44, WARD+47, WARD+48, CLINIC+1*, CLINIC+2, CLINIC+14, CLINIC+41
, CLINIC+44, CLINIC+45, CLINIC+48, CLINIC+49, CLINIC+53, CLINIC+54, CLINIC+56, CLINIC+57, CLINIC+60*, CLINIC+62
, CLINIC+65, CLINIC+68, CLINIC+70, CLINIC+76, CLINIC+77, CLINIC+78, WRDHDR+3, CLNHDR+4, PTHDR+6
>> PSBRPT CLNHDR+2
>> PSBRPT( EN+4, EN+5, EN+14, PATIENT+77, WARD+13, CLINIC+7
>> PSBRPT(2 PATIENT+8, CLINIC+10
>> PSBRPT(4 EN+11, EN+12
>> PSBSCH PATIENT+19, PATIENT+20, PATIENT+22, PATIENT+29, PATIENT+33, PATIENT+39, PATIENT+40, PATIENT+47, WARD+24, WARD+25
, WARD+27, WARD+34, WARD+38, WARD+43, WARD+44, WARD+51, CLINIC+25, CLINIC+26, CLINIC+28, CLINIC+35
, CLINIC+39, CLINIC+44, CLINIC+45, CLINIC+52
>> PSBSCHT PATIENT+15, PATIENT+21, WARD+19, WARD+26, CLINIC+20, CLINIC+27
PSBSM EN+1~, PATIENT+48*, PATIENT+50, PATIENT+69*, PATIENT+70*, PATIENT+72, WARD+21, CLINIC+22
PSBSORT EN+2~, EN+4*, EN+17, EN+18, EN+19, PATIENT+3
PSBSRCHL EN+2~, EN+8*, EN+9, WRDHDR+2, CLNHDR+2, PTHDR+2
PSBTOT EN+1~, PATIENT+80
PSBTOT( PATIENT+35*, PATIENT+50*, PATIENT+72*, PATIENT+81, PATIENT+86, PATIENT+87, PATIENT+89, PATIENT+90, PATIENT+91, PATIENT+92
, WARD+11*, WARD+52*, WARD+55*, WARD+58, CLINIC+14*, CLINIC+53*, CLINIC+56*, CLINIC+60, CLINIC+62, CLINIC+65
, CLINIC+68, CLINIC+70
>> PSBWRD WRDHDR+2
PSBX EN+1~, PATIENT+11*, PATIENT+12, PATIENT+14, PATIENT+81*, PATIENT+82, PATIENT+86, PATIENT+87, PATIENT+89, PATIENT+90
, PATIENT+91, PATIENT+92, WARD+15*, WARD+16, WARD+18, WARD+58*, WARD+64*, WARD+65, WARD+66, CLINIC+12*
, CLINIC+13, CLINIC+15*, CLINIC+16, CLINIC+17, CLINIC+19, CLINIC+68*, CLINIC+70, CLINIC+76*, CLINIC+77, CLINIC+78
>> PSBXX PATIENT+41*, WARD+45*, CLINIC+46*
PSBY EN+1~, PATIENT+86*, PATIENT+87, PATIENT+89, PATIENT+90, PATIENT+91, PATIENT+92
>> PSBYES PATIENT+17*, PATIENT+19*, PATIENT+20*, PATIENT+21, PATIENT+28, WARD+22*, WARD+24*, WARD+25*, WARD+26, WARD+33
, CLINIC+23*, CLINIC+25*, CLINIC+26*, CLINIC+27, CLINIC+34
PSBZ EN+1~, PATIENT+87*, PATIENT+89, PATIENT+90, PATIENT+91, PATIENT+92
RMDT EN+3~, PATIENT+58*, PATIENT+59, PATIENT+72
U EN+4, EN+5, EN+11, EN+12, EN+14, PATIENT+50, PATIENT+58, PATIENT+60, PATIENT+63, PATIENT+64
, PATIENT+65, PATIENT+66, PATIENT+67, PATIENT+68, PATIENT+69, PATIENT+72, PATIENT+77, PATIENT+89, PATIENT+90, PATIENT+91
, PATIENT+92, WARD+8, WARD+13, CLINIC+7, CLINIC+13, CLINIC+16, CLINIC+64
>> X WARD+2*, WARD+11*, WARD+61*, CLINIC+2*, CLINIC+14*, CLINIC+73*, WRDHDR+6*, CLNHDR+7*
>> Y EN+5*, EN+6, EN+14*, EN+15, PATIENT+42*, PATIENT+46, PATIENT+77*, PATIENT+78*, WARD+46*, WARD+50
, CLINIC+47*, CLINIC+51, WRDHDR+3*, WRDHDR+4, CLNHDR+4*, CLNHDR+5, PTHDR+6*, PTHDR+7
>> Z PATIENT+42*, PATIENT+43, PATIENT+44, PATIENT+50, WARD+46*, WARD+47, WARD+48, WARD+52, WARD+53, WARD+55
, WARD+56, CLINIC+47*, CLINIC+48, CLINIC+53, CLINIC+54, CLINIC+56, CLINIC+57
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All