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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSNCLPR

Package: National Drug File

Routine: PSNCLPR


Information

PSNCLPR ;BIR/DMA&WRT-print products sorted by class ; 11/22/98 15:10

Source Information

Source file <PSNCLPR.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZISC  $$HTE^XLFDT  EN^XUTMDEVQ  
VA FileMan 1 ^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 PSNCLPR  

Entry Points

Name Comments DBIA/ICR reference
PRELIM
END
GO ;ENTRY POINT
HEAD
DISC

External References

Name Field # of Occurrence
^%ZISC GO+8
^DIR PRELIM+2
$$HTE^XLFDT GO+6
EN^XUTMDEVQ PRELIM+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report will print out all VA Product Names by VA Drug Class. You may",!,"sort by Primary, Secondary, or Both Classes. This information comes from",!,"the VA Products file.",!
  • Line Location: PRELIM+0
Function Call: WRITE
  • Prompt: "You may queue the report to print, if you wish.",!!
  • Line Location: PRELIM+1
Function Call: WRITE
  • Prompt: !,"No device selected",!
  • Line Location: PRELIM+3
Function Call: WRITE
  • Prompt: !,CL,?S="B"*8+10,NA
  • Line Location: GO+7
Function Call: WRITE
  • Prompt: ?S="B"*10+12,"VA PRODUCT NAME",!,LINE,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!,"***DISCLAIMER: The Secondary VA Drug Class field has not been populated",!,"with data at this time. No report will be generated if sort by Secondary (S)",!,"is chosen. Currently, sorting"
  • Line Location: DISC+0
Function Call: WRITE
  • Prompt: " by Primary (P) VA Drug Class is the same as",!,"sorting by both classes. This disclaimer will be removed once the field is",!,"populated with data.",!!
  • Line Location: DISC+1
Routine Call
  • DIR
  • Line Location:
    • PRELIM+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.605 - [#50.605] GO+3, GO+4
^PSNDF( GO+4
^PSNDF(50.68 - [#50.68] GO+2, GO+3
^TMP($J END!, GO+1!, GO+3*, GO+4*, GO+7

Label References

Name Line Occurrences
DISC PRELIM+1
END PRELIM+2
HEAD GO+7

Naked Globals

Name Field # of Occurrence
^( GO+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CL END!, GO+3*, GO+4*, GO+7*, GO+8!
DA END!, GO+2*, GO+3, GO+4, GO+8!
DIR PRELIM+2!, END!
DIR("A" PRELIM+2*
DIR(0 PRELIM+2*
>> DIRUT PRELIM+2
IOF HEAD
IOM GO+6, HEAD
IOSL GO+7
K END!, GO+4*, GO+8!
LINE END!, GO+6*, GO+8!, HEAD
NA END!, GO+2*, GO+3, GO+4, GO+7*, GO+8!
>> PG GO+6*, HEAD*
>> POP PRELIM+3
S PRELIM+2*, END!, GO+3, GO+4, GO+7, GO+8!, HEAD
TD END!, GO+6*, GO+8!, HEAD
X END!
Y PRELIM+2, END!
>> ZTQUEUED GO+8
>> ZTREQ GO+8*
ZTSAVE PRELIM+3, END!
ZTSAVE("S" PRELIM+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All