Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls