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

Package: National Drug File

Routine: PSNONDF


Information

PSNONDF ;BIR/WRT-Print report of drugs with no match to NDF (all or only OP) ; 11/22/98 15:11

Source Information

Source file <PSNONDF.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  ^DIR  

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 PSNONDF  

Entry Points

Name Comments DBIA/ICR reference
ASK
DVC
QUEUE
ENQ ;ENTRY POINT WHEN QUEUED
DONE
TITLE
LOOP
CHECK
OUTPAT
NOTHG
MCLS
REPRT
OUT

External References

Name Field # of Occurrence
DD^%DT REPRT
^%ZIS DVC
^%ZISC QUEUE, DONE+1
^%ZTLOAD QUEUE
^DIR ASK

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""."
  • Line Location: PSNONDF+5
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: PSNONDF+6
Function Call: WRITE
  • Prompt: " no match to NDF. You have the choice",!,"to print ALL drugs or only drugs marked for Outpatient use. If you answer ""yes"" to the question, you will print all. If you answer ""no"", you will print only",!,"Outpatient use drugs."
  • Line Location: PSNONDF+7
Function Call: WRITE
  • Prompt: !,"You may queue the report to print, if you wish.",!
  • Line Location: PSNONDF+8
Function Call: WRITE
  • Prompt: !!,"Do you wish to print ALL drugs from your local file? "
  • Line Location: ASK+0
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 MATCH TO NDF",!
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?55,"Page: ",PSNPGCT,!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !?54,"DEA,",!?46,"MANUAL",?54,"SPCL",?61,"INACTIVE"
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"LOCAL DRUG GENERIC NAME",?46,"CLASS",?54,"HDLG",?61,"DATE",!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: !!,PSNLCL,?46,PSNVCL,?54,DEA
  • Line Location: REPRT+0
Function Call: WRITE
  • Prompt: ?61,Y
  • Line Location: REPRT+0
Routine Call
  • DIR
  • Line Location:
    • ASK
Routine Call
  • %ZIS
  • Line Location:
    • DVC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLE+2
^PSDRUG - [#50] OUTPAT, NOTHG, MCLS
^PSDRUG("B" LOOP

Label References

Name Line Occurrences
CHECK LOOP
DONE DVC
DVC DVC
LOOP ENQ+2
MCLS CHECK, OUTPAT
NOTHG CHECK, OUTPAT
OUT ASK
OUTPAT CHECK+1
REPRT NOTHG, MCLS
TITLE ENQ+2, REPRT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*
%ZIS("A" DVC*
%ZIS("B" DVC*
DEA DONE+1!, NOTHG*, MCLS*, REPRT
DIR ASK!, DONE+1!
DIR(0 ASK*
DT TITLE+2
>> DTOUT OUT
INDT DONE+1!, NOTHG*, MCLS*, REPRT
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+5*
POP DVC!, DONE+1!
PSNB DONE+1!, LOOP*, OUTPAT, NOTHG, MCLS
PSNFLAG ASK*!, DONE+1!, OUT*, OUT+1*
PSNLCL DONE+1!, LOOP*, REPRT
PSNMC DONE+1!, MCLS*
PSNOP ASK*!, ASK+1*, DONE+1!, CHECK, CHECK+1
PSNPGCT ENQ+2*, DONE+1!, TITLE*, TITLE+2
PSNPGLNG ENQ+2*, DONE+1!, REPRT
PSNPRT ENQ+2*, DONE, DONE+1!, REPRT+1*
PSNUSE DONE+1!, OUTPAT*
PSNVCL DONE+1!, NOTHG*, MCLS*, REPRT
X ASK!, ASK+1, DONE+1!, OUT+1
Y DONE+1!, TITLE+2*, REPRT*
>> ZTDESC QUEUE*
>> ZTQUEUED DONE+1
>> ZTREQ DONE+1*
>> ZTRTN QUEUE*
>> ZTSAVE("PSNOP" QUEUE*
ZTSK QUEUE!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All