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: PSBOHDR

Package: Barcode Medication Administration

Routine: PSBOHDR


Information

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

Source Information

Source file <PSBOHDR.m>

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

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