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

Package: National Drug File

Routine: PSNNFL1


Information

PSNNFL1 ;BIR/WRT-Report of National Formulary Names from VA PRODUCT file ; 11/22/98 15:10

Source Information

Source file <PSNNFL1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 1 ^%DT  

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
LOOP1
CHECK
LOOP

External References

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

Interaction Calls

Name Line Occurrences
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 CLASS)"
  • 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: !,"VA CLASS",!?8,"RESTRICTION",?21,"NATIONAL FORMULARY NAME",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
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 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!, LOOP1*, LOOP2, LOOP3, WRITE
CLNM DONE!, LOOP*
DA DONE!, LOOP, LOOPA*, CHECK
DIR DONE!
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 DONE+1!
PSNANSR DONE+1!
PSNAR DONE!
PSNATF DONE!, LOOP2*, LOOP3, WRITE
PSNB DONE!
PSNDATE DONE+1!
PSNDEV QUEUE*, DONE!, QUEUE1
PSNFF DONE!
PSNFG DONE!
PSNFLG DONE!, LOOP1*, WRITE*
PSNFLG1 DONE!, LOOP2*, WRITE*
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, LOOPA*
Y TITLE+2, DONE!
>> 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