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

Package: National Drug File

Routine: PSNCMOP


Information

PSNCMOP ;BIR/DMA&WRT-print products marked for CMOP ; 12/26/13 14:33

Source Information

Source file <PSNCMOP.m>

Entry Points

Name Comments DBIA/ICR reference
PRELIM
END
GO ;ENTRY POINT
I ;SORT BY ID
HEADID
N ;SORT BY NAME
HEADNA

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report will print out all VA Product Names marked for CMOP transmission.",!,"You may either sort by VA Product Name or by VA Identifier.",!
  • Line Location: PRELIM+0
Function Call: WRITE
  • Prompt: "This information comes from the VA Products file (NATIONALLY MARKED).",!,?15,"*** This is a long report ***",!,"You may queue the report to print, if you wish.",!!
  • Line Location: PRELIM+1
Function Call: WRITE
  • Prompt: !,"No device selected",!
  • Line Location: PRELIM+3
Function Call: WRITE
  • Prompt: !,ID,?10,NA,?60,UN
  • Line Location: I+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADID+0
Function Call: WRITE
  • Prompt: !,?12,"VA PRODUCT LIST",?IOM-35," ",TD," PAGE ",PG,!,"ID#",?10,"VA PRINT NAME",?55,"VA DISP UNIT",!,LINE,!
  • Line Location: HEADID+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADNA+0
Function Call: WRITE
  • Prompt: !,?12,"VA PRODUCT LIST",?IOM-35," ",TD," PAGE ",PG,!,"VA PRODUCT NAME",!,?5,"VA PRINT NAME",?55,"VA DISP UNIT",?70,"ID#",!,LINE,!
  • Line Location: HEADNA+0
Info |  Source |  Entry Points |  Interaction Calls