Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | 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

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)[6, 701, 1500, 1503, 1512]    
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
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All