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

Package: Radiology Nuclear Medicine

Global: ^RAMIS(71.3


Information

FileMan FileNo FileMan Filename Package
71.3 RAD/NUC MED COMMON PROCEDURE Radiology Nuclear Medicine

Description

Directly Accessed By Routines, Total: 16

Package Total Routines
Radiology Nuclear Medicine 16 PROCEDURE MODIFIERS    RA COMMON PROCEDURE EDIT    RACOMDEL    RADD1    RADD2    RADD3    RAMAIN2    RAO7MFN
RAORDU1    RAPRI    RAUTL13    RAUTL14    RAUTL17    RAUTL18    ^RAMIS(71    ^RAMIS(71.3

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Radiology Nuclear Medicine 2 RACOMDEL    RAMAIN2    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Radiology Nuclear Medicine 3 IMAGING LOCATIONS(#79.1)[8]    RAD/NUC MED PROCEDURES(#71)[.01]    PROCEDURE MODIFIERS(#71.2)[#71.312(.01)]    

Fields, Total: 11

Field # Name Loc Type Details
.01 PROCEDURE 0;1 POINTER TO RAD/NUC MED PROCEDURES FILE (#71)
************************REQUIRED FIELD************************
RAD/NUC MED PROCEDURES(#71)

  • INPUT TRANSFORM:  S DIC("S")="I $$EN1^RADD2(X,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X K:+$O(^RAMIS(71.3,"B",+$G(X),0)) X D:$D(X) EN6^RAUTL17($P($G(^RAMIS(71,X,0)),U,12),X)
    9.2 = D EN^DDIOL("`"_$P($G(^RAMIS(71,+X,0)),"^")_"' already exists as a Common Procedure.")
  • LAST EDITED:  JUL 20, 1995
  • HELP-PROMPT:  Enter a procedure name.
  • DESCRIPTION:  
    This field is an "active" entry from your RAD/NUC MED PROCEDURES file (#71).
  • SCREEN:  S DIC("S")="I $$EN1^RADD2(X,Y)"
  • EXPLANATION:  Only active procedures may be selected.
  • LAYGO TEST:  1,0)= X:+$O(^RAMIS(71.3,"B",+X,0)) ^DD(71.3,.01,9.2) I '+$O(^RAMIS(71.3,"B",+X,0))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  71.3^B
    1)= S ^RAMIS(71.3,"B",$E(X,1,30),DA)=""
    2)= K ^RAMIS(71.3,"B",$E(X,1,30),DA)
    Regular 'B' cross reference assigned by FileMan.
  • CROSS-REFERENCE:  71.3^AD^MUMPS
    1)= S:$P(^RAMIS(71.3,DA,0),U,3)]"" ^RAMIS(71.3,"AC",$P(^(0),U,3),$E(X,1,30),DA)=""
    2)= K:$P(^RAMIS(71.3,DA,0),U,3)]"" ^RAMIS(71.3,"AC",$P(^(0),U,3),$E(X,1,30),DA)
    Used to look-up common procedures by procedure name.
  • CROSS-REFERENCE:  71.3^AE^MUMPS
    1)= D EN5^RAUTL17(DA,$$EN3^RAUTL17(X),$P($G(^RAMIS(71.3,DA,0)),U,4),"S")
    2)= D EN5^RAUTL17(DA,$$EN3^RAUTL17(X),$P($G(^RAMIS(71.3,DA,0)),U,4),"K")
    3)= Do not delete.
    This cross-reference updates the 'AA' cross-reference when the procedure changes.  It sets/kills the following node: ^RAMIS(71.3,"AA",Imaging_Type_IEN,Sequence_Number,DA)
3 SEQUENCE NUMBER 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>40)!(X<1)!(X?.E1"."1N.N)!($D(^RAMIS(71.3,"AA",$$EN3^RAUTL17($P($G(^RAMIS(71.3,D0,0)),U)),X))) X
  • LAST EDITED:  OCT 11, 1994
  • HELP-PROMPT:  Type a Number between 1 and 40, 0 Decimal Digits. Must be UNIQUE!
  • DESCRIPTION:  
    This is a unique number that puts a procedure on the common procedure display and allows selection by this number.
  • EXECUTABLE HELP:  D EN3^RAUTL18(+$G(DA))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the INACTIVE field of the RAD/NUC MED COMMON PROCEDURE File
  • CROSS-REFERENCE:  71.3^AA^MUMPS
    1)= D EN5^RAUTL17(DA,$$EN3^RAUTL17($P($G(^RAMIS(71.3,DA,0)),U)),X,"S")
    2)= D EN5^RAUTL17(DA,$$EN3^RAUTL17($P($G(^RAMIS(71.3,DA,0)),U)),X,"K")
    3)= Do not delete.
    Used for the generation of the common procedure list. Only active procedures have the "AA" X-reference set. Sets/kills the following node: ^RAMIS(71.3,"AA",Imaging_Type_IEN,Sequence_Number,DA)
4 INACTIVE 0;5 SET
  • 'Y' FOR yes;

  • LAST EDITED:  MAR 13, 1990
  • HELP-PROMPT:  Enter 'Y'es if you do not want this procedure displayed during order entry.
  • DESCRIPTION:  
    This field should be answered 'yes' if you do not want the procedure to show up on display during order entry.
  • DELETE TEST:  1,0)= I $$REACMMN^RADD3(.DA)
  • CROSS-REFERENCE:  ^^TRIGGER^71.3^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RAMIS(71.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(71.3,4,1,1,1.4)
    1.4)= S DIH=$S($D(^RAMIS(71.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=71.3,DIG=3 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(^RAMIS(71.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(71.3,4,1,1,2.4)
    2.4)= S DIH=$S($D(^RAMIS(71.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=71.3,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= Do not delete.
    CREATE VALUE)= ""
    DELETE VALUE)= ""
    FIELD)= SE
    Deletes the 'AA' cross reference when the 'Inactive' field is set to 'Yes'.
6 CATEGORY OF EXAM 0;6 SET
  • 'I' FOR INPATIENT;
  • 'O' FOR OUTPATIENT;
  • 'C' FOR CONTRACT;
  • 'S' FOR SHARING;
  • 'E' FOR EMPLOYEE;
  • 'R' FOR RESEARCH;

  • LAST EDITED:  MAY 07, 1991
  • HELP-PROMPT:  If an entry is not made for this field, the category of 'Inpatient' will automatically be entered for each request generated from the protocol that is built for this procedure.
  • DESCRIPTION:  This field contains a category for this procedure of 'I' for inpatient, 'O' for outpatient, 'C' for Contract, 'S' for sharing, 'E' for employee, or 'R' for research. If an entry is not made for this field, the category of
    'Inpatient' will be automatically entered for each request generated from the protocal that is built for this procedure.
7 REQUESTED DATE 0;7 SET
  • 'TODAY' FOR TODAY;
  • 'TODAY+1' FOR TOMORROW;

  • LAST EDITED:  MAY 08, 1991
  • HELP-PROMPT:  If an entry is not made in this field, the date of today (TODAY) will automatically be entered for each request generated from the protocol that is built for this procedure.
  • DESCRIPTION:  
    Enter the date on which you would like the exam done.  This field should not be interpreted as an appointment date.
8 IMAGING LOCATION 0;8 POINTER TO IMAGING LOCATIONS FILE (#79.1)
************************REQUIRED FIELD************************
IMAGING LOCATIONS(#79.1)

  • INPUT TRANSFORM:  S DIC("S")="I $$SUBMITQ^RAUTL13(DA,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Enter the imaging location for this procedure.
  • DESCRIPTION:  
    This field contains the imaging location for this procedure. Only an imaging location is selectable.  The procedure request will be printed at this location.
  • SCREEN:  S DIC("S")="I $$SUBMITQ^RAUTL13(DA,+Y)"
  • EXPLANATION:  The imaging type of the procedure and the imaging type of the location must be the same.
9 MODE OF TRANSPORT 0;9 SET
  • 'a' FOR AMBULATORY;
  • 'p' FOR PORTABLE;
  • 's' FOR STRETCHER;
  • 'w' FOR WHEEL CHAIR;

  • LAST EDITED:  MAY 07, 1991
  • HELP-PROMPT:  If an entry is not made in this field, the mode of transport of 'ambulatory' will automatically be entered for each request generated from the protocol that is built for this procedure.
  • DESCRIPTION:  
    Enter the mode of transport, 'a' for ambulatory, 'p' for portable, 's' for stretcher, and 'w' for wheelchair.
10 ISOLATION PROCEDURES 0;10 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  MAY 07, 1991
  • HELP-PROMPT:  If an entry is not made in this field, a value of 'NO' (isolation procedures not required) will automatically be entered for each request generated from the protocol that is built for this procedure.
  • DESCRIPTION:  
    Enter 'y'es if isolation procedures are required for this procedure.
11 REQUEST URGENCY 0;11 SET
  • '1' FOR STAT;
  • '2' FOR URGENT;
  • '9' FOR ROUTINE;

  • LAST EDITED:  MAY 07, 1991
  • HELP-PROMPT:  If an entry is not made in this field, a request urgency of 'ROUTINE' will automatically be entered for each request generated from the protocol that is built for this procedure.
  • DESCRIPTION:  
    Enter the urgency of this request.
12 PROCEDURE MODIFIERS M;0 POINTER Multiple #71.312 71.312

  • LAST EDITED:  AUG 06, 1999
  • DESCRIPTION:  
    This field identifies the Procedure Modifiers that are associated with this Common Procedure.  Common Procedures may have more than one Procedure Modifier association.
13 NAME OF ORDERABLE ITEM 0;13 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>63!($L(X)<3) X I $D(X) D UPPER^RAUTL4 I $D(^ORD(101,"C",Y)) W !,"An item with this name already exists in file 101." K X
  • LAST EDITED:  MAY 09, 1991
  • HELP-PROMPT:  Answer must be 3-63 characters in length.
  • DESCRIPTION:  
    This is the name (menu text) that the person ordering this procedure will see when they are placing orders in the OE/RR package.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

External References

Name Field # of Occurrence
EN^DDIOL .01OF9.2+1
^DIC .01+1, 8+1
^DICR 4(XREF 1n1.4), 4(XREF 1n2.4)
$$REACMMN^RADD3 4DEL1+1
$$EN3^RAUTL17 .01(XREF 3S), .01(XREF 3K), 3+1, 3(XREF 1S), 3(XREF 1K)
EN5^RAUTL17 .01(XREF 3S), .01(XREF 3K), 3(XREF 1S), 3(XREF 1K)
EN6^RAUTL17 .01+1
EN3^RAUTL18 3(HELP )
UPPER^RAUTL4 13+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 4(XREF 1n1.4), 4(XREF 1n2.4)
^DD(71.3 .01LAYGO1+1, 4(XREF 1S), 4(XREF 1K)
^ORD(101 - [#101] 13+1
^RAMIS(71 - [#71] .01+1, .01OF9.2+1
^RAMIS(71.3 - [#71.3] .01+1, .01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 3+1, 3(XREF 1S)
3(XREF 1K), 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2K), 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 3+1, 4(XREF 1S), 4(XREF 1K)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 3(HELP ), 3(XREF 1S), 3(XREF 1K), 4DEL1+1
4(XREF 1S), 4(XREF 1K)
DIC .01+1!*, 8+1!*
DIC("S" .01+1*, .01SCR+1*, 8+1*, 8SCR+1*
>> DIE .01+1, 8+1
>> DIG 4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIH 4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIU 4(XREF 1S), 4(XREF 1K)
DIV 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
DIV(0 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
U .01+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 3+1, 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1n1.4)
4(XREF 1K), 4(XREF 1n2.4)
X .01+1*!, .01OF9.2+1, .01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 3+1!
3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4), 8+1*!, 13+1!
Y .01+1, 4(XREF 1S), 4(XREF 1K), 8+1, 13+1
Y(1 4(XREF 1S), 4(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All