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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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