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

Package: Drug Accountability

Routine: PSATI


Information

PSATI ;BIR/LTL-Single Drug Match ;7/23/97

Source Information

Source file <PSATI.m>

Entry Points

Name Comments DBIA/ICR reference
START
LOOK
DIS
QUES1
NDC
MORE
FSN
FAIL
CON
NDF ;Offer NDF path
AGAIN
QUIT
BINGO

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P($G(^PSDRUG(+PSAIT,0)),U),!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"This drug is currently linked to the following item(s):",!!
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: !!,"Current potential ITEM MASTER file links based on NDC or FSN are:",!!
  • Line Location: QUES1+1
Function Call: WRITE
  • Prompt: "DRUG file NDC: "_PSANDC
  • Line Location: NDC+0
Function Call: WRITE
  • Prompt: ?40,"ITEM NUMBER: "_PSAI,!!,"DESC: "_$$DESCR^PRCPUX1(0,PSAI),!
  • Line Location: NDC+1
Function Call: WRITE
  • Prompt: !?60,"* Inactive item"
  • Condition for execution: $G(^PRC(441,+PSAI,3))
  • Line Location: NDC+1
Function Call: WRITE
  • Prompt: !?40,"ITEM NUMBER: "_PSAI(PSAZ),!!,"DESC: ",$$DESCR^PRCPUX1(0,PSAI(PSAZ))
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: !?60,"* Inactive item"
  • Condition for execution: $G(^PRC(441,+PSAI(PSAZ),3))
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: " NO NDC MATCH IN ITEM MASTER file.",!!,"DRUG file FSN: "_PSAFSN,?40,"ITEM NUMBER: "_PSAI,!!,"DESC: ",$$DESCR^PRCPUX1(0,PSAI),!
  • Line Location: FSN+1
Function Call: WRITE
  • Prompt: !!,"No NDF link, can't help.",!
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: !!,"No NDF link, can't help.",!
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !!,"No matching PACKAGE SIZE in the National Drug File."
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: !!,"No matching PACKAGE TYPE in the National Drug file."
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: !!,"This drug is linked to the NATIONAL DRUG file.",!!,"There may be an NDC there that will link to the ITEM MASTER file.",!
  • Line Location: NDF+1
Function Call: WRITE
  • Prompt: !,"Sorry, there is no entry in the PSNDF VA PRODUCT NAME, cannot find match.",!
  • Line Location: NDF+5
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAIN+1
Function Call: WRITE
  • Prompt: !!,"DRUG file: "_$P(^PSDRUG(PSADRUG,0),U),!!,"Item #: "_PSAI," Desc: ",$$DESCR^PRCPUX1(0,PSAI),!
  • Line Location: BINGO+2
Function Call: WRITE
  • Prompt: " linked."
  • Line Location: BINGO+4

FileMan Files Accessed Via FileMan Db Call

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