Routine: PSBOMM

Package	Total	Call Graph
Barcode Medication Administration	6	$$WRAP^PSBO ($$PTFTR,PT,WARD)^PSBOHDR $$PTID^PSBOML ($$DTFMT,DEFLT,LN1,MISSED,PARTG1,UDONE)^PSBOMM2 ($$GETADMIN,$$GETFREQ)^PSBVDLU1 (CLEAN,PSJ)^PSBVT
Inpatient Medications	2	EN^PSJBCMA EN^PSJBCMA2
Kernel	1	($$FMADD,$$FMTE)^XLFDT
VA Fileman	1	(H,NOW)^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	;
EN1	;
EN	;
WRDHDR()	;
PTHDR()	;

External References

Name	Field # of Occurrence
H^%DTC	EN1+37, EN1+38
NOW^%DTC	EN1+8, EN1+69
$$WRAP^PSBO	PRINT+31, PRINT+37, PRINT+78, PRINT+85
$$PTFTR^PSBOHDR	PRINT+14, PRINT+22, PRINT+38
PT^PSBOHDR	PTHDR+1
WARD^PSBOHDR	WRDHDR+1
$$PTID^PSBOML	PRINT+70
$$DTFMT^PSBOMM2	EN1+34, EN1+62, EN1+77, EN1+78, PRINT+34, PRINT+82
DEFLT^PSBOMM2	EN+3
LN1^PSBOMM2	WRDHDR+3, PTHDR+3
MISSED^PSBOMM2	EN1+51, EN1+53
PARTG1^PSBOMM2	EN1+68
UDONE^PSBOMM2	EN1+76
$$GETADMIN^PSBVDLU1	EN1+41
$$GETFREQ^PSBVDLU1	EN1+24
CLEAN^PSBVT	EN1+9
PSJ^PSBVT	EN1+10
EN^PSJBCMA	EN1+3
EN^PSJBCMA2	EN1+49, EN1+74
$$FMADD^XLFDT	EN1+39, EN1+44
$$FMTE^XLFDT	PRINT+5, PRINT+41

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?7,"Administration Times have been edited" Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"No Missed Medications Found",$$PTFTR^PSBOHDR() Line Location: PRINT+14
Function Call: WRITE	Prompt: $$PTFTR^PSBOHDR(),$$PTHDR() Line Location: PRINT+22
Function Call: WRITE	Prompt: ?43,VAR1 Line Location: PRINT+29
Function Call: WRITE	Prompt: ! Condition for execution: $G(SP) Line Location: PRINT+30
Function Call: WRITE	Prompt: ?43,VAR2 Line Location: PRINT+30
Function Call: WRITE	Prompt: !,$$WRAP^PSBO(43,80,VAR3) Line Location: PRINT+31
Function Call: WRITE	Prompt: ?43,VAR1 Line Location: PRINT+35
Function Call: WRITE	Prompt: ! Condition for execution: $G(SP) Line Location: PRINT+36
Function Call: WRITE	Prompt: ?43,VAR2 Line Location: PRINT+36
Function Call: WRITE	Prompt: !,$$WRAP^PSBO(43,80,VAR3) Line Location: PRINT+37
Function Call: WRITE	Prompt: !,"No Missed Medications Found" Line Location: PRINT+49
Function Call: WRITE	Prompt: $$WRDHDR() Line Location: PRINT+67
Function Call: WRITE	Prompt: !,?30,$P(VAR1,U,1) Line Location: PRINT+76
Function Call: WRITE	Prompt: ! Condition for execution: $G(SP) Line Location: PRINT+77
Function Call: WRITE	Prompt: ?30,VAR2 Line Location: PRINT+77
Function Call: WRITE	Prompt: !,$$WRAP^PSBO(30,95,VAR3) Line Location: PRINT+78
Function Call: WRITE	Prompt: !,?50,VAR1 Line Location: PRINT+83
Function Call: WRITE	Prompt: ! Condition for execution: $G(SP) Line Location: PRINT+84
Function Call: WRITE	Prompt: ?50,VAR2 Line Location: PRINT+84
Function Call: WRITE	Prompt: !,$$WRAP^PSBO(50,75,VAR3) Line Location: PRINT+85
Function Call: WRITE	Prompt: !,"Order Status",?15,"Room-Bed",?35,"Patient",?67,"Admin Date/Time",?85,"Medication" Line Location: WRDHDR+2
Function Call: WRITE	Prompt: !,"Order Status",?15,"Administration Date/Time",?43,"Medication",?95,"Order Stop Date" Line Location: PTHDR+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+52, PRINT+53, PRINT+68, PRINT+70
^PSB(53.79 - [#53.79]	EN1+64, EN1+65, EN1+66, EN1+67
^TMP("PSB"	EN+10!, EN+14!, EN1+46!, EN1+50, EN1+79, EN1+81, PRINT+14, PRINT+16, PRINT+19, PRINT+21 , PRINT+23, PRINT+24, PRINT+25, PRINT+49, PRINT+51, PRINT+54*, PRINT+56, PRINT+57, PRINT+60, PRINT+64 , PRINT+66, PRINT+71, PRINT+72, PRINT+73
^TMP("PSB1"	EN+10!, EN1+49!, EN1+54!, EN1+74!, EN1+82!
^TMP("PSBO"	EN+12, EN+14!
^TMP("PSJ"	EN+10!, EN+14!, EN1+2!, EN1+4, EN1+6, EN1+7
^TMP("PSJ2"	EN1+49!, EN1+74!, EN1+75

Label References

Name	Line Occurrences
$$PTHDR	PRINT+12, PRINT+22
$$WRDHDR	PRINT+48, PRINT+67
EN1	EN+12
PRINT	EN+13

Naked Globals

Name	Field # of Occurrence
^(	PRINT+52

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN1+18
>> %H	EN1+37, EN1+38
>> %T	EN1+37, EN1+38
DFN	EN+1~, EN+12, EN1+3, EN1+24, EN1+33, EN1+41, EN1+49, EN1+64, EN1+65, EN1+71 , EN1+74, EN1+79, EN1+81, PRINT+1~, PRINT+11, PRINT+14, PRINT+16, PRINT+19, PRINT+21, PRINT+23 , PRINT+24, PRINT+25, PRINT+28, PRINT+34, PRINT+51, PRINT+52, PRINT+53, PRINT+54, PRINT+57, PRINT+60 , PRINT+64, PRINT+66, PRINT+68, PRINT+70, PRINT+71, PRINT+72, PRINT+73, PTHDR+1
FLG	EN1+45!*
>> I	EN1+21, EN1+23
IOSL	PRINT+22, PRINT+67
>> J	EN1+43*
PSBACRIT	EN+4!, EN+7, EN+8, EN1+72
PSBADST	EN1+22, EN1+26, EN1+28, EN1+36, EN1+40!, EN1+42, EN1+46, EN1+50, EN1+52*
PSBADST(	EN1+41*, EN1+42, EN1+43, EN1+52
>> PSBCADM	EN1+35, EN1+36
>> PSBCHEMT	EN1+14, EN1+15
PSBCNT	EN+1~, EN1+82!
PSBDFN	EN1+1~
>> PSBDOW	EN1+21*
PSBDT	EN1+1~, EN1+61, PRINT+1~, PRINT+15, PRINT+16, PRINT+19, PRINT+21, PRINT+23, PRINT+24, PRINT+25 , PRINT+26, PRINT+28, PRINT+34, PRINT+59, PRINT+60*, PRINT+62, PRINT+64, PRINT+66, PRINT+71, PRINT+72 , PRINT+73, PRINT+74, PRINT+75, PRINT+82
>> PSBDT2	EN1+40, EN1+41, EN1+42, EN1+43, EN1+44, EN1+45*
>> PSBDX	PRINT+52, PRINT+53, PRINT+54, PRINT+55, PRINT+56, PRINT+57
PSBEDIT	EN+1~, EN1+51, EN1+53, PRINT+13
PSBEVDT	EN1+1~, EN1+2*
PSBEXST	EN1+63!, EN1+79, EN1+80
PSBFLAG	EN+1~, EN1+77, EN1+78
>> PSBFREQ	EN1+24, EN1+25, EN1+26, EN1+27, EN1+39, EN1+41
PSBFUTR	EN+1~, EN+6, EN+8, PRINT+7, PRINT+9, PRINT+43, PRINT+45
>> PSBG	EN1+63, EN1+67, EN1+68, EN1+72
>> PSBG(	EN1+67*, EN1+68
PSBGBL	EN1+1~
PSBH	EN1+1~
PSBHDDT	EN1+54!, EN1+77, EN1+78, EN1+82!
PSBHDR	EN1+1~, PRINT+1~, WRDHDR+1, PTHDR+1
PSBHDR(1	PRINT+5, PRINT+41
PSBHDR(2	PRINT+6, PRINT+7, PRINT+42, PRINT+43
PSBHDR(3	PRINT+8, PRINT+9, PRINT+44, PRINT+45
PSBHDR(4	PRINT+10, PRINT+46
>> PSBINCC	EN+9*, PRINT+10, PRINT+46
>> PSBISYR	EN1+13, EN1+14
>> PSBIVT	EN1+11, EN1+12, EN1+13, EN1+14, EN1+15
>> PSBNGF	EN1+30, EN1+57
PSBNPG	PRINT+2!
PSBOACTL	EN1+49!, EN1+74!, EN1+75, EN1+83!
PSBOCRIT	EN+4!, EN+5, EN+6, EN1+29, EN1+59, EN1+70
PSBODATE	EN+1~
>> PSBODD	EN1+20, EN1+27, EN1+28, EN1+50, EN1+52
>> PSBOIT	EN1+64, EN1+65
PSBOITX	EN1+79, EN1+81, PRINT+1~, PRINT+18, PRINT+19, PRINT+21, PRINT+23, PRINT+24, PRINT+25, PRINT+28 , PRINT+34, PRINT+63, PRINT+64, PRINT+66, PRINT+71, PRINT+72, PRINT+73, PRINT+75, PRINT+82
PSBONX	EN1+16, EN1+24, EN1+33, EN1+34, EN1+41, EN1+49, EN1+62, EN1+67, EN1+68, EN1+71 , EN1+74, EN1+79, EN1+81, PRINT+1~, PRINT+20, PRINT+21, PRINT+23, PRINT+24, PRINT+25, PRINT+28 , PRINT+32, PRINT+33, PRINT+34, PRINT+65, PRINT+66, PRINT+68, PRINT+71, PRINT+72, PRINT+73, PRINT+79 , PRINT+80
>> PSBOSP	EN1+17, EN1+18, EN1+34, EN1+45, EN1+59, EN1+62
>> PSBOST	EN1+37, EN1+39*, EN1+40, EN1+59, EN1+60, EN1+62
>> PSBOST2	EN1+40, EN1+41, EN1+43
>> PSBOSTS	EN1+18*, EN1+29, EN1+31, EN1+33, EN1+56, EN1+70, EN1+71
>> PSBRPT(	EN+2, EN+9, EN+11, PRINT+3, PRINT+4, PRINT+5, PRINT+11, PRINT+40, PRINT+41, PRINT+47 , PRINT+50
PSBS	EN+4!, EN+14!
PSBS(	EN1+33, EN1+71, PRINT+28, PRINT+34, PRINT+68
>> PSBSCH	EN1+21, EN1+23
>> PSBSCHT	EN1+19, EN1+55
>> PSBSM	EN1+32, EN1+58
>> PSBSORT	PRINT+50*, PRINT+52
>> PSBSTART	EN+2*, EN1+17
PSBSTOP	EN+1~, EN+2*, EN1+41, EN1+45, EN1+60
PSBSTRT	EN+1~, EN+11*, EN1+2, EN1+3, EN1+38, EN1+39, EN1+40, EN1+51
>> PSBSTXP(	EN1+34, EN1+62, PRINT+33, PRINT+34, PRINT+80
>> PSBSTXT(	EN1+62*, PRINT+32, PRINT+79
PSBUNHD	EN1+54!, EN1+78, EN1+82!
>> PSBWARD	PRINT+47*
>> PSBWRD	WRDHDR+1
PSBX	EN1+1~, EN1+5, EN1+6, EN1+7, EN1+10
>> PSBXSTS	EN1+63, EN1+66, EN1+67, EN1+72, EN1+79
>> PSBYES	EN1+20, EN1+21, EN1+22, EN1+23, EN1+25, EN1+26
SP	PRINT+22!, PRINT+29, PRINT+30, PRINT+35, PRINT+36, PRINT+67!, PRINT+75, PRINT+76, PRINT+77, PRINT+82* , PRINT+83*, PRINT+84
U	EN+2, EN+6, EN+8, EN+9, EN+11, EN1+66, EN1+67, EN1+79, EN1+81, PRINT+3 , PRINT+4, PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+40, PRINT+41, PRINT+43, PRINT+45, PRINT+47 , PRINT+50, PRINT+52, PRINT+53, PRINT+70, PRINT+76
>> VAR	EN1+73, EN1+77, EN1+78*, EN1+79, EN1+81
VAR1	EN1+81, PRINT+22!, PRINT+23, PRINT+29, PRINT+35, PRINT+67!, PRINT+71*, PRINT+76, PRINT+83
VAR2	PRINT+22!, PRINT+24, PRINT+30, PRINT+36, PRINT+67!, PRINT+72, PRINT+77, PRINT+84
VAR3	PRINT+22!, PRINT+25, PRINT+31, PRINT+37, PRINT+67!, PRINT+73, PRINT+78, PRINT+85
>> X	EN1+37, EN1+38, EN1+63, EN1+64, EN1+65, EN1+67*
>> X1	EN1+37*, EN1+39
>> X2	EN1+38*, EN1+39
>> X3	EN1+38, EN1+39
>> XX	EN1+50, EN1+52
>> XXX	EN1+52*, EN1+53
>> XZ	EN1+41*, EN1+42, EN1+43
>> Y	EN1+47, EN1+48, EN1+63, EN1+65, EN1+66, EN1+67, PRINT+3, PRINT+5, PRINT+7, PRINT+9* , PRINT+41, PRINT+43, PRINT+45
>> Z	EN1+43, EN1+44, EN1+46, EN1+47, EN1+48, EN1+50, EN1+51, EN1+52, EN1+53

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBOMM

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: