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

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

Caller Graph

Caller Graph Total: 22

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

Entry Points

Name Comments DBIA/ICR reference
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
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)
CLINIC(PSBRPT,PSBHDR,PSBCONT,PSBDT,SRCHTXT) ;
; PSBCONT: True if this is a continuation page
; PSBDT: Date of Pt Information (Default to DT)
PSBALG ;
PTFTR() ; [Extrinsic] Patient Page footer
SRCHLIST() ;Build appropriate Clinic or Ward/Nurse Unit Search list heading
WRD
EMPTYHDR(SRCHTXT) ; Write headings & search cirtieria - for no data scenario

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