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

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
National Drug File 1 (CL,VACLS)^PSNHELP1  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNSTCL  

Entry Points

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

External References

Name Field # of Occurrence
^DIC DRUG, CLASS+7
CL^PSNHELP1 DRUG+1, CLASS+6
VACLS^PSNHELP1 START+3

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
Routine Call
  • DIC
  • Line Location:
    • DRUG
    • CLASS+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.3 - [#50.3] CLASS+14
^PS(50.605 - [#50.605] CLASS, CLASS+4, CLASS+10, CLASS+12, CLASS+18
^PS(59.7 - [#59.7] CLASS+12
^PSDRUG - [#50] DRUG+3, CLASS, CLASS+7, CLASS+12*, CLASS+14, CLASS+18, LOOP, LOOP+1, LOOP+2
^PSDRUG("AOC" CLASS+17!, CLASS+18*
^PSDRUG("APC" CLASS+13!*, CLASS+14*
^PSDRUG("B" MLT, MLT+2
^PSDRUG("VAC" CLASS+11!, CLASS+12*
^PSNTRAN - [#50.612] MLT+1, CLASS+15!, MLT+1!, MLT+3*, SET!
^PSNTRAN("END" MLT, MLT+3, SET*

Label References

Name Line Occurrences
CLASS DRUG+1, CLASS+2, CLASS+6, CLASS+7, CLASS+8, CLASS+9, CLASS+10, SET
DONE START, MLT+3
DRUG START+5
LOOP MLT+2
MLT START+2
SET LOOP+1, LOOP+2
START START+1, START+3, START+4

Naked Globals

Name Field # of Occurrence
^(49.99 CLASS+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS1 START*, START+1, START+2, START+3, START+4, DONE!
CL DONE!, CLASS!*, CLASS+3, CLASS+4
COD DONE!, CLASS+13*, CLASS+17*
DA DONE!, MLT+2*, LOOP, LOOP+1, LOOP+2, SET
DIC DRUG*!, CLASS+7*!
DIC(0 DRUG*, CLASS+7*
DRUG DONE!, DRUG+3*, CLASS, CLASS+7, CLASS+11, CLASS+12, CLASS+13, CLASS+14, CLASS+15, CLASS+17
, CLASS+18, SET*
DT LOOP
DTIME START, CLASS+1
FLAG DONE!, CLASS+12*, CLASS+13*, CLASS+14
IFN DONE!, MLT*, MLT+1, SET
NAM DONE!, CLASS+7, MLT*, MLT+2*, SET
PDA DONE!, MLT+3, SET*
PP DONE!, CLASS+13*, CLASS+17*
PRIM DONE!, CLASS+14*, CLASS+18*
PSNCLANS DONE!, CLASS!, CLASS+1*, CLASS+2, CLASS+3*, CLASS+4*, CLASS+5, CLASS+6, CLASS+7, CLASS+8
, CLASS+9, CLASS+10, CLASS+12, CLASS+13, CLASS+14
PSNCLDA DONE!, CLASS+12*, CLASS+18
PSNFL START+5*, DONE!, DRUG*, DRUG+2*, CLASS+1*, CLASS+3*, CLASS+5*, MLT*, MLT+2, SET
PSNMM START+5*, DONE!
VADC DONE!, CLASS+11*
VV DONE!, MLT+2*
X DONE!, DRUG, DRUG+1, CLASS+7*
Y DONE!, DRUG+2, DRUG+3, CLASS+7
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