Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNVEYE

Package: IHS Patient

Global: ^AUPNVEYE


Information

FileMan FileNo FileMan Filename Package
9000010.04 V EYE GLASS IHS Patient

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
GUI Objects 2 BGOVEYE    BGOVEYE1    
IHS Mods To Text Integration Utilities 2 BTIULO16    BTIULO18    
Clinical Scheduling for Windows 1 BSDX41D    
Health Summary Components 1 BHSEYEKG    
IHS Electronic Health Record 1 BEHOENPP    
Local Area Programs 1 AZAXDPM1    
Patient Care Component 1 APCHS8A    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS Electronic Health Record 1 BEHOENPP    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V EYE GLASS(#9000010.04)[1208]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V EYE GLASS(#9000010.04)[1208]    VISIT(#9000010)[.03]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
Kernel 1 NEW PERSON(#200)[1202, 1204, 1217, 1219]    

Fields, Total: 36

Field # Name Loc Type Details
.01 NAME 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 24, 1992
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 1
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTNM")
  • CROSS-REFERENCE:  9000010.04^B
    1)= S ^AUPNVEYE("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVEYE("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.04^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 05, 1988
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.04^AC
    1)= S ^AUPNVEYE("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVEYE("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.04^AATOO^MUMPS
    1)= I $P(^AUPNVEYE(DA,0),U,3)]"" S ^AUPNVEYE("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVEYE(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVEYE(DA,0),U,3)]"" K ^AUPNVEYE("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVEYE(DA,0),U,3),0),".",1)),DA)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVEYE(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 11, 1986
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVEYE(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.04^AD
    1)= S ^AUPNVEYE("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVEYE("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.04^AA^MUMPS
    1)= Q:$P(^AUPNVEYE(DA,0),U,2)=""  S ^AUPNVEYE("AA",$P(^AUPNVEYE(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVEYE(DA,0),U,2)=""  K ^AUPNVEYE("AA",$P(^AUPNVEYE(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.04^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
1101 COMMENT 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  APR 10, 2012
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
1201 EVENT DATE&TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 24, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCDT")
1202 ORDERING PROVIDER 12;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 24, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPRV")
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  SEP 24, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCLN")
1204 ENCOUNTER PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 24, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEPR")
1208 PARENT 12;8 POINTER TO V EYE GLASS FILE (#9000010.04) V EYE GLASS(#9000010.04)

  • LAST EDITED:  SEP 24, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPNT")
1209 EXTERNAL KEY 12;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 24, 1996
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEXK")
1210 OUTSIDE PROVIDER NAME 12;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 24, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOPR")
1215 ORDERING LOCATION 12;15 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  FEB 19, 2008
1216 DATE/TIME ENTERED 12;16 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.04^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVEYE(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.04,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVEYE(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.04,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.04^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVEYE(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.04,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVEYE(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.04,DIG=1218 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1218
1217 ENTERED BY 12;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V EYE GLASS File
1218 DATE/TIME LAST MODIFIED 12;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V EYE GLASS File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.04^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVEYE(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.04,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVEYE(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.04,DIG=1219 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1219
1219 LAST MODIFIED BY 12;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME LAST MODIFIED field of the V EYE GLASS File
1901 READING ONLY 19;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTRO")
    SOURCE OF DATA:   043/GPREAD
  • GROUP:  EYEGLASSES
1902 DRE SPHERE 19;2 FREE TEXT

  • INPUT TRANSFORM:  D VEYE1902^AUPNVEYE
  • LAST EDITED:  APR 24, 1986
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -28.00 AND +16.00 (INCLUDE "+" OR "-") OR PLANO
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDRS")
    SOURCE OF DATA:   043/GPSPHR
  • GROUP:  EYEGLASSES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.04^AV1^MUMPS
    1)= Q
    2)= Q
1903 DRE CYLINDER 19;3 FREE TEXT

  • INPUT TRANSFORM:  D VEYE1903^AUPNVEYE
  • LAST EDITED:  APR 24, 1986
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9.50 AND +9.50
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDRC")
    SOURCE OF DATA:   043/GPCYLR
  • GROUP:  EYEGLASSES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.04^AV2^MUMPS
    1)= Q
    2)= Q
1904 RE AXIS 19;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>180)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 29, 1995
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 180
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTRA")
    SOURCE OF DATA:   043/GPAXSR
  • GROUP:  EYEGLASSES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1905 DLE SPHERE 19;5 FREE TEXT

  • INPUT TRANSFORM:  D VEYE1905^AUPNVEYE
  • LAST EDITED:  APR 24, 1986
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -28.00 AND +16.00 (INCLUDE "+" OR "-") OR PLANO
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDLS")
    SOURCE OF DATA:   043/GPSPHL
  • GROUP:  EYEGLASSES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.04^AV3^MUMPS
    1)= Q
    2)= Q
1906 DLE CYLINDER 19;6 FREE TEXT

  • INPUT TRANSFORM:  D VEYE1906^AUPNVEYE
  • LAST EDITED:  APR 24, 1986
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9.50 AND +9.50
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDLC")
    SOURCE OF DATA:   043/GPCYLL
  • GROUP:  EYEGLASSES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.04^AV4^MUMPS
    1)= Q
    2)= Q
1907 LE AXIS 19;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>180)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 29, 1995
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 180
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTLA")
    SOURCE OF DATA:   043/GPAXSL
  • GROUP:  EYEGLASSES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1908 READING ADD. R 19;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<3)!'(X?1"."2N!(X?1N1"."2N)) X Q:'$D(X) I X?1"."2N,+X<.74 K X
  • LAST EDITED:  MAY 02, 1986
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN .74 AND 9.99 (DECIMAL POINT REQUIRED)
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTRAR")
    SOURCE OF DATA:   043/GPRADR
  • GROUP:  EYEGLASSES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1909 READING ADD. L 19;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<3)!'(X?1"."2N!(X?1N1"."2N)) X Q:'$D(X) I X?1"."2N,+X<.74 K X
  • LAST EDITED:  MAY 02, 1986
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN .74 AND 9.99 (DECIMAL POINT REQUIRED)
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTRAL")
    SOURCE OF DATA:   043/GPRADL
  • GROUP:  EYEGLASSES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1910 *EYE SIZE 19;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>70)!(X<26)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 26, 1996
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 26 AND 70
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTES")
    SOURCE OF DATA:   043/GPSIZE
  • GROUP:  EYEGLASSES
1911 *BRIDGE 19;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>28)!(X<14)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 26, 1996
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 14 AND 28
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTBRG")
    SOURCE OF DATA:   043/GPBRID
  • GROUP:  EYEGLASSES
1912 *TEMPLE 19;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?1N1"."2N) X
  • LAST EDITED:  SEP 26, 1996
  • HELP-PROMPT:  TYPE NUMBER BETWEEN 3.75 AND 7.00 (DECIMAL POINT REQUIRED)
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTTEM")
    SOURCE OF DATA:   043/GPTEMP
  • GROUP:  EYEGLASSES
1913 PD (NEAR) 19;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>80)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 10, 2012
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 40 AND 80
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPDN")
    SOURCE OF DATA:   043/GPNEAR
  • GROUP:  EYEGLASSES
1914 PD (DISTANCE) 19;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>80)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 10, 2012
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 40 AND 80
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPDF")
    SOURCE OF DATA:   043/GPFARR
  • GROUP:  EYEGLASSES
1915 RE PRISM H 19;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<3)!(+X>50)!(+X<.25)!(X'["BU"&(X'["BD")&(X'["BI")&(X'["BO")) X
  • LAST EDITED:  APR 10, 2012
  • HELP-PROMPT:  Type a number between .25 and 50 followed by a prism base direction (BU or BD or BI or BO). E.g. 2 BD or .25 BU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1916 LE PRISM H 19;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<3)!(+X>50)!(+X<.25)!(X'["BD"&(X'["BU")&(X'["BI")&(X'["BO")) X
  • LAST EDITED:  APR 10, 2012
  • HELP-PROMPT:  Enter a number between .25 and 50 followed by prism base direction (Base Up=BU, Base Down=BD, BI or BO).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1917 RE PRISM V 19;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<3)!(+X>50)!(+X<.25)!(X'["BU"&(X'["BD")&(X'["BI")&(X'["BO")) X
  • LAST EDITED:  APR 10, 2012
  • HELP-PROMPT:  Type a number between .25 and 50 followed by a prism base direction (BU or BD or BI or BO). E.g. 2 BD or .25 BU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1918 LE PRISM V 19;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<3)!(+X>50)!(+X<.25)!(X'["BD"&(X'["BU")&(X'["BI")&(X'["BO")) X
  • LAST EDITED:  APR 10, 2012
  • HELP-PROMPT:  Type a number between .25 and 50 followed by prism base direction (Base Up=BU, Base Down=BD, BI or BO). E.g. 2 BD or .25 BU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1919 PD (LEFT) 19;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>40)!(X<25)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 10, 2012
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 25 AND 40
1920 PD (RIGHT) 19;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>40)!(X<25)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 10, 2012
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 25 AND 40
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All