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

Package: National Drug File

Routine: PSNNFL


Information

PSNNFL ;BIR/WRT-Report of National Formulary Names from VA PRODUCT file ; 11/01/99 7:20

Source Information

Source file <PSNNFL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 ^%DT  ^DIR  
National Drug File 1 ^PSNNFL1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNNFL  

Entry Points

Name Comments DBIA/ICR reference
WRITE
ENQ1
TITLE
QUEUE1
LOOPA
DVC
QUEUE
ENQ ;ENTRY POINT WHEN QUEUED
DONE
LOOP3
LOOP2
ASK
PRELIM
LOOP1
CHECK
LOOP

External References

Name Field # of Occurrence
^%DT TITLE+2
^%ZIS DVC, QUEUE1
^%ZISC QUEUE+1, DONE+1
^%ZTLOAD QUEUE+1
^DIR ASK
^PSNNFL1 ASK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report will print out all National Formulary marked for National",!,"Formulary. You may sort by National Formulary Name or by VA Class.",!
  • Line Location: PRELIM+0
Function Call: WRITE
  • Prompt: "This information comes from the VA Product file.",!,"This report requires 132 columns. You may queue the report to print,",!,"if you wish.",!!
  • Line Location: PRELIM+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENQ1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?37,"VHA NATIONAL FORMULARY (BY NAME)"
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: ?85,"Date printed: ",Y,!!,"R Indicates that a Restriction exists for the Product.",?85,"Page: ",PSNPGCT,!!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !,"NATIONAL FORMULARY NAME",?100,"VA CLASS",?110,"RESTRICTION",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,PSNATF
  • Condition for execution: PSNFLG
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: ?100,CLASS,?110,REST,!
  • Line Location: WRITE+0
Routine Call
  • DIR
  • Line Location:
    • ASK
Routine Call
  • %ZIS
  • Line Location:
    • DVC
    • QUEUE1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLE+2
^PS(50.605 - [#50.605] LOOP
^PSNDF(50.68 - [#50.68] LOOP, LOOPA, CHECK
^TMP($J DONE!, LOOP*, LOOPA!, LOOP1, LOOP2, LOOP3

Label References

Name Line Occurrences
CHECK LOOP
DONE DVC, ENQ1+1
DVC ASK+1, DVC
LOOP LOOPA
LOOP1 ENQ1+1
LOOP2 LOOP1
LOOP3 LOOP2
LOOPA ENQ+1
QUEUE1 ENQ+2
TITLE ENQ1+1, WRITE
WRITE LOOP3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*, QUEUE+1!
%ZIS("A" DVC*
%ZIS("B" DVC*
CL DONE!, LOOP*
CLASS DONE!, LOOP2*, LOOP3, WRITE
CLNM DONE!
DA DONE!, LOOP, LOOPA*, CHECK
DIR ASK!, DONE!
DIR("A" ASK*
DIR(0 ASK*
>> DIRUT ASK
DU DONE+1!
IO ENQ+3
IO("Q" DVC!, QUEUE!, DONE+1!
IOF ENQ1+1, TITLE, DONE+1
IOM QUEUE
ION QUEUE
IOP DVC!, QUEUE+1!, DONE+1!, QUEUE1*
IOSL QUEUE, ENQ1
IOST DVC, QUEUE
MJT QUEUE+1!, TITLE+4*, DONE!
NA DONE!, LOOP*
PC DONE!, CHECK*
POP DVC!, QUEUE+1!, DONE+1!, QUEUE1
PSNAME DONE!
PSNANS ASK+1*, ASK+2*, DONE+1!
PSNANSR DONE+1!
PSNAR DONE!
PSNATF DONE!, LOOP1*, LOOP2, LOOP3, WRITE
PSNB DONE!
PSNDATE DONE+1!
PSNDEV QUEUE*, DONE!, QUEUE1
PSNFF DONE!
PSNFG DONE!
PSNFLG DONE!, LOOP1*, WRITE*
PSNFLG1 DONE!
PSNGG DONE!
PSNKK DONE!
PSNPGCT ENQ1*, TITLE*, TITLE+2, DONE!
PSNPGLNG ENQ1*, DONE!, WRITE
PSNPR DONE!
PSNTRD DONE+1!
PSNUM DONE+1!
REST DONE!, LOOP3*, WRITE
RESTSS DONE!
RS DONE!, LOOP*, CHECK*
SF DONE+1!
X TITLE+2*, DONE+1!
X0 DONE!, LOOP*
Y TITLE+2, DONE!
Y(0 ASK+1, ASK+2
>> ZTDESC QUEUE*
ZTDTH QUEUE!
>> ZTIO QUEUE*
>> ZTQUEUED ENQ+2, DONE
>> ZTREQ DONE*
ZTRTN QUEUE*, DONE!
ZTSAVE QUEUE!
ZTSAVE("PSNANS" QUEUE*
ZTSAVE("PSNDEV" QUEUE*
ZTSK QUEUE!, QUEUE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All