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 Total: 5

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNFRMLY  

Entry Points

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

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