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

Package: National Drug File

Routine: PSNHFRM


Information

PSNHFRM ;BIR/WRT-Report of Hospital Formulary drugs from DRUG file ; 8/28/07 12:07pm

Source Information

Source file <PSNHFRM.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DT  NOW^%DTC  

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 PSNFRMLY  

Entry Points

Name Comments DBIA/ICR reference
DVC
QUEUE
ENQ ;ENTRY POINT WHEN QUEUED
ENQ1
TITLE
DONE
QUEUE1
LOOP
GETDATE
GETNODE
GETPRIC
PRICE1
PRICE2
GETRADE1
GETRADE
TRADE1
TRADE2
TRADE3
BUILDIT
BUILDIT1
BUILD
LOOP1
LOOP2
LOOP3
LOOP4
WRITE
DATE
DATE0
PSNPR1
CHECK

External References

Name Field # of Occurrence
^%DT TITLE+2
NOW^%DTC GETDATE+1, DATE0+1
^%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: !,PSNANS
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: ?55,"Date printed: ",Y,!?55,"Page: ",PSNPGCT,!!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !,"GENERIC/TRADE NAME"
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,?3,"GENERIC/TRADE NAME",?46,"CLASS",?59,"PRICE / DISP UNT",!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: PSNLOC="ZZXZZXZZX"
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: ?46,PSNCL,?59,PSNPR,!
  • Line Location: WRITE+0
Routine Call
  • %ZIS
  • Line Location:
    • DVC
    • QUEUE1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLE+2
^PSDRUG - [#50] LOOP, LOOP+1, LOOP+2, LOOP+3, GETDATE, GETDATE+1, GETNODE, GETPRIC, GETRADE1, GETRADE
, TRADE1, TRADE2, TRADE3, DATE, DATE0, DATE0+1, CHECK
^TMP($J DONE!, BUILD*, LOOP1, LOOP2, LOOP3, LOOP4, DATE!, DATE0*, DATE0+1*

Label References

Name Line Occurrences
BUILD BUILDIT1
BUILDIT PRICE1, PRICE2
BUILDIT1 BUILDIT
CHECK LOOP+3
DATE0 DATE
DONE DVC, ENQ1+1
DVC DVC
GETDATE CHECK, CHECK+1
GETNODE GETDATE, GETDATE+1
GETPRIC GETDATE, GETDATE+1
GETRADE GETNODE, PRICE1, PRICE2
GETRADE1 GETNODE, PRICE1, PRICE2
LOOP ENQ+1
LOOP1 ENQ1+1
LOOP2 LOOP1
LOOP3 LOOP2
LOOP4 LOOP3
PRICE1 GETPRIC
PRICE2 GETPRIC
PSNPR1 PRICE2
QUEUE1 ENQ+2
TITLE ENQ1+1, WRITE
TRADE1 GETRADE
TRADE2 GETRADE
TRADE3 GETRADE
WRITE LOOP4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*, QUEUE+1!
%ZIS("A" DVC*
%ZIS("B" DVC*
DU DONE+1!, GETPRIC*, PRICE1, PSNPR1
IO ENQ+3
IO("DOC" QUEUE
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+5*, DONE!
POP DVC!, QUEUE+1!, DONE+1!, QUEUE1
PSNAME DONE!, LOOP+2*, GETRADE1, TRADE1, TRADE2, TRADE3
PSNANS TITLE+1, DONE+1!
PSNANSR DONE+1!
PSNAR DONE!, GETRADE1!, GETRADE!
PSNAR( BUILDIT1
PSNAR(1 GETRADE1*, TRADE2*
PSNAR(2 TRADE3*
PSNAR(3 TRADE1*
PSNB DONE!, LOOP*, LOOP+1, LOOP+2, LOOP+3, GETDATE, GETDATE+1, GETNODE, GETPRIC, GETRADE1
, GETRADE, TRADE1, TRADE2, TRADE3, DATE*, DATE0, DATE0+1, CHECK
PSNCL DONE!, LOOP3*, LOOP4, WRITE
PSNCLSS DONE!, LOOP+3*, BUILD
PSNDATE DONE+1!, GETDATE+1*, DATE0+1*!
PSNDEV QUEUE*, DONE!, QUEUE1
PSNFF DONE!, BUILDIT1*, BUILD
PSNFG DONE!, BUILD*
PSNFLG DONE!, LOOP1*, WRITE*
PSNGG DONE!, BUILDIT1*, BUILD
PSNKK DONE!, BUILDIT*, BUILDIT1
PSNLGN DONE!, LOOP1*, LOOP2, LOOP3, LOOP4, WRITE
PSNLOC DONE!, LOOP2*, LOOP3, LOOP4, WRITE
PSNPGCT ENQ1*, TITLE*, TITLE+2, DONE!
PSNPGLNG ENQ1*, DONE!, WRITE
PSNPR DONE!, LOOP4*, WRITE
PSNPRIC DONE!, GETPRIC*, PRICE1, PRICE2, PSNPR1
PSNPRICE DONE!, GETNODE*, PRICE1*, PRICE2*, BUILD, PSNPR1*
PSNTRD DONE+1!, GETRADE1*, TRADE1*, TRADE2*, TRADE3*
PSNUM DONE+1!, GETRADE*, TRADE1, TRADE2, TRADE3
SF DONE+1!, CHECK, CHECK+1
X TITLE+2*, DONE+1!, GETDATE+1, GETNODE!, DATE0+1!
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*
ZTSAVE("SF" 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