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

Package: CMOP

Routine: PSXVPN


Information

PSXVPN ;BIR/WRT-Report of Local drugs with the same VA Print Name ;[ 10/19/98 8:55 AM ]

Source Information

Source file <PSXVPN.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
National Drug File 1 $$PROD2^PSNAPIS  
VA FileMan 1 ^%DT  

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
CMOP 1 PSXX LOCAL DATA  

Entry Points

Name Comments DBIA/ICR reference
TEXT
DVC
QUEUE
ENQ ;Called by Taskman to run report of Local drugs with same name report
ENQ1
TITLE
DONE
QUEUE1
LOOP
GETVPN
NOTNUL
TMP
LOOP1
LOOP2
WRITE

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will produce a report to help you review your NDF matches.",!
  • Line Location: TEXT+0
Function Call: WRITE
  • Prompt: "The report will group drugs together that are matched to the same VA Print",!,"Name along with the VA Dispense Unit. These will be used for CMOP purposes.",!,"You may queue the report to print, if you wish.",!!
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENQ1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?10,"LOCAL DRUGS MATCHED TO THE SAME VA PRINT NAME",!
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: ?55,"Date printed: ",Y,!?55,"Page: ",PSXPGCT,!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !,"VA PRINT NAME",?55,"VA DISPENSE UNIT",!,?5,"Local GENERIC NAME",?60,"Local DISPENSE UNIT",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,PSXNVP,?55,PSXNDP
  • Condition for execution: PSXFLG
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !,?5,PSXAME,?60,PSXLLDP,!
  • 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, GETVPN, GETVPN+1, NOTNUL, LOOP2
^TMP($J DONE!, TMP*, LOOP1, LOOP2

Label References

Name Line Occurrences
DONE DVC, ENQ1+1
DVC DVC
GETVPN LOOP
LOOP ENQ+1
LOOP1 ENQ1+1
LOOP2 LOOP1
NOTNUL GETVPN+2
QUEUE1 ENQ+2
TITLE ENQ1+1, WRITE
TMP NOTNUL
WRITE LOOP2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*, QUEUE+1!
%ZIS("A" DVC*
%ZIS("B" DVC*
IO ENQ+3
IO("Q" DVC!, QUEUE!, DONE!
IOF ENQ1+1, TITLE, DONE
IOM QUEUE
ION QUEUE
IOP DVC!, QUEUE+1!, DONE!, QUEUE1*
IOSL QUEUE, ENQ1
IOST DVC, QUEUE
MJT QUEUE+1!, TITLE+4*, DONE!
POP DVC!, QUEUE+1!, DONE!, QUEUE1
PSXAME DONE!, LOOP2*, WRITE
PSXB DONE!, LOOP*, GETVPN, GETVPN+1, NOTNUL, TMP
PSXCMOP DONE!
PSXCS GETVPN!*
PSXDEV QUEUE*, DONE!, QUEUE1
PSXDN DONE!, GETVPN+1*
PSXDP DONE!, GETVPN+2*, TMP
PSXFLG DONE!, LOOP1*, WRITE*
PSXGN DONE!, GETVPN+1*, GETVPN+2
PSXLDP DONE!, NOTNUL*, TMP
PSXLLDP DONE!, LOOP2*, WRITE
PSXLOC DONE!, LOOP2*
PSXNDP DONE!, LOOP2*, WRITE
PSXNVP DONE!, LOOP1*, LOOP2, WRITE
PSXPGCT ENQ1*, TITLE*, TITLE+2, DONE!
PSXPGLNG ENQ1*, DONE!, WRITE
PSXVAP DONE!, GETVPN+2*, NOTNUL, TMP
PSXVP DONE!, GETVPN+1*, GETVPN+2
X TITLE+2*, DONE!
Y TITLE+2, DONE!
>> ZTDESC QUEUE*
ZTDTH QUEUE!
>> ZTIO QUEUE*
>> ZTQUEUED ENQ+2, DONE
>> ZTREQ DONE*
ZTRTN QUEUE*, DONE!
ZTSAVE QUEUE!
ZTSAVE("PSXANS" QUEUE*
ZTSAVE("PSXDEV" QUEUE*
ZTSK QUEUE!, QUEUE+1!
ZX GETVPN+2*!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All