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

Package: National Drug File

Routine: PSNSUPLY


Information

PSNSUPLY ;BIR/WRT-Print report of drugs with an "XA" classification- SORT BY CLASS CODE ;01/12/98 5:18 PM

Source Information

Source file <PSNSUPLY.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 PSNSUPLY  

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 QUEUE, DONE+1
^%ZTLOAD QUEUE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report should be run if you have already classed your local drugs/items",!,"using Version 1.0 of NDF. After the installation of Version 2.0 of NDF and the",!,"VA DRUG CLASS file is re-installed, you may wish "
  • Line Location: PSNSUPLY+2
Function Call: WRITE
  • Prompt: "to re-class your local items",!,"with an ""XA"" classification using the newly expanded ""XA000"" classification. It"
  • Line Location: PSNSUPLY+3
Function Call: WRITE
  • Prompt: !,"gives you a hard copy of the items from your local drug file which are ""active"" and have an ""XA"" VA Drug Classification.",!,"You may queue the report to print, if you wish.",!
  • Line Location: PSNSUPLY+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?8,"LOCAL ITEMS WITH A ""PROSTHETICS/SUPPLIES/DEVICES"" 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",?57,"VA CLASS",?70,"NEW CLASS",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !!,PSNB,?10,$P(^PSDRUG(PSNB,0),"^",1),?57,$P(^PS(50.605,$P(^PSDRUG(PSNB,"ND"),"^",6),0),"^",1),?70,"_______"
  • 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] LOOP2, STRIP, REPRT
^PSDRUG - [#50] LOOP2, REPRT
^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*, LOOP2, REPRT
PSNPGCT ENQ+2*, DONE+1!, TITLE*, TITLE+2
PSNPGLNG ENQ+2*, DONE+1!, REPRT
PSNPRT ENQ+2*, DONE, DONE+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