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

Package: Medicine

Routine: MCARDNJ


Information

MCARDNJ ;WISC/TJK,JA-INPUT TO SCREEN ;8/31/92 15:28

Source Information

Source file <MCARDNJ.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN2 ;
NXT ;
TK
R ; get input from user
RETURN
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: 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