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

Package: Pharmacy Data Management

Routine: PSSDEE


Information

PSSDEE ;BIR/WRT - MASTER DRUG ENTER/EDIT ROUTINE ;Nov 27, 2018@10:03

Source Information

Source file <PSSDEE.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN
DONE
ASK ;
COMMON ;
COMMON1
CK
ASKND
ONE
CKDF
NOPE
DFNULL
ZAPIT
APP
CHOOSE
CHECK(X) ; Validates Application Use response
BRANCH
BRANCH1
OP
CKCMOP
UD
IV
IV1
WS
DACCT
CS
NVM
ASKCMOP
ASKCLOZ
MONCLOZ
FLASH
CLOZ
USE
USE1
WR
PRIMDRG
PRIM1
MF
MFA
MFS
MFDD
OPEI ;
OPEI2 ; get external dispensing devices associated with the drug
DEA ;
DSH
CPTIER(VAPID) ;Called from PSSCOMMON Input Template
; VAPID = IEN OF DRUG FILE #50
GETTIER(PSSTDRUG) ;called by DIC to get copay tier for today's date
DATE(PSSCONVD) ;convert fileman date to mm/dd/yyyy
FD(PSSTDRUG) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,$C(7),"Another person is editing this one."
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"PRICE PER DISPENSE UNIT: ",$P(^PSDRUG(DA,660),"^",6)
  • Line Location: COMMON+5
Function Call: WRITE
  • Prompt: !,"Just a reminder...you are editing ",$P(^PSDRUG(DISPDRG,0),"^"),"."
  • Line Location: COMMON1+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to match/rematch to NATIONAL DRUG file"
  • Line Location: ASKND+0
Function Call: WRITE
  • Prompt: !,"If you answer ""yes"", you will attempt to match to NDF."
  • Line Location: ASKND+1
Function Call: WRITE
  • Prompt: !,"You have just VERIFIED this match and MERGED the entry."
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: !!,"MARK THIS DRUG AND EDIT IT FOR: "
  • Line Location: APP+0
Function Call: WRITE
  • Prompt: !,"O - Outpatient"
  • Line Location: CHOOSE+0
Function Call: WRITE
  • Prompt: !,"U - Unit Dose"
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: !,"I - IV"
  • Line Location: CHOOSE+2
Function Call: WRITE
  • Prompt: !,"W - Ward Stock"
  • Line Location: CHOOSE+3
Function Call: WRITE
  • Prompt: !,"D - Drug Accountability"
  • Line Location: CHOOSE+4
Function Call: WRITE
  • Prompt: !,"C - Controlled Substances"
  • Line Location: CHOOSE+5
Function Call: WRITE
  • Prompt: !,"X - Non-VA Med"
  • Line Location: CHOOSE+6
Function Call: WRITE
  • Prompt: !,"A - ALL"
  • Line Location: CHOOSE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOOSE+9
Function Call: WRITE
  • Prompt: !,"You do not have the proper keys to continue. Sorry, this concludes your editing session.",!
  • Line Location: CHOOSE+10
Function Call: WRITE
  • Prompt: !?43,C," - "
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: "Outpatient"
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: "Unit Dose"
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: "IV"
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: "Ward Stock"
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: "Drug Accountability"
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: "Controlled Substances"
  • Line Location: CHECK+10
Function Call: WRITE
  • Prompt: "Non-VA Med"
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: "Invalid Entry",$C(7)
  • Line Location: CHECK+12
Function Call: WRITE
  • Prompt: !,"** You are NOW editing OUTPATIENT fields. **"
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: !,"** You are NOW editing UNIT DOSE fields. **"
  • Line Location: UD+0
Function Call: WRITE
  • Prompt: !,"** You are NOW editing IV fields. **"
  • Line Location: IV+0
Function Call: WRITE
  • Prompt: !,"** You are NOW editing WARD STOCK fields. **"
  • Line Location: WS+0
Function Call: WRITE
  • Prompt: !,"** You are NOW editing DRUG ACCOUNTABILITY fields. **"
  • Line Location: DACCT+0
Function Call: WRITE
  • Prompt: !,"** You are NOW Marking/Unmarking for CONTROLLED SUBS. **"
  • Line Location: CS+0
Function Call: WRITE
  • Prompt: !,"** You are NOW Marking/Unmarking for NON-VA MEDS. **"
  • Line Location: NVM+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to mark to transmit to CMOP? "
  • Line Location: ASKCMOP+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to mark/unmark as a LAB MONITOR or CLOZAPINE DRUG? "
  • Line Location: ASKCLOZ+0
Function Call: WRITE
  • Prompt: !,"Mark/Unmark for Lab Monitor or Clozapine: "
  • Line Location: MONCLOZ+0
Function Call: WRITE
  • Prompt: !,"** You are NOW editing CLOZAPINE fields. **"
  • Line Location: CLOZ+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: USE+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: USE+2
Function Call: WRITE
  • Prompt: !," NONE"
  • Line Location: USE1+4
Function Call: WRITE
  • Prompt: !!,"You need to match this drug to ""PRIMARY DRUG"" file as well.",!
  • Line Location: PRIM1+0
Function Call: WRITE
  • Prompt: !!,"Defining a dispensing device at the drug level for a division will override"
  • Line Location: OPEI2+1
Function Call: WRITE
  • Prompt: !,"the dispensing device settings in the OUTPATIENT SITE File (#59). If populated,",!,"the drug will be sent to the dispensing device for that division.",!
  • Line Location: OPEI2+2
Function Call: WRITE
  • Prompt: !!,"****************************************************************************"
  • Line Location: DSH+0
Function Call: WRITE
  • Prompt: !,"This entry contains a ""1"" or a ""2"" in the ""DEA, SPECIAL HDLG""",!,"field, therefore this item has been UNMARKED for CMOP transmission."
  • Line Location: DSH+1
Function Call: WRITE
  • Prompt: !,"****************************************************************************",!
  • Line Location: DSH+2
Function Call: WRITE
  • Prompt: !,"Copay Tier: ",$P(PSSCP,"^",1)
  • Line Location: CPTIER+4
Function Call: WRITE
  • Prompt: !,"Copay Effective Date: "
  • Line Location: CPTIER+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: CPTIER+5
Function Call: WRITE
  • Prompt: " "_$$GET1^DIQ(50,PSSTDRUG,2)
  • Line Location: GETTIER+11
Function Call: WRITE
  • Prompt: " Tier ",$P(PSSCP,"^")
  • Line Location: GETTIER+16

FileMan Files Accessed Via FileMan Db Call

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