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.42

Package: Scheduling

Global: ^SCPT(404.42


Information

FileMan FileNo FileMan Filename Package
404.42 PATIENT TEAM ASSIGNMENT Scheduling

Description

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Scheduling 6 SCMCEV1    SCMCMU2    SCMCTSK7    SCMCTSKG    SCRPM21U    SCRPPTA    
Virtual Patient Record 2 VPREVNT    VPRPCMM    
Enterprise Health Management Platform 1 HMPEVNT    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Scheduling 1 PATIENT TEAM POSITION ASSIGNMENT(#404.43)[.01]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.11, .13]    
Registration 1 PATIENT(#2)[.01]    
Scheduling 1 TEAM(#404.51)[.03]    

Fields, Total: 13

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

  • INPUT TRANSFORM:  N SC1,SCN,SCDA S SCDA=+$G(DA),SCN=$G(^SCPT(404.42,SCDA,0)) S $P(SCN,U,1)=X S SCN1=$$OKPTTM^SCMCTMU(SCN,SCDA) D:'SCN1 EN^DDIOL($P(SCN1,U,2),"","?5") K:'SCN1 X
  • LAST EDITED:  JUL 31, 2002
  • HELP-PROMPT:  Select Patient from active team
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  404.42^B
    1)= S ^SCPT(404.42,"B",$E(X,1,30),DA)=""
    2)= K ^SCPT(404.42,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  404.42^AIDT^MUMPS
    1)= N SC2,SC3 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCPT(404.42,"AIDT",X,SC2,-SC3,DA)=""
    2)= N SC2,SC3 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCPT(404.42,"AIDT",X,SC2,-SC3,DA)
    This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03), then by -TEAM ASSIGNED DATE(#.02). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.42^AB
    1)= S ^SCPT(404.42,"AB",$E(X,1,30),DA)=""
    2)= K ^SCPT(404.42,"AB",$E(X,1,30),DA)
  • CROSS-REFERENCE:  404.42^ATMPT1^MUMPS
    1)= N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,3) I SC1 S ^SCPT(404.42,"ATMPT",SC1,X,DA)=""
    2)= N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,3) I SC1 K ^SCPT(404.42,"ATMPT",SC1,X,DA)
    This sorts by TEAM ASSIGNMENT(#.03), then by PATIENT(#.01). There is an associated cross reference for the TEAM ASSIGNMENT Field (#.03).
  • CROSS-REFERENCE:  404.42^APTTM^MUMPS
    1)= N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 S ^SCPT(404.42,"APTTM",X,SC2,DA)=""
    2)= N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 K ^SCPT(404.42,"APTTM",X,SC2,DA)
    This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03). There is an associated cross reference for the TEAM ASSIGNMENT Field (#.03).
  • CROSS-REFERENCE:  404.42^APCTM^MUMPS
    1)= N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.42,DA,0)),U,8) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" S SC4=$P($G(^(0)),U,3) I SC4 S ^SCPT(404.42,"APCTM",X,SC2,SC3,SC4,DA)=""
    2)= N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.42,DA,0)),U,8) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" S SC4=$P($G(^(0)),U,3) I SC4 K ^SCPT(404.42,"APCTM",X,SC2,SC3,SC4,DA)
    This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGN ED DATE(#.02), then by TEAM ASSIGNMENT(#.03). There are associated cross refere nces for each of these fields.
  • RECORD INDEXES:  AC (#181)
.02 TEAM ASSIGNED DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X IF $D(X)&($P(^SCPT(404.42,DA,0),U,9)) D:X>$P(^SCPT(404.42,DA,0),U,9) EN^DDIOL("Discharge must be after Assigned Date","","?5") K:X>$P(^SCPT(404.42,DA,0),U,9) X
  • LAST EDITED:  FEB 14, 1996
  • HELP-PROMPT:  This is the date the team is assigned to the patient.
  • DESCRIPTION:  
    This is the date that the patient joins the team's patient panel.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  404.42^AIDT2^MUMPS
    1)= N SC1,SC2 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2 S ^SCPT(404.42,"AIDT",SC1,SC2,-X,DA)=""
    2)= N SC1,SC2 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2 K ^SCPT(404.42,"AIDT",SC1,SC2,-X,DA)
    This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03), then by -TEAM ASSIGNED DATE(#.02). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.42^APCTM2^MUMPS
    1)= N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"" S SC4=$P($G(^(0)),U,3) I SC4 S ^SCPT(404.42,"APCTM",SC1,SC2,X,SC4,DA)=""
    2)= N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"" S SC4=$P($G(^(0)),U,3) I SC4 K ^SCPT(404.42,"APCTM",SC1,SC2,X,SC4,DA)
    This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGNED DATE(#.02), then by TEAM ASSIGNMENT(#.03). There are associated cross references for each of these fields.
.03 TEAM ASSIGNMENT 0;3 POINTER TO TEAM FILE (#404.51) TEAM(#404.51)

  • LAST EDITED:  JUL 31, 2002
  • HELP-PROMPT:  Name of a team assigned to the patient as of the effective date.
  • DESCRIPTION:  
    This is the team assigned to patient as of the effective date.
  • CROSS-REFERENCE:  404.42^ATMPT^MUMPS
    1)= N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,1) I SC2 S ^SCPT(404.42,"ATMPT",X,SC2,DA)=""
    2)= N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,1) I SC2 K ^SCPT(404.42,"ATMPT",X,SC2,DA)
    This sorts by TEAM ASSIGNMENT(#.03), then by PATIENT(#.01). There is an associated cross reference for the PATIENT Field (#.01).
  • CROSS-REFERENCE:  404.42^APTTM1^MUMPS
    1)= N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S ^SCPT(404.42,"APTTM",SC1,X,DA)=""
    2)= N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 K ^SCPT(404.42,"APTTM",SC1,X,DA)
    This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03). There is an associated cross reference for the PATIENT Field (#.01).
  • CROSS-REFERENCE:  404.42^AIDT1^MUMPS
    1)= N SC1,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCPT(404.42,"AIDT",SC1,X,-SC3,DA)=""
    2)= N SC1,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCPT(404.42,"AIDT",SC1,X,-SC3,DA)
    This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03), then by -TEAM ASSIGNED DATE(#.02). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.42^APCTM3^MUMPS
    1)= N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCPT(404.42,"APCTM",SC1,SC2,SC3,X,DA)=""
    2)= N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCPT(404.42,"APCTM",SC1,SC2,-SC3,X,DA)
    This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGNED DATE(#.02), then by TEAM ASSIGNMENT(#.03). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.42^C
    1)= S ^SCPT(404.42,"C",$E(X,1,30),DA)=""
    2)= K ^SCPT(404.42,"C",$E(X,1,30),DA)
    Whole cross-reference, by team.
  • RECORD INDEXES:  AC (#181)
.08 ASSIGNMENT TYPE 0;8 SET
  • '1' FOR PRIMARY CARE;
  • '98' FOR PENDING PRIMARY CARE;
  • '99' FOR OTHER;

  • LAST EDITED:  MAY 19, 2014
  • HELP-PROMPT:  Enter the type of care provided by this assignment.
  • DESCRIPTION:  
    This field indicates the type of care provided by this assignment.
  • CROSS-REFERENCE:  404.42^APCTM1^MUMPS
    1)= N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S SC4=$P($G(^(0)),U,3) I SC4 S ^SCPT(404.42,"APCTM",SC1,X,SC3,SC4,DA)=""
    2)= N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S SC4=$P($G(^(0)),U,3) I SC4 K ^SCPT(404.42,"APCTM",SC1,X,SC3,SC4,DA)
    This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGNED DATE(#.02), then by TEAM ASSIGNMENT(#.03). There are associated cross references for each of these fields.
  • CROSS-REFERENCE:  404.42^AOUTPT^MUMPS
    1)= N SCX S SCX=$$MAKEOUT^SCMCDD1(DA)
    2)= Q
    This makes an entry in the Outpatient Profile File for every patient who ever gets assigned to a primary care team.
.09 TEAM DISCHARGE DATE 0;9 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X IF $D(X) D:$P(^SCPT(404.42,DA,0),U,2)>X EN^DDIOL("Discharge must be after Assigned Date","","?5") K:$P(^SCPT(404.42,DA,0),U,2)>X X
  • LAST EDITED:  JUL 17, 1995
  • HELP-PROMPT:  Enter the date/time the team was no longer assigned to the patient.
  • DESCRIPTION:  
    This is the date/time that the team ceased to be assigned to the patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.1 RESTRICT CONSULTS 0;10 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 06, 1995
  • HELP-PROMPT:  Are users not allowed to make consult appointments if a patient is not enrolled in a clinic?
  • DESCRIPTION:  
    This attribute prevents users from making consult appointments to clinics in which the patient is not enrolled. This parameter overrides the same parameter at the team level.
.11 USER ENTERING 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 06, 1995
  • HELP-PROMPT:  This is the user who entered the record.
  • DESCRIPTION:  
    This is the user who entered this record.
.12 DATE/TIME ENTERED 0;12 DATE

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

  • LAST EDITED:  JUL 06, 1995
  • HELP-PROMPT:  This is the user who last edited the record.
  • DESCRIPTION:  
    This is the user who last edited the record.
.14 DATE/TIME LAST EDITED 0;14 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 28, 1996
  • HELP-PROMPT:  This is the date/time the record was last edited.
  • DESCRIPTION:  
    This is the date/time the record was last edited.
.15 STATUS 0;15 SET
  • 'DU' FOR DOD UNASSIGN;
  • 'IU' FOR INACTIVE UNASSIGN;
  • 'DD' FOR REASSIGN-DOD REMOVED;
  • 'PR' FOR PAT RELOCATED;
  • '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.
.16 MULTIPLE PCP 0;16 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAR 17, 2008
  • HELP-PROMPT:  Will patient have a PCP at more than one facility?
  • DESCRIPTION:  
    This flag indicates whether a patient may have additional Primary Care Providers at other facilities.
1 PURPOSE 1;0 WORD-PROCESSING #404.421

  • LAST EDITED:  MAR 09, 1995
  • DESCRIPTION:  
    This field should contain the purpose of the care this assignment will provide.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6402
  • Enterprise Health Management Platform
    		•  PATIENT (.01).
    Access: Read w/Fileman
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All