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

Package: Barcode Medication Administration

Routine: PSBOHDR


Information

PSBOHDR ;BIRMINGHAM/EFC - REPORT HEADERS ;5/28/10 2:51pm

Source Information

Source file <PSBOHDR.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 19

Package Total Caller Graph
Barcode Medication Administration 19 PSBOCE  PSBOCI  PSBOCM1  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) ;
; WARD: Nurse Location File IEN
; PSBCONT: True if this is a continuation page
; PSBDT: Date of Pt Information (Default to DT)
PTFTR() ; [Extrinsic] Patient Page footer
PT(DFN,PSBHDR,PSBCONT,PSBDT) ;
; DFN: Patient File IEN
; PSBCONT: True if this is a continuation page
; PSBDT: Date of Pt Information (Default to DT)
PSBALG ;

External References

Name Field # of Occurrence
NOW^%DTC PT+45, WARD+6
$$VITAL^APSPFUNC PT+26, PT+28
$$VITCHT^APSPFUNC PT+27
$$VITCWT^APSPFUNC PT+29
D^DIQ PT+45, WARD+6
EN6^GMRVUTL PT+31, PT+33
WARD^NURSUT5 WARD+15
ALLR^PSBALL PT+36, PSBALG+4
DEM^VADPT PT+10
IN5^VADPT PT+10
$$GET^XPAR PT+25, PT+55

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13),$TR($J("",IOM)," ","=")
  • Line Location: PT+47
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(0))
  • Line Location: PT+48
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(1)),?(IOM-$L(PSBHDR("DATE"))),PSBHDR("DATE")
  • Line Location: PT+49
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(2)),?(IOM-10),$J("Page: "_PSBHDR("PAGE"),10)
  • Line Location: PT+51
Function Call: WRITE
  • Prompt: !,PSBHDR(X)
  • Line Location: PT+52
Function Call: WRITE
  • Prompt: !?(IOM-35\2),"*** CONTINUED FROM PREVIOUS PAGE ***"
  • Line Location: PT+53
Function Call: WRITE
  • Prompt: !!,"Patient:",?10,PSBHDR("NAME")
  • Line Location: PT+54
Function Call: WRITE
  • Prompt: ?40,$$GET^XPAR("ALL","PSB PATIENT ID LABEL")_":",?51,PSBHDR("SSN")
  • Line Location: PT+55
Function Call: WRITE
  • Prompt: ?75,"DOB:",?82,PSBHDR("DOB")," (",PSBHDR("AGE"),")"
  • Line Location: PT+56
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>12
  • Line Location: PT+62
Function Call: WRITE
  • Prompt: ?12,PSBHDR("REAC",X)
  • Line Location: PT+62
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>12
  • Line Location: PT+64
Function Call: WRITE
  • Prompt: ?12,PSBHDR("ALERGY",X)
  • Line Location: PT+64
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: PT+68
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","="),!,$G(PSBHDR(0)),!,$G(PSBHDR(1)),?(IOM-$L(PSBHDR("DATE"))),PSBHDR("DATE")
  • Line Location: WARD+10
Function Call: WRITE
  • Prompt: !,$G(PSBHDR(2)),?(IOM-10),$J("Page: "_PSBHDR("PAGE"),10)
  • Line Location: WARD+12
Function Call: WRITE
  • Prompt: !,PSBHDR(X)
  • Line Location: WARD+13
Function Call: WRITE
  • Prompt: !?(IOM-35\2),"*** CONTINUED FROM PREVIOUS PAGE ***"
  • Line Location: WARD+14
Function Call: WRITE
  • Prompt: !!,"Ward Location: "_$P(PSBWRDA(PSBWP,.01),U,2)
  • Line Location: WARD+16
Function Call: WRITE
  • Prompt: ?(IOM-$L(X)),X,!,$TR($J("",IOM)," ","=")
  • Line Location: WARD+18
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

Label References

Name Line Occurrences
PSBALG PT+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PT+45, WARD+6
DFN PT~, PT+26, PT+28, PT+36, PSBALG+4
DT PT+6, WARD+5
DUZ("AG" PT+25
GMRA PT+44!
GMRAL PT+44!
GMRALA PSBALG+2!, PSBALG+4
GMRALA( PSBALG+5, PSBALG+6, PSBALG+7
GMRVSTR PT+31*, PT+33*, PT+44!
IOF PT+4, WARD+8
IOM PT+39, PT+47, PT+49, PT+51, PT+53, PT+68, WARD+10, WARD+12, WARD+14, WARD+18
, PSBALG+10, PTFTR+3, PTFTR+5
IOSL PTFTR+2
PSBADRX PT+36~
PSBADRX( PT+37, PT+38, PT+40
PSBAL PSBALG+2!
PSBAL( PSBALG+7*, PSBALG+8
PSBARX PT+44!
PSBCONT PT~, PT+53, PT+57, WARD~, WARD+14
PSBDT PT~, PT+6*, WARD~, WARD+5*
PSBHDR PT~, WARD~
PSBHDR( PT+52, WARD+13
PSBHDR("AGE" PT+14*, PT+56
PSBHDR("ALERGY" PT+64, PSBALG+10*, PSBALG+12*, PSBALG+13*
PSBHDR("DATE" PT+45*, PT+49, WARD+6*, WARD+10
PSBHDR("DOB" PT+13*, PT+56
PSBHDR("DX" PT+20*, PT+59
PSBHDR("HEIGHT" PT+27*, PT+32*, PT+58
PSBHDR("MVMTLAST" PT+17*, PT+59
PSBHDR("MVMTTYPE" PT+16*, PT+59
PSBHDR("NAME" PT+8, PT+11*, PT+54, PTFTR+5
PSBHDR("PAGE" PT+46*, PT+50*, PT+51, WARD+7*, WARD+11*, WARD+12
PSBHDR("REAC" PT+39*, PT+41*, PT+42*, PT+62
PSBHDR("ROOM" PT+19*, PT+58, PTFTR+4
PSBHDR("SEX" PT+15*, PT+58
PSBHDR("SSN" PT+12*, PT+55, PTFTR+5
PSBHDR("WARD" PT+18*, PT+58, PTFTR+4
PSBHDR("WEIGHT" PT+29*, PT+34*, PT+58
PSBHDR(0 PT+48, WARD+10
PSBHDR(1 PT+49, WARD+10
PSBHDR(2 PT+51, WARD+12
>> PSBLIST PSBALG+3*
>> PSBUNK PTFTR+6
PSBWP WARD~, WARD+15, WARD+16, WARD+17
PSBWRDA WARD+4~, WARD+15
PSBWRDA( WARD+16, WARD+17
U PT+13, PT+15, PT+16, PT+17, PT+18, PT+19, PT+26, PT+28, PT+32, PT+34
, PT+38, PT+40, WARD+16, WARD+17, PSBALG+6, PSBALG+7
VA PT+21!
VA("PID" PT+12
VADM PT+21!
VADM(1 PT+11
VADM(3 PT+13
VADM(4 PT+14
VADM(5 PT+15
VAIP PT+21!
VAIP("D" PT+9*
VAIP(2 PT+16
VAIP(3 PT+17
VAIP(5 PT+18
VAIP(6 PT+19
VAIP(9 PT+20
>> X PT+26*, PT+27*, PT+28*, PT+29*, PT+32*, PT+34*, PT+36*, PT+37*, PT+38, PT+40
, PT+52*, PT+62*, PT+64*, WARD+13*, WARD+17*, WARD+18, PSBALG+5*, PSBALG+6, PSBALG+7, PTFTR+4*
, PTFTR+5, PTFTR+6*
>> XAB PSBALG+8*, PSBALG+9, PSBALG+11
>> Y PT+36*, PT+39*, PT+40*, PT+41, PT+45*, WARD+6*
>> YA PSBALG+1*, PSBALG+10*, PSBALG+11*, PSBALG+12
>> Z PT+38*, PT+39, PSBALG+9*, PSBALG+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All