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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSNOCLS

Package: National Drug File

Routine: PSNOCLS


Information

PSNOCLS ;BIR/CCH&WRT-Print report of drugs with no classification ;01/12/98 5:18 PM

Source Information

Source file <PSNOCLS.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNOCLS  

Entry Points

Name Comments DBIA/ICR reference
TITLE
REPRT
WRTDEA
DVC
QUEUE
ENQ ;ENTRY POINT WHEN QUEUED
DONE
LOOP

External References

Name Field # of Occurrence
^%ZIS DVC
^%ZISC QUEUE, DONE+1
^%ZTLOAD QUEUE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report should be run after executing the menu option ""Merge National Drug",!,"File Data Into Local File"". It may be useful to print this report before and",!,"after executing the ""Allow Unmatched Drugs To Be Classed"" option."
  • Line Location: PSNOCLS+2
Function Call: WRITE
  • Prompt: " It gives you",!,"a hard copy of the drugs from your local drug file which are ""active"" and have",!
  • Line Location: PSNOCLS+3
Function Call: WRITE
  • Prompt: "no VA Drug Classification.",!,"You may queue the report to print, if you wish.",!
  • Line Location: PSNOCLS+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?23,"LOCAL DRUGS WITH NO VA CLASSIFICATION",!
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?55,"Page: ",PSNPGCT,!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !,"NUMBER",?10,"LOCAL DRUG GENERIC NAME",?67,"DEA",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !!,PSNB,?10,$P(^PSDRUG(PSNB,0),"^",1)
  • Line Location: REPRT+0
Function Call: WRITE
  • Prompt: ?67,$P(^PSDRUG(PSNB,0),"^",3)
  • Line Location: WRTDEA+0
Routine Call
  • %ZIS
  • Line Location:
    • DVC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLE+2
^PSDRUG - [#50] LOOP, REPRT, WRTDEA

Label References

Name Line Occurrences
DONE DVC
DVC DVC
LOOP ENQ+2
REPRT LOOP
TITLE ENQ+2, REPRT
WRTDEA LOOP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*
%ZIS("A" DVC*
%ZIS("B" DVC*
BT DONE+1!, REPRT*
DT TITLE+2
IO ENQ+1
IO("Q" DVC!, QUEUE!, DONE+1!
IOF DONE+1, TITLE
IOP DVC!, DONE+1!
IOSL ENQ+2
IOST DVC
MJT DONE+1!, TITLE+4*
POP DVC!, DONE+1!
PSNB DONE+1!, LOOP*, REPRT, WRTDEA
PSNDEA DONE+1!, REPRT*
PSNMRK DONE+1!, LOOP, REPRT*
PSNOLD DONE+1!
PSNPGCT ENQ+2*, DONE+1!, TITLE*, TITLE+2
PSNPGLNG ENQ+2*, DONE+1!, REPRT
PSNPRT ENQ+2*, DONE, DONE+1!, REPRT*
Y DONE+1!, TITLE+2*
>> ZTDESC QUEUE*
>> ZTQUEUED DONE+1
>> ZTREQ DONE+1*
>> ZTRTN QUEUE*
ZTSK QUEUE!
ZX DONE+1!, REPRT*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All