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

Package: Pharmacy Data Management

Routine: PSSDSONF


Information

PSSDSONF ;BIR/RTR-Dosing On/Off Parameter ;07/09/12

Source Information

Source file <PSSDSONF.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Turn Dosing On and Off
ON ;
TMES ;Write final message
SEND(PSSDONW,PSSDONAB) ;Send mail message
LCK ;Lock node
UNLCK ;Unlock node
END ;
ACLOG ;Set activity log multiple for DOSING ON/OFF switch.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,$S(PSSDONA:"Dosing Order Checks are currently ENABLED.",1:"WARNING! Dosing Order Checks are currently DISABLED.")
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"No Dosing Order Checks will be performed during order entry in CPRS or",!,"Pharmacy while Dosing Order Checks are disabled!!!"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!?5,"WARNING! Dosing Order Checks remain DISABLED."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!?5,"UNABLE to enable Dosing Order Checks! Please contact",!?5,"local support for assistance."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!?5,"Dosing Order Checks ENABLED.",!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ON+2
Function Call: WRITE
  • Prompt: !!?5,"Dosing Order Checks remain ENABLED."
  • Line Location: ON+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ON+6
Function Call: WRITE
  • Prompt: !!?5,"Dosing Order Checks remain ENABLED."
  • Line Location: ON+9
Function Call: WRITE
  • Prompt: !!,"NO Dosing Order Checks will be performed during order entry in CPRS"
  • Line Location: ON+10
Function Call: WRITE
  • Prompt: !,"or Pharmacy while Dosing Order Checks are disabled!!!",!!,"Notification of this action will be sent to PBM and local VistA"
  • Line Location: ON+11
Function Call: WRITE
  • Prompt: !,"PSS ORDER CHECKS mail group."
  • Line Location: ON+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ON+13
Function Call: WRITE
  • Prompt: !!?5,"Dosing Order Checks remain ENABLED."
  • Line Location: ON+16
Function Call: WRITE
  • Prompt: !!?5,"UNABLE to disable Dosing Order Checks! Please contact",!?5,"local support for assistance."
  • Line Location: ON+18
Function Call: WRITE
  • Prompt: !!?5,"Dosing Order Checks DISABLED.",!
  • Line Location: ON+19
Function Call: WRITE
  • Prompt: !,"Note: This is a TEST account. This request will NOT be sent forward to PBM",!,"on Outlook mail."
  • Line Location: TMES+1
Function Call: WRITE
  • Prompt: !,"NOTIFICATION OF THIS ACTION has been forwarded to PBM and local",!,"VistA PSS ORDER CHECKS mail group."
  • Line Location: TMES+2
Function Call: WRITE
  • Prompt: !!,"Another person is editing the Dosing On/Off Switch."
  • Line Location: LCK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call