Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRMIZAP

Package: Lab Service

Routine: LRMIZAP


Information

LRMIZAP ; IHS/DIR/FJE - MICRO CONVERSION 8/5/87 18:18 ;

Source Information

Source file <LRMIZAP.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 1 (XX,ZZ)^LRMIZAP1  
VA Fileman 1 YN^DICN  

Entry Points

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

External References

Name Field # of Occurrence
YN^DICN CONVERT+5, XREF+1
XX^LRMIZAP1 CONVERT, CONVERT+7
ZZ^LRMIZAP1 UNZAP+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(62.06 - [#62.06] X, AC, AC+2
^LRO(68 - [#68] XREF+3, SETAD*
^TMP("LRMIZAP" ZAP, ZAP+1!, END, END+1!, AC+1*, AC+2*, UNZAP, UNZAP+1!

Label References

Name Line Occurrences
AC X
CONVERT ZAP+1
END UNZAP+2
SETAD XREF+3
X ZAP+1, UNZAP+1

Naked Globals

Name Field # of Occurrence
^( X, XREF+3!, SETAD
^("UNZAP" UNZAP
^("ZAP" ZAP
^(0 X

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!, CONVERT+5*, CONVERT+6, XREF+1*, XREF+2, XREF+4!
B END+1!
C END+1!
C2 END+1!
C4 END+1!
C6 END+1!
I END+1!, X*, CONVERT+5*, XREF+1*, XREF+3*, XREF+4!, SETAD*
J ZAP*, END+1!, UNZAP*
L END+1!, CONVERT*, CONVERT+7*, UNZAP+1*
LRAA XREF+3*, XREF+4!, SETAD
LRAD XREF+3*, XREF+4!, SETAD
LRAN XREF+4!, SETAD*
LRBN END+1!
LRBUGN END+1!
LRCHECK END+1!
LRCNT END+1!
LRDFN ZAP*, END+1!, CONVERT, CONVERT+7, UNZAP*, UNZAP+1
LREND ZAP*, END, END+1!, CONVERT+6*, UNZAP*
LRIDT END+1!
LRINTP END+1!, X*, AC, AC+1, AC+2
LRISR END+1!
LRN END+1!, X*, AC+1, AC+2
LRORIDE END+1!
LROVERR END+1!
LRRES END+1!, X*, AC, AC+1, AC+2
LRSUB END+1!, X*, AC, AC+2
LRSUB1 END+1!, X*, AC, AC+2
LRTEST XREF+4!, SETAD*
LRTK XREF+4!, SETAD*
N END+1!
T END+1!
U ZAP*, X, AC+2, UNZAP*, XREF+1*, XREF+3, SETAD
X END+1!
Y END+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All