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

Package: National Drug File

Routine: PSNVIEW


Information

PSNVIEW ;BIR/WRT-look-up into drug file ; 10/13/98 13:27

Source Information

Source file <PSNVIEW.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN
KILL
ASK
LOOK
LOOK1
LOOP
LOOP1
SET
LOOP2
READ
DSPLY1
DSPLY
SYN

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,?5,"Enter a ""G"" to inquire by Generic Name or Synonym",!,?5,"Enter a ""C"" to inquire by a particular VA Drug Class Code.",!,?5,"You may enter an ""^"" to exit.",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: ?67,"GENERIC",!
  • Line Location: ASK+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Select DRUG GENERIC NAME : "
  • Variable: BILL
  • Timeout: DTIME
  • Line Location: LOOK+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Select VA CLASS CODE : "
  • Variable: BILLT
  • Timeout: DTIME
  • Line Location: LOOK1+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to see next drug or you may enter an ""^"" to exit.",!
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: READ+4
Function Call: WRITE
  • Prompt: !,?14,"GENERIC NAME: ",$P(^PSDRUG(IFN,0),"^"),!!,?8,"VA DRUG CLASS CODE: ",$P(^PS(50.605,CLDA,0),"^",1)," ",$P(^PS(50.605,CLDA,0),"^",2),!,?5,"PRICE/DISPENSING UNIT: ",CST,!!
  • Line Location: DSPLY1+0
Function Call: WRITE
  • Prompt: ?5,"MESSAGE: ",$P(^PSDRUG(IFN,0),"^",10),!!,"SYNONYM(S): "
  • Line Location: DSPLY1+1
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: DSPLY1+1
Function Call: WRITE
  • Prompt: !!,"This is a NON-FORMULARY drug",!
  • Line Location: DSPLY+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSPLY+1
Function Call: WRITE
  • Prompt: !?14,"GENERIC NAME: ",$P(^PSDRUG(IFN,0),"^"),!!,?8,"VA DRUG CLASS CODE: "
  • Line Location: DSPLY+1
Function Call: WRITE
  • Prompt: !?14,"GENERIC NAME: ",$P(^PSDRUG(IFN,0),"^"),!!,?8,"VA DRUG CLASS CODE: "
  • Line Location: DSPLY+1
Function Call: WRITE
  • Prompt: !,?5,"PRICE/DISPENSING UNIT: ",$S($D(^PSDRUG(IFN,660)):$P(^PSDRUG(IFN,660),"^",6),1:"")
  • Line Location: DSPLY+2
Function Call: WRITE
  • Prompt: !!,?5,"MESSAGE: ",$P(^PSDRUG(IFN,0),"^",10),!!,"SYNONYM(S): "
  • Line Location: DSPLY+3
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DSPLY+3
Function Call: WRITE
  • Prompt: !?5,$P(^PSDRUG(IFN,1,PSNSYN,0),"^",1)
  • Line Location: SYN+0

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