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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^MCAR(699.5

Package: Medicine

Global: ^MCAR(699.5


Information

FileMan FileNo FileMan Filename Package
699.5 GENERALIZED PROCEDURE/CONSULT Medicine

Description

Directly Accessed By Routines, Total: 26

Package Total Routines
Medicine 22 COMPLICATIONS    DIAGNOSIS    ICD DIAGNOSIS    IMAGE    MCARGES    MCAROGC    MCAROGE    MCARPAC
MCARPS1    MCARPS2    MCARPS3    MCESCONV    MCOBGC    MCOBGEN    MCPOS01F    MCPOS04
MCPOS04A    MCPOS06    MCPSGEN    MEDICATIONS    TECHNIQUE    ^MCAR(699.5    
Clinical Procedures 4 MDARP3    MDCVT1    MDPS3    MDSTATU    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Medicine 7 MCARGE    MCARGES    MCARGP    MCARPAC    MCPOS04    MCPOS04A    MCPSGEN    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[#123.03(.01)]    

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
Medicine 5 MEDICAL PATIENT(#690)[.02]    COMPLICATION(#696.9)[#699.51(.01)]    PROCEDURE/SUBSPECIALTY(#697.2)[.05.06]    DIAG/THERAP INTERVENT(#699.6)[#699.501(.01)]    CONSULTATION TYPE(#699.82)[31.5]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#699.54(.01)]    
Imaging 1 IMAGE(#2005)[#699.52005(.01)]    
Kernel 1 NEW PERSON(#200)[6701150015031512]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
PCE Patient Care Encounter 1 VISIT(#9000010)[900]    
Pharmacy Data Management 1 DRUG(#50)[#699.53(.01)]    

Fields, Total: 41

Field # Name Loc Type Details
.01 DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 31, 1992
  • CROSS-REFERENCE:  699.5^B
    1)= S ^MCAR(699.5,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(699.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  699.5^AC^MUMPS
    1)= S MCARCDIE="^MCAR(699.5," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(699.5," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent Generalize Procedures for this patient.
.02 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690)
************************REQUIRED FIELD************************
MEDICAL PATIENT(#690)

  • LAST EDITED:  JUL 29, 1992
  • CROSS-REFERENCE:  699.5^C
    1)= S ^MCAR(699.5,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(699.5,"C",$E(X,1,30),DA)
    This cross-reference allow look-ups on patient.
  • CROSS-REFERENCE:  699.5^AD^MUMPS
    1)= S MCARCDIE="^MCAR(699.5," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(699.5," D KILL^MCARPROC
.05 SUBSPECIALTY 0;6 POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2)
************************REQUIRED FIELD************************
PROCEDURE/SUBSPECIALTY(#697.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,9),($P($G(^(1)),U)=""S"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 05, 1997
  • HELP-PROMPT:  Enter the Sub-specialty for which data is being entered
  • DESCRIPTION:  
    Only subspecailty in the PROCEDURE/SUBSPECIALTY file will be chosen.
  • SCREEN:  S DIC("S")="I $P(^(0),U,9),($P($G(^(1)),U)=""S"")"
  • EXPLANATION:  Chooses those Sub-specialties which are entered through the Generic Medicine Procedure Sub-module
  • CROSS-REFERENCE:  699.5^D
    1)= S ^MCAR(699.5,"D",$E(X,1,30),DA)=""
    2)= K ^MCAR(699.5,"D",$E(X,1,30),DA)
    This cross-references the file by the various subspecialties that have data entered in the Generic Procedure File.
.06 PROCEDURE 0;8 POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2)
************************REQUIRED FIELD************************
PROCEDURE/SUBSPECIALTY(#697.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,9),($P($G(^(1)),U)=""P"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 23, 1997
  • HELP-PROMPT:  Enter Procedure name
  • DESCRIPTION:  
    Only procedure in the PROCEDURE/SUBSPECIALTY file will be chosen.
  • SCREEN:  S DIC("S")="I $P(^(0),U,9),($P($G(^(1)),U)=""P"")"
  • EXPLANATION:  Choose those procedures which are entered through the Generic Procedure module.
1 INDICATION 1;0 WORD-PROCESSING #699.52

  • LAST EDITED:  JAN 29, 1992
2 PROBLEM ORIENTED CONSULT? 0;3 SET
  • '1' FOR YES;

  • LAST EDITED:  JAN 30, 1992
  • DESCRIPTION:  
    This field is automatically stuffed if an entry is made though the various Medicine package sub-modules' Problem-Oriented Consult Option.
2.01 OUTPUT-FORMATTED POC COMPUTED

  • MUMPS CODE:  X ^DD(699.5,2.01,9.4) S X=$S(Y(699.5,2.01,3):Y(699.5,2.01,4),Y(699.5,2.01,5):X)
    9.2 = S Y(699.5,2.01,2)=$C(59)_$S($D(^DD(699.5,2,0)):$P(^(0),U,3),1:""),Y(699.5,2.01,1)=$S($D(^MCAR(699.5,D0,0)):^(0),1:"")
    9.3 = X ^DD(699.5,2.01,9.2) S X=$P($P(Y(699.5,2.01,2),$C(59)_$P(Y(699.5,2.01,1),U,3)_":",2),$C(59),1)="YES",Y(699.5,2.01,3)=X S X="THIS IS A PROBLEM-ORIENTED CONSULT"
    9.4 = X ^DD(699.5,2.01,9.3) S Y(699.5,2.01,4)=X S X=1,Y(699.5,2.01,5)=X S X="NOT A PROBLEM-ORIENTED CONSULT"
  • ALGORITHM:  $S(PROBLEM ORIENTED CONSULT?="YES":"THIS IS A PROBLEM-ORIENTED CONSULT",1:"NOT A PROBLEM-ORIENTED CONSULT")
  • DESCRIPTION:  
    This field formats the PROBLEM ORIENTED CONSULT? field (#2) for the output report.
3 INDICATION COMMENT 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>110!($L(X)<1) X
  • LAST EDITED:  JAN 30, 1992
  • HELP-PROMPT:  Answer must be 1-110 characters in length.
  • DESCRIPTION:  
    This field is used in the Problem-Oriented Consult Enter/Edit and Print.
5 MEDICATIONS 4;0 POINTER Multiple #699.53 699.53
6 PROVIDER/PHYSICIAN 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 23, 1996
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • CROSS-REFERENCE:  ^^TRIGGER^699.5^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(699.5,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(699.5,6,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(699.5,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=699.5,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(699.5,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(699.5,6,1,1,2.1) X ^DD(699.5,6,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(699.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X
    2.4)= S DIH=$S($D(^MCAR(699.5,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=699.5,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#6)
    DELETE VALUE)= INTERNAL(#6)
    FIELD)= #701
    this trigger sets the primary provider file.
7 TECHNIQUE 2;0 POINTER Multiple #699.501 699.501

  • SCREEN:  I $P(^(0),U,4)
  • EXPLANATION:  Provides list of techniques applicable to the Generic module
30 COMPLICATIONS 3;0 POINTER Multiple #699.51 699.51
31.5 CONSULTATION TYPE 0;5 POINTER TO CONSULTATION TYPE FILE (#699.82) CONSULTATION TYPE(#699.82)

  • LAST EDITED:  NOV 09, 1991
32 SUBJECTIVE 20;0 WORD-PROCESSING #699.532

  • LAST EDITED:  JAN 30, 1992
  • LAST EDITED:  JAN 30, 1992
33 OBJECTIVE 21;0 WORD-PROCESSING #699.533

  • LAST EDITED:  JAN 30, 1992
  • LAST EDITED:  JAN 30, 1992
34 ASSESSMENT/FINDINGS 22;0 WORD-PROCESSING #699.534

  • LAST EDITED:  JAN 30, 1992
  • LAST EDITED:  JAN 30, 1992
35 PLAN 35;0 WORD-PROCESSING #699.535

  • LAST EDITED:  JAN 30, 1992
  • LAST EDITED:  JAN 30, 1992
600 PROCEDURE SUMMARY .2;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>79!($L(X)<1) X
  • LAST EDITED:  DEC 20, 1991
  • HELP-PROMPT:  Answer must be 1-79 characters in length.
601 SUMMARY .2;1 SET
************************REQUIRED FIELD************************
  • 'A' FOR ABNORMAL;
  • 'N' FOR NORMAL;
  • 'I' FOR INCOMPLETE EXAMINATION;

  • LAST EDITED:  DEC 20, 1991
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #699.54 699.54

  • DESCRIPTION:  
    This field contains the ICD Diagnosis(es) for the procedure.
701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 25, 1994
  • DESCRIPTION:  
    This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the PROVIDER/PHYSICIAN field of the GENERALIZED PROCEDURE/CONSULT File
900 PCC POINTER PCC;1 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  MAY 17, 1996
  • DESCRIPTION:  
    This field is used to link the Medicine package results with the PCC Visit File for use by Queryman.
  • CROSS-REFERENCE:  699.5^APCE
    1)= S ^MCAR(699.5,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(699.5,"APCE",$E(X,1,30),DA)
    Pointer to the Visit file.
1000 ORIFN OR;1 POINTER TO ORDER FILE (#100) ORDER(#100)

  • LAST EDITED:  JAN 30, 1992
  • DESCRIPTION:  
    This field contains a pointer to the 'Consult Orders' internal file number stored in file 100. This field is entered when results are entered in the Medicine package.
1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#123) REQUEST/CONSULTATION(#123)

  • LAST EDITED:  JAN 30, 1992
  • DESCRIPTION:  
    This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package.
1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 12, 1993
1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1502 ENTERING DATE ES;3 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 12, 1993
1504 SIGNER VALIDATION CODE ES;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1505 VERIFIER DATE ES;6 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1506 RELEASE CODE ES;7 SET
  • 'D' FOR DRAFT;
  • 'PD' FOR PROBLEM DRAFT;
  • 'RV' FOR RELEASE ON-LINE VERIFIED;
  • 'ROV' FOR RELEASE OFF-LINE VERIFIED;
  • 'RNV' FOR RELEASE NOT VERIFIED;
  • 'S' FOR SUPERSEDED;
  • 'SRV' FOR SUPERSEDING RELEASE ON-LINE VERIFIED;
  • 'SROV' FOR SUPERSEDING RELEASE OFF-LINE VERIFIED;

  • LAST EDITED:  SEP 03, 1993
1507 DATE OF RELEASED ES;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1508 DATE OF VERIFIED ES;9 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1509 SUPERSEDED ES;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
1510 SUPERSEDED BY ES;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 08, 1993
  • HELP-PROMPT:  Type a Number between 0 and 99999999999999, 0 Decimal Digits
1511 MARK FOR DELETATION ES;12 SET
  • '1' FOR MARK FOR DELETION;

  • LAST EDITED:  FEB 12, 1993
1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 12, 1993
1513 SUPERSEDED DATE ES;14 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 04, 1993
1514 CREATION DATE ES;15 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1515 SUPERSEDED NUMBER ES;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 04, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
2005 IMAGE 2005;0 POINTER Multiple #699.52005 699.52005

External References

Name Field # of Occurrence
^%DT .01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1513+1, 1514+1
^DIC .05+1, .06+1, 6+1, 701+1
^DICR 6(XREF 1n1.4), 6(XREF 1n2.4)
Y^DIQ ID.02+1, ID.05+1
CHGDTE^MCARPROC .01(XREF 2K)
CHGDTE1^MCARPROC .01(XREF 2S)
CHGPAT^MCARPROC .02(XREF 2S)
KILL^MCARPROC .02(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 6(XREF 1n1.4), 6(XREF 1n2.4)
^DD(690 ID.02+1
^DD(697.2 ID.05+1
^DD(699.5 2.01+1, 2.01OF9.2+1, 2.01OF9.3+1, 2.01OF9.4+1, 6(XREF 1S), 6(XREF 1K)
^MCAR(690 - [#690] ID.02+1
^MCAR(697.2 - [#697.2] ID.05+1
^MCAR(699.5 - [#699.5] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .05(XREF 1S), .05(XREF 1K), 2.01OF9.2+1, 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K)
6(XREF 1n2.1), 6(XREF 1n2.4), 900(XREF 1S), 900(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("ES" IDX1+1
^("PROV" 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.4)
^(0 ID.02+1, ID.05+1, 2.01OF9.2+1, 6(XREF 1n2.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 1502+1*, 1505+1*, 1507+1*, 1508+1*, 1513+1*, 1514+1*
%I ID.02+1*!, ID.05+1*!
>> C ID.02+1*, ID.05+1*
>> D0 2.01OF9.2+1, 6(XREF 1S), 6(XREF 1K), 6(XREF 1n2.1)
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .05(XREF 1S), .05(XREF 1K), 6(XREF 1S), 6(XREF 1K), 900(XREF 1S), 900(XREF 1K)
DIC ID.02+1, ID.05+1, IDX1+1, .05+1!*, .06+1!*, 6+1!*, 701+1!*
DIC("S" .05+1*, .05SCR+1*, .06+1*, .06SCR+1*, 6+1*, 701+1*
>> DIE .05+1, .06+1, 6+1, 701+1
>> DIG 6(XREF 1n1.4), 6(XREF 1n2.4)
>> DIH 6(XREF 1n1.4), 6(XREF 1n2.4)
>> DIU 6(XREF 1S), 6(XREF 1K)
DIV 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.1), 6(XREF 1n2.4)
DIV(0 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.4)
>> MCARCDIE .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K)
U ID.02+1, ID.05+1, 2.01OF9.2+1, 2.01OF9.3+1, 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.1), 6(XREF 1n2.4)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .05+1*!, .05(XREF 1S), .05(XREF 1K), .06+1*!, 2.01+1*
, 2.01OF9.3+1*, 2.01OF9.4+1*, 3+1!, 6+1*!, 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.1), 6(XREF 1n2.4), 600+1!
, 701+1*!, 900(XREF 1S), 900(XREF 1K), 1501+1!, 1502+1*!, 1504+1!, 1505+1*!, 1507+1*!, 1508+1*!, 1509+1!
, 1510+1!, 1513+1*!, 1514+1*!, 1515+1!
Y ID.02+1*, ID.05+1*, .01+1, .05+1, .06+1, 6+1, 6(XREF 1S), 6(XREF 1K), 701+1, 1502+1
, 1505+1, 1507+1, 1508+1, 1513+1, 1514+1
Y( 2.01+1, 2.01OF9.2+1*, 2.01OF9.3+1*, 2.01OF9.4+1*
Y(1 6(XREF 1S), 6(XREF 1K), 6(XREF 1n2.1)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All