Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^DIZ(1964000

Package: Uncategorized

Global: ^DIZ(1964000


Information

FileMan FileNo FileMan Filename Package
1964000 DIABETES REGISTER CRSU Uncategorized

Description

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Uncategorized 3 DIET CRSU(#1964000.1)[#1964000.012(1)]    AMPUTATION CRSU(#1964000.2)[#1964000.291(.01)]    PATIENT TEACHING CRSU(#1964000.3)[#1964000.671(.01)]    
IHS Patient 1 PATIENT(#9000001)[.01]    
Pharmacy Data Management 1 DRUG(#50)[#1964000.013(.01), #1964000.21(.01)]    

Fields, Total: 74

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • DESCRIPTION:  
    POINTER TO PATIENT FILE
  • CROSS-REFERENCE:  1964000^B
    1)= S ^DIZ(1964000,"B",$E(X,1,30),DA)=""
    2)= K ^DIZ(1964000,"B",$E(X,1,30),DA)
1 DIAGNOSIS DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 08, 1990
1.5 DATE OF ONSET 4;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 08, 1990
2 DATE OF BIRTH COMPUTED DATE

  • MUMPS CODE:  X ^DD(1964000,2,9.2) X $P(^DD(9000001,1102.2,0),U,5,99) S Y(1964000,2,101)=X S X=Y(1964000,2,101) S D0=Y(1964000,2,80)
    9.2 = S Y(1964000,2,80)=$S($D(D0):D0,1:""),Y(1964000,2,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,2,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  .01:DOB
3 AGE COMPUTED

  • MUMPS CODE:  X ^DD(1964000,3,9.2) X $P(^DD(9000001,1102.99,0),U,5,99) S Y(1964000,3,101)=X S X=Y(1964000,3,101) S D0=Y(1964000,3,80)
    9.2 = S Y(1964000,3,80)=$S($D(D0):D0,1:""),Y(1964000,3,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,3,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  .01:AGE
4 SEX COMPUTED

  • MUMPS CODE:  X ^DD(1964000,4,9.2) X $P(^DD(9000001,1101.2,0),U,5,99) S Y(1964000,4,101)=X S X=Y(1964000,4,101) S D0=Y(1964000,4,80)
    9.2 = S Y(1964000,4,80)=$S($D(D0):D0,1:""),Y(1964000,4,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,4,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  .01:SEX
5 HRCN COMPUTED

  • MUMPS CODE:  X ^DD(1964000,5,9.6) S X=$S('$D(^DIC(4,+$P(Y(1964000,5,301),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(1964000,5,80) S D1=Y(1964000,5,181)
    9.2 = S I(100)="^AUPNPAT(",J(100)=9000001 F D=0:0 S (D,D1)=$N(^AUPNPAT(D0,41,D)) Q:D'>0  I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^AUTTLOC(+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D)  S D=D1
    9.3 = S Y(1964000,5,80)=$S($D(D0):D0,1:""),Y(1964000,5,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,5,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(1964000,5,180)=$S($D(D0):D0,1:"")
    9.4 = X ^DD(1964000,5,9.3) S Y(1964000,5,181)=$S($D(D1):D1,1:"") X ^DD(1964000,5,9.2):D0>0 S X="" K DIC S Y=-1,DIC="^AUPNPAT(D0,41,",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y
    9.5 = X ^DD(1964000,5,9.4) S Y(1964000,5,281)=$S($D(D1):D1,1:""),Y(1964000,5,280)=$S($D(D0):D0,1:""),Y(1964000,5,202)=$S($D(^AUPNPAT(D0,41,D1,0)):^(0),1:"")
    9.6 = X ^DD(1964000,5,9.5) S D0=$P(Y(1964000,5,202),U,1) S:'$D(^AUTTLOC(+D0,0)) D0=-1 S Y(1964000,5,301)=$S($D(^AUTTLOC(D0,0)):^(0),1:"")
  • ALGORITHM:  .01:HEALTH RECORD NO.:HEALTH RECORD NO.
  • LAST EDITED:  JUL 02, 2004
6 SSAN COMPUTED

  • MUMPS CODE:  X ^DD(1964000,6,9.2) X $P(^DD(9000001,1107.2,0),U,5,99) S Y(1964000,6,101)=X S X=Y(1964000,6,101) S D0=Y(1964000,6,80)
    9.2 = S Y(1964000,6,80)=$S($D(D0):D0,1:""),Y(1964000,6,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,6,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  .01:SSN
7 ADDRESS-STREET COMPUTED

  • MUMPS CODE:  X ^DD(1964000,7,9.2) X $P(^DD(9000001,1602.2,0),U,5,99) S Y(1964000,7,101)=X S X=Y(1964000,7,101) S D0=Y(1964000,7,80)
    9.2 = S Y(1964000,7,80)=$S($D(D0):D0,1:""),Y(1964000,7,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,7,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  .01:MAILING ADDRESS-STREET
8 ADDRESS-CITY COMPUTED

  • MUMPS CODE:  X ^DD(1964000,8,9.2) X $P(^DD(9000001,1603.2,0),U,5,99) S Y(1964000,8,101)=X S X=Y(1964000,8,101) S D0=Y(1964000,8,80)
    9.2 = S Y(1964000,8,80)=$S($D(D0):D0,1:""),Y(1964000,8,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,8,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  .01:MAILING ADDRESS-CITY
9 ADDRESS-STATE COMPUTED

  • MUMPS CODE:  X ^DD(1964000,9,9.2) X $P(^DD(9000001,1604.2,0),U,5,99) S Y(1964000,9,101)=X S X=Y(1964000,9,101) S D0=Y(1964000,9,80)
    9.2 = S Y(1964000,9,80)=$S($D(D0):D0,1:""),Y(1964000,9,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,9,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  .01:MAILING ADDRESS-STATE
10 ADDRESS-ZIP COMPUTED

  • MUMPS CODE:  X ^DD(1964000,10,9.2) X $P(^DD(9000001,1605.2,0),U,5,99) S Y(1964000,10,101)=X S X=Y(1964000,10,101) S D0=Y(1964000,10,80)
    9.2 = S Y(1964000,10,80)=$S($D(D0):D0,1:""),Y(1964000,10,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,10,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  .01:MAILING ADDRESS-ZIP
10.5 COMMUNITY COMPUTED

  • MUMPS CODE:  X ^DD(1964000,10.5,9.2) S Y(1964000,10.5,101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") S X=$P(Y(1964000,10.5,101),U,18) S D0=Y(1964000,10.5,80)
    9.2 = S Y(1964000,10.5,80)=$S($D(D0):D0,1:""),Y(1964000,10.5,1)=$S($D(^DIZ(1964000,D0,0)):^(0),1:""),D0=$P(Y(1964000,10.5,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  .01:CURRENT COMMUNITY
11 PHYSICAL EXAMS 1;0 DATE Multiple #1964000.011 1964000.011
12 DIET 2;0 DATE Multiple #1964000.012 1964000.012
13 MEDICATIONS 3;0 POINTER Multiple #1964000.013 1964000.013
15 BLOOD SUGAR 5;0 DATE Multiple #1964000.015 1964000.015
16 URINALYSIS 6;0 DATE Multiple #1964000.016 1964000.016
17 BUN 7;0 DATE Multiple #1964000.017 1964000.017
18 CREAT 8;0 DATE Multiple #1964000.018 1964000.018
19 HGA1C 9;0 DATE Multiple #1964000.019 1964000.019
20 CHOLESTEROL 10;0 DATE Multiple #1964000.01 1964000.01
21 TRIGLYCERIDES 11;0 DATE Multiple #1964000.021 1964000.021
22 LIPID PROFILE 12;0 DATE Multiple #1964000.022 1964000.022
23 RETINOPATHY 13;0 DATE Multiple #1964000.023 1964000.023
24 RATIO CHOLESTEROL/HGL 14;0 DATE Multiple #1964000.024 1964000.024
25 OPTHALMOLOGY CLINIC 15;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
26 OPTHALMOLOGY DUE 16;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
26.1 OPTOMETRY CLINIC 20;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
26.2 OPTOMETRY DUE 20;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
27 LASER 16;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
28 LASER DUE 16;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
29 AMPUTATIONS 17;0 DATE Multiple #1964000.029 1964000.029
30 PODIATRY CLINIC 18;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
31 PODIATRY DUE 18;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
32 NEUROPATHY SCREENING 18;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
33 NEUROPATHY DIAGNOSED 18;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
34 NEUROPATHY DUE 18;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
35 NEPHROLOGY CLINIC 18;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
36 NEPHROLOGY DUE 18;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
37 ESRD DIAGNOSIS 18;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
38 DIALYSIS 19;0 SET Multiple #1964000.038 1964000.038
39 GESTATIONAL DM DATE DX 20;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
  • HELP-PROMPT:  ENTER DATE DIAGNOSED
40 PNEUMOVAC DATE 20;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
41 PNEUMOVAC DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,41,1)=$S($D(^DIZ(1964000,D0,20)):^(20),1:"") S X=$P(Y(1964000,41,1),U,4),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  #40+365
42 FLU VAC 20;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
43 FLU VAC DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,43,1)=$S($D(^DIZ(1964000,D0,20)):^(20),1:"") S X=$P(Y(1964000,43,1),U,5),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  #42+365
44 PPD 20;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 17, 1991
  • HELP-PROMPT:  ENTER DATE OF LAST PPD
  • DESCRIPTION:  
    This field records date of last PPD.
  • AUDIT:  EDITED OR DELETED
    DELETE AUTHORITY: Y
    WRITE AUTHORITY:  Y
    READ AUTHORITY:   Y
44.1 POSITIVE PPD 21;0 DATE Multiple #1964000.02 1964000.02
45 PPD DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,45,1)=$S($D(^DIZ(1964000,D0,20)):^(20),1:"") S X=$P(Y(1964000,45,1),U,6),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  #44+365
46 TD 22;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1990
47 TD DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,47,1)=$S($D(^DIZ(1964000,D0,22)):^(22),1:"") S X=$P(Y(1964000,47,1),U,1),X1=X,X2=+3650,X="" D C^%DTC:X1
  • ALGORITHM:  #46+3650
48 DENTAL CLINIC 22;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1990
49 DENTAL DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,49,1)=$S($D(^DIZ(1964000,D0,22)):^(22),1:"") S X=$P(Y(1964000,49,1),U,2),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  #48+365
50 PHYSICAL EXAM DUE COMPUTED DATE

  • MUMPS CODE:  X ^DD(1964000,50,9.3) S X=Y(1964000,50,102),X1=X,X2=+365,X="" D C^%DTC:X1 S D0=Y(1964000,50,80) S D1=Y(1964000,50,81)
    9.2 = S Y(1964000,50,80)=$S($D(D0):D0,1:""),Y(1964000,50,81)=$S($D(D1):D1,1:""),Y(1964000,50,102)=""
    9.3 = X ^DD(1964000,50,9.2) X "F D1=0:0 S D1=$N(^DIZ(1964000,D0,1,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""") S:Y'?."" "" Y(1964000,50,102)=Y" S D(1)=D1
  • ALGORITHM:  LAST(#11)+365
  • LAST EDITED:  APR 30, 1990
51 EKG DATE 22;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1990
52 EKG DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,52,1)=$S($D(^DIZ(1964000,D0,22)):^(22),1:"") S X=$P(Y(1964000,52,1),U,3),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  #51+365
53 PAP DATE 22;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1990
54 PAP RESULTS 22;5 SET
  • 'N' FOR NORMAL;
  • 'A' FOR ABNORMAL;

  • LAST EDITED:  APR 30, 1990
55 PAP DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,55,1)=$S($D(^DIZ(1964000,D0,22)):^(22),1:"") S X=$P(Y(1964000,55,1),U,4),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  PAP DATE+365
56 BREAST EXAM 22;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1990
57 BREAST EXAM DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,57,1)=$S($D(^DIZ(1964000,D0,22)):^(22),1:"") S X=$P(Y(1964000,57,1),U,6),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  #56+365
58 RECTAL/STOOL/GUIAC 22;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1990
59 RECTAL/STOOL/GUIAC DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,59,1)=$S($D(^DIZ(1964000,D0,22)):^(22),1:"") S X=$P(Y(1964000,59,1),U,7),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  #58+365
60 COMPLETE UA 22;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1990
61 COMPLETE UA DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,61,1)=$S($D(^DIZ(1964000,D0,22)):^(22),1:"") S X=$P(Y(1964000,61,1),U,8),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  #60+365
62 SMAC 22;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1990
63 SMAC DUE COMPUTED DATE

  • MUMPS CODE:  S Y(1964000,63,1)=$S($D(^DIZ(1964000,D0,22)):^(22),1:"") S X=$P(Y(1964000,63,1),U,9),X1=X,X2=+365,X="" D C^%DTC:X1
  • ALGORITHM:  #62+365
64 HYPERTENSION DX 22;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1990
65 SMOKING HISTORY 23;0 DATE Multiple #1964000.065 1964000.065
66 MI DATE 24;0 DATE Multiple #1964000.066 1964000.066
67 PATIENT TEACHING 25;0 DATE Multiple #1964000.067 1964000.067
68 ETOH HISTORY 26;0 DATE Multiple #1964000.068 1964000.068
69 EXERCISE 27;0 DATE Multiple #1964000.069 1964000.069
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All