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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BGOVEYE1

Package: GUI Objects

Routine: BGOVEYE1


Information

BGOVEYE1 ; IHS/MSC/MGH - V EYE GLASS RX ;26-Nov-2013 13:33;DU

Source Information

Source file <BGOVEYE1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 2 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  
VA Fileman 2 $$EXTERNAL^DILFD  $$GET1^DIQ  
CIA Utilities 1 CAPTURE^CIAUHFS  
GUI Objects 1 ($$STRING,EYERX)^BGOVEYE1  
IHS Mods To Text Integration Utilities 1 ($$FNAME,$$LNAME)^BTIUPCC2  
IHS Patient 1 (VEYE1902,VEYE1903)^AUPNVEYE  
Order Entry Results Reporting 1 ($$HFS,HFSCLOSE,HFSOPEN,IOVAR,SETITEM,START)^ORWRP  
Registration 1 $$SITE^VASITE  
VueCentric Framework 1 $$TMPGBL^CIAVMRPC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
GUI Objects 1 BGOVEYE1  

Entry Points

Name Comments DBIA/ICR reference
PRINT(RET,DFN,BGOIEN,BGOIO) ;print RX
GETRPT(DATA,BGOIEN,BEHFLG) ;EP
STRING()
VAL(RET,INP) ;EP
EYERX(BGOIEN) ;Print eye-glass prescription
PRINTW(ORY,BGOIEN) ; print to windows printer
FNUM()
LASTEYE(ROOT,ORDFN,ID,ALPHA,OMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE) ; -- get eyeglass RX
EYEB(ROOT,ORDFN,ID,ALPHA,OMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE) ; -- build eyeglass
COMM(COMMENT) ;EP-

External References

Name Field # of Occurrence
^%ZTLOAD PRINT+9
VEYE1902^AUPNVEYE VAL+7
VEYE1903^AUPNVEYE VAL+10
$$STRING^BGOVEYE1 EYERX+56
EYERX^BGOVEYE1 PRINTW+13
$$FNAME^BTIUPCC2 EYERX+12
$$LNAME^BTIUPCC2 EYERX+12
CAPTURE^CIAUHFS GETRPT+3
$$TMPGBL^CIAVMRPC GETRPT+1
$$EXTERNAL^DILFD EYERX+27, EYERX+28, EYERX+29, EYERX+30, EYERX+31, EYERX+34, EYERX+37, EYERX+39, EYERX+40, EYERX+41
, EYERX+42, EYERX+43, EYERX+46, EYERX+49, EYERX+51, EYERX+52, EYERX+53
$$GET1^DIQ EYERX+13, EYERX+14, EYERX+21, EYERX+22, EYERX+23, EYERX+24, EYERX+25
$$HFS^ORWRP PRINTW+5
HFSCLOSE^ORWRP PRINTW+14
HFSOPEN^ORWRP PRINTW+6
IOVAR^ORWRP PRINTW+9
SETITEM^ORWRP PRINTW+8
START^ORWRP LASTEYE+1
$$SITE^VASITE EYERX+18
$$FMADD^XLFDT EYEB+3
$$NOW^XLFDT EYEB+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EYERX+65
Function Call: WRITE
  • Prompt: !,"| "_DASH_" |"
  • Line Location: EYERX+66
Function Call: WRITE
  • Prompt: !,"| "_SPACE_" |"
  • Line Location: EYERX+67
Function Call: WRITE
  • Prompt: !,"|",?22,FAC,?67," |"
  • Line Location: EYERX+68
Function Call: WRITE
  • Prompt: !,"|",?22,ADDR,?67," |"
  • Line Location: EYERX+69
Function Call: WRITE
  • Prompt: !,"|",?20,CITY_" "_STATE_" "_ZIP,?67," |"
  • Line Location: EYERX+70
Function Call: WRITE
  • Prompt: !,"|",?30,ADDR,?67," |"
  • Line Location: EYERX+71
Function Call: WRITE
  • Prompt: !,"| "_SPACE_" |"
  • Line Location: EYERX+72
Function Call: WRITE
  • Prompt: !,"| Patient: "_PATNAME,?40,"Date: "_VDATE,?67," |"
  • Line Location: EYERX+73
Function Call: WRITE
  • Prompt: !,"| ",?40,"Expiration: "_UNDER,?67," |"
  • Line Location: EYERX+74
Function Call: WRITE
  • Prompt: !,"| "_SPACE_" |"
  • Line Location: EYERX+75
Function Call: WRITE
  • Prompt: !,"| |",?4,DASH2,?66,"| |"
  • Line Location: EYERX+77
Function Call: WRITE
  • Prompt: !,"| |",?8,"SPHERE ",?17,"CYL",?23,"AXIS |",?31,"NEAR",?39,"| PRISM",?47,"BASE",?52,"| PRISM",?60,"BASE",?66,"| |"
  • Line Location: EYERX+78
Function Call: WRITE
  • Prompt: !,"| |",?28,"|",?31,"ADD",?39,"| HZ",?52,"| VT",?66,"| |"
  • Line Location: EYERX+79
Function Call: WRITE
  • Prompt: !,"| |",?4,DASH2,?66,"| |"
  • Line Location: EYERX+80
Function Call: WRITE
  • Prompt: !,"| |",?4,"OD|",?8,RSPHERE,?16,RCYL,?23,RAXIS,?28,"|",?31,RREAD,?39,"| "_RHX,?52,"| "_RVT,?66,"| |"
  • Line Location: EYERX+81
Function Call: WRITE
  • Prompt: !,"| |",?4,DASH2,?66,"| |"
  • Line Location: EYERX+82
Function Call: WRITE
  • Prompt: !,"| |",?4,"OS|",?8,LSPHERE,?16,LCYL,?23,LAXIS,?28,"|",?31,LREAD,?39,"| "_LHX,?52,"| "_LVT,?66,"| |"
  • Line Location: EYERX+83
Function Call: WRITE
  • Prompt: !,"| |",?4,DASH2,?66,"| |"
  • Line Location: EYERX+84
Function Call: WRITE
  • Prompt: !,"| "_SPACE_" |"
  • Line Location: EYERX+85
Function Call: WRITE
  • Prompt: !,"| "_"Pupil Distance",?68,"|"
  • Line Location: EYERX+86
Function Call: WRITE
  • Prompt: !,"| |",?4,DASH2,?66,"| |"
  • Line Location: EYERX+87
Function Call: WRITE
  • Prompt: !,"| |",?10,"NEAR ",?20,"DISTANCE",?30,NTXT,?40,FTXT,?66,"| |"
  • Line Location: EYERX+90
Function Call: WRITE
  • Prompt: !,"| |",?10,PDNEAR,?20,PDFAR,?30,RPD,?40,LPD,?66,"| |"
  • Line Location: EYERX+91
Function Call: WRITE
  • Prompt: !,"| |",?4,DASH2,?66,"| |"
  • Line Location: EYERX+92
Function Call: WRITE
  • Prompt: !,"| "_SPACE_" |"
  • Line Location: EYERX+93
Function Call: WRITE
  • Prompt: !,"| "_"Instructions",?68,"|"
  • Line Location: EYERX+94
Function Call: WRITE
  • Prompt: !,"| ",?4,TYPE,?68,"|"
  • Line Location: EYERX+96
Function Call: WRITE
  • Prompt: !,"| "_SPACE_" |"
  • Line Location: EYERX+97
Function Call: WRITE
  • Prompt: !,"| ",?4,$G(^UTILITY($J,"W",0,I,0)),?68,"|"
  • Line Location: EYERX+102
Function Call: WRITE
  • Prompt: !,"| "_SPACE_" |"
  • Line Location: EYERX+104
Function Call: WRITE
  • Prompt: !,"| Provider: "_PROVNAME,?67," |"
  • Line Location: EYERX+105
Function Call: WRITE
  • Prompt: !,"| "_SPACE_" |"
  • Line Location: EYERX+106
Function Call: WRITE
  • Prompt: !,"| Sig: ___________________________",?67," |"
  • Line Location: EYERX+107
Function Call: WRITE
  • Prompt: !,"| "_DASH_" |"
  • Line Location: EYERX+108
Function Call: WRITE
  • Prompt: !,"No eyeglass RX on file"
  • Line Location: EYEB+11

Used in RPC

RPC Name Call Tags
BGOVEYE1 VAL VAL

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] EYERX+7, EYERX+8, EYERX+16, EYERX+54
^AUPNVEYE("AA" PRINT+5, PRINT+7, EYEB+8, EYEB+10
^TMP( PRINTW+4
^VA(200 - [#200] EYERX+17

Label References

Name Line Occurrences
$$FNUM EYERX+6
COMM EYERX+98
EYERX EYEB+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDR EYERX+1~, EYERX+21*, EYERX+69, EYERX+71
ADDR2 EYERX+1~, EYERX+22*, EYERX+71
ALPHA LASTEYE~, EYEB~, EYEB+3*, EYEB+4, EYEB+6
BEHFLG GETRPT~
BGODFN EYERX+1~
BGOIEN EYERX~, EYERX+7, EYERX+8, EYERX+16, EYERX+54, PRINT~, PRINT+4*, PRINT+6*, PRINT+7*, PRINT+8
, PRINTW~, PRINTW+13, GETRPT~, GETRPT+2
BGOIO PRINT~, PRINT+2, PRINT+8
CITY EYERX+4~, EYERX+24*, EYERX+70
CODE VAL+1~, VAL+3*, VAL+4, VAL+6, VAL+9, VAL+12, VAL+15, VAL+18, VAL+21, VAL+24
, VAL+27, VAL+30*, VAL+31
COMMENT EYERX+2~, EYERX+54*, EYERX+95*, EYERX+98, COMM~, COMM+2, COMM+4, COMM+6, COMM+7*
DASH EYERX+1~, EYERX+55*, EYERX+66, EYERX+108
DASH2 EYERX+4~, EYERX+56*, EYERX+77, EYERX+80, EYERX+82, EYERX+84, EYERX+87, EYERX+92
DATA GETRPT~, GETRPT+1*, GETRPT+2, GETRPT+3, GETRPT+4
DFN PRINT~, PRINT+5, PRINT+7
DT EYEB+3
EDATA EYERX+1~, EYERX+8*, EYERX+27, EYERX+28, EYERX+29, EYERX+30, EYERX+31, EYERX+34, EYERX+37, EYERX+39
, EYERX+40, EYERX+41, EYERX+42, EYERX+43, EYERX+46, EYERX+49, EYERX+51, EYERX+52, EYERX+53
EDATE EYERX+2~
EYE EYERX+2~
FAC EYERX+1~, EYERX+20*, EYERX+68
FNUM EYERX+1~, EYERX+6*, EYERX+27, EYERX+28, EYERX+29, EYERX+30, EYERX+31, EYERX+34, EYERX+37, EYERX+39
, EYERX+40, EYERX+41, EYERX+42, EYERX+43, EYERX+46, EYERX+49, EYERX+51, EYERX+52, EYERX+53
FTXT EYERX+4~, EYERX+89*, EYERX+90
I COMM+1~, COMM+6*, STRING~, STRING+2*
ID LASTEYE~, EYEB~
IEN EYEB+1~, EYEB+7*, EYEB+9*, EYEB+10*, EYEB+11, EYEB+12
INP VAL~, VAL+3, VAL+5
INST EYERX+4~, EYERX+19*, EYERX+21, EYERX+22, EYERX+23, EYERX+24, EYERX+25
INVDT PRINT+1~, PRINT+4*, PRINT+5*, PRINT+7, EYEB+1~, EYEB+7*, EYEB+8*, EYEB+10
IO PRINTW+12
IOF PRINTW+2~
IOM PRINTW+2~
IOS PRINTW+2~
IOSL PRINTW+2~
IOST PRINTW+2~
IOT PRINTW+2~
J EYERX+1~
LAXIS EYERX+2~, EYERX+41*, EYERX+83
LCYL EYERX+2~, EYERX+40*, EYERX+83
LEFT COMM+1~
LHX EYERX+4~, EYERX+61*, EYERX+83
LPD EYERX+2~, EYERX+49*, EYERX+89, EYERX+91
LPRISMH EYERX+3~, EYERX+43*, EYERX+44, EYERX+45
LPRISMHN EYERX+3~, EYERX+44*, EYERX+61
LPRISMHV EYERX+3~, EYERX+45*, EYERX+61
LPRISMV EYERX+3~, EYERX+46*, EYERX+47, EYERX+48
LPRISMVN EYERX+3~, EYERX+47*, EYERX+63
LPRISMVV EYERX+3~, EYERX+48*, EYERX+63
LREAD EYERX+2~, EYERX+42*, EYERX+83
LRPISMH EYERX+3~
LSPHERE EYERX+2~, EYERX+39*, EYERX+83
LVT EYERX+4~, EYERX+63*, EYERX+83
NTXT EYERX+4~, EYERX+88*, EYERX+90
OMEGA LASTEYE~, EYEB~, EYEB+3*, EYEB+4, EYEB+5*, EYEB+6
ONE EYERX+1~, EYERX+7*, EYERX+10, EYERX+13, EYERX+14
ORDFN LASTEYE~, EYEB~, EYEB+2, EYEB+6, EYEB+8, EYEB+10
ORDTRNG LASTEYE~, EYEB~, EYEB+3
ORERR PRINTW+1~
ORFHIE LASTEYE~, EYEB~
ORHANDLE PRINTW+1~, PRINTW+3*, PRINTW+6, PRINTW+14
ORHFS PRINTW+1~, PRINTW+5*, PRINTW+6, PRINTW+14
ORIO PRINTW+1~, PRINTW+3*, PRINTW+9
ORMAX LASTEYE~, EYEB~
ORSSTOP EYEB+1~
ORSSTOP( EYEB+6*
ORSSTRT EYEB+1~
ORSSTRT( EYEB+6*
ORSTATUS PRINTW+1~
ORSUB PRINTW+1~, PRINTW+3*, PRINTW+4
ORVP EYEB+1~, EYEB+6*
ORWIN PRINTW+1~, PRINTW+3*
ORY PRINTW~, PRINTW+4*
PAT EYERX+1~, EYERX+10*, EYERX+11, EYERX+12, EYERX+13*
PATNAME EYERX+4~, EYERX+12*, EYERX+73
PDFAR EYERX+3~, EYERX+52*, EYERX+91
PDNEAR EYERX+3~, EYERX+51*, EYERX+91
POP PRINTW+2~, PRINTW+7
PROV EYERX+1~, EYERX+16*, EYERX+17
PROVNAME EYERX+1~, EYERX+15*, EYERX+17*, EYERX+105
RAXIS EYERX+2~, EYERX+29*, EYERX+81
RCYL EYERX+2~, EYERX+28*, EYERX+81
READ EYERX+1~, EYERX+53*
REMOTE LASTEYE~, EYEB~
RET VAL~, VAL+2*, VAL+4*, VAL+31*, VAL+32*, PRINT~, PRINT+10*, PRINT+11*
RHX EYERX+4~, EYERX+62*, EYERX+81
ROOT PRINTW+1~, PRINTW+3*, PRINTW+8, LASTEYE~, EYEB~
RPD EYERX+2~, EYERX+37*, EYERX+88, EYERX+91
RPRISMH EYERX+3~, EYERX+31*, EYERX+32, EYERX+33
RPRISMHN EYERX+3~, EYERX+32*, EYERX+62
RPRISMHV EYERX+3~, EYERX+33*, EYERX+62
RPRISMV EYERX+3~, EYERX+34*, EYERX+35, EYERX+36
RPRISMVN EYERX+3~, EYERX+35*, EYERX+64
RPRISMVV EYERX+3~, EYERX+36*, EYERX+64
RREAD EYERX+2~, EYERX+30*, EYERX+81
RSPHERE EYERX+2~, EYERX+27*, EYERX+81
RVT EYERX+4~, EYERX+64*, EYERX+81
SPACE EYERX+1~, EYERX+57*, EYERX+67, EYERX+72, EYERX+75, EYERX+85, EYERX+93, EYERX+97, EYERX+104, EYERX+106
SPACE2 EYERX+4~, EYERX+58*
STATE EYERX+4~, EYERX+23*, EYERX+70
STR COMM+1~, COMM+2*, COMM+3, STRING~, STRING+1*, STRING+2*, STRING+3
TXT COMM+1~, COMM+7*, COMM+8
TYPE EYERX+4~, EYERX+95*, EYERX+96
U VAL+3, VAL+5, EYERX+10, EYERX+13, EYERX+14, EYERX+16, EYERX+17, EYERX+19, EYERX+20, EYERX+27
, EYERX+28, EYERX+29, EYERX+30, EYERX+31, EYERX+34, EYERX+37, EYERX+39, EYERX+40, EYERX+41, EYERX+42
, EYERX+43, EYERX+46, EYERX+49, EYERX+51, EYERX+52, EYERX+53
UNDER EYERX+1~, EYERX+59*, EYERX+74
VADM EYERX+5!
VAL STRING~, STRING+3*, STRING+4
VDATE EYERX+2~, EYERX+14*, EYERX+73
VIEN EYERX+2~
X VAL+1~, VAL+5*, VAL+8*, VAL+11*, VAL+13!, VAL+14*, VAL+16!, VAL+17*, VAL+19!, VAL+20*
, VAL+22!, VAL+23*, VAL+25!, VAL+26*, VAL+28!, VAL+29!, VAL+30, VAL+31, VAL+32, EYERX+1~
, EYERX+18*, EYERX+19, EYERX+20
X1 EYERX+4~
XQORNOD EYEB+1~, EYEB+6*
ZIP EYERX+4~, EYERX+25*, EYERX+70
ZTDESC PRINT+1~, PRINT+3*
ZTDTH PRINT+1~, PRINT+2*
ZTIO PRINT+1~, PRINT+2*
ZTIU PRINT+1~
ZTQUEUED PRINTW+1~
ZTRTN PRINT+1~, PRINT+8*
ZTSAVE PRINT+1~
ZTSAVE( PRINT+8*
ZTSK PRINT+1~, PRINT+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All