Routine: PSOERBT

Package	Total	Call Graph
Outpatient Pharmacy	9	$$LSTRFL^PSOBPSU1 $$RXFLDT^PSOBPSUT $$RXSIG^PSOERBT1 ($$ISCMOPD,$$LSTCHREQ)^PSOERBT2 (RESET,VIDEO)^PSOERUT0 ($$ERXIEN,PAUSE)^PSOERXUT ^PSOLSET DP^PSORXVW PAUSE^PSOSPMU1
VA FileMan	5	^%DT ^DIC MIX^DIC1 $$GET1^DIQ ^DIR
List Manager	3	(EN,SHOW)^VALM (CLEAR,FULL,INSTR)^VALM1 (RESTORE,SAVE)^VALM10
Kernel	2	($$FMADD,$$FMTE)^XLFDT DISP^XQORM1
Pharmacy Data Management	1	$$GETNDC^PSSNDCUT

Package	Total	Caller Graph
Outpatient Pharmacy	7	PSO ERX BATCH CH REQ/DRUG SWAP PSO ERX BATCH CHANGE REQUEST MENU PSO ERX BATCH CHANGE REQUEST SELECT PSO ERX BATCH ERX CHANGE PSO ERX BATCH INCLUDE ALL STATUSES PSOERBT0 PSOERBT1
Kernel	2	^DIC(19 ^ORD(101

Name	Comments	DBIA/ICR reference
EN	; main entry point of the menu option
LMHDR	; Menu Protocol Header Code
HDR	; Listman Header Code
INIT	; -- init variables and list array
ADRX2LST(RXIEN,ERXIEN)	;Add the prescription to the list for display
HELP	; -- help code
EXIT	; -- exit code
SEL	;Process selection of one entry
EXPND	; -- expand code
REF	;Screen Refresh
ENTRYSEL	; Allows selection of Rx's in the List
IAS	;Include All Status Switch

External References

Name	Field # of Occurrence
^%DT	EN+123, EN+128
^DIC	EN+53
MIX^DIC1	EN+70, EN+81, EN+116
$$GET1^DIQ	EN+2, EN+6, EN+57, EN+89, EN+91, EN+92, EN+95, EN+98, EN+99, EN+101 , EN+102, HDR+13, HDR+14, HDR+19, HDR+20, HDR+22, HDR+24, HDR+25, INIT+9, INIT+11 , INIT+13, INIT+15, ADRX2LST+7, ADRX2LST+9, ADRX2LST+13, ADRX2LST+14, ADRX2LST+15
^DIR	EN+17, EN+22, EN+44, EN+139, EN+152, ENTRYSEL+4
$$LSTRFL^PSOBPSU1	ADRX2LST+15
$$RXFLDT^PSOBPSUT	ADRX2LST+14
$$RXSIG^PSOERBT1	EN+57, INIT+16
$$ISCMOPD^PSOERBT2	ADRX2LST+8
$$LSTCHREQ^PSOERBT2	ADRX2LST+6, ADRX2LST+19
RESET^PSOERUT0	INIT+3
VIDEO^PSOERUT0	INIT+30, INIT+37
$$ERXIEN^PSOERXUT	EN+55, INIT+12
PAUSE^PSOERXUT	EN+93, EN+100
^PSOLSET	EN+5
DP^PSORXVW	SEL+5
PAUSE^PSOSPMU1	EN+18, EN+107
$$GETNDC^PSSNDCUT	EN+72, EN+83, EN+118
EN^VALM	EN+155
SHOW^VALM	LMHDR+1
CLEAR^VALM1	EXIT+2
FULL^VALM1	EXIT+3
INSTR^VALM1	HDR+9, HDR+14, HDR+15, HDR+17, HDR+19, HDR+20, HDR+22, HDR+24, HDR+25, HDR+26 , HDR+29, HDR+32
RESTORE^VALM10	REF+1
SAVE^VALM10	INIT+35
$$FMADD^XLFDT	EN+122
$$FMTE^XLFDT	EN+122, EN+127, HDR+5, HDR+6, ADRX2LST+18, ADRX2LST+19
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",! Line Location: EN+5
Function Call: WRITE	Prompt: !!,"This option is available for MbM sites only",$C(7) Line Location: EN+18
Function Call: WRITE	Prompt: !,"You need to hold the PSNMGR key to access this option." Line Location: EN+22
Function Call: WRITE	Prompt: ! Line Location: EN+49
Function Call: WRITE	Prompt: !!,"Required!",!,$C(7) Line Location: EN+54
Function Call: WRITE	Prompt: !," Not an eRx Prescription.",! Line Location: EN+56
Function Call: WRITE	Prompt: !,"There's a problem with the Drug in this Rx.",! Line Location: EN+58
Function Call: WRITE	Prompt: !,"There's a problem with the SIG in this Rx.",! Line Location: EN+59
Function Call: WRITE	Prompt: ! Line Location: EN+65
Function Call: WRITE	Prompt: !!,"Required!",!,$C(7) Line Location: EN+71
Function Call: WRITE	Prompt: !!,"Drug does not have an NDC code!",!,$C(7) Line Location: EN+72
Function Call: WRITE	Prompt: ! Line Location: EN+76
Function Call: WRITE	Prompt: !!,"Required!",!,$C(7) Line Location: EN+82
Function Call: WRITE	Prompt: !!,"Drug does not have an NDC code!",!,$C(7) Line Location: EN+83
Function Call: WRITE	Prompt: !!,"Cannot be the same drug!",!,$C(7) Line Location: EN+84
Function Call: WRITE	Prompt: !!,"WARNING: Drugs selected belong to different VA Classes:",$C(7) Line Location: EN+90
Function Call: WRITE	Prompt: !," - ",$$GET1^DIQ(50,FROMDRUG,2) Line Location: EN+91
Function Call: WRITE	Prompt: !," - ",$$GET1^DIQ(50,NEWDRUG,2) Line Location: EN+92
Function Call: WRITE	Prompt: !!,"WARNING: Drugs selected belong to different Orderable Items:",$C(7) Line Location: EN+97
Function Call: WRITE	Prompt: !," - ",$$GET1^DIQ(50,FROMDRUG,2.1) Line Location: EN+98
Function Call: WRITE	Prompt: !," - ",$$GET1^DIQ(50,NEWDRUG,2.1) Line Location: EN+99
Function Call: WRITE	Prompt: !!,"WARNING: Drugs selected have different strengths/form:",$C(7) Line Location: EN+104
Function Call: WRITE	Prompt: !," - ",FROMSTRN Line Location: EN+105
Function Call: WRITE	Prompt: !," - ",TOSTREN Line Location: EN+106
Function Call: WRITE	Prompt: ! Line Location: EN+111
Function Call: WRITE	Prompt: !!,"Required!",!,$C(7) Line Location: EN+117
Function Call: WRITE	Prompt: !!,"Drug does not have an NDC code!",!,$C(7) Line Location: EN+118
Function Call: WRITE	Prompt: ! Line Location: EN+123
Function Call: WRITE	Prompt: ! Line Location: EN+128
Function Call: WRITE	Prompt: !!,"Please wait..." Line Location: INIT+5
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: $C(7) Line Location: ENTRYSEL+2
Function Call: WRITE	Prompt: ! Line Location: ENTRYSEL+4
Function Call: WRITE	Prompt: ?52,"Please wait..." Line Location: IAS+1
Routine Call	DIC Line Location: EN+53
Routine Call	DIR Line Location: EN+17 EN+22 EN+44 EN+139 EN+152 ENTRYSEL+4
Routine Call	VALM Line Location: EN+155
Routine Call	VALM Line Location: LMHDR+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PS(50.7 - [#50.7]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
^PS(52.49 - [#52.49]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	LMHDR+2
^PSRX - [#52]	ADRX2LST+10, ADRX2LST+11, ADRX2LST+12
^PSRX("ADL"	INIT+7, INIT+8
^TMP("PSOERBT"	HDR+8, INIT+2!, INIT+27, INIT+28, INIT+29, INIT+38, ADRX2LST+20, ADRX2LST+21, EXIT+1!, SEL+3 , ENTRYSEL+2, ENTRYSEL+3, ENTRYSEL+4, ENTRYSEL+10, ENTRYSEL+11
^TMP("PSOERBTS"	INIT+2!, INIT+9, INIT+19*, INIT+22, INIT+23, INIT+24, INIT+25!
^TMP("PSOERSEL"	EXIT+1!, ENTRYSEL+6!, ENTRYSEL+11*
^XUSEC("PSNMGR"	EN+21

Label References

Name	Line Occurrences
ADRX2LST	INIT+24
EXIT	EN+5, EN+17, EN+18, EN+21, EN+26, EN+48, EN+64, EN+110, EN+123, EN+128 , EN+133, EN+144, EN+157
HDR	LMHDR+1, REF+2
INIT	REF+2
REF	IAS+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	EN+122*
>> %DT("A"	EN+122, EN+127
>> %DT("B"	EN+122, EN+127
>> %DT(0	EN+122, EN+127
ALLOWSUB	EN+1~, EN+143, EN+153, HDR+7, HDR+8, INIT+13
BEGFLDT	EN+1~, EN+124*, EN+127, HDR+5, INIT+6
BFLDT	INIT+1~, INIT+6, INIT+7, INIT+8
BLINKLN	INIT+1~
CHRQTYPE	EN+1~, EN+28, EN+45, EN+48, EN+64, EN+110, HDR+12, HDR+18, HDR+21, INIT+16
COMSEG	ENTRYSEL+1~, ENTRYSEL+8*, ENTRYSEL+9
CONVTYPE	EN+1~, EN+19*, EN+21, EN+26, EN+48, EN+64, EN+72, EN+110, EN+133, EN+144 , HDR+3, HDR+11, INIT+14, INIT+16, INIT+17, INIT+18
>> D	EN+65, EN+77, EN+112*
DA	SEL+1~, SEL+4*
DAYSUP	ADRX2LST+3~, ADRX2LST+13*, ADRX2LST+18
DIC	EN+27~, EN+49!, EN+65!, EN+76!, EN+111!
DIC("A"	EN+49, EN+65, EN+76, EN+111
DIC("S"	EN+66, EN+77, EN+112*
DIC(0	EN+49, EN+65, EN+76, EN+111
DIR	EN+1~, EN+8!, EN+22!, EN+29!, EN+134!, EN+145!, ENTRYSEL+1~
DIR("?"	EN+10, EN+11, EN+12, EN+13, EN+14, EN+15, EN+16, EN+31, EN+32, EN+33 , EN+34, EN+35, EN+36, EN+37, EN+38, EN+39, EN+40, EN+41, EN+42, EN+43 , EN+136, EN+137, EN+138, EN+147, EN+148, EN+149, EN+150, EN+151
DIR("A"	EN+8, EN+29, EN+134, EN+145, ENTRYSEL+3*
DIR("B"	EN+134, EN+145
DIR(0	EN+9, EN+22, EN+30, EN+135, EN+146, ENTRYSEL+4
DIROUT	EN+17, EN+44, EN+139, EN+152, ENTRYSEL+1~, ENTRYSEL+4
DIRUT	EN+17, EN+44, EN+139, EN+152, ENTRYSEL+1~, ENTRYSEL+4
DONE	EN+27~, EN+50, EN+51, EN+60, EN+67, EN+68, EN+73, EN+78, EN+79, EN+85 , EN+113, EN+114, EN+116, EN+119*
DOSE	HDR+1~
DRUG	HDR+1~, HDR+13*
DT	EN+122, EN+127
>> DTOUT	EN+53, EN+70, EN+81, EN+116, EN+123, EN+128
>> DUOUT	EN+53, EN+70, EN+81, EN+116
DUZ	EN+21
ENDFLDT	EN+1~, EN+129*, HDR+6, INIT+10
ERXIEN	EN+27~, EN+55, EN+56, HDR+1~, INIT+12, INIT+13, INIT+14, INIT+17, INIT+18, INIT+19 , ADRX2LST~, ADRX2LST+6, ADRX2LST+17, ADRX2LST+19
ERXNERX	EN+1~, EN+132, EN+140, EN+144, HDR+26, INIT+17, INIT+18
FROMDRUG	EN+1~, EN+28, EN+57, EN+58, EN+73, EN+84, EN+89, EN+91, EN+95, EN+98 , EN+101, EN+119, HDR+13, HDR+14, HDR+19, HDR+22, HDR+24, INIT+8, INIT+11
FROMOI	EN+27~, EN+95*, EN+96, EN+101
FROMSTRN	EN+27~, EN+101*, EN+103, EN+105
HDR	HDR+1~, HDR+5, HDR+6, HDR+7, HDR+8, HDR+9, HDR+14, HDR+15, HDR+16, HDR+17 , HDR+19, HDR+20, HDR+22, HDR+24, HDR+25, HDR+26, HDR+28, HDR+29, HDR+30, HDR+31* , HDR+32
HIGH	HDR+1~, HDR+4*, HDR+5, HDR+6, HDR+7, HDR+8, HDR+14, HDR+15, HDR+17, HDR+19 , HDR+20, HDR+22, HDR+24, HDR+25, HDR+26
HIGHLN	INIT+1~
HIGHLN(7	INIT+29*
HIGUNDLN	INIT+1~
I	HDR+1~, INIT+1~, INIT+28, INIT+35, REF+1, ENTRYSEL+1~, ENTRYSEL+7, ENTRYSEL+8
>> IOINHI	HDR+4
>> IOINORM	HDR+4
>> IORVON	HDR+29, HDR+32
ISSUEDT	INIT+1~, INIT+9, INIT+10, INIT+19, INIT+21, INIT+22*, INIT+23, INIT+24
LASTCHREQ	ADRX2LST+3~, ADRX2LST+6*
LASTFLDT	ADRX2LST+3~, ADRX2LST+14*, ADRX2LST+18
>> LASTLINE	INIT+34, INIT+35, INIT+36*
LINE	INIT+2, INIT+6, INIT+34, INIT+35, INIT+36, ADRX2LST+16, ADRX2LST+20, ADRX2LST+21, SEL+5~, IAS+1
>> LINETXT	ADRX2LST+16, ADRX2LST+17, ADRX2LST+18, ADRX2LST+19, ADRX2LST+20
MBMSITE	EN+1~, EN+2*, EN+18
NEWDRUG	EN+1~, EN+28, EN+85, EN+89, EN+92, EN+95, EN+99, EN+102, HDR+20, HDR+25
NORM	HDR+1~, HDR+4*, HDR+5, HDR+6, HDR+7, HDR+8, HDR+14, HDR+15, HDR+17, HDR+19 , HDR+20, HDR+22, HDR+24, HDR+25, HDR+26, HDR+29, HDR+32
NOTE2PRV	EN+1~, EN+28*
NUMREFS	ADRX2LST+3~, ADRX2LST+15*, ADRX2LST+18
PROVIDER	ADRX2LST+3~, ADRX2LST+14*
PS	SEL+1~, SEL+4*
>> PSNPINST	EN+6*
PSOALLST	EN+1~, INIT+15, IAS+1*, IAS+2
PSOCMOP	ADRX2LST+3~, ADRX2LST+5, ADRX2LST+8, ADRX2LST+13
PSODFN	SEL+5~
PSOERBT	INIT+1~
>> PSOPAR	EN+5
PSOQUIT	EN+1~, EN+25, EN+26, EN+44, EN+48, EN+50, EN+51, EN+53, EN+61, EN+64 , EN+67, EN+68, EN+70, EN+74, EN+78, EN+79, EN+81, EN+86, EN+110, EN+113* , EN+116, EN+132, EN+133, EN+139, EN+143, EN+144, EN+152*
PSOSAVE	SEL+1~
PSOSEL	SEL+1~, SEL+2*, SEL+3
>> PSOSITE	EN+5, EN+6, EN+72, EN+83, EN+118
PSOVDA	SEL+1~, SEL+4*
PTNAME	ADRX2LST+3~, ADRX2LST+14*, ADRX2LST+17
QUANTITY	ADRX2LST+3~, ADRX2LST+15*, ADRX2LST+17
RANGE	ENTRYSEL+1~, ENTRYSEL+5*, ENTRYSEL+7, ENTRYSEL+8
REC	ENTRYSEL+1~, ENTRYSEL+9*, ENTRYSEL+10, ENTRYSEL+11
REVLN	INIT+1~
>> RXHASH	EN+28*
RXIEN	INIT+1~, INIT+8, INIT+9, INIT+11, INIT+12, INIT+15, INIT+16, INIT+19, INIT+21, INIT+23* , INIT+24, ADRX2LST~, ADRX2LST+7, ADRX2LST+8, ADRX2LST+9, ADRX2LST+10, ADRX2LST+11, ADRX2LST+12, ADRX2LST+13, ADRX2LST+14 , ADRX2LST+15, ADRX2LST+21, SEL+1~, SEL+3*, SEL+4
SIG	HDR+1~, HDR+15*, HDR+16
STA	ADRX2LST+3~, ADRX2LST+4*, ADRX2LST+9, ADRX2LST+11
STAT	ADRX2LST+3~, ADRX2LST+9, ADRX2LST+10, ADRX2LST+11, ADRX2LST+12, ADRX2LST+13*, ADRX2LST+17
TITLE	SEL+5~
TOOI	EN+27~, EN+95*, EN+96, EN+102
TOSTREN	EN+27~, EN+102*, EN+103, EN+106
>> VALM("TITLE"	HDR+3*
>> VALMBCK	HELP+2, SEL+2, SEL+3, SEL+6, REF+2*
>> VALMBG	INIT+2, IAS+2
>> VALMCNT	LMHDR+2, HDR+8, INIT+31, INIT+38
>> VALMEVL	REF+1
>> VALMSG	SEL+2, SEL+3, ENTRYSEL+2*
VISTARX	ADRX2LST+3~, ADRX2LST+7*, ADRX2LST+17
>> VRXIEN	EN+55*, EN+57
VRXSIG	EN+1~, EN+57*, EN+59, HDR+15, INIT+16
X	EN+1~, EN+27~, EN+54, EN+65!, EN+71, EN+76!, EN+82, EN+117, HELP+1*, ENTRYSEL+1~ , ENTRYSEL+5
>> XQORM("#"	LMHDR+2*
>> XQORM("??"	LMHDR+3, HDR+33
>> XQORNOD(0	SEL+2
>> XQY0	SEL+4*
XX	SEL+1~
Y	EN+1~, EN+18, EN+19, EN+27~, EN+45, EN+54, EN+55, EN+65!, EN+71, EN+72 , EN+73, EN+76!, EN+82, EN+83, EN+84, EN+85, EN+117, EN+118, EN+119, EN+123 , EN+124, EN+128, EN+129, EN+140, EN+153

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOERBT

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: