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

Package: Master Patient Index VistA

Global: ^MPIF(984.9


Information

FileMan FileNo FileMan Filename Package
984.9 MPIF CMOR REQUEST Master Patient Index VistA

Description

Directly Accessed By Routines, Total: 23

Package Total Routines
Master Patient Index VistA 13 MPIF PENDING REQUESTS    MPIF REQUEST SORT    MPIFAREQ    MPIFCMOR    MPIFCMRP    MPIFEDIT    MPIFNEW    MPIFRCMP
MPIFREQ    ^MPIF(984.9    MPIFRESS    MPIFREV    MPIFUTL    
Registration 1 VAFCPDT2    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Master Patient Index VistA 10 MPIFAREQ    MPIFCMRP    MPIFEDIT    MPIFNEW    MPIFNQ    MPIFRCMP    MPIFREQ    MPIFRESS
MPIFREV    MPIFUTL    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[.07, .09]    NEW PERSON(#200)[.02, 2.01]    
Registration 1 PATIENT(#2)[.04]    

Fields, Total: 20

Field # Name Loc Type Details
.01 REQUEST NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  JUL 12, 1996
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    Request number is automatically generated by the system and is used to identify a specific CMOR request. When a request is transmitted to another station, the request number remains the same across both stations.
  • CROSS-REFERENCE:  984.9^B
    1)= S ^MPIF(984.9,"B",$E(X,1,30),DA)=""
    2)= K ^MPIF(984.9,"B",$E(X,1,30),DA)
.02 REQUESTED BY 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  OCT 31, 2001
  • HELP-PROMPT:  Select the person making the request from the New Person file.
  • DESCRIPTION:  The REQUESTED BY field will exist at the originating station only. Once the request is transmitted to another station, the receiving station will not have data in this field. This is due to the fact that the receiving
    location will not have the originating person in their New Person (#200) file.
  • CROSS-REFERENCE:  984.9^AD
    1)= S ^MPIF(984.9,"AD",$E(X,1,30),DA)=""
    2)= K ^MPIF(984.9,"AD",$E(X,1,30),DA)
.03 DATE REQUESTED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 02, 1996
  • HELP-PROMPT:  Enter the date/time of the request.
  • DESCRIPTION:  
    Date requested is the date the request was entered into the system.
.04 PATIENT 0;4 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  OCT 06, 1997
  • HELP-PROMPT:  Select the patient that the CMOR request is for.
  • DESCRIPTION:  
    Patient affected by the CMOR change request.
  • CROSS-REFERENCE:  984.9^C
    1)= S ^MPIF(984.9,"C",$E(X,1,30),DA)=""
    2)= K ^MPIF(984.9,"C",$E(X,1,30),DA)
.05 REQUESTOR PHONE NUMBER 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  JUL 03, 1996
  • HELP-PROMPT:  Answer must be 4-20 characters in length.
  • DESCRIPTION:  
    Phone number that can be used to contact the person requesting the CMOR change request. This data is transmitted to the receiving location and is needed if the person reviewing the request has questions.
.06 STATUS 0;6 SET
************************REQUIRED FIELD************************
  • '1' FOR OPEN;
  • '2' FOR REQUESTED;
  • '3' FOR PENDING APPROVAL;
  • '4' FOR APPROVED;
  • '5' FOR DISAPPROVED;

  • LAST EDITED:  JUL 09, 2001
  • DESCRIPTION:  This field tracks the progress of the CMOR change request. As the request is being entered, it has a status of Open. Once the requestor sends the request, the status is change to Requested. At the receiving location,
    the status is set to Pending Approval. Once it is processed, it will be set to Approved or Disapproved. The requesting site will also update the status to Approved or Disapproved once the request has been processed.
  • CROSS-REFERENCE:  984.9^AC
    1)= S ^MPIF(984.9,"AC",$E(X,1,30),DA)=""
    2)= K ^MPIF(984.9,"AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  984.9^AS1^MUMPS
    1)= S:$P(^MPIF(984.9,DA,0),"^",7)]"" ^MPIF(984.9,"AS",$P(^(0),"^",7),X,DA)=""
    2)= K:$P(^MPIF(984.9,DA,0),"^",7)]"" ^MPIF(984.9,"AS",$P(^(0),"^",7),X,DA)
    Compound x-ref on site and status.
.07 SITE 0;7 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JUL 09, 2001
  • DESCRIPTION:  
    At the site that has RECEIVED the Request/Push the site field will be the site that initiated the Request/Push. At the site that has SENT the request it will be the site the request was sent to.
  • CROSS-REFERENCE:  984.9^AS2^MUMPS
    1)= S:$P(^MPIF(984.9,DA,0),"^",6)]"" ^MPIF(984.9,"AS",X,$P(^(0),"^",6),DA)=""
    2)= K:$P(^MPIF(984.9,DA,0),"^",6)]"" ^MPIF(984.9,"AS",X,$P(^(0),"^",6),DA)
    Compound x-ref on site and status
.08 TYPE OF MESSAGE 0;8 SET
************************REQUIRED FIELD************************
  • '1' FOR RECEIVED;
  • '2' FOR SENT;

  • LAST EDITED:  JUL 24, 1996
  • DESCRIPTION:  
    A type of sent refers to the CMOR request originated from the station and is being sent to another station. A received type refers to the CMOR request originated from the other station.
.09 CMOR AFTER APPROVAL 0;9 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JUN 18, 2001
  • DESCRIPTION:  
    This field will contain the site that the request is asking to be the CMOR or the site that the Push is making the CMOR.
1.01 REQUESTOR NAME 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 02, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    The requestor name is a free-text name of the person sending the CMOR request. This field is blank at the originating site since the Request By field points to the person. This field is used at the receiving location.
1.02 REASON FOR REQUEST 1;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  JUL 11, 1996
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    Enter a brief reason for requesting the CMOR transfer.
1.03 TYPE OF ACTION 1;3 SET
************************REQUIRED FIELD************************
  • '1' FOR REQUEST SENT TO;
  • '2' FOR REQUEST RECEIVED FROM;
  • '3' FOR PUSH SENT TO;
  • '4' FOR PUSH RECEIVED FROM;

  • LAST EDITED:  JUN 18, 2001
  • DESCRIPTION:  
    This field is used to show which request was made and whether it originated at this facility or was received at this facility.
2.01 REVIEWED BY 2;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Select the user making the request.
  • DESCRIPTION:  The site processing this request will have this field populated with the user that processed the request. The site that made the request will not have this field populated but will instead have the Reviewer Name field
    populated.
  • CROSS-REFERENCE:  984.9^AE
    1)= S ^MPIF(984.9,"AE",$E(X,1,30),DA)=""
    2)= K ^MPIF(984.9,"AE",$E(X,1,30),DA)
2.02 DATE REVIEWED 2;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 02, 1996
  • HELP-PROMPT:  Enter the date the request was approved/denied.
  • DESCRIPTION:  
    This date reflects the date the request was approved or denied.
2.03 REVIEWER PHONE NUMBER 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  JUL 02, 1996
  • HELP-PROMPT:  Answer must be 4-20 characters in length.
  • DESCRIPTION:  Phone number that is used to contact the person that reviewed and approved or denied the CMOR change request. This data is transmitted to the requesting station and is needed if the person receiving the result has
    questions.
3.01 REVIEWER NAME 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  The reviewer name is a free-text name of the person reviewing the CMOR request. This field is blank at the reviewing site since the Reviewed By field points to the person. This field is used at the originating station
    and is transmitted along with the result of the request.
3.02 REVIEWER COMMENTS 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  JUL 02, 1996
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    Comments that are entered by the person reviewing the request. These comments are transmitted back to the origination station after the request is approved or denied.
100 DAYS OLD COMPUTED

  • MUMPS CODE:  S X=0 I $P(^MPIF(984.9,D0,0),"^",3)]"" S X=$$FMDIFF^XLFDT($S($P($G(^MPIF(984.9,D0,2)),"^",2)]"":$P(^(2),"^",2),1:DT),$P(^MPIF(984.9,D0,0),"^",3)) S X=$J(X,0,0)
  • ALGORITHM:  S X=0 I $P(^MPIF(984.9,D0,0),"^",3)]"" S X=$$FMDIFF^XLFDT($S($P($G(^MPIF(984.9,D0,2)),"^",2)]"":$P(^(2),"^",2),1:DT),$P(^MPIF(984.9,D0,0),"^",3)) (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  JUL 15, 1996
  • DESCRIPTION:  
    Days old is calculated by comparing the date the request was entered or received and compared to today's date. The number of days between these two dates determines the number of days old a request is.
101 REQUESTOR COMPUTED

  • MUMPS CODE:  S X=$P($G(^VA(200,+$P(^MPIF(984.9,D0,0),"^",2),0)),"^") S:X="" X=$P($G(^MPIF(984.9,D0,1)),"^") S X=$E(X,1,30)
  • ALGORITHM:  S X=$P($G(^VA(200,+$P(^MPIF(984.9,D0,0),"^",2),0)),"^") S:X="" X=$P($G(^MPIF(984.9,D0,1)),"^") S X=$E(X,1,30)
  • LAST EDITED:  JUL 16, 1996
  • DESCRIPTION:  The result of this computed field is the comparison of the Request By and the Requestor Name field. Since only one of these two fields exist within a CMOR request, this computed field extracts the one that exists and
    gives a consistent place to use in print templates for displaying the name
102 REVIEWER COMPUTED

  • MUMPS CODE:  S X=$P($G(^VA(200,+$P($G(^MPIF(984.9,D0,2)),"^"),0)),"^") S:X="" X=$P($G(^MPIF(984.9,D0,3)),"^") S X=$E(X,1,30)
  • ALGORITHM:  S X=$P($G(^VA(200,+$P($G(^MPIF(984.9,D0,2)),"^"),0)),"^") S:X="" X=$P($G(^MPIF(984.9,D0,3)),"^") S X=$E(X,1,30)
  • LAST EDITED:  JUL 16, 1996
  • DESCRIPTION:  The result of this computed field is the comparison of the Reviewed By and the Reviewer Name field. Since only on of these two fields exist within a CMOR request, this computed field extracts the one that exists and gives
    a consistent place to use in print templates for displaying the name

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3298
  • Registration
  • Clinical Information Resource Network
    		•  REQUEST NUMBER (.01).
    Access: Read w/Fileman

    DATE REQUESTED (.03).
    Access: Read w/Fileman

    STATUS (.06).
    Access: Read w/Fileman

    SITE (.07).
    Access: Read w/Fileman

    TYPE OF MESSAGE (.08).
    Access: Read w/Fileman

    TYPE OF REQUEST (1.03).
    Access: Read w/Fileman

    PATIENT (.02).
    Access: Direct Global Read & w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .03+1, 2.02+1
    Y^DIQ IDWR3+1
    $$FMDIFF^XLFDT 100+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(2 IDWR3+1, |dd984.9
    ^DIC(4 - [#4] |sort
    ^DPT - [#2] IDWR3+1, |dd984.9
    ^MPIF(984.5 - [#984.5] |dd984.5*!
    ^MPIF(984.8 - [#984.8] |dd984.8*!
    ^MPIF(984.9 - [#984.9] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K)
    , .07(XREF 1S), .07(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 100+1, 101+1, 102+1, |dd984.9*!, |sort
    ^TMP("MPIFVQQ" |list
    ^VA(200 - [#200] 101+1, 102+1, |dd984.9

    Naked Globals

    Name Field # of Occurrence
    ^(0 IDWR1+1, IDWR3+1, .06(XREF 2S), .06(XREF 2K), .07(XREF 1S), .07(XREF 1K), |dd984.9, |sort
    ^(2 100+1, |dd984.9, |sort
    ^(99 |sort

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .03+1*, 2.02+1*, |dd984.8*, |dd984.9*
    %I IDWR3+1*!, |dd984.9*!
    >> C IDWR3+1*, |dd984.9*
    >> COMMENTS |inpt
    >> D0 100+1, 101+1, 102+1, |dd984.9, |sort*
    >> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K)
    , .07(XREF 1S), .07(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), |dd984.5, |dd984.8, |dd984.9
    >> DIC IDWR2+1, IDWR3+1, |dd984.9
    >> DISX(1 |sort*
    >> DISX(2 |sort*
    >> DISX(3 |sort*
    >> DISX(4 |sort*
    >> DISX(5 |sort*
    >> DPP(1 |sort
    DT 100+1, |dd984.9, |sort
    DUZ |inpt
    >> I(0 |sort*
    >> INST |inpt
    >> NDATE |inpt
    >> PATIEN |inpt
    >> PHONE |inpt
    >> REASON |inpt
    >> RESULT |inpt
    >> REVIEWER |inpt
    >> TYPE |inpt
    U IDWR1+1, IDWR3+1, |dd984.9, |sort
    >> USER |inpt
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03+1*!, .04(XREF 1S), .04(XREF 1K), .05+1!, .06(XREF 1S)
    , .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .07(XREF 1S), .07(XREF 1K), 1.01+1!, 1.02+1!, 2.01(XREF 1S), 2.01(XREF 1K), 2.02+1*!
    , 2.03+1!, 3.01+1!, 3.02+1!, 100+1*, 101+1*, 102+1*, |dd984.5!, |dd984.8*!, |dd984.9*!, |dd984.9*
    , |inpt*, |inpt*, |sort*
    >> Y IDWR3+1*, .03+1, 2.02+1, |dd984.8, |dd984.9*, |sort*
    >> Y(1 |sort*
    >> Y(101 |sort*
    >> Y(2 |sort*
    >> Y(3 |sort*
    >> Y(4 |sort*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All