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
Print Page as PDF
Routine: DENTDNJ

Package: Dental

Routine: DENTDNJ


Information

DENTDNJ ;WASH ISC/TJK,JA,NCA-INPUT TO SCREEN ;10/28/96 11:54

Source Information

Source file <DENTDNJ.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN2
NXT
TK
R ; get input from user
EN3
T3
Q1
HL
H1
H2
LH
T4
U
T5
NX
P
Q
OUT
LST
LS
LS1
KILL
SAVE
REST
W(X) ;WRITE OUT A FIELD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: DJHIN
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: DJDB
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: $E(DJDB,1,80-DX),!,$E(DJDB,80-DX+1,$L(DJDB))
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: DJLIN
  • Line Location: H1+3
Function Call: WRITE
  • Prompt: X
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: DJHIN
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: V(V)
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: $E(V(V),1,80-DX),!,$E(V(V),80-DX+1,$L(V(V)))
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: DJHIN
  • Line Location: LH+0
Function Call: WRITE
  • Prompt: "DATA REQUIRED",DJLIN,*7
  • Line Location: LH+0
Function Call: WRITE
  • Prompt: DJLIN
  • Line Location: T4+1
Function Call: WRITE
  • Prompt: K
  • Line Location: T4+1
Function Call: WRITE
  • Prompt: DJLIN
  • Line Location: T4+2
Function Call: WRITE
  • Prompt: K
  • Line Location: T4+2
Function Call: WRITE
  • Prompt: DJHIN
  • Line Location: U+0
Function Call: WRITE
  • Prompt: K
  • Line Location: U+0
Function Call: WRITE
  • Prompt: *7,"Number is out of range or field is read only or computed."
  • Line Location: T5+2
Function Call: WRITE
  • Prompt: *7
  • Line Location: LS1+4
Function Call: WRITE
  • Prompt: X
  • Line Location: W+1
Function Call: WRITE
  • Prompt: $E(X,1,80-DX),!,$E(X,80-DX+1,$L(X))
  • Line Location: W+2
Info |  Source |  Entry Points |  Interaction Calls