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

Caller Graph Total: 1

Package Total Caller Graph
Nursing Service 1 NURS-PURG  

Entry Points

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

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