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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSNCMOP

Package: National Drug File

Routine: PSNCMOP


Information

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

Source Information

Source file <PSNCMOP.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZISC  $$HTE^XLFDT  EN^XUTMDEVQ  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNCMOP  

Entry Points

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

External References

Name Field # of Occurrence
^%ZISC GO+2
^DIR PRELIM+2
$$HTE^XLFDT I+2, N+2
EN^XUTMDEVQ PRELIM+3

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
Routine Call
  • DIR
  • Line Location:
    • PRELIM+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSNDF(50.64 - [#50.64] I+1, N+1
^PSNDF(50.68 - [#50.68] I+1, N+1
^TMP($J END!, GO+1!, GO+2!, I+1*, I+3, N+1*, N+3

Label References

Name Line Occurrences
@( GO+1
END PRELIM+2
HEADID I+2, I+3
HEADNA N+2, N+4

Naked Globals

Name Field # of Occurrence
^( I+1, N+1
^(1 I+1, N+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA GO+2!, I+1*, N+1*
DIR PRELIM+2!, END!, GO+2!
DIR("A" PRELIM+2*
DIR(0 PRELIM+2*
>> DIRUT PRELIM+2
ID GO+2!, I+1*, I+3*, N+1*, N+3*, N+4
IOF HEADID, HEADNA
IOM I+2, HEADID, N+2, HEADNA
IOSL I+3, N+4
LINE GO+2!, I+2*, HEADID, N+2*, HEADNA
NA GO+2!, I+1*, I+3*, N+1*, N+3*, N+4
PG GO+2!, I+2*, HEADID*, N+2*, HEADNA*
>> POP PRELIM+3
PR GO+2!, N+1*, N+3*, N+4
S PRELIM+2*, END!, GO+1, GO+2!
TD GO+2!, I+2*, HEADID, N+2*, HEADNA
UN GO+2!, I+1*, I+3*, N+1*, N+3*, N+4
X END!
X0 GO+2!, I+1*, N+1*
X1 GO+2!, I+1*, N+1*
Y PRELIM+2, END!, GO+2!
>> ZTQUEUED GO+2
>> ZTREQ GO+2*
ZTSAVE PRELIM+3, END!
ZTSAVE("S" PRELIM+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All