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

Package: Dental

Routine: DENTSCR


Information

DENTSCR ; HISC/NCA-Enter Bulk Screening Treatments ;10/4/96 13:58

Source Information

Source file <DENTSCR.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Process Initial Screening Treatment
STA
PROV
PAT
CAT
BED
REPEAT ; Store Bulk Screening Treatment
EDIT1
NULL(DENTREC,Y) ; Null the existing fields from Initial Treatment
CHECK ; Check Fields Validity.
CHK(CD) ;FIND A PLACE TO PUT THE NEW RECORD
GROUP ; Set Group X'Reference
DATE ;;31;28;31;30;31;30;31;31;30;31;30;31
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Each prompt needs to be filled in order for the treatment to be filed.",!,"To Exit, Enter ""^""."
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: BED+1
Function Call: WRITE
  • Prompt: " Treatment Added "
  • Line Location: BED+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: BED+9
Function Call: WRITE
  • Prompt: !!,"Total ",$S(DENTBAT="S":"Screening",1:"Complete Exam")," Treatment Entered: ",DENTCT
  • Line Location: BED+10
Function Call: WRITE
  • Prompt: !
  • Line Location: REPEAT+1
Function Call: WRITE
  • Prompt: " Store Next Treatment "
  • Line Location: REPEAT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT1+5
Function Call: WRITE
  • Prompt: !,"Patient Category is Missing."
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: *7,!!,"Bed section is missing.",!
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: *7,!!,"Bed section must be blank if patient category is OPT, NHC or DOM.",!
  • Line Location: CHECK+4

FileMan Files Accessed Via FileMan Db Call

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