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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DENTCRD

Package: Dental

Routine: DENTCRD


Information

DENTCRD ;ISC2/WCD,SAW-PROCESS DENTAL SERVICE CARD ;8/15/96 15:39

Source Information

Source file <DENTCRD.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DICN  IX^DIK  ^DIR  
Dental 2 EN^DENTCRD1  NCT^DENTCRD2  
Kernel 1 ^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Dental 3 DENTCARD  DENTCRD2  DENTSCR  

Entry Points

Name Comments DBIA/ICR reference
NXT
W
SUM
Q
EXIT
W1
READCRD ;
SAVE(FILE,VAR,REC) ; Stuff and index the dental record, return IEN

External References

Name Field # of Occurrence
^%ZIS NXT
EN^DENTCRD1 READCRD+5
NCT^DENTCRD2 READCRD+4
^DIC DENTCRD+3
FILE^DICN SAVE+6
IX^DIK SAVE+7
^DIR DENTCRD+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: I
  • Line Location: DENTCRD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DENTCRD+7
Function Call: WRITE
  • Prompt: !,"The card reader port is in use. Try again later"
  • Line Location: NXT+0
Function Call: WRITE
  • Prompt: !,?15,"READ DENTAL CARDS FROM MARK SENSE CARD READER",!!,"You may begin inserting cards"
  • Line Location: NXT+1
Function Call: READ
  • Timeout: 30
  • Variable: D
  • Line Location: READCRD+2
Function Call: WRITE
  • Prompt: !,"Time Expired/End of Session"
  • Line Location: READCRD+2
Function Call: WRITE
  • Prompt: !!,"YOUR DENTAL TREATMENT FILE IS NOT SET UP PROPERLY",!,"CONTACT YOUR SITE MANAGER",*7
  • Line Location: READCRD+6
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"A card reader device has not been entered for your station in the Dental Site",!,"Parameter file. One must be entered before you can run this option",*7
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"This card is unreadable -- Remove and correct card. Check for extraneous marks",*7
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !!,?5,"----- SESSION COMPLETE -----",!,?5,"Total Cards Read: ",DENTNCR
  • Line Location: SUM+0
Function Call: WRITE
  • Prompt: !,?5,"Total Errors: ",DENTERR,!,?5,"Total Valid: ",DENTVAL
  • Line Location: SUM+1
Routine Call
  • DIC
  • Line Location:
    • DENTCRD+3
Routine Call
  • DIR
  • Line Location:
    • DENTCRD+7
Routine Call
  • %ZIS
  • Line Location:
    • NXT

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DENT(225 - [#225] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" READCRD+2, READCRD+6
^%ZOSF("TYPE-AHEAD" NXT+1
^DD( SAVE+5
^DENT( SAVE+7*
^DENT(220 - [#220] READCRD+10*, READCRD+11*
^DENT(221 - [#221] READCRD+6, READCRD+7, READCRD+9*
^DENT(225 - [#225] DENTCRD+2, DENTCRD+4

Label References

Name Line Occurrences
EXIT DENTCRD+3, DENTCRD+7, NXT, READCRD+6, W
NXT DENTCRD+6
Q READCRD+10
READCRD READCRD+4, READCRD+5, Q, W1
SAVE READCRD+8
SUM READCRD+2
W DENTCRD+2, DENTCRD+3, DENTCRD+4, DENTCRD+5
W1 READCRD+3

Naked Globals

Name Field # of Occurrence
^( DENTCRD+2
^(0 DENTCRD+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D READCRD+2*, READCRD+3*, READCRD+4!, READCRD+5!, Q!, W1!, EXIT!
D2 READCRD+5, READCRD+7, READCRD+8, READCRD+10, Q!, EXIT!
D39 READCRD+10, READCRD+11, Q!
DA NXT+1!, SAVE+1~, SAVE+7*
DENT READCRD+4*!, EXIT!
DENTERR DENTCRD+2*, READCRD+5*, W1*, SUM+1, SUM+2, EXIT!
DENTNCR DENTCRD+2*, READCRD+1, READCRD+3*, SUM, EXIT!
DENTSTA DENTCRD+5*, EXIT!
DENTVAL DENTCRD+2*, READCRD+9*, SUM+1, EXIT!
DENTXX1 EXIT!
DENTY DENTCRD+6*, DENTCRD+7*, EXIT!
DIC DENTCRD+3*, EXIT!, SAVE+1~, SAVE+6*
DIC("DR" SAVE+6*
DIC(0 DENTCRD+3*, SAVE+6*
DIE SAVE+1~
>> DIK SAVE+7*
DIR DENTCRD+7!, EXIT!
DIR("A" DENTCRD+7*
DIR("B" DENTCRD+7*
DIR(0 DENTCRD+7*
DIROUT DENTCRD+7!
DIRUT DENTCRD+7!
DT DENTCRD+6, DENTCRD+7
E READCRD+4*!, EXIT!
FILE SAVE~, SAVE+5, SAVE+6, SAVE+7
I READCRD+3*, EXIT!
IO NXT+1, READCRD+2, READCRD+6
IO(0 NXT+1, READCRD+2, READCRD+3
IOP DENTCRD+5*, NXT*, NXT+1!, EXIT!
N READCRD+7*, READCRD+8, READCRD+9, EXIT!
N1 READCRD+7*, READCRD+9, EXIT!
>> POP NXT
REC SAVE~, SAVE+6*, SAVE+7
U DENTCRD+2*, SAVE+2, SAVE+5
VAR SAVE~, SAVE+2, SAVE+7
X READCRD+10*, Q!, EXIT!, SAVE+1~, SAVE+2*
XX1 EXIT!
Y DENTCRD+3, DENTCRD+4, DENTCRD+7, EXIT!, SAVE+6
Z DENTCRD+4*, EXIT!
Z1 DENTCRD+2*, EXIT!
Z2 DENTCRD+2*, DENTCRD+4, EXIT!
Z3 DENTCRD+2*, DENTCRD+3, DENTCRD+4, EXIT!
ZZ EXIT!
Info |  Source |  Call Graph |  Caller 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