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 |  ICR  | All
Print Page as PDF
Global: ^SCPT(404.43

Package: Scheduling

Global: ^SCPT(404.43


Information

FileMan FileNo FileMan Filename Package
404.43 PATIENT TEAM POSITION ASSIGNMENT Scheduling

Description

Accessed By FileMan Db Calls, Total: 17

Package Total Routines
Scheduling 17 SCMCCV1    SCMCHLZ    SCMCLN    SCMCMHHP    SCMCMHTC    SCMCMU2    SCMCTSK    SCMCTSK1
SCMCTSK2    SCMCTSK7    SCMCTSK9    SCMCTSKG    SCRPM21U    SCRPO5    SCRPPTPA    SD53P177
SD53P603    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Scheduling 2 PCMM HL7 TRANSMISSION LOG(#404.471)[.07]    PCMM HL7 EVENT(#404.48)[.07]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Scheduling 2 PATIENT TEAM ASSIGNMENT(#404.42)[.01]    TEAM POSITION(#404.57)[.02]    
Kernel 1 NEW PERSON(#200)[.06.08.16]

Fields, Total: 16

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

  • LAST EDITED:  MAY 04, 2017
  • HELP-PROMPT:  This is an entry in the team position assignment file.
  • DESCRIPTION:  
    This is an entry in the team position assignment file.
  • CROSS-REFERENCE:  404.43^B
    1)= S ^SCPT(404.43,"B",$E(X,1,30),DA)=""
    2)= K ^SCPT(404.43,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  404.43^APRIMARY^MUMPS
    1)= N SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"" S ^SCPT(404.43,"APRIMARY",X,SC2,-SC3,DA)=""
    2)= N SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"" K ^SCPT(404.43,"APRIMARY",X,SC2,-SC3,DA)
    This sorts by PATIENT TEAM ASSIGNMENT(#.01), then by TEAM POSITION(#.02), then by -POSITION ASSIGNED DATE(#.03). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^APTPA1^MUMPS
    1)= N SC1 S SC1=$P($G(^SCPT(404.43,DA,0)),U,2) I SC1 S ^SCPT(404.43,"APTPA",SC1,X,DA)=""
    2)= N SC1 S SC1=$P($G(^SCPT(404.43,DA,0)),U,2) I SC1 K ^SCPT(404.43,"APTPA",SC1,X,DA)
    This sorts by TEAM POSITION(#.02), then by PATIENT TEAM ASSIGNMENT(#.01). There is an associated cross reference for the TEAM POSITION Field (#.02).
  • CROSS-REFERENCE:  404.43^ADFN^MUMPS
    1)= N SCDFN,SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN S ^SCPT(404.43,"ADFN",SCDFN,SC2,SC3,DA)=""
    2)= N SCDFN,SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN K ^SCPT(404.43,"ADFN",SCDFN,SC2,SC3,DA)
    This sorts by PATIENT File ien (DFN), then by TEAM POSITION(#.02), then by POSITION ASSIGNED DATE(#.03). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^APCPOS^MUMPS
    1)= N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.43,DA,0)),U,5) I SC2]"" S SC3=$P($G(^(0)),U,3) I SC3]"" S SC4=$P($G(^(0)),U,2) I SC4 D SETPC^SCMCDD1(X,SC2,SC3,SC4,DA)
    2)= N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.43,DA,0)),U,5) I SC2]"" S SC3=$P($G(^(0)),U,3) I SC3]"" S SC4=$P($G(^(0)),U,2) I SC4 D KILLPC^SCMCDD1(X,SC2,SC3,SC4,DA)
    This sorts by PATIENT (via Patient Team Assignement), then by PC ROLE(#.05), then by -POSITION ASSIGNED DATE(#.03), then by TEAM POSITION(#.02). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^ACTDFN1^MUMPS
    1)= N ND,SCDFN,SC3,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"" S SC4=$P(ND,U,4) I SC4']"" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTDFN",SCDFN,DA)=""
    2)= N ND,SCDFN,SC3,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"" S SC4=$P(ND,U,4) I SC4']"" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTDFN",SCDFN,DA)
    This sorts currently active entries by PATIENT file ien (DFN). There are associated xrefs for fields .03 and .04.
  • CROSS-REFERENCE:  404.43^ACTPC1^MUMPS
    1)= N ND,SCDFN,SC3,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"" S SC4=$P(ND,U,4) I SC4']"" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTPC",SCDFN,SC5,DA)=""
    2)= N ND,SCDFN,SC3,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"" S SC4=$P(ND,U,4) I SC4']"" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTPC",SCDFN,SC5,DA)
    This sorts currently active entries by PATIENT file ien (DFN), then by PC ROLE(#.05). There are associated xrefs for fields .03, .04 and .05.
  • RECORD INDEXES:  AC (#182), ASTAT (#183)
.02 TEAM POSITION 0;2 POINTER TO TEAM POSITION FILE (#404.57)
************************REQUIRED FIELD************************
TEAM POSITION(#404.57)

  • INPUT TRANSFORM:  S DIC("S")="I $$OKTP^SCMCTPU(DA,Y)"
  • LAST EDITED:  MAY 04, 2017
  • HELP-PROMPT:  Enter the position associated with the patient.
  • DESCRIPTION:  
    This is the position associated with the patient.
  • TECHNICAL DESCR:  
    Position must be from parent team - see screen.
  • SCREEN:  S DIC("S")="I $$OKTP^SCMCTPU(DA,Y)"
  • EXPLANATION:  used to assure position is from team
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  404.43^APRIMARY1^MUMPS
    1)= N SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S ^SCPT(404.43,"APRIMARY",SC1,X,-SC3,DA)=""
    2)= N SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" K ^SCPT(404.43,"APRIMARY",SC1,X,-SC3,DA)
    This sorts by PATIENT TEAM ASSIGNMENT(#.01), then by TEAM POSITION(#.02), then by -POSITION ASSIGNED DATE(#.03). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^APTPA^MUMPS
    1)= N SC2 S SC2=$P($G(^SCPT(404.43,DA,0)),U,1) I SC2 S ^SCPT(404.43,"APTPA",X,SC2,DA)=""
    2)= N SC2 S SC2=$P($G(^SCPT(404.43,DA,0)),U,1) I SC2 K ^SCPT(404.43,"APTPA",X,SC2,DA)
    This sorts by TEAM POSITION(#.02), then by PATIENT TEAM ASSIGNMENT(#.01). There is an associated cross reference for the PATIENT TEAM ASSIGNMENT Field (#.01).
  • CROSS-REFERENCE:  404.43^ADFN1^MUMPS
    1)= N SCDFN,SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ADFN",SCDFN,X,SC3,DA)=""
    2)= N SCDFN,SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ADFN",SCDFN,X,SC3,DA)
    This sorts by PATIENT file ien (DFN), then by TEAM POSITION(#.02), then by POSITION ASSIGNED DATE(#.03). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^APCPOS3^MUMPS
    1)= N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"" S SC3=$P($G(^(0)),U,3) I SC3]"" D SETPC^SCMCDD1(SC1,SC2,SC3,X,DA)
    2)= N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"" S SC3=$P($G(^(0)),U,3) I SC3]"" D KILLPC^SCMCDD1(SC1,SC2,SC3,X,DA)
    This sorts by Patient (via PATIENT TEAM ASSIGNMENT(#.01)), then by PC ROLE(#.05), then by -POSITION ASSIGNED DATE(#.03), then by
    TEAM POSITION(#.02). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^C
    1)= S ^SCPT(404.43,"C",$E(X,1,30),DA)=""
    2)= K ^SCPT(404.43,"C",$E(X,1,30),DA)
    Cross reference by Team Position.
  • RECORD INDEXES:  AC (#182)
.03 POSITION ASSIGNED DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X N SC1,SCNODE S SC1=$G(X),SCNODE=$G(^SCPT(404.43,+$G(DA),0)) K:'$$OKACTTP^SCMCTPU(SCNODE,SC1) X
  • LAST EDITED:  MAY 04, 2017
  • HELP-PROMPT:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X N SC1,SCNODE S SC1=$G(X),SCNODE=$G(^SCPT(404.43,D0,0)) K:'$$OKACTTP^SCMCTPU(SCNODE,SC1) X
  • DESCRIPTION:  
    This is the date that the team position was assigned to the patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  404.43^APRIMARY2^MUMPS
    1)= N SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 S ^SCPT(404.43,"APRIMARY",SC1,SC2,-X,DA)=""
    2)= N SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 K ^SCPT(404.43,"APRIMARY",SC1,SC2,-X,DA)
    This sorts by PATIENT TEAM ASSIGNMENT(#.01), then by TEAM POSITION(#.02), then by -POSITION ASSIGNED DATE(#.03). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^ADFN2^MUMPS
    1)= N SCDFN,SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ADFN",SCDFN,SC2,X,DA)=""
    2)= N SCDFN,SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ADFN",SCDFN,SC2,X,DA)
    This sorts by PATIENT file ien (DFN), then by TEAM POSITION(#.02), then by POSITION ASSIGNED DATE(#.03). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^APCPOS2^MUMPS
    1)= N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"" S SC4=$P($G(^(0)),U,2) I SC4 D SETPC^SCMCDD1(SC1,SC2,X,SC4,DA)
    2)= N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"" S SC4=$P($G(^(0)),U,2) I SC4 D KILLPC^SCMCDD1(SC1,SC2,X,SC4,DA)
    This sorts by Patient (via PATIENT TEAM ASSIGNMENT(#.01)), then by PC ROLE(#.05), then by -POSITION ASSIGNED DATE(#.03), then by TEAM POSITION(#.02). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^ACTDFN2^MUMPS
    1)= N ND,SCDFN,SC1,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I SC1 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTDFN",SCDFN,DA)=""
    2)= N ND,SCDFN,SC1,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I SC1 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTDFN",SCDFN,DA)
    This sorts currently active entries by PATIENT file ien (DFN). There are associated xrefs for fields .01 and .04.
  • CROSS-REFERENCE:  404.43^ACTPC2^MUMPS
    1)= N ND,SCDFN,SC1,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I SC1 S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTPC",SCDFN,SC5,DA)=""
    2)= N ND,SCDFN,SC1,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I SC1 S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTPC",SCDFN,SC5,DA)
    This sorts currently active entries by PATIENT file ien (DFN), then by PC ROLE(#.05). There are associated xrefs for fields .01, .04 and .05.
.04 POSITION UNASSIGNED DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X N SC1,SCNODE S SC1=$G(X),SCNODE=$G(^SCPT(404.43,DA,0)) K:'$$OKINTP^SCMCTPU(SCNODE,SC1) X
  • LAST EDITED:  MAY 04, 2017
  • HELP-PROMPT:  This is the date that the position is no longer associated with the patient.
  • DESCRIPTION:  
    This is the date/time that the position is no longer associated with the patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  404.43^ACTDFN3^MUMPS
    1)= N ND,SCDFN,SC1,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTDFN",SCDFN,DA)
    2)= N ND,SCDFN,SC1,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTDFN",SCDFN,DA)=""
    This sorts currently active entries by PATIENT file ien (DFN). There are associated xrefs for fields .01 and .03.
  • CROSS-REFERENCE:  404.43^ACTPC4^MUMPS
    1)= N ND,SCDFN,SC1,SC3,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTPC",SCDFN,SC5,DA)
    2)= N ND,SCDFN,SC1,SC3,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTPC",SCDFN,SC5,DA)=""
    This sorts currently active entries by PATIENT file ien (DFN), then by PC ROLE(#.05). There are associated xrefs for fields .01, .03 and .05.
.05 PC ROLE 0;5 SET
  • '0' FOR NON PC ASSIGNMENT;
  • '1' FOR PC ASSIGNMENT;
  • '2' FOR PC ATTENDING;

  • INPUT TRANSFORM:  N SC1 S SC1=$$OKROLE^SCMCTPU(DA,X) K:'SC1 X
  • LAST EDITED:  MAY 04, 2017
  • HELP-PROMPT:  PC Assignments are only allowed if Patient Team Assignment is for Primary Care
  • DESCRIPTION:  
    This is used to indicate if patient - team position assigment is a special one (e.g. primary care practitioner or primary care attending).
  • TECHNICAL DESCR:  
    This is only allowable if the team assignment is a pc team assignment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  404.43^APCPOS1^MUMPS
    1)= N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S SC4=$P($G(^(0)),U,2) I SC4 D SETPC^SCMCDD1(SC1,X,SC3,SC4,DA)
    2)= N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S SC4=$P($G(^(0)),U,2) I SC4 D KILLPC^SCMCDD1(SC1,X,SC3,SC4,DA)
    This sorts by Patient (via PATIENT TEAM ASSIGNMENT(#.01)), then by PC ROLE(#.05), then by -POSITION ASSIGNED DATE(#.03), then by TEAM POSITION(#.02). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.43^ACTPC3^MUMPS
    1)= N ND,SCDFN,SC1,SC4,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTPC",SCDFN,X,DA)=""
    2)= N ND,SCDFN,SC1,SC4,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTPC",SCDFN,X,DA)
    This sorts currently active entries by PATIENT file ien (DFN), then by PC ROLE(#.05). There are associated xrefs for fields .01, .03 and .04.
.06 USER ENTERING 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 12, 1996
  • HELP-PROMPT:  The user who initially created the record
  • DESCRIPTION:  
    This is the user who initially created the record.
.07 DATE/TIME ENTERED 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1996
  • HELP-PROMPT:  This is the date/time that the history of the position was entered.
  • DESCRIPTION:  
    This is the date/time that the history of the position was entered.
.08 LAST EDITED BY 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 12, 1996
  • HELP-PROMPT:  This is the user who last edited the record.
  • DESCRIPTION:  
    This is the user who last edited the record.
.09 DATE/TIME LAST EDITED 0;9 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1996
  • HELP-PROMPT:  This is the date/time the record was last edited.
  • DESCRIPTION:  
    This is the date/time the record was last edited.
.12 STATUS 0;12 SET
  • 'DU' FOR DOD UNASSIGN;
  • 'IU' FOR INACTIVE UNASSIGN;
  • 'DD' FOR REASSIGN-DOD REMOVED;
  • 'PR' FOR PAT RELOCATION;
  • 'RP' FOR REQ BY PAT;
  • 'NN' FOR NOT NEEDED;
  • 'PC' FOR PROV CHANGE;
  • 'PI' FOR MVI MOVE/MERGE;
  • 'FT' FOR INTRA FAC TRANS;
  • 'MU' FOR MISSING/UNK;
  • 'MD' FOR M-PACT DENIAL/WDRAW;
  • 'DC' FOR DISCHARGE FROM CARE;
  • 'ER' FOR ERROR;

  • LAST EDITED:  JUN 24, 2014
  • HELP-PROMPT:  Choose the unassignment status.
  • DESCRIPTION:  
    The status reason the patient was unassigned from the team position.
  • CROSS-REFERENCE:  404.43^ASTATB
    1)= S ^SCPT(404.43,"ASTATB",$E(X,1,30),DA)=""
    2)= K ^SCPT(404.43,"ASTATB",$E(X,1,30),DA)
    Sort by Status
  • RECORD INDEXES:  ASTAT (#183)
.13 EXTEND AUTOMATIC INACTIVATION 0;13 SET
  • '0' FOR DO NOT EXTEND;
  • '1' FOR PATIENT HAS FUTURE PC APPOINTMENT;
  • '2' FOR PROVIDER REQUEST-WILL CONTACT PATIENT;
  • '3' FOR PATIENT CONTACTED SITE FOR APPOINTMENT;
  • '4' FOR OTHER;

  • LAST EDITED:  JAN 19, 2004
  • HELP-PROMPT:  Enter if you wish to extend this automatic inactivation date by 60 days
  • DESCRIPTION:  
    This is entered in PCMM GUI and is the reason for extending this assignments inactivation. If 'Other' is entered a comment is required.
  • CROSS-REFERENCE:  404.43^AEXT
    1)= S ^SCPT(404.43,"AEXT",$E(X,1,30),DA)=""
    2)= K ^SCPT(404.43,"AEXT",$E(X,1,30),DA)
    Extended from automatic inactivation
.14 EXTENSION COMMENT 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  OCT 09, 2003
  • HELP-PROMPT:  Answer must be 2-50 characters in length.
  • DESCRIPTION:  
    If extended for 'OTHER' then this is the free text reason. This is entered in the PCMM GUI
.15 DATE FLAGGED FOR INACTIVATION 0;15 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 10, 2004
  • DESCRIPTION:  
    Date background job flagged the record for inactivation due to inactivity.
  • CROSS-REFERENCE:  404.43^AFLG
    1)= S ^SCPT(404.43,"AFLG",$E(X,1,30),DA)=""
    2)= K ^SCPT(404.43,"AFLG",$E(X,1,30),DA)
    Date record flagged for inactivation. Used to inactivate record 60 days later
.159 SCHEDULED INACTIVATION DATE COMPUTED DATE

  • MUMPS CODE:  D INACTDT^SCMCTSK1(D0)
  • ALGORITHM:  D INACTDT^SCMCTSK1(D0)
  • LAST EDITED:  MAR 15, 2004
  • DESCRIPTION:  
    Date this patient is scheduled to be inactivated if not seen by that time.
.16 EXTENDED BY 0;16 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 28, 2003
  • HELP-PROMPT:  Person who filed extension of inactivation
  • DESCRIPTION:  
    Automatically filed with extension
.17 DATE DISINACTIVATED 0;17 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 10, 2004
  • DESCRIPTION:  
    Date reassigned after being automatically inactivated

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2811
  • Clinical Reminders
  • TEAM POSITION (.02).
    Access: Direct Global Read & w/Fileman

    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All