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

Package: Lab Service

Routine: LRMIZAP


Information

LRMIZAP ;SLC/BA - MICRO CONVERSION ; 8/5/87 18:18 ;

Source Information

Source file <LRMIZAP.m>

Entry Points

Name Comments DBIA/ICR reference
ZAP
END
X
AC
CONVERT
UNZAP
XREF ;reindex the "AD" x-ref for micro accessions
SETAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "NOTHING NEEDED TO BE CHANGED",!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"THE CONVERSION WILL PICKUP WHERE IT LEFT OFF",!,"STARTING WITH LRDFN ",LRDFN,!
  • Line Location: CONVERT+0
Function Call: WRITE
  • Prompt: !,"If you are using the microbiology portion of the lab package to report",!,"microbiology results, you will need to run this conversion program",!,"in order to convert previous patient microbiology results to be compatible"
  • Line Location: CONVERT+1
Function Call: WRITE
  • Prompt: !,"with the current lab software.",!!,"The program will go thru all lab patients and make any needed changes.",!,"The lab patient number (LRDFN) will be displayed on every hundredth patient.",!,"If you must stop this program from running,"
  • Line Location: CONVERT+2
Function Call: WRITE
  • Prompt: " the next time it is started",!,"it will begin where it left off. It will display 'ALL DONE' when finished."
  • Line Location: CONVERT+3
Function Call: WRITE
  • Prompt: !!,"THIS PROGRAM SHOULD BE RUN DURING OFF-HOURS.",!
  • Line Location: CONVERT+4
Function Call: WRITE
  • Prompt: !!,"Do you wish to run this program"
  • Line Location: CONVERT+5
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es or 'N'o"
  • Line Location: CONVERT+5
Function Call: WRITE
  • Prompt: !,"CONVERTING PATIENT DATA",!
  • Line Location: CONVERT+7
Function Call: WRITE
  • Prompt: "CONVERTING PATIENT DATA",!
  • Line Location: UNZAP+1
Function Call: WRITE
  • Prompt: !,"STARTING WITH LRDFN ",LRDFN,!
  • Condition for execution: LRDFN
  • Line Location: UNZAP+1
Function Call: WRITE
  • Prompt: !,"This will reindex the cross reference used by the INFECTION CONTROL SURVEY."
  • Line Location: XREF+1
Function Call: WRITE
  • Prompt: !,"Do you want to reindex"
  • Line Location: XREF+1
Function Call: WRITE
  • Prompt: !,"Do you want to reindex"
  • Line Location: XREF+1
Function Call: WRITE
  • Prompt: !,"...THIS WILL TAKE AWHILE...",!
  • Line Location: XREF+2
Info |  Source |  Entry Points |  Interaction Calls