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

Package: Dental

Routine: DENTCPM


Information

DENTCPM ;ISC2/HCD,JEC-DENTAL CRITICAL PATH APPT. SCHED. AID (CON'T) ; 12/5/88 10:43 AM ;

Source Information

Source file <DENTCPM.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  YN^DICN  ^DIE  
Kernel 2 ^%ZIS  ^%ZTLOAD  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dental 2 DENTCPM ENTER  DENTCPM PRINT  

Entry Points

Name Comments DBIA/ICR reference
ENTER
DENTAN
PRINT
QUE
DENTPA
EXIT
INST
Q
Q1
Q2

External References

Name Field # of Occurrence
^%ZIS PRINT+3
^%ZTLOAD PRINT+4
^DIC ENTER+1, PRINT, PRINT+2
YN^DICN ENTER, DENTAN, DENTPA
^DIE ENTER+1
DEM^VADPT QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Would you like instructions"
  • Line Location: ENTER+0
Function Call: WRITE
  • Prompt: !!,"Enter another appointment"
  • Line Location: DENTAN+0
Function Call: WRITE
  • Prompt: !,"Sorry, no appointments have been entered for this patient.",!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: @IOF,!,?26,"DENTAL APPOINTMENT SCHEDULE"
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!,"PATIENT: "
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: DENTNM
  • Condition for execution: $D(DENTNM)
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: ?39,"SSN: "
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: DENTSSN
  • Condition for execution: $D(DENTSSN)
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: ?55,"DATE ENTERED: ",Y,!
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: ?39,"SSN: "
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !,"APPOINTMENTS",?30,1,?40,1,?50,2,?60,2,?70,3,?76,3
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !,?11
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: ?($X+1),$S(I>9:$E(I,2),1:I)
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: QUE+8
Function Call: WRITE
  • Prompt: !,"ITEM PROV",!
  • Line Location: QUE+9
Function Call: WRITE
  • Prompt: !,$P(DENTX,U,I)
  • Line Location: QUE+11
Function Call: WRITE
  • Prompt: ?7,$P(^DENT(220.5,L(I+1),0),U,2)
  • Condition for execution: L(I+1)
  • Line Location: QUE+11
Function Call: WRITE
  • Prompt: ?I1,DENTL
  • Line Location: QUE+11
Function Call: WRITE
  • Prompt: !!!,"The patient "_DENTRX_" be receiving MEDICATION prior to treatment.",!
  • Line Location: QUE+12
Function Call: WRITE
  • Prompt: !!,"Print another Appointment Schedule"
  • Line Location: DENTPA+0
Function Call: WRITE
  • Prompt: !!!,"This module provides an optimized appointment schedule for individual",!,"patients, based on indicated procedures."
  • Line Location: INST+0
Function Call: WRITE
  • Prompt: !,"General questions such as the patient's name and appointment date are asked",!,"first, then the number of appointments necessary for each procedure and"
  • Line Location: INST+1
Function Call: WRITE
  • Prompt: !,"the provider's ID are asked. Additional help is available by entering",!,"a question mark during any entry.",!
  • Line Location: INST+2
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' for 'Yes' if you wish to see additional instructions on how to use",!,"this scheduling aid. Press return if you do not want additional instructions.",!,"Enter an uparrow (^) to exit this option entirely."
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !!,"Press return if you want to enter another appointment for a patient.",!,"Enter 'N' for 'No' if you do not want to enter another appointment",!,"and wish to exit this option."
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' for 'Yes' if you wish to print an appointment schedule",!,"for another patient or press return to exit this option."
  • Line Location: Q2+0
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+3
Routine Call
  • DIC
  • Line Location:
    • ENTER+1
    • PRINT
    • PRINT+2
Routine Call
  • DIE
  • Line Location:
    • ENTER+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" EXIT
^%ZTSK - [#14.4] EXIT!
^DD("DD" QUE+5
^DENT(220 - [#220] ENTER+2, PRINT+1, QUE+3
^DENT(220.5 - [#220.5] QUE+11

Label References

Name Line Occurrences
DENTAN ENTER+1, DENTAN
DENTPA PRINT+1, PRINT+2, PRINT+3, PRINT+4, DENTPA
ENTER ENTER, DENTAN
EXIT ENTER, ENTER+1, DENTAN, PRINT, QUE+12
INST ENTER
PRINT DENTPA
Q ENTER
Q1 DENTAN
Q2 DENTPA

Naked Globals

Name Field # of Occurrence
^(0 ENTER+2, QUE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENTER*, DENTAN*, DENTPA*, EXIT!
>> %ZIS PRINT+3*
A QUE+11*, EXIT!
D0 PRINT*, PRINT+1, QUE+2, QUE+3, EXIT!
>> D1 ENTER+1, ENTER+2, PRINT+2*, QUE+3
DA ENTER+1*, ENTER+2, EXIT!
DENTDTE EXIT!
DENTL QUE+11*, EXIT!
DENTNM QUE+2*, QUE+5, EXIT!
DENTRX QUE+3*, QUE+12*, EXIT!
DENTSSN QUE+2*, QUE+5, EXIT!
DENTX QUE+10*, QUE+11, EXIT!
>> DFN QUE+2*
DIC ENTER+1*, PRINT*, PRINT+2*, EXIT!
DIC("DR" ENTER+1*!
DIC(0 ENTER+1*, PRINT*, PRINT+2*
DIE ENTER+1*, EXIT!
DR ENTER+1*, EXIT!
G EXIT!
H EXIT!
I QUE+4*, QUE+5*, QUE+7*, QUE+8*, QUE+11*, EXIT!
I1 QUE+11*, EXIT!
IO PRINT+3, QUE
IO("Q" PRINT+3!, PRINT+4
IOF QUE+1
L QUE+3*, QUE+4, EXIT!
L( QUE+4*, QUE+11
L(1 QUE+11
L(11 QUE+11
L(3 QUE+11
U ENTER+2, QUE+3, QUE+4, QUE+11
>> VADM(1 QUE+2
>> VADM(2 QUE+2
>> VAERR QUE+2
X EXIT!
Y ENTER+1, PRINT, PRINT+2, QUE+3*, QUE+5, EXIT!
Z EXIT!
ZTRTN PRINT+4*!
ZTSAVE PRINT+4!
ZTSAVE("D0" PRINT+4*
ZTSAVE("D1" PRINT+4*
ZTSAVE("U" PRINT+4*
ZTSK PRINT+4!, QUE+12, 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