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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DENTPKG

Package: Dental

Routine: DENTPKG


Information

DENTPKG ;ISC2/SAW-INITIALIZE DENTAL PACKAGE ; 11/2/88 5:18 PM ;

Source Information

Source file <DENTPKG.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
CHK
CHK1
221
N

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"You have already initialized version 1.2. You cannot initialize it twice."
  • Line Location: DENTPKG+3
Function Call: WRITE
  • Prompt: *7,!!,"Your initialization was never completed. Contact your local ISC for help."
  • Condition for execution: ^DENT("VERSION")="I1.2"
  • Line Location: DENTPKG+3
Function Call: WRITE
  • Prompt: !,"This routine will perform the following functions:",!!,?4,"1. Initialize the new file structures for the Dental Package.",!,?4,"2. Purge (delete) all old data prior to October 1985."
  • Line Location: DENTPKG+4
Function Call: WRITE
  • Prompt: !,?4,"3. Ensure that all data prior to October 1988 is marked as released.",!,?4,"4. Convert the data in the Treatment Data and Non Clinical Time files to",!,?8,"appear in reverse date/time order whenever it is displayed."
  • Line Location: DENTPKG+5
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to initialize the Dental Package"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"Answer 'YES' if you want to proceed with this initialization/conversion."
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"First let me initialize the files used in the Dental Package",!!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Next I need to run a database conversion."
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"This conversion takes approximately 1 minute per 366 entries to be converted.",!,"You have ",X," entries in files 221 and 226 that need to be converted, so"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"your conversion should take approximately ",$J(X/366,0,1)," minutes.",!!,"Begin file 221 conversion."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: "."
  • Condition for execution: I#100=0
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: " "_I_" entries converted in file 221.",!
  • Condition for execution: I#1000=0
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !,"File 221 conversion finished. "_I_" entries converted.",!!,"Begin file 226 conversion.",!
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: "."
  • Condition for execution: I#100=0
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: " "_I_" entries converted in file 226.",!
  • Condition for execution: I#1000=0
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: !,"File 226 conversion finished. "_I_" entries converted.",!
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: *7,!!,"Initialization of the Dental Package is complete."
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !,"NOTE: You have an erroneous entry dated "_Y_" in file "_F_".",!,"Please correct it after the initialization is complete.",!
  • Line Location: N+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DENT(221 - [#221] Classic Fileman Calls
^DENT(226 - [#226] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call