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

Directly Accessed By Routines, Total: 76

Package Total Routines
Scheduling 57 SCAPMC11    SCAPMC2    SCAPMC3    SCAPMC7    SCAPMCU1    SCAPMCU2    SCAPMCU4    SCMC EXTENDED BULLETIN
SCMC EXTENDED BY CLINIC    SCMC EXTENDED BY TEAM    SCMC FLAGGED    SCMC FLAGGED BULLETIN    SCMC FLAGGED BY CLINIC    SCMC FLAGGED BY TEAM    SCMC INACTIVATED    SCMC INACTIVATION BY CLINIC
SCMC INACTIVATION BY TEAM    SCMC PENDING UNASSIGN    SCMCBK6    SCMCCV2    SCMCDD1    SCMCEV1    SCMCEV2    SCMCHLB
SCMCHLB1    SCMCHLM    SCMCHLR2    SCMCHLX1    SCMCLN    SCMCMHP2    SCMCMHTC    SCMCMU2
SCMCTMU    SCMCTMU2    SCMCTPM    SCMCTPU    SCMCTPU3    SCMCTSK    SCMCTSK2    SCMCTSK3
SCMCTSK5    SCMCTSK6    SCMCTSK7    SCMCWAIT    SCRPEC2    SCRPM21U    SCRPMPSP    SCRPMTA
SCRPPAT2    SCRPPTA    SCRPTA2    SCRPU2    SCRPV1A    SD53P504    ^SCPT(404.42    ^SCPT(404.43
SDWLE5    
Registration 1 DGSDUTL    

Accessed By FileMan Db Calls, Total: 8

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

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

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6402
  • Enterprise Health Management Platform
  • PATIENT (.01).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .02+1, .09+1, .12+1, .14+1
    EN^DDIOL .01+1, .02+1, .09+1
    Y^DIQ ID.03+1
    $$MAKEOUT^SCMCDD1 .08(XREF 2S)
    $$OKPTTM^SCMCTMU .01+1
    TEAMRM^SCMCWAIT IXACSL+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(404.51 ID.03+1
    ^SCPT(404.42 - [#404.42] .01+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 6S), .01(XREF 6K), .02+1, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
    .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 5S), .03(XREF 5K), .08(XREF 1S), .08(XREF 1K)
    , .09+1
    ^SCTM(404.51 - [#404.51] ID.03+1

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .02+1*, .09+1*, .12+1*, .14+1*
    %I ID.03+1*!
    >> C ID.03+1*
    >> DA .01+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 6S), .01(XREF 6K), .02+1, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
    .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 5S), .03(XREF 5K), .08(XREF 1S), .08(XREF 1K)
    .08(XREF 2S), .09+1
    >> DIC ID.03+1
    SC1 .01+1~, .01(XREF 4S), .01(XREF 4K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S)
    .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .08(XREF 1S), .08(XREF 1K)
    SC2 .01(XREF 2S), .01(XREF 2K), .01(XREF 5S), .01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
    .03(XREF 1S), .03(XREF 1K), .03(XREF 4S), .03(XREF 4K)
    SC3 .01(XREF 2S), .01(XREF 2K), .01(XREF 6S), .01(XREF 6K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .08(XREF 1S), .08(XREF 1K)
    SC4 .01(XREF 6S), .01(XREF 6K), .02(XREF 2S), .02(XREF 2K), .08(XREF 1S), .08(XREF 1K)
    SCDA .01+1~*
    SCN .01+1~*
    >> SCN1 .01+1*
    SCX .08(XREF 2S)
    U ID.02+1, ID.03+1, .01+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .01(XREF 6S)
    .01(XREF 6K), .02+1, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
    .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .08(XREF 1S), .08(XREF 1K), .09+1
    X .01+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 6S), .01(XREF 6K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
    .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 5S), .03(XREF 5K), .08(XREF 1S), .08(XREF 1K)
    , .09+1*!, .12+1*!, .14+1*!
    X(1 IXACSL+1
    X(2 IXACSL+1
    >> Y ID.03+1*, .02+1, .09+1, .12+1, .14+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All