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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^AMCH(85

Package: Women's Health

Global: ^AMCH(85


Information

FileMan FileNo FileMan Filename Package
9002085 MCH PATIENT Women's Health

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Local Area Programs 1 AZAXDPM1    
Patient Care Component Reports 1 APCLM2    
Women's Health 1 ^AMCH(85    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 2 PROVIDER(#6)[103, 105, 203]
NEW PERSON(#200)[101.3]    
IHS Patient 1 PATIENT(#9000001)[.01]    

Fields, Total: 21

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

  • INPUT TRANSFORM:  S:$D(X) DINUM=X Q
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002085^B
    1)= S ^AMCH(85,"B",$E(X,1,30),DA)=""
    2)= K ^AMCH(85,"B",$E(X,1,30),DA)
101 IMMUNIZATION PATIENT REGISTER 1;1 SET
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;

  • LAST EDITED:  MAR 01, 1995
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • CROSS-REFERENCE:  9002085^AC
    1)= S ^AMCH(85,"AC",$E(X,1,30),DA)=""
    2)= K ^AMCH(85,"AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002085^101.2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMCH(85,D0,3)):^(3),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002085,101,1,2,1.1) X ^DD(9002085,101,1,2,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$S($D(^AMCH(85,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,7)=DIV,DIH=9002085,DIG=101.2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= #101.2
  • CROSS-REFERENCE:  ^^TRIGGER^9002085^101.3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMCH(85,D0,3)):^(3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9002085,101,1,3,1.4)
    1.4)= S DIH=$S($D(^AMCH(85,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,2)=DIV,DIH=9002085,DIG=101.3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #101.3
101.1 IMM ACTIVATION DATE 3;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 1989
  • HELP-PROMPT:  Enter the IMM ACTIVATION DATE.
101.2 IMM INACTIVATION DATE 3;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 1989
  • HELP-PROMPT:  Enter the IMM INACTIVATION DATE.
  • NOTES:  TRIGGERED by the IMMUNIZATION PATIENT REGISTER field of the MCH PATIENT File
101.3 PERSON CHANGING STATUS 3;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 1995
  • HELP-PROMPT:  Enter the name of the person who changed the child's status.
  • DESCRIPTION:  
    This field is set internally by the system to record the person who changed the child's active status.
  • NOTES:  TRIGGERED by the IMMUNIZATION PATIENT REGISTER field of the MCH PATIENT File
102 PARENT OR GUARDIAN 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-40 CHARACTERS IN LENGTH
103 CLIENT SERVICES COORDINATOR 1;3 POINTER TO PROVIDER FILE (#6) PROVIDER(#6)
104 INACTIVE DATE 1;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1988
  • HELP-PROMPT:  Enter the inactivation date.
104.5 DATE LAST SENT 1;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 08, 1991
  • HELP-PROMPT:  Enter the date last sent.
105 PUBLIC HEALTH NURSE 3;12 POINTER TO PROVIDER FILE (#6) PROVIDER(#6)

  • LAST EDITED:  JAN 18, 1989
201 ADULT IMMUNIZATION PATIENT 2;1 SET
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;

  • LAST EDITED:  NOV 13, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • CROSS-REFERENCE:  9002085^AA^MUMPS
    1)= I X="A" S ^AMCH(85,"AA",X,DA)=""
    2)= K ^AMCH(85,"AA",X,DA)
201.1 ADULT IMM ACTIVATION DATE 3;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 1989
  • HELP-PROMPT:  Enter the IMM ACTIVATION DATE
201.2 ADULT IMM INACTIVATION DATE 3;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 1989
  • HELP-PROMPT:  Enter the IMM INACTIVATION DATE.
203 ADULT CLIENT SVC COORDINATOR 2;3 POINTER TO PROVIDER FILE (#6) PROVIDER(#6)

  • LAST EDITED:  OCT 16, 1988
204 INFLUENZA REFUSED 2;2 SET
  • '1' FOR REFUSED;

  • LAST EDITED:  APR 12, 1991
  • HELP-PROMPT:  Enter the appropriate code from the list.
301 WOMEN'S HEALTH REGISTER 3;1 SET
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;

  • LAST EDITED:  JAN 24, 1988
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • CROSS-REFERENCE:  9002085^C
    1)= S ^AMCH(85,"C",$E(X,1,30),DA)=""
    2)= K ^AMCH(85,"C",$E(X,1,30),DA)
301.1 WH ACTIVATION DATE 3;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 1989
  • HELP-PROMPT:  Enter the WH ACTIVATION DATE.
301.2 WH INACTIVATION DATE 3;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 1989
  • HELP-PROMPT:  Enter the WH INACTIVATION DATE.
1000 AGE IN DAYS COMPUTED

  • MUMPS CODE:  X ^DD(9002085,1000,9.3) S Y=X,X=Y(9002085,1000,1),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S D0=Y(9002085,1000,80) S X=$J(X,0,0)
    9.2 = S Y(9002085,1000,80)=$S($D(D0):D0,1:""),Y(9002085,1000,2)=$S($D(^AMCH(85,D0,0)):^(0),1:""),X=DT S X=X,Y(9002085,1000,1)=X
    9.3 = X ^DD(9002085,1000,9.2) S D0=$P(Y(9002085,1000,2),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 X $P(^DD(9000001,1102.2,0),U,5,99) S Y(9002085,1000,101)=X S X=Y(9002085,1000,101)
  • ALGORITHM:  TODAY-(NAME:DOB) (ALWAYS 0 DECIMAL DIGITS)
1001 AGE IN MONTHS COMPUTED

  • MUMPS CODE:  X ^DD(9002085,1001,9.3) S Y=X,X=Y(9002085,1001,1),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X/30.44 S D0=Y(9002085,1001,80) S X=$J(X,0,0)
    9.2 = S Y(9002085,1001,80)=$S($D(D0):D0,1:""),Y(9002085,1001,2)=$S($D(^AMCH(85,D0,0)):^(0),1:""),X=DT S X=X,Y(9002085,1001,1)=X
    9.3 = X ^DD(9002085,1001,9.2) S D0=$P(Y(9002085,1001,2),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 X $P(^DD(9000001,1102.2,0),U,5,99) S Y(9002085,1001,101)=X S X=Y(9002085,1001,101)
  • ALGORITHM:  TODAY-(NAME:DOB)/30.44 (ALWAYS 0 DECIMAL DIGITS)
1002 AGE IN YEARS COMPUTED

  • MUMPS CODE:  X ^DD(9002085,1002,9.3) S Y=X,X=Y(9002085,1002,1),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X\365.25 S D0=Y(9002085,1002,80)
    9.2 = S Y(9002085,1002,80)=$S($D(D0):D0,1:""),Y(9002085,1002,2)=$S($D(^AMCH(85,D0,0)):^(0),1:""),X=DT S X=X,Y(9002085,1002,1)=X
    9.3 = X ^DD(9002085,1002,9.2) S D0=$P(Y(9002085,1002,2),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 X $P(^DD(9000001,1102.2,0),U,5,99) S Y(9002085,1002,101)=X S X=Y(9002085,1002,101)
  • ALGORITHM:  TODAY-(NAME:DOB)\365.25

External References

Name Field # of Occurrence
^%DT 101.1+1, 101.2+1, 104+1, 104.5+1, 201.1+1, 201.2+1, 301.1+1, 301.2+1
^%DTC 1000+1, 1001+1, 1002+1
NOW^%DTC 101(XREF 2n1.1)
^DICR 101(XREF 2n1.4), 101(XREF 3n1.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMCH(85 - [#9002085] .01(XREF 1S), .01(XREF 1K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3n1.4), 201(XREF 1S), 201(XREF 1K)
, 301(XREF 1S), 301(XREF 1K), 1000OF9.2+1, 1001OF9.2+1, 1002OF9.2+1
^AUPNPAT - [#9000001] 1000OF9.3+1, 1001OF9.3+1, 1002OF9.3+1
^DD( 101(XREF 2n1.4), 101(XREF 3n1.4)
^DD(9000001 1000OF9.3+1, 1001OF9.3+1, 1002OF9.3+1
^DD(9002085 101(XREF 2S), 101(XREF 3S), 1000+1, 1000OF9.3+1, 1001+1, 1001OF9.3+1, 1002+1, 1002OF9.3+1

Naked Globals

Name Field # of Occurrence
^(0 1000OF9.2+1, 1001OF9.2+1, 1002OF9.2+1
^(3 101(XREF 2S), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 101(XREF 2n1.1)
>> %DT 101.1+1*, 101.2+1*, 104+1*, 104.5+1*, 201.1+1*, 201.2+1*, 301.1+1*, 301.2+1*
%H 101(XREF 2n1.1)
%I 101(XREF 2n1.1)
>> D0 101(XREF 2S), 101(XREF 3S), 1000+1*, 1000OF9.2+1, 1000OF9.3+1*, 1001+1*, 1001OF9.2+1, 1001OF9.3+1*, 1002+1*, 1002OF9.2+1
, 1002OF9.3+1*
>> DA .01(XREF 1S), .01(XREF 1K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 3S), 201(XREF 1S), 201(XREF 1K), 301(XREF 1S), 301(XREF 1K)
>> DIG 101(XREF 2n1.4), 101(XREF 3n1.4)
>> DIH 101(XREF 2n1.4), 101(XREF 3n1.4)
>> DINUM .01+1*
>> DIU 101(XREF 2S), 101(XREF 3S)
DIV 101(XREF 2S), 101(XREF 2n1.1), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3n1.4)
DIV(0 101(XREF 2S), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3n1.4)
DT 1000OF9.2+1, 1001OF9.2+1, 1002OF9.2+1
DUZ 101(XREF 3S)
U 101(XREF 2S), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3n1.4), 1000OF9.3+1, 1001OF9.3+1, 1002OF9.3+1
X .01+1, .01(XREF 1S), .01(XREF 1K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2n1.1), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3n1.4)
, 101.1+1*!, 101.2+1*!, 102+1!, 104+1*!, 104.5+1*!, 201(XREF 1S), 201(XREF 1K), 201.1+1*!, 201.2+1*!, 301(XREF 1S)
, 301(XREF 1K), 301.1+1*!, 301.2+1*!, 1000+1*, 1000OF9.2+1*, 1000OF9.3+1*, 1001+1*, 1001OF9.2+1*, 1001OF9.3+1*, 1002+1*
, 1002OF9.2+1*, 1002OF9.3+1*
>> X1 1000+1*, 1001+1*, 1002+1*
>> X2 1000+1*, 1001+1*, 1002+1*
Y 101(XREF 2S), 101(XREF 3S), 101.1+1, 101.2+1, 104+1, 104.5+1, 201.1+1, 201.2+1, 301.1+1, 301.2+1
, 1000+1*, 1001+1*, 1002+1*
Y(1 101(XREF 2S), 101(XREF 3S)
Y(9002085 1000+1, 1000OF9.2+1*, 1000OF9.3+1*, 1001+1, 1001OF9.2+1*, 1001OF9.3+1*, 1002+1, 1002OF9.2+1*, 1002OF9.3+1*
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All