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 | Local Variables | All

Print Page as PDF

Routine: NURSADEL

Package: Nursing Service

Routine: NURSADEL

Information

NURSADEL ;CISC/MD/MH-PURGE ROUTINE FOR FILES 214.6 - 214.7 ;12/07/89

Source Information

Source file <NURSADEL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	3	^%DT YN^DICN (D,DT)^DIQ
Kernel	1	SETUP^XQALERT
Nursing Service	1	^NURSKILL

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action

^A

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

^O

limited protocol

^LP

run routine

^RR

broker

^B

edit

^E

server

^Se

print

^P

screenman

^SM

inquire

^I

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Nursing Service	1	NURS-PURG

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; ENTRY POINT TO PURGE DATA FROM FILES 214.6 AND 214.7
EN1A
ASK
Q
PURGE	; ENTRY POINT TO PURGE DATA FROM THE NURSP(214.6 AND NURSP(214.7 GLOBALS
AROUND
EN2	;REINDEX FILES
EN3
INDX1	;
INDX2	;

External References

Name	Field # of Occurrence
^%DT	ASK
YN^DICN	EN1+1, EN1A, ASK+1
D^DIQ	ASK
DT^DIQ	ASK+1
^NURSKILL	Q
SETUP^XQALERT	ASK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Has Nursing been contacted before purging data from files 214.6 and 214.7" Line Location: EN1+1
Function Call: WRITE	Prompt: !!,$C(7),"ANSWER 'YES' or 'NO'" Line Location: EN1+2
Function Call: WRITE	Prompt: !!!,$C(7),"Contact Nursing before proceeding!",! Line Location: EN1+3
Function Call: WRITE	Prompt: !!,$C(7),"Has journaling of ^NURSA global been stopped" Line Location: EN1A+0
Function Call: WRITE	Prompt: !!,$C(7),"ANSWER 'YES' OR 'NO'" Line Location: EN1A+1
Function Call: WRITE	Prompt: !!!,$C(7),"Stop journaling of ^NURSA global before proceeding!",! Line Location: EN1A+2
Function Call: WRITE	Prompt: $C(7),!,?4,"ANSWER 'YES' OR 'NO':" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,$C(7),"Purge is completed, journaling for the ^NURSA global should be restarted!" Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"Purging 214.6 data.." Line Location: PURGE+1
Function Call: WRITE	Prompt: !,$C(7),"INCOMPLETE DATA FILE" Line Location: PURGE+2
Function Call: WRITE	Prompt: "." Line Location: PURGE+3
Function Call: WRITE	Prompt: !!,"Purging 214.7 data .." Line Location: AROUND+0
Function Call: WRITE	Prompt: !,$C(7),"INCOMPLETE DATA FILE" Line Location: AROUND+1
Function Call: WRITE	Prompt: "." Line Location: AROUND+2
Function Call: WRITE	Prompt: !,"Reindexing File 214.6 .." Line Location: EN2+1
Function Call: WRITE	Prompt: "." Line Location: EN2+2
Function Call: WRITE	Prompt: !,"Reindexing File 214.7 .." Line Location: EN3+0
Function Call: WRITE	Prompt: "." Line Location: EN3+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^NURSA(214.6 - [#214.6]	PURGE+1, PURGE+2, PURGE+3!, PURGE+4!, EN2+1, EN2+2, EN2+3, INDX1+1, INDX1+2, INDX1+3 , INDX1+4, INDX1+5
^NURSA(214.7 - [#214.7]	AROUND, AROUND+1, AROUND+2!, AROUND+3!, EN3, EN3+1, EN3+2, INDX2+1, INDX2+2, INDX2+3 , INDX2+4, INDX2+5

Label References

Name	Line Occurrences
AROUND	PURGE+1
ASK	ASK+1, ASK+2
EN1	EN1+2
EN1A	EN1A+1
EN2	ASK+3
EN3	ASK+3
INDX1	EN2+2
INDX2	EN3+1
PURGE	ASK+3
Q	EN1+3, EN1+4, EN1A+2, EN1A+3, ASK, ASK+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN1+1, EN1+2, EN1+3, EN1+4, EN1A, EN1A+1, EN1A+2, EN1A+3, ASK+1*, ASK+2
>> %DT	ASK*
>> %DT("A"	ASK*
>> %DT("B"	ASK*
>> %DT(0	ASK*
>> DA	PURGE+3, AROUND+2, EN2+2, EN3+1, INDX1+1, INDX1+2, INDX1+3, INDX1+4, INDX1+5, INDX2+1 , INDX2+2, INDX2+3, INDX2+4, INDX2+5
>> IEN	PURGE+3, AROUND+2
>> NCT	EN2+2, EN3+1
>> NCT(1	EN2+2, EN2+3, EN3+1, EN3+2
>> NUROUT	ASK, ASK+3, PURGE+2, AROUND+1*
>> NURSDATE	ASK*, PURGE+3, AROUND+2
>> NURSDATE(1	ASK+1*, ASK+5
U	ASK*, EN2+2, EN2+3, EN3+1, EN3+2, INDX1+1, INDX1+2, INDX1+3, INDX1+4, INDX1+5 , INDX2+1, INDX2+2, INDX2+3, INDX2+4, INDX2+5
X	ASK, INDX1+1, INDX1+2, INDX1+3, INDX1+4, INDX1+5!, INDX2+1*, INDX2+2, INDX2+3, INDX2+4 , INDX2+5
>> XQA("G.NURS-ADP"	ASK+5*
>> XQAMSG	ASK+5*
>> Y	ASK, ASK+1
ZX	INDX1+5, INDX2+5!

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Local Variables | All