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

Package: National Drug File

Routine: PSNMCLS


Information

PSNMCLS ;BIR/WRT-Print report of drugs manually classed (excluding supply items) SORT BY LOCAL GENERIC NAME ;01/12/98 5:18 PM

Source Information

Source file <PSNMCLS.m>

Call Graph

Call Graph

Call Graph Total: 3

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

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 PSNMCLS  

Entry Points

Name Comments DBIA/ICR reference
DVC
QUEUE
ENQ ;ENTRY POINT WHEN QUEUED
DONE
TITLE
LOOP1
LOOP2
STRIP
REPRT

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will give you an alphabetic listing, by local generic name, of the",!,"drugs from your local drug file which are ""active"" and have been assigned a",!
  • Line Location: PSNMCLS+2
Function Call: WRITE
  • Prompt: "manual VA Drug Classification through the option ""Allow Unmatched Drugs To Be",!,"Classed"". This report will exclude your supply items that have been assigned",!,"an ""XA"" class."
  • Line Location: PSNMCLS+3
Function Call: WRITE
  • Prompt: !,"You may queue the report to print, if you wish.",!
  • Line Location: PSNMCLS+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?23,"MANUALLY CLASSED DRUGS REPORT",!
  • 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",?63,"VA DRUG CLASS",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !!,PSNB,?10,$P(^PSDRUG(PSNB,0),"^",1),?63,$P(^PS(50.605,$P(^PSDRUG(PSNB,"ND"),"^",6),0),"^",1)
  • Line Location: REPRT+0
Routine Call
  • %ZIS
  • Line Location:
    • DVC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLE+2
^PS(50.605 - [#50.605] LOOP2STRIPREPRT
^PSDRUG - [#50] LOOP2REPRT
^PSDRUG("B" LOOP1

Label References

Name Line Occurrences
DONE DVC
DVC DVC
LOOP1 ENQ+2
LOOP2 LOOP1
REPRT STRIP
STRIP LOOP2
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*
CLSDA DONE+1!, LOOP2*, STRIP
CODE DONE+1!, STRIP*
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*
NAME DONE+1!, LOOP1*
POP DVC!, DONE+1!
PSNB DONE+1!, LOOP1*, LOOP2REPRT
PSNPGCT ENQ+2*, DONE+1!, TITLE*, TITLE+2
PSNPGLNG ENQ+2*, DONE+1!, REPRT
PSNPRT ENQ+2*, DONEDONE+1!, REPRT*
WRT DONE+1!, LOOP1*
Y DONE+1!, TITLE+2*
>> ZTDESC QUEUE*
>> ZTQUEUED DONE+1
>> ZTREQ DONE+1*
>> ZTRTN QUEUE*
ZTSK QUEUE!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All