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 |  Local Variables |  All
Print Page as PDF
Routine: PSBOHDR

Package: Barcode Medication Administration

Routine: PSBOHDR


Information

PSBOHDR ;BIRMINGHAM/EFC - REPORT HEADERS ;12/12/12 12:12pm

Source Information

Source file <PSBOHDR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Barcode Medication Administration 2 ALLR^PSBALL  ($$WRAP,CLIN)^PSBO  
VA FileMan 2 NOW^%DTC  ($$GET1,D)^DIQ  
General Medical Record - Vitals 1 EN6^GMRVUTL  
Nursing Service 1 WARD^NURSUT5  
Outpatient Pharmacy 1 ($$VITAL,$$VITCHT,$$VITCWT)^APSPFUNC  
Registration 1 (DEM,IN5)^VADPT  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 21

Package Total Caller Graph
Barcode Medication Administration 21 PSBOCE  PSBOCI  PSBOCM  PSBOCM1  PSBOCP  PSBOCP1  PSBODL  PSBODL1  
PSBODO  PSBOIV  PSBOMH  PSBOMH2  PSBOML  PSBOMM  PSBOMT  PSBOMT1  
PSBOMV  PSBOPE  PSBOPF  PSBOPM  PSBOWA  

Entry Points

Name Comments DBIA/ICR reference
WARD(PSBWP,PSBHDR,PSBCONT,PSBDT,SRCHTXT) ;
; PSBWP: Nurse Location File IEN
; PSBCONT: True if this is a continuation page
; PSBDT: Date of Pt Information (Default to DT)
PSBALG ;
PTFTR() ; [Extrinsic] Patient Page footer
WRD
SRCHLIST() ;Build appropriate Clinic or Ward/Nurse Unit Search list heading
CLINIC(PSBRPT,PSBHDR,PSBCONT,PSBDT,SRCHTXT) ;
; PSBCONT: True if this is a continuation page
; PSBDT: Date of Pt Information (Default to DT)
EMPTYHDR(SRCHTXT) ; Write headings & search cirtieria - for no data scenario
PT(DFN,PSBHDR,PSBCONT,PSBDT,SRCHTXT,SUBHD) ;
; DFN: Patient File IEN
; PSBCONT: True if this is a continuation page
; PSBDT: Date of Pt Information (Default to DT)
; SRCHTXT: User selection list
; SUBHD: Sub heading if present - prints before body === line

External References

Name Field # of Occurrence
NOW^%DTC PT+48, WARD+6, CLINIC+4, EMPTYHDR+1
$$VITAL^APSPFUNC PT+29, PT+31
$$VITCHT^APSPFUNC PT+30
$$VITCWT^APSPFUNC PT+32
$$GET1^DIQ WRD+6
D^DIQ PT+48, WARD+6, CLINIC+4, EMPTYHDR+1
EN6^GMRVUTL PT+34, PT+36
WARD^NURSUT5 WARD+26, WRD+1
ALLR^PSBALL PT+39, PSBALG+4
$$WRAP^PSBO PT+67, WARD+23, CLINIC+21, EMPTYHDR+13
CLIN^PSBO CLINIC+24
DEM^VADPT PT+13
IN5^VADPT PT+13
$$GET^XPAR PT+28, PT+71

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13),$TR($J("",IOM)," ","=")
  • Line Location: PT+51
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(0))
  • Line Location: PT+55
Function Call: WRITE
  • Prompt: !,PSBMODE
  • Line Location: PT+60
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(1)),?(IOM-$L(PSBHDR("DATE"))),PSBHDR("DATE")
  • Line Location: PT+61
Function Call: WRITE
  • Prompt: !,PSBMODE
  • Line Location: PT+63
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(2)),?(IOM-10),$J("Page: "_PSBHDR("PAGE"),10)
  • Line Location: PT+64
Function Call: WRITE
  • Prompt: !,PSBHDR(X)
  • Line Location: PT+66
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(21,111,SRCHTXT)
  • Line Location: PT+67
Function Call: WRITE
  • Prompt: SRCHTXT
  • Line Location: PT+68
Function Call: WRITE
  • Prompt: !?(IOM-35\2),"*** CONTINUED FROM PREVIOUS PAGE ***"
  • Line Location: PT+69
Function Call: WRITE
  • Prompt: !!,"Patient:",?10,PSBHDR("NAME")
  • Line Location: PT+70
Function Call: WRITE
  • Prompt: ?42,$$GET^XPAR("ALL","PSB PATIENT ID LABEL")_":",?53,PSBHDR("SSN")
  • Line Location: PT+71
Function Call: WRITE
  • Prompt: ?76,"DOB:",?83,PSBHDR("DOB")," (",PSBHDR("AGE"),")"
  • Line Location: PT+72
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>12
  • Line Location: PT+78
Function Call: WRITE
  • Prompt: ?12,PSBHDR("REAC",X)
  • Line Location: PT+78
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>12
  • Line Location: PT+80
Function Call: WRITE
  • Prompt: ?12,PSBHDR("ALERGY",X)
  • Line Location: PT+80
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: PT+85
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","=")
  • Line Location: WARD+10
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(0))
  • Line Location: WARD+14
Function Call: WRITE
  • Prompt: !,PSBMODE
  • Line Location: WARD+16
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(1)),?(IOM-$L(PSBHDR("DATE"))),PSBHDR("DATE")
  • Line Location: WARD+17
Function Call: WRITE
  • Prompt: !,PSBMODE
  • Line Location: WARD+18
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(2)),?(IOM-10),$J("Page: "_PSBHDR("PAGE"),10)
  • Line Location: WARD+20
Function Call: WRITE
  • Prompt: !,PSBHDR(X)
  • Line Location: WARD+22
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(21,111,SRCHTXT)
  • Line Location: WARD+23
Function Call: WRITE
  • Prompt: SRCHTXT
  • Line Location: WARD+24
Function Call: WRITE
  • Prompt: !?(IOM-35\2),"*** CONTINUED FROM PREVIOUS PAGE ***"
  • Line Location: WARD+25
Function Call: WRITE
  • Prompt: ?(IOM-$L(X)),X,!,$TR($J("",IOM)," ","=")
  • Line Location: WARD+28
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","=")
  • Line Location: CLINIC+8
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(0))
  • Line Location: CLINIC+12
Function Call: WRITE
  • Prompt: !,PSBMODE
  • Line Location: CLINIC+14
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(1)),?(IOM-$L(PSBHDR("DATE"))),PSBHDR("DATE")
  • Line Location: CLINIC+15
Function Call: WRITE
  • Prompt: !,PSBMODE
  • Line Location: CLINIC+16
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(2)),?(IOM-10),$J("Page: "_PSBHDR("PAGE"),10)
  • Line Location: CLINIC+18
Function Call: WRITE
  • Prompt: !,PSBHDR(X)
  • Line Location: CLINIC+20
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(21,111,SRCHTXT)
  • Line Location: CLINIC+21
Function Call: WRITE
  • Prompt: SRCHTXT
  • Line Location: CLINIC+22
Function Call: WRITE
  • Prompt: !?(IOM-35\2),"*** CONTINUED FROM PREVIOUS PAGE ***"
  • Line Location: CLINIC+23
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: CLINIC+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PTFTR+2
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: PTFTR+3
Function Call: WRITE
  • Prompt: !,PSBHDR("NAME"),?(IOM-11\2),PSBHDR("SSN"),?(IOM-$L(X)),X
  • Line Location: PTFTR+5
Function Call: WRITE
  • Prompt: !!,X
  • Line Location: PTFTR+6
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: EMPTYHDR+4
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(0))
  • Line Location: EMPTYHDR+5
Function Call: WRITE
  • Prompt: !,PSBMODE
  • Line Location: EMPTYHDR+7
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(1)),?(IOM-$L(PSBHDR("DATE"))),PSBHDR("DATE")
  • Line Location: EMPTYHDR+8
Function Call: WRITE
  • Prompt: !,PSBMODE
  • Line Location: EMPTYHDR+9
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(2)),?(IOM-10),$J("Page: "_PSBHDR("PAGE"),10)
  • Line Location: EMPTYHDR+10
Function Call: WRITE
  • Prompt: !,PSBHDR(X)
  • Line Location: EMPTYHDR+12
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(21,111,SRCHTXT)
  • Line Location: EMPTYHDR+13
Function Call: WRITE
  • Prompt: SRCHTXT
  • Line Location: EMPTYHDR+14
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: EMPTYHDR+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PSBO" CLINIC+24*
^TMP("PSJCL" CLINIC+24

Label References

Name Line Occurrences
PSBALG PT+46

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PT+48, WARD+6, CLINIC+4, EMPTYHDR+1
DFN PT~, PT+29, PT+31, PT+39, CLINIC+24~, PSBALG+4
DORPT PT+57~*, PT+60, PT+63
DT PT+9, WARD+5, CLINIC+3
DUZ("AG" PT+28
GMRA PT+47!
GMRAL PT+47!
GMRALA PSBALG+2!, PSBALG+4
GMRALA( PSBALG+5, PSBALG+6, PSBALG+7
GMRVSTR PT+34*, PT+36*, PT+47!
IOF PT+7, WARD+8, CLINIC+6
IOM PT+42, PT+51, PT+61, PT+64, PT+69, PT+85, WARD+10, WARD+17, WARD+20, WARD+25
, WARD+28, CLINIC+8, CLINIC+15, CLINIC+18, CLINIC+23, CLINIC+25, PSBALG+10, PTFTR+3, PTFTR+5, EMPTYHDR+4
, EMPTYHDR+8, EMPTYHDR+10, EMPTYHDR+15
IOSL PTFTR+2
LBL SRCHLIST+1~, SRCHLIST+9*, SRCHLIST+10, SRCHLIST+11
LIST SRCHLIST+1~, SRCHLIST+2*, SRCHLIST+5*, SRCHLIST+8*, SRCHLIST+10*, SRCHLIST+11*, WRD+4*, WRD+6*, WRD+7
PSBADRX PT+39~
PSBADRX( PT+40, PT+41, PT+43
PSBAL PSBALG+2!
PSBAL( PSBALG+7*, PSBALG+8
PSBARX PT+47!
>> PSBCLINORD PT+59, WARD+15, CLINIC+13, EMPTYHDR+6
PSBCONT PT~, PT+69, PT+73, WARD~, WARD+25, CLINIC~, CLINIC+23
PSBDT PT~, PT+9*, WARD~, WARD+5*, CLINIC~, CLINIC+3*
PSBHDR PT~, WARD~, CLINIC~
PSBHDR( PT+65, PT+66, PT+67, PT+68, WARD+21, WARD+22, WARD+23, WARD+24, CLINIC+19, CLINIC+20
, CLINIC+21, CLINIC+22, EMPTYHDR+11, EMPTYHDR+12, EMPTYHDR+13, EMPTYHDR+14
PSBHDR("AGE" PT+17*, PT+72
PSBHDR("ALERGY" PT+80, PSBALG+10*, PSBALG+12*, PSBALG+13*
PSBHDR("DATE" PT+48*, PT+61, WARD+6*, WARD+17, CLINIC+4*, CLINIC+15, EMPTYHDR+1*, EMPTYHDR+8
PSBHDR("DOB" PT+16*, PT+72
PSBHDR("DX" PT+23*, PT+75
PSBHDR("HEIGHT" PT+30*, PT+35*, PT+74
PSBHDR("MVMTLAST" PT+20*, PT+75
PSBHDR("MVMTTYPE" PT+19*, PT+21, PT+22, PT+23, PT+75
PSBHDR("NAME" PT+11, PT+14*, PT+70, PTFTR+5
PSBHDR("PAGE" PT+49*, PT+62*, PT+64, WARD+7*, WARD+19*, WARD+20, CLINIC+5*, CLINIC+17*, CLINIC+18, EMPTYHDR+2*
, EMPTYHDR+10
PSBHDR("REAC" PT+42*, PT+44*, PT+45*, PT+78
PSBHDR("ROOM" PT+22*, PT+74, PTFTR+4
PSBHDR("SEX" PT+18*, PT+74
PSBHDR("SSN" PT+15*, PT+71, PTFTR+5
PSBHDR("WARD" PT+21*, PT+74, PTFTR+4
PSBHDR("WEIGHT" PT+32*, PT+37*, PT+74
PSBHDR(0 PT+55, PT+60, PT+63, WARD+14, WARD+16, WARD+18, CLINIC+12, CLINIC+14, CLINIC+16, EMPTYHDR+5
, EMPTYHDR+7, EMPTYHDR+9
PSBHDR(1 PT+60, PT+61, PT+63, WARD+17, CLINIC+15, EMPTYHDR+7, EMPTYHDR+8, EMPTYHDR+9
PSBHDR(2 PT+64, WARD+20, CLINIC+18, EMPTYHDR+10
>> PSBLIST PSBALG+3*
>> PSBMODE PT+59*, PT+60, PT+63, WARD+15*, WARD+16, WARD+18, CLINIC+13*, CLINIC+14, CLINIC+16, EMPTYHDR+6*
, EMPTYHDR+7, EMPTYHDR+9
PSBRPT CLINIC~, CLINIC+24
PSBRPT( WRD, WRD+1
PSBRPT(0 PT+57
PSBRPT(2 SRCHLIST+5, SRCHLIST+6, SRCHLIST+7
PSBRPT(4 SRCHLIST+4
>> PSBUNK PTFTR+6
PSBWP WARD~, WARD+26, WARD+27, SRCHLIST+1~, WRD+1*, WRD+2
PSBWRDA WARD+4~, WARD+26, SRCHLIST+1~, WRD+1
PSBWRDA( WARD+27, WRD+2
QQ SRCHLIST+1~, SRCHLIST+7*
RPT SRCHLIST+1~
RPT( SRCHLIST+7*, SRCHLIST+9
SRCHTXT PT~, PT+6*, PT+67, PT+68, WARD~, WARD+23, WARD+24, CLINIC~, CLINIC+21, CLINIC+22
, EMPTYHDR~, EMPTYHDR+13, EMPTYHDR+14
SUBHD PT~, PT+6*, PT+84
U PT+16, PT+18, PT+19, PT+20, PT+21, PT+22, PT+29, PT+31, PT+35, PT+37
, PT+41, PT+43, WARD+27, PSBALG+6, PSBALG+7, SRCHLIST+4, WRD, WRD+1, WRD+4
VA PT+24!
VA("PID" PT+15
VADM PT+24!
VADM(1 PT+14
VADM(3 PT+16
VADM(4 PT+17
VADM(5 PT+18
VAIP PT+24!
VAIP("D" PT+12*
VAIP(2 PT+19
VAIP(3 PT+20
VAIP(5 PT+21
VAIP(6 PT+22
VAIP(9 PT+23
>> WLOC WRD+2*, WRD+4, WRD+6
>> X PT+29*, PT+30*, PT+31*, PT+32*, PT+35*, PT+37*, PT+39*, PT+40*, PT+41, PT+43
, PT+65*, PT+66, PT+67, PT+68, PT+78*, PT+80*, WARD+21*, WARD+22, WARD+23, WARD+24
, WARD+27*, WARD+28, CLINIC+19*, CLINIC+20, CLINIC+21, CLINIC+22, PSBALG+5*, PSBALG+6, PSBALG+7, PTFTR+4*
, PTFTR+5, PTFTR+6*, EMPTYHDR+11*, EMPTYHDR+12, EMPTYHDR+13, EMPTYHDR+14
>> XAB PSBALG+8*, PSBALG+9, PSBALG+11
>> Y PT+39*, PT+42*, PT+43*, PT+44, PT+48*, WARD+6*, CLINIC+4*, EMPTYHDR+1*
>> YA PSBALG+1*, PSBALG+10*, PSBALG+11*, PSBALG+12
>> Z PT+41*, PT+42, PSBALG+9*, PSBALG+10
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 |  Local Variables |  All