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

Package: Outpatient Pharmacy

Routine: PSOERBT


Information

PSOERBT ;ALB/RM - Handles Multiple eRx CH REQ Submission & Drug Conversion (MbM) ;Jan 16, 2025@12:43:34

Source Information

Source file <PSOERBT.m>

Entry Points

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

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

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