Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNVIEW  

Entry Points

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

External References

Name Field # of Occurrence
^DIC LOOK, LOOK1

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
  • Prompt: "Select DRUG GENERIC NAME : "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: BILL
  • Line Location: LOOK+0
Function Call: READ
  • Prompt: "Select VA CLASS CODE : "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: BILLT
  • 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
Routine Call
  • DIC
  • Line Location:
    • LOOK
    • LOOK1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.605 - [#50.605] LOOP, DSPLY1, DSPLY+1
^PSDRUG - [#50] LOOP1, SET, DSPLY1, DSPLY1+1, DSPLY, DSPLY+1, DSPLY+2, DSPLY+3, SYN
^PSDRUG("VAC" LOOP, LOOP1
^TMP($J KILL!, ASK+7, LOOK1!, SET*, LOOP2

Label References

Name Line Occurrences
ASK BEGIN, ASK+2, ASK+4, ASK+5
DSPLY LOOK
DSPLY1 LOOP2
LOOK ASK+6, LOOK
LOOK1 ASK+7, LOOK1
LOOP1 LOOP
LOOP2 LOOP
READ LOOP2, READ+1, READ+3
SET LOOP1
SYN DSPLY1+1, DSPLY+3

Naked Globals

Name Field # of Occurrence
^("ND" DSPLY+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS KILL!, SET*, LOOP2, READ*, READ+1!, READ+2, READ+3, READ+4
BILL KILL!, LOOK*
BILLT KILL!, LOOK1*, LOOP
CL KILL!, DSPLY+1*
CLDA KILL!, LOOP*, LOOP1, DSPLY1
CLS KILL!, LOOP*
CST KILL!, LOOP2*, DSPLY1
DIC LOOK*!, LOOK1*!
DIC("S" LOOK*
DIC(0 LOOK*, LOOK1*
DTIME ASK, LOOK, LOOK1, READ
GG KILL!, LOOP2*
IFN KILL!, LOOK*, LOOP2*, DSPLY1, DSPLY1+1, DSPLY, DSPLY+1, DSPLY+2, DSPLY+3, SYN
IOF READ+4, DSPLY+1
NAM KILL!, LOOP2*
PRC KILL!, LOOP1*, SET
PSNANS BEGIN, KILL!, ASK*, ASK+1, ASK+2!, ASK+3, ASK+4, ASK+5!, ASK+6, ASK+7
PSNB KILL!, LOOP1*, SET
PSNSYN KILL!, SYN*
U LOOK1
VV KILL!, LOOP2*
X KILL!, LOOK*, LOOK1*
Y KILL!, ASK+6, ASK+7, LOOK, LOOK1
ZZ BEGIN*, KILL!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All