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

Package: National Drug File

Routine: PSNSTCL


Information

PSNSTCL ;BIR/WRT-ALLOWS USER TO CLASSIFY A DRUG THAT CANNOT BE MATCHED ; 11/22/98 15:10

Source Information

Source file <PSNSTCL.m>

Entry Points

Name Comments DBIA/ICR reference
START
DONE
DRUG
CLASS
MLT
LOOP
SET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option allows a VA Drug Classification to be entered for",!,"a drug in your local drug file, however, if the drug has been"
  • Line Location: PSNSTCL+7
Function Call: WRITE
  • Prompt: !,"classed through ""the National Drug File merge procedure"" you cannot change it!",!
  • Line Location: PSNSTCL+8
Function Call: READ
  • Timeout: DTIME
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,"ANSWER MUST BE YES OR NO "
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+0
Function Call: WRITE
  • Prompt: !,"SORRY, CLASSIFICATION CANNOT BE CHANGED",!
  • Line Location: DRUG+3
Function Call: WRITE
  • Prompt: !!," Select VA DRUG CLASS CODE: "
  • Line Location: CLASS+0
Function Call: WRITE
  • Prompt: $P(^PS(50.605,CL,0),"^")_" // "
  • Line Location: CLASS+0
Function Call: READ
  • Variable: PSNCLANS
  • Timeout: DTIME
  • Line Location: CLASS+1
Function Call: WRITE
  • Prompt: !!,$S($D(DRUG):$P(^PSDRUG(DRUG,0),"^",1),$D(NAM):NAM,1:"")
  • Line Location: CLASS+7
Function Call: WRITE
  • Prompt: !,"THIS IS NOT A VALID ANSWER, YOU MUST BE MORE SPECIFIC",!
  • Line Location: CLASS+8
Function Call: WRITE
  • Prompt: !,"THIS IS AN INCORRECT FORMAT ",!
  • Line Location: CLASS+9
Function Call: WRITE
  • Prompt: !," THIS CLASSIFICATION DOES NOT EXIST. PLEASE TRY AGAIN. ",!
  • Line Location: CLASS+10
Function Call: WRITE
  • Prompt: !!,NAM
  • Line Location: SET+0

FileMan Files Accessed Via FileMan Db Call

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