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

Package: Mental Health

Routine: YSDX3R


Information

YSDX3R ;SLC/DJP - Print of Diagnosis for the Mental Health Medical Record ;12/13/93 16:02

Source Information

Source file <YSDX3R.m>

Entry Points

Name Comments DBIA/ICR reference
ENTRY ;
QUES1 ;
QUES2 ;
DEVICE ;
ENPR ;Entry to core of print program.
PR ; Called from YSDX3RU
END ;
EOR ;YSDX3R - Print Diagnosis for Medical Record ;12/6/90 11:19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: !!?IOM-$L("PRINT OF DIAGNOSIS")\2,"PRINT OF DIAGNOSIS",!!
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: !!?10,"No diagnosis on file for ",YSNM
  • Line Location: ENTRY+4
Function Call: READ
  • Variable: A
  • Timeout: DTIME
  • Line Location: QUES1+1
Function Call: WRITE
  • Prompt: !!,"You may list diagnoses sequentially or by date.",!!
  • Line Location: QUES1+2
Function Call: WRITE
  • Prompt: " ?",!
  • Line Location: QUES1+3
Function Call: WRITE
  • Prompt: !,"LIST ONLY ACTIVE DIAGNOSIS"
  • Line Location: QUES2+2
Function Call: WRITE
  • Prompt: !!,"You may list only active diagnoses or both active and inactive diagnoses.",!
  • Line Location: QUES2+3
Info |  Source |  Entry Points |  Interaction Calls