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

Package: Pharmacy Data Management

Routine: PSSVIDRG


Information

PSSVIDRG ;BIR/PR,WRT-ADD OR EDIT IV DRUGS ;June 3, 2018@20:00

Source Information

Source file <PSSVIDRG.m>

Entry Points

Name Comments DBIA/ICR reference
ENS ;Enter here to enter/edit solutions
ENS1 ;
; PSS*1*146 Compare and confirm SOLUTION Print name change
NS2
ENS2 ; IV Solutions Editing
ENA ;Enter here to enter/edit additives.
ENA1 ;
; PSS*1*146 Compare and confirm ADDITIVE Print name change
NA2
ENA2 ; IV Additives Editing
ENC ;Enter here to enter/edit IV Categories
K1 ;
K
KDRG
GETD ;See if generic drug is inactive in file 50.
ENTDRG ;This module is no longer utilized by the Inpatient Medications application.
DRG
WPH ;
WP
ENT ;
BEG
ELECTRO ;Edit Electrolyte file
EECK
EECK1
ECK
SOI
ADDOI
PASSIN
MASTER
PRNMHD ; PSS*1*146 Hold the print name when editing
PRNM() ; PSS*1*146 compare and confirm Print name change
GEND(CUR) ;PSS*1*146
NEW(FI) ; add new additive/solution
IVSOLINA ; Checking for Duplicate IV Solution Volume when INACTIVATION DATE is removed
; Global variable: PSSINADT - INACTIVATION DATE value being deleted

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Someone else is entering drugs ... try later !",!!
  • Line Location: ENS+2
Function Call: WRITE
  • Prompt: !!," ",$$GET1^DIQ(50,DISPDRG,.01)," currently linked to IV Solutions:",!
  • Line Location: ENS2+4
Function Call: WRITE
  • Prompt: !,?3,II_". ",$P(^PS(52.7,$G(PSSY(PSDA)),0),"^")_" "_$P(^PS(52.7,$G(PSSY(PSDA)),0),"^",3)
  • Line Location: ENS2+5
Function Call: WRITE
  • Prompt: !!,"Select "_$S(PSI=1:1,1:"1-"_PSI)_" from list above or type 'NEW' to link to a new IV Solution: "
  • Line Location: ENS2+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENS2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ENS2+8
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the IV SOLUTION you want to edit",!,"or type 'NEW' to link ",$$GET1^DIQ(50,DISPDRG,.01)," to a new IV SOLUTION.",$C(7)
  • Line Location: ENS2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ENS2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ENS2+12
Function Call: WRITE
  • Prompt: $C(7),!!,"Someone else is entering drugs ... try later !",!!
  • Line Location: ENA+2
Function Call: WRITE
  • Prompt: !!," ",$$GET1^DIQ(50,DISPDRG,.01)," currently linked to the following IV Additives:",!
  • Line Location: ENA2+4
Function Call: WRITE
  • Prompt: !,?3,II_". ",$P(^PS(52.6,$G(PSSY(PSDA)),0),"^"),?32,"Additive Strength: "_$S($G(PSSY15)="":"N/A",1:$G(PSSY15))_" "_$S($G(PSSY15)="":"",1:$$GET1^DIQ(52.6,$G(PSSY(PSDA)),2))
  • Line Location: ENA2+7
Function Call: WRITE
  • Prompt: !!,"Select "_$S(PSI=1:1,1:"1-"_PSI)_" from list above or type 'NEW' to link to a new IV Additive: "
  • Line Location: ENA2+12
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENA2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ENA2+14
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the IV ADDITIVE you want to edit",!,"or type 'NEW' to link ",$$GET1^DIQ(50,DISPDRG,.01)," to a new IV ADDITIVE.",$C(7)
  • Line Location: ENA2+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ENA2+18
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"This drug is inactive and will not be selectable during IV order entry.",!
  • Line Location: GETD+2
Function Call: WRITE
  • Prompt: !!,"Are you inquiring on"
  • Line Location: ENTDRG+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DRG+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: WPH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WPH+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WPH+1
Function Call: WRITE
  • Prompt: !,"Drug information on: ",$P(^PS(FI,PSSIVDRG,0),"^")
  • Line Location: WPH+2
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: WPH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WPH+4
Function Call: WRITE
  • Prompt: !,"*** No information on file. ***"
  • Line Location: WP+0
Function Call: READ
  • Variable: I
  • Timeout: DTIME
  • Line Location: WP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WP+2
Function Call: WRITE
  • Prompt: !!,"Are you printing drug information from ..."
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !,"Do you really want to link this ",$S(PSSASK="ADDITIVES":"Additive",1:"Solution")," to ",$P(^PSDRUG(DISPDRG,0),"^",1)
  • Line Location: EECK+1
Function Call: WRITE
  • Prompt: !," (A 'YES' or 'NO' response is required.)"
  • Line Location: EECK+2
Function Call: WRITE
  • Prompt: !,"This Additive or Solution is linked to ",$P(^PSDRUG(PSSIEN,0),"^",1),".",!,"You are editing dispense drug ",$P(^PSDRUG(DISPDRG,0),"^",1),".",!
  • Line Location: EECK1+0
Function Call: WRITE
  • Prompt: !,"You are editing a Additive or Solution which is linked to a different",!,"dispense drug from the one you are currently editing."
  • Line Location: ECK+0
Function Call: WRITE
  • Prompt: !!,"You are NOW in the ORDERABLE ITEM matching for Solutions."
  • Line Location: SOI+0
Function Call: WRITE
  • Prompt: !!,"You are NOW in the ORDERABLE ITEM matching for Additives."
  • Line Location: ADDOI+0
Function Call: WRITE
  • Prompt: !," ARE YOU SURE YOU WANT TO CHANGE THE PRINT NAME TO "_PRNAME
  • Line Location: PRNM+5
Function Call: WRITE
  • Prompt: !," Answer with 'Yes' or 'No'.",$C(7),!
  • Line Location: PRNM+9
Function Call: WRITE
  • Prompt: !," PRINT NAME set to "_PSPRNM
  • Line Location: PRNM+10
Function Call: WRITE
  • Prompt: !!," You are about to change the GENERIC DRUG linked to this "_$S($G(PSSASK)="ADDITIVES":"ADDITIVE.",1:"SOLUTION.")
  • Line Location: GEND+15
Function Call: WRITE
  • Prompt: !," "_$S($G(PSSASK)="ADDITIVES":"ADDITIVE",1:"SOLUTION")_" "_$G(CURADD)_" is "_$S($G(CURGEND)="":"not ",1:"")_"currently linked to "_$S($G(CURGEND)="":"any",1:"")
  • Line Location: GEND+16
Function Call: WRITE
  • Prompt: !," GENERIC DRUG "_$G(CURGEND)_"."
  • Line Location: GEND+17
Function Call: WRITE
  • Prompt: !!," Are you sure you want to link "_$S($G(PSSASK)="ADDITIVES":"ADDITIVE",1:"SOLUTION")_" "_$G(CURADD)
  • Line Location: GEND+18
Function Call: WRITE
  • Prompt: !," to GENERIC DRUG "_$$GET1^DIQ(50,+Y,.01,"E")
  • Line Location: GEND+19
Function Call: WRITE
  • Prompt: !," Answer with 'Yes' or 'No'.",$C(7),!
  • Line Location: GEND+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(50.4 - [#50.4] Classic Fileman Calls
^PS(52.6 - [#52.6] Classic Fileman Calls,  GET1^DIQ
^PS(52.7 - [#52.7] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call