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

Package: Pharmacy Data Management

Routine: PSSMARK


Information

PSSMARK ;BIR/WRT-Review single NDF matches for CMOP ; 9/14/11 11:29am

Source Information

Source file <PSSMARK.m>

Entry Points

Name Comments DBIA/ICR reference
PICK
DONE
TEXT
DISPLAY
CHECK
MARK
UNMARK
QUES2
DUP
XREF
BLD ;
BLD5
BLD1
PICK1
PICK2
GOTIT
OUT
IDENT
QUEST
QUESTA
OLDNM
OLD
OLD1
SYN
SYN1
QDM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option allows you to choose entries from your drug file and helps you",!,"review your NDF matches and mark individual entries to send to CMOP.",!
  • Line Location: TEXT+0
Function Call: WRITE
  • Prompt: !,"If you mark the entry to transmit to CMOP, it will replace your Dispense Unit",!,"with the VA Dispense Unit. In addition, you may overwrite the local drug name",!,"with the VA Print Name and the entry will remain uneditable.",!
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+0
Function Call: WRITE
  • Prompt: !!?3,"Local Drug Generic Name: ",PSXLOC
  • Line Location: DISPLAY+0
Function Call: WRITE
  • Prompt: !!?3,"Local Drug Generic Name: ",PSXLOC
  • Line Location: DISPLAY+0
Function Call: WRITE
  • Prompt: !!,"VA Print Name: ",PSXVAP,?59,"VA Dispense Unit: ",PSXDP,!,"VA Drug Class: ",$P(^PS(50.605,$P(PSXDN,"^",6),0),"^",1),?50,"CMOP ID: ",PSXID
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,"COPAY Tier: ",$P(PSNCP,"^",1)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !!,"Do you wish to mark this drug to transmit to CMOP? "
  • Line Location: MARK+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to UNmark this drug to transmit to CMOP? "
  • Line Location: UNMARK+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to overwrite your local name? "
  • Line Location: QUES2+0
Function Call: WRITE
  • Prompt: !,"You cannot write over the GENERIC NAME because one already has that",!,"VA Print Name. You cannot have duplicate names.",!
  • Line Location: DUP+0
Function Call: WRITE
  • Prompt: !,PSSEXP(PSSXX)
  • Line Location: PICK2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PICK2+1
Function Call: WRITE
  • Prompt: !!,"Your old Dispense Unit ",$P(PSXODE,"^",8)," does not match the new one ",PSXDP,".",!,"You may wish to edit the Price Per Order Unit and/or The Dispense",!,"Units Per Order Unit.",!
  • Line Location: QUEST+0

FileMan Files Accessed Via FileMan Db Call

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