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 |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^CIMSCPAT

Package: Uncategorized

Global: ^CIMSCPAT


Information

FileMan FileNo FileMan Filename Package
19259.02 NCI CANCER REGISTER PATIENT FILE Uncategorized

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
NCI Study Extract 3 CIMSNCI1    CIMSNCID    CIMSNCIL    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
NCI Study Extract 1 CIMSNCIL    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.01]    

Fields, Total: 6

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

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  APR 01, 1998
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  19259.02^B
    1)= S ^CIMSCPAT("B",$E(X,1,30),DA)=""
    2)= K ^CIMSCPAT("B",$E(X,1,30),DA)
.011 DOB COMPUTED DATE

  • MUMPS CODE:  X ^DD(19259.02,.011,9.3) S D0=$P(Y(19259.02,.011,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(19259.02,.011,201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(19259.02,.011,201),U,3) S D0=Y(19259.02,.011,80)
    9.2 = S Y(19259.02,.011,80)=$S($D(D0):D0,1:""),Y(19259.02,.011,1)=$S($D(^CIMSCPAT(D0,0)):^(0),1:""),D0=$P(Y(19259.02,.011,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
    9.3 = X ^DD(19259.02,.011,9.2) S Y(19259.02,.011,180)=$S($D(D0):D0,1:""),Y(19259.02,.011,101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"")
  • ALGORITHM:  #.01:#.01:#.03
.012 CURRENT COMMUNITY COMPUTED

  • MUMPS CODE:  X ^DD(19259.02,.012,9.2) S Y(19259.02,.012,101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") S X=$P(Y(19259.02,.012,101),U,18) S D0=Y(19259.02,.012,80)
    9.2 = S Y(19259.02,.012,80)=$S($D(D0):D0,1:""),Y(19259.02,.012,1)=$S($D(^CIMSCPAT(D0,0)):^(0),1:""),D0=$P(Y(19259.02,.012,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  #.01:#1118
.02 DATE ADDED TO FILE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1998
.03 NCI NUMBER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  APR 01, 1998
  • HELP-PROMPT:  Answer must be 7 characters in length.
.04 DATE OF CANCER DIAGNOSIS 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1998
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All