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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BTIULO18

Package: IHS Mods To Text Integration Utilities

Routine: BTIULO18


Information

BTIULO18 ; IHS/MSC/MGH - EYE RX OBJECT ;06-Jan-2016 12:11;DU

Source Information

Source file <BTIULO18.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIWP  
IHS Mods To Text Integration Utilities 1 ($$FNAME,$$LNAME)^BTIUPCC2  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
STRING()
FINISH ;Bottom of RX
PRINT(BGOIEN,EYE) ;print out the RX
PPUPIL ;Write out pupil distance
FNUM()
PUPIL(EDATA) ;EP for pupil distance
PLEFT ; Wright out left eye prescription
PRIGHT ;Write out right eye prescription
RIGHT(EDATA) ;EP
COMMON ;Write out the data common to all 3 prescriptions
LEFT(EDATA) ;EP
EYE(DFN,TARGET) ;print RX
EYERX(DFN,EYE,TARGET) ;Print eye-glass prescription

External References

Name Field # of Occurrence
$$FNAME^BTIUPCC2 PRINT+11
$$LNAME^BTIUPCC2 PRINT+11
$$EXTERNAL^DILFD RIGHT+1, RIGHT+3, RIGHT+5, RIGHT+7, RIGHT+8, RIGHT+12, RIGHT+16, RIGHT+17, LEFT+1, LEFT+3
, LEFT+5, LEFT+7, LEFT+8, LEFT+12, LEFT+16, LEFT+17, PUPIL+1, PUPIL+2, PUPIL+3, PUPIL+5
, PUPIL+7
$$GET1^DIQ PRINT+12, PRINT+13, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23
^DIWP FINISH+9
$$SITE^VASITE PRINT+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $L(@TARGET@(CNT,0))
  • Line Location: PRIGHT+16
Function Call: WRITE
  • Prompt: $L(@TARGET@(CNT,0))
  • Line Location: PLEFT+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^AUPNVSIT - [#9000010] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVEYE - [#9000010.04] PRINT+7, PRINT+8, PRINT+14, RIGHT+18, LEFT+18, PUPIL+8
^AUPNVEYE("AA" EYERX+6, EYERX+10
^UTILITY($J FINISH+8!, FINISH+10, FINISH+11, FINISH+12!
^VA(200 - [#200] PRINT+15

Label References

Name Line Occurrences
$$FNUM PRINT+6
$$STRING RIGHT+20, LEFT+20, PUPIL+10
COMMON PRIGHT+1, PLEFT+1, PPUPIL+1
FINISH PRIGHT+19, PLEFT+19, PPUPIL+14
LEFT PRINT+25
PLEFT LEFT+24
PPUPIL PUPIL+14
PRIGHT RIGHT+24
PRINT EYERX+12
PUPIL PRINT+26
RIGHT PRINT+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDR PRINT+1~, PRINT+19*, COMMON+11
ADDR2 PRINT+1~, PRINT+20*, COMMON+14, COMMON+16
BGODFN PRINT+1~
BGOIEN EYERX+1~, EYERX+2*, EYERX+9*, EYERX+10*, EYERX+11, EYERX+12, PRINT~, PRINT+7, PRINT+8, PRINT+14
, RIGHT+18, LEFT+18, PUPIL+8
CITY PRINT+4~, PRINT+22*, COMMON+13
CNT EYERX+1~, EYERX+5*, EYERX+13, PRIGHT+4*, PRIGHT+5, PRIGHT+6*, PRIGHT+7, PRIGHT+8*, PRIGHT+9, PRIGHT+10*
, PRIGHT+11, PRIGHT+12*, PRIGHT+13, PRIGHT+14*, PRIGHT+15, PRIGHT+16, PRIGHT+17*, PRIGHT+18, PLEFT+4*, PLEFT+5
, PLEFT+6*, PLEFT+7, PLEFT+8*, PLEFT+9, PLEFT+10*, PLEFT+11, PLEFT+12*, PLEFT+13, PLEFT+14*, PLEFT+15
, PLEFT+16, PLEFT+17*, PLEFT+18, PPUPIL+2*, PPUPIL+3, PPUPIL+4*, PPUPIL+5, PPUPIL+8*, PPUPIL+9, PPUPIL+10*
, PPUPIL+11, PPUPIL+12*, PPUPIL+13, COMMON+1*, COMMON+2, COMMON+3*, COMMON+4, COMMON+5*, COMMON+6, COMMON+7*
, COMMON+8, COMMON+9*, COMMON+10, COMMON+11, COMMON+12*, COMMON+13, COMMON+15*, COMMON+16, COMMON+17*, COMMON+18
, COMMON+19*, COMMON+20, COMMON+21*, COMMON+22, COMMON+23*, COMMON+24, FINISH+1*, FINISH+2, FINISH+4*, FINISH+5
, FINISH+6*, FINISH+7, FINISH+11*, FINISH+13*, FINISH+14, FINISH+15*, FINISH+16, FINISH+17*, FINISH+18
COMMENT PRINT+2~, RIGHT+18*, LEFT+18*, PUPIL+8*, FINISH+3*, FINISH+9
DASH PRINT+1~, RIGHT+19*, LEFT+19*, PUPIL+9*, PRIGHT+7, PRIGHT+13, PLEFT+7, PLEFT+13, PPUPIL+5, COMMON+6
, FINISH+18
DASH2 PRINT+4~, RIGHT+20*, LEFT+20*, PUPIL+10*
DFN EYERX~, EYERX+6, EYERX+10, EYE~
DIWF PRINT+5~, FINISH+9*
DIWL PRINT+5~, FINISH+9*
DIWR PRINT+5~, FINISH+9*
EDATA PRINT+1~, PRINT+8*, PRINT+24, PRINT+25, PRINT+26, RIGHT~, RIGHT+1, RIGHT+3, RIGHT+5, RIGHT+7
, RIGHT+8, RIGHT+12, RIGHT+16, RIGHT+17, LEFT~, LEFT+1, LEFT+3, LEFT+5, LEFT+7, LEFT+8
, LEFT+12, LEFT+16, LEFT+17, PUPIL~, PUPIL+1, PUPIL+2, PUPIL+3, PUPIL+5, PUPIL+7
EDATE PRINT+2~
EYE EYERX~, EYERX+3*, EYERX+12, PRINT~, PRINT+24, PRINT+25, PRINT+26
FAC PRINT+1~, PRINT+18*, COMMON+10
FNUM PRINT+1~, PRINT+6*, RIGHT+1, RIGHT+3, RIGHT+5, RIGHT+7, RIGHT+8, RIGHT+12, RIGHT+16, RIGHT+17
, LEFT+1, LEFT+3, LEFT+5, LEFT+7, LEFT+8, LEFT+12, LEFT+16, LEFT+17, PUPIL+1, PUPIL+2
, PUPIL+3, PUPIL+5, PUPIL+7
FTXT PRINT+4~, PPUPIL+7*, PPUPIL+9
I FINISH+11*, STRING~, STRING+2*
INST PRINT+4~, PRINT+17*, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23
INVDT EYERX+1~, EYERX+2*, EYERX+6*, EYERX+7, EYERX+10
J PRINT+1~, FINISH+10*, FINISH+11
LAXIS PRINT+2~, LEFT+5*, LEFT+6*, PLEFT+15
LCYL PRINT+2~, LEFT+3*, LEFT+4*, PLEFT+15
LHX PRINT+4~, PLEFT+2*, PLEFT+15
LPD PRINT+2~, LEFT+16*, PUPIL+2*, PPUPIL+7, PPUPIL+11
LPRISMH PRINT+3~, LEFT+8*, LEFT+9, LEFT+11
LPRISMHN PRINT+3~, LEFT+9*, LEFT+10*, PLEFT+2
LPRISMHV PRINT+3~, LEFT+11*, PLEFT+2
LPRISMV PRINT+3~, LEFT+12*, LEFT+13, LEFT+15
LPRISMVN PRINT+3~, LEFT+13*, LEFT+14*, PLEFT+3
LPRISMVV PRINT+3~, LEFT+15*, PLEFT+3
LREAD PRINT+2~, LEFT+7*, PLEFT+15
LRPISMH PRINT+3~
LSPHERE PRINT+2~, LEFT+1*, LEFT+2*, PLEFT+15
LVT PRINT+4~, PLEFT+3*, PLEFT+15
NTXT PRINT+4~, PPUPIL+6*, PPUPIL+9
ONE PRINT+1~, PRINT+7*, PRINT+10, PRINT+12, PRINT+13
PAT PRINT+1~, PRINT+10*, PRINT+11, PRINT+12*
PATNAME PRINT+4~, PRINT+11*, COMMON+20
PDFAR PRINT+3~, PUPIL+5*, PUPIL+6*, PPUPIL+11
PDNEAR PRINT+3~, PUPIL+3*, PUPIL+4*, PPUPIL+11
PROV PRINT+1~, PRINT+14*, PRINT+15
PROVNAME PRINT+1~, PRINT+15*, FINISH+16
RAXIS PRINT+2~, RIGHT+5*, RIGHT+6*, PRIGHT+15
RCYL PRINT+2~, RIGHT+3*, RIGHT+4*, PRIGHT+15
READ PRINT+1~, RIGHT+17*, LEFT+17*, PUPIL+7*
RHX PRINT+4~, PRIGHT+2*, PRIGHT+15
RPD PRINT+2~, RIGHT+16*, PUPIL+1*, PPUPIL+6, PPUPIL+11
RPRISMH PRINT+3~, RIGHT+8*, RIGHT+9, RIGHT+11, RIGHT+13
RPRISMHN PRINT+3~, RIGHT+9*, RIGHT+10*, PRIGHT+2
RPRISMHV PRINT+3~, RIGHT+11*, PRIGHT+2
RPRISMV PRINT+3~, RIGHT+12*, RIGHT+15
RPRISMVN PRINT+3~, RIGHT+13*, RIGHT+14*, PRIGHT+3
RPRISMVV PRINT+3~, RIGHT+15*, PRIGHT+3
RREAD PRINT+2~, RIGHT+7*, PRIGHT+15
RSPHERE PRINT+2~, RIGHT+1*, RIGHT+2*, PRIGHT+15
RVT PRINT+4~, PRIGHT+3*, PRIGHT+15
SPACE PRINT+1~, RIGHT+21*, LEFT+21*, PUPIL+11*, COMMON+8, COMMON+18, COMMON+24
SPACE2 PRINT+4~, RIGHT+22*, LEFT+22*, PUPIL+12*
STATE PRINT+4~, PRINT+21*, COMMON+13
STR STRING~, STRING+1*, STRING+2*, STRING+3
TARGET EYERX~, EYERX+4, EYERX+7, EYERX+11, EYERX+13, EYERX+14, PRIGHT+5, PRIGHT+7, PRIGHT+9, PRIGHT+11
, PRIGHT+13, PRIGHT+15, PRIGHT+16, PRIGHT+18, PLEFT+5, PLEFT+7, PLEFT+9, PLEFT+11, PLEFT+13, PLEFT+15
, PLEFT+16, PLEFT+18, PPUPIL+3, PPUPIL+5, PPUPIL+9, PPUPIL+11, PPUPIL+13, COMMON+2, COMMON+4, COMMON+6
, COMMON+8, COMMON+10, COMMON+11, COMMON+13, COMMON+16, COMMON+18, COMMON+20, COMMON+22, COMMON+24, FINISH+2
, FINISH+5, FINISH+7, FINISH+11, FINISH+14, FINISH+16, FINISH+18, EYE~
TYPE PRINT+4~, FINISH+3*, FINISH+5
U PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+17, PRINT+18, RIGHT+1, RIGHT+3, RIGHT+5
, RIGHT+7, RIGHT+8, RIGHT+12, RIGHT+16, RIGHT+17, LEFT+1, LEFT+3, LEFT+5, LEFT+7, LEFT+8
, LEFT+12, LEFT+16, LEFT+17, PUPIL+1, PUPIL+2, PUPIL+3, PUPIL+5, PUPIL+7
UNDER PRINT+1~, RIGHT+23*, LEFT+23*, PUPIL+13*, COMMON+22
VAL STRING~, STRING+3*, STRING+4
VDATE PRINT+2~, PRINT+13*, COMMON+20
VIEN PRINT+2~
X PRINT+1~, PRINT+16*, PRINT+17, PRINT+18, FINISH+9*
X1 PRINT+4~
ZIP PRINT+4~, PRINT+23*, COMMON+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All