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

Package: National Drug File

Routine: PSNHFRM1


Information

PSNHFRM1 ;BIR/WRT-Report of Hospital Formulary drugs from DRUG file -sort by class ; 11/22/98 15:10

Source Information

Source file <PSNHFRM1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
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: 3

Package Total Caller Graph
National Drug File 3 PSNFRMPRT  PSNHEAD  PSNLDG1  

Entry Points

Name Comments DBIA/ICR reference
ENQ1
TITLE
DONE
QUEUE1
LOOP
GETDATE
GETNODE
GETPRIC
PRICE1
PRICE2
GETRADE1
GETRADE
TRADE1
TRADE2
TRADE3
BUILDIT
BUILDIT1
BUILD
LOOP1
LOOP2
LOOP3
LOOP4
WRITE
CHECK

External References

Name Field # of Occurrence
^%DT TITLE+2
NOW^%DTC GETDATE+1
^%ZIS QUEUE1
^%ZISC DONE+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_" FORMULARY (BY VA DRUG CLASS)"
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: ?55,"Date printed: ",Y,!?55,"Page: ",PSNPGCT,!!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !,?10,"VA DRUG CLASS",!,?29,"PRICE /"
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"GENERIC NAME",?29,"DISP UNT",?49,"TRADE NAME(S)",!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+1
Routine Call
  • %ZIS
  • Line Location:
    • QUEUE1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
BUILD BUILDIT1
BUILDIT PRICE1, PRICE2
BUILDIT1 BUILDIT
CHECK LOOP
DONE ENQ1+1
GETDATE CHECK, CHECK+1
GETNODE GETDATE, GETDATE+1
GETPRIC GETDATE, GETDATE+1
GETRADE GETNODE, PRICE1, PRICE2
GETRADE1 GETNODE, PRICE1, PRICE2
LOOP1 ENQ1+1
LOOP2 LOOP1
LOOP3 LOOP2
LOOP4 LOOP3
PRICE1 GETPRIC
PRICE2 GETPRIC
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
>> %DT TITLE+2*
>> D0 LOOP
DU DONE+1!, GETPRIC*, PRICE1, PRICE2
IO("Q" DONE+1!
IOF ENQ1+1, TITLE, DONE+1
IOP DONE+1!, QUEUE1*
IOSL ENQ1
MJT TITLE+5*, DONE!
POP DONE+1!, QUEUE1
PSNAME DONE!, LOOP*, 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*, GETDATE, GETDATE+1, GETNODE, GETPRIC, GETRADE1, GETRADE, TRADE1, TRADE2
, TRADE3, CHECK
PSNCL DONE!, LOOP1*, LOOP2, LOOP3, LOOP4, WRITE
PSNCLSS DONE!, LOOP*, GETRADE1, TRADE1, TRADE2, TRADE3
PSNCN DONE+1!, LOOP4*, WRITE
PSNDATE DONE+1!, GETDATE+1*
PSNDEV DONE!, QUEUE1
PSNFF DONE!, BUILDIT1*, BUILD
PSNFG DONE!, BUILD*
PSNFG1 DONE+1!, LOOP3*, WRITE*
PSNFG2 DONE+1!, LOOP4*, WRITE*
PSNFLAGG DONE+1!, LOOP2*, WRITE*
PSNFLG DONE!, LOOP1*, WRITE*
PSNGG DONE!, BUILDIT1*, BUILD
PSNHH DONE+1!, BUILDIT1*, BUILD
PSNKK DONE!, BUILDIT*, BUILDIT1
PSNLGN DONE!, LOOP2*, LOOP3, LOOP4, WRITE
PSNLOC DONE!, LOOP4*, WRITE
PSNPGCT ENQ1*, TITLE*, TITLE+2, DONE!
PSNPGLNG ENQ1*, DONE!, WRITE
PSNPR DONE!, LOOP3*, LOOP4, WRITE
PSNPRIC DONE!, GETPRIC*, PRICE1, PRICE2
PSNPRICE DONE!, GETNODE*, PRICE1*, PRICE2*, BUILD
PSNQ DONE+1!, LOOP*
PSNTRD DONE+1!, GETRADE1*, TRADE1*, TRADE2*, TRADE3*
PSNUM DONE+1!, GETRADE*, TRADE1, TRADE2, TRADE3
PSNVCN DONE+1!, LOOP*, BUILD
SF DONE+1!, CHECK, CHECK+1
X TITLE+2*, DONE+1!, GETDATE+1, GETNODE!
Y TITLE+2, DONE!
>> ZTQUEUED DONE
>> ZTREQ DONE*
ZTRTN DONE!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All