Routine: PSGWADE

Customize PDF page

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

Information

PSGWADE ;BHAM ISC/PTD,CML-Enter AMIS Data for All Drugs in All AOUs ; 02/13/90 10:19

Source Information

Source file <PSGWADE.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	NOW^%DTC ^DIK
Auto Replenishment Ward Stock	1	LOOP^PSGWADE1

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
Auto Replenishment Ward Stock	1	PSGW ENTER AMIS DATA/ALL DRUGS

Entry Points

Name	Comments	DBIA/ICR reference
AOU
XREF
BUILD
SETGL

External References

Name	Field # of Occurrence
NOW^%DTC	PSGWADE+2
^DIK	SETGL
LOOP^PSGWADE1	AOU

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You must enter ""^"" at any prompt to quit.",!,"Press <RETURN> at any prompt to skip that drug.",!!,"If the conversion number is ""1"", then YOU MUST",!,"KEY IN ""1""; no defaults are assumed!",!! Line Location: PSGWADE+2
Function Call: WRITE	Prompt: "I need to gather some information now.",!,"This may take a little while........." Line Location: PSGWADE+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	SETGL, SETGL+1
^PSI(58.1 - [#58.1]	AOU, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3
^TMP("PSGW"	AOU!, SETGL+1*
^TMP("PSGWDN"	AOU!, BUILD+3*

Label References

Name	Line Occurrences
BUILD	XREF
SETGL	BUILD+2, BUILD+3
XREF	AOU

Naked Globals

Name	Field # of Occurrence
^(0	BUILD*, BUILD+1, SETGL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSGWADE+2
>> DA	SETGL*
>> DA(1	SETGL*
DIK	SETGL*!
>> K	BUILD+2, BUILD+3, SETGL+1
>> PSGWAOU	AOU*, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL
>> PSGWDR	XREF*, SETGL, SETGL+1
>> PSGWDT	PSGWADE+2*, BUILD+1
>> PSGWFLG	AOU*
>> PSGWITM	XREF*, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL
>> PSGWNM	BUILD+3, SETGL+1*
>> PSGWRET	AOU*
>> PSGWTY	BUILD+3*