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 |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  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

Directly Accessed By Routines, Total: 84

Package Total Routines
Scheduling 65 SCAPMC11    SCAPMC22    SCAPMC23    SCAPMC33    SCAPMC34    SCAPMCA1    SCAPMCU1    SCAPMCU2
SCMC EXTENDED    SCMC EXTENDED BULLETIN    SCMC EXTENDED BY CLINIC    SCMC EXTENDED BY TEAM    SCMC FLAGGED    SCMC FLAGGED BULLETIN    SCMCBK    SCMCCV2
SCMCDD1    SCMCHLB    SCMCHLRR    SCMCHLX1    SCMCHLZ    SCMCMHO7    SCMCMHTC    SCMCTMU
SCMCTMU2    SCMCTPU2    SCMCTPU3    SCMCTSK2    SCMCTSK3    SCMCTSK5    SCMCTSK9    SCRPMPSP
SCRPO4    SCRPTP3    ^SCPT(404.43    SCMCCV4    SCMCCV6    SCMCHLB2    SCMCHLM    SCMCHLR
SCMCHLR2    SCMCLN    SCMCMHP2    SCMCMU2    SCMCTPU    SCMCTSK    SCMCTSK1    SCMCTSK6
SCMCTSK7    SCMCTSKG    SCMCWAIT    SCRPM21U    SCRPMTA    SCRPO2    SCRPO7    SCRPPAT2
SCRPPTPA    SCRPTA2    SCRPV1A    SCUTBK11    SD53P177    SD53P297    SD53P499    SD53P504
SD53P603    
Clinical Reminders 1 PXRMXAP    
Registration 1 DGSDUTL    

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

    External References

    Name Field # of Occurrence
    ^%DT .03+1, .04+1, .07+1, .09+1, .15+1, .17+1
    Y^DIQ ID.02+1
    KILLPC^SCMCDD1 .01(XREF 5K), .02(XREF 4K), .03(XREF 3K), .05(XREF 1K)
    SETPC^SCMCDD1 .01(XREF 5S), .02(XREF 4S), .03(XREF 3S), .05(XREF 1S)
    $$OKACTTP^SCMCTPU .03+1
    $$OKINTP^SCMCTPU .04+1
    INACTDT^SCMCTSK1 .159+1
    POSRM^SCMCWAIT IXACSL+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(404.57 ID.02+1
    ^SCPT(404.42 - [#404.42] .01(XREF 4S), .01(XREF 4K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 3S), .02(XREF 3K), .03(XREF 2S), .03(XREF 2K)
    .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 3S), .05(XREF 3K)
    ^SCPT(404.43 - [#404.43] IXASTATSL+1*, IXASTATKL+1!, IXASTATKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S)
    .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S)
    .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 6S), .02(XREF 6K), .03+1, .03(XREF 1S), .03(XREF 1K)
    .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04+1, .04(XREF 2S)
    .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K), .12(XREF 2S), .12(XREF 2K), .13(XREF 1S)
    .13(XREF 1K), .15(XREF 1S), .15(XREF 1K)
    ^SCTM(404.57 - [#404.57] ID.02+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.02+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .02(XREF 1S), .02(XREF 1K), .02(XREF 3S)
    .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .05(XREF 1S)
    .05(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .03+1*, .04+1*, .07+1*, .09+1*, .15+1*, .17+1*
    %I ID.02+1*!
    >> C ID.02+1*
    >> D0 .159+1
    >> DA IXASTATSL+1, IXASTATKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K)
    .01(XREF 5S), .01(XREF 5K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
    .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 6S), .02(XREF 6K), .03+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S)
    .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04+1, .04(XREF 2S), .04(XREF 2K)
    .04(XREF 3S), .04(XREF 3K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K), .12(XREF 2S), .12(XREF 2K), .13(XREF 1S), .13(XREF 1K)
    .15(XREF 1S), .15(XREF 1K)
    >> DIC ID.02+1
    >> DIC("S" .02+1*, .02SCR+1*
    ND .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04(XREF 2S), .04(XREF 2K)
    .04(XREF 3S), .04(XREF 3K), .05(XREF 3S), .05(XREF 3K)
    SC1 .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .03+1~*, .03(XREF 1S)
    .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04+1~*
    .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K)
    SC2 .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .02(XREF 2S), .02(XREF 2K), .02(XREF 4S), .02(XREF 4K)
    .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K)
    SC3 .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K)
    .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K)
    .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K)
    SC4 .01(XREF 5S), .01(XREF 5K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K)
    .03(XREF 6S), .03(XREF 6K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K)
    SC5 .01(XREF 8S), .01(XREF 8K), .03(XREF 6S), .03(XREF 6K), .04(XREF 3S), .04(XREF 3K)
    SCDFN .01(XREF 4S), .01(XREF 4K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 3S), .02(XREF 3K), .03(XREF 2S), .03(XREF 2K)
    .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 3S), .05(XREF 3K)
    SCNODE .03+1~*, .04+1~*
    U ID.02+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .01(XREF 7S)
    .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S)
    .02(XREF 4K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S)
    .03(XREF 6K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K)
    X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K)
    .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
    .02(XREF 4S), .02(XREF 4K), .02(XREF 6S), .02(XREF 6K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S)
    .03(XREF 3K), .04+1*!, .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K), .07+1*!, .09+1*!, .12(XREF 2S), .12(XREF 2K)
    .13(XREF 1S), .13(XREF 1K), .14+1!, .15+1*!, .15(XREF 1S), .15(XREF 1K), .17+1*!
    X(1 IXACSL+1, IXASTATSL+1, IXASTATKL+1
    X(2 IXACSL+1, IXASTATSL+1, IXASTATKL+1
    >> Y ID.02+1*, .03+1, .04+1, .07+1, .09+1, .15+1, .17+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All