Routine: PSALNM

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

PSALNM ;BIR/LTL-NDC Duplicates Report (ITEM MASTER file) ;7/23/97

Source Information

Source file <PSALNM.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	5	DT^DICRW ^DIE ^DIR ^DIWP ^DIWW
Drug Accountability	1	$$ITEM^PSAUTL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Drug Accountability	1	PSA NDC CONTROL LOOP

Entry Points

Name	Comments	DBIA/ICR reference
START	;sets up edit loop
EXPL
LOOP
NOT
ED
OK
QUIT

External References

Name	Field # of Occurrence
DT^DICRW	PSALNM+5
^DIE	OK
^DIR	ED
^DIWP	NOT+3
^DIWW	NOT+3
$$ITEM^PSAUTL	LOOP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"I'll look through your DRUG file for any unmatched entries that have",!,"an NDC link to an item in the ITEM MASTER file.",! Line Location: EXPL+0
Function Call: WRITE	Prompt: !,$E($P(^PSDRUG(PSAD,0),U),1,39) Line Location: LOOP+1
Function Call: WRITE	Prompt: ?40,$G(^PRC(441,+PSAIT,1,1,0)) Line Location: NOT+1
Function Call: WRITE	Prompt: ! Line Location: ED+0
Function Call: WRITE	Prompt: ! Line Location: ED+0
Function Call: WRITE	Prompt: " Linked to Item #"_PSAIT Line Location: OK+0
Routine Call	DIE Line Location: OK
Routine Call	DIR Line Location: ED

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	LOOP+1, NOT, NOT+1, NOT+3
^PSDRUG - [#50]	LOOP, LOOP+1
^PSDRUG("AB"	NOT
^UTILITY($J	NOT+2!

Label References

Name	Line Occurrences
ED	NOT+1
QUIT	LOOP

Naked Globals

Name	Field # of Occurrence
^(2	LOOP
^(3	NOT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	START+1~
D1	START+1~
DA	START+1~, OK*
DIC	START+1~
DIE	START+1~, OK*
DIR	ED!
DIR("A"	ED*
DIR("B"	ED*
DIR(0	ED*
DIRUT	START+1~, LOOP
>> DIWL	NOT+2*
>> DIWP	NOT+2*
>> DIWR	NOT+2*
DLAYGO	START+1~
DR	START+1~, OK*
DTOUT	START+1~
DUOUT	START+1~
PSA	START+1~, NOT+3, NOT+4*
PSAD	START+1~, LOOP, LOOP+1, OK
PSAD(1	LOOP*, LOOP+1
PSADD	START+1~, LOOP!, LOOP+1, NOT*
PSAIT	START+1~, LOOP+1*, NOT, NOT+1, NOT+3, OK
U	LOOP, LOOP+1, NOT
X	START+1~, NOT+3*
Y	START+1~*, ED