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

Package: Lab Service

Routine: LRCAPDL


Information

LRCAPDL ;DALISC/FHS - FORMATE DATA FROM 64.03 FOR DOWN LOAD TO SPREAD SHEET

Source Information

Source file <LRCAPDL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
PRT
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Sorry No data to down load",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,?20,"THE CHARACTER '^' IS NOT ALLOWED ",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!?5,$C(7),"YOU MUST SELECT SOME CHARACTER ",!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"OK",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"YOU MAY PRESS RETURN/ENTER KEY TO STOP TRANSMISSION OF DATA ",!
  • Line Location: PRT+0
Function Call: READ
  • Formatting: !!?5
  • Prompt: "PRESS RETURN WHEN READY "
  • Variable: X
  • Timeout: 500
  • Line Location: PRT+1
Function Call: READ
  • Variable: LRSTOP
  • Timeout: .001
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: X,!
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,"DOWN LOADED ",CNT," LINES OF DATA ",!!
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !!?30,"CELL DATA FORMAT ",!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,"CELL 1=SEQ NUMBER",?25,"CELL 2=PROVIDER ",?52,"CELL 3=PATIENT"
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,"CELL 4=DATE COMPLETED",?25,"CELL 5=REPORTING SITE",?52,"CELL 6=LOCATION TYPE"
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !,"CELL 7=ACCESSION AREA",?25,"CELL 8=LAB TEST NAME",?52,"CELL 9=URGENCY"
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !,"CELL 10=TREATING SPEC",?25,"CELL 11=WKLD CODE",?52,"CELL 12=INVERSE DATE"
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !,"CELL 13=DATE COLLECTED",?25,"CELL 14=DATE ORDERED",?52,"CELL 15=HOSPITAL LOCATION"
  • Line Location: END+7
Function Call: WRITE
  • Prompt: !,"CELL 16=ACCESSION FILE INDEX",!
  • Line Location: END+8
Info |  Source |  Entry Points |  Interaction Calls