Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls