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

Package: National Drug File

Routine: PSNCLS


Information

PSNCLS ;BIR/WRT-VA Drug Class Report ;01/12/98 5:18 PM

Source Information

Source file <PSNCLS.m>

Entry Points

Name Comments DBIA/ICR reference
SORT
DONE
PRINT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will display the VA Drug Classification code and class name.",!
  • Line Location: PSNCLS+2
Function Call: READ
  • Prompt: "Would you also like to see the class descriptions? N// "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PSNCLS+3
Function Call: WRITE
  • Prompt: !,$S($P(^PS(50.605,D0,0),"^",4)=0:$P(^(0),"^"),$P(^PS(50.605,D0,0),"^",4)=1:" "_$P(^(0),"^"),$P(^PS(50.605,D0,0),"^",4)=2:" "_$P(^(0),"^"),1:$P(^PS(50.605,D0,0),"^")),?14,$P(^(0),"^",2)
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !,$P(^PS(50.605,D0,1,NOD,0),"^",1)
  • Line Location: PRINT+1

FileMan Files Accessed Via FileMan Db Call

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