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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 NOW^%DTC  YN^DICN  ^DIK  
Dental 2 ^DENTINIT  226^DENTPKG2  

Entry Points

Name Comments DBIA/ICR reference
ASK
CHK
CHK1
221
N

External References

Name Field # of Occurrence
NOW^%DTC ASK+6
^DENTINIT ASK+2
226^DENTPKG2 ASK+12
YN^DICN ASK
^DIK CHK, 221

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CHK1, 221+10
^DENT( ASK+6, CHK, CHK+1, CHK+2
^DENT("VERSION" DENTPKG+2, DENTPKG+3, ASK+3*, ASK+15*
^DENT(221 - [#221] ASK+3, ASK+7!, ASK+8, ASK+10*, 221+1, 221+3!, 221+4*, 221+5*, 221+6*, 221+7*
, 221+8*, 221+9*
^DENT(226 - [#226] ASK+3, ASK+11!, ASK+12, ASK+14*
^DIC(220.2 - [#220.2] ASK+2!
^DIC(220.3 - [#220.3] ASK+2!

Label References

Name Line Occurrences
221 ASK+8
ASK ASK
CHK ASK+6
CHK1 CHK+1
N CHK1, 221+10

Naked Globals

Name Field # of Occurrence
^( ASK+8, ASK+12, CHK+1*, CHK+2*, 221+1, 221+3!, 221+4*
^("VERSION" DENTPKG+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*, ASK+6!, ASK+15!
%H ASK+6!
%I ASK+6!
DA ASK+6*, ASK+8*, ASK+12*, ASK+15!, CHK, CHK+1, CHK+2, 221+1, 221+3
DATE ASK+6*, ASK+15!, CHK1, 221+10
DIK ASK+6*, ASK+8*, ASK+12*, ASK+15!
F ASK+15!, CHK1*, 221+10*, N
I ASK+6*, ASK+8*, ASK+9, ASK+10, ASK+12*, ASK+13, ASK+14, ASK+15!, CHK, CHK+1
, CHK+2, CHK1
IEN ASK+10, ASK+14, ASK+15!, 221+3*, 221+4, 221+5, 221+6, 221+7, 221+8, 221+9
J ASK+6*, ASK+15!
N ASK+15!
U ASK*
X ASK+3*, ASK+4, ASK+5, ASK+6, ASK+8*, ASK+12*, ASK+15!, CHK*, CHK+1, CHK1
, 221, 221+1, 221+4, 221+5, 221+7, 221+8, 221+10
X0 ASK+15!, 221+1*, 221+2*, 221+4, 221+6, 221+9
X1 ASK+15!, 221+5*, 221+6, 221+9
X2 ASK+15!, 221+5*, 221+6
X3 ASK+15!
X4 ASK+15!
Y ASK+15!, CHK1*, 221+10*, N
Z ASK+15!, 221+1*, 221+2, 221+3, 221+4, 221+10
Z1 ASK+15!, 221+1*, 221+3, 221+4, 221+5, 221+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All