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

Package: Scheduling

Global: ^SD(409.74


Information

FileMan FileNo FileMan Filename Package
409.74 DELETED OUTPATIENT ENCOUNTER Scheduling

Description

Directly Accessed By Routines, Total: 24

Package Total Routines
Scheduling 23 SCDDI1    SCDXFU01    SCDXFU02    SCDXFU04    SCDXFU11    SCDXMSG    SCDXMSG0    SCDXMSG2
SCDXPRG0    SCDXRT01    SCDXUTL    SCDXUTL2    SCDXUTL4    SCDXUTL5    SCENI0    SCRPI01
SCRPI02    SCUTIE1    SD53105A    SD5364PT    SD5370PT    SD5396PT    ^SD(409.74    
Registration 1 VAFHLPV1    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Scheduling 3 SCDXFU02    SCRPW1    SD53105A    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Scheduling 1 TRANSMITTED OUTPATIENT ENCOUNTER(#409.73)[.03]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Registration 1 PATIENT(#2)[.02]    

Fields, Total: 4

Field # Name Loc Type Details
.01 ENCOUNTER DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1996
  • HELP-PROMPT:  Enter the date/time of the encounter that was deleted
  • DESCRIPTION:  
    Date/time deleted encounter supposedly took place.
  • CROSS-REFERENCE:  409.74^B
    1)= S ^SD(409.74,"B",$E(X,1,30),DA)=""
    2)= K ^SD(409.74,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^409.74^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^SD(409.74,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^SD(409.74,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(409.74,.01,1,2,1.1) X ^D
    D(409.74,.01,1,2,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$S($D(^SD(409.74,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=409.74,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= DELETION DATE/TIME=""
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= DELETION DATE/TIME
    Current date/time ("NOW") is put into the DELETION DATE/TIME field (#.03).
    This is screened so that an existing value is not overwritten.
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  APR 30, 1996
  • HELP-PROMPT:  Enter the patient associated with the deleted encounter
  • DESCRIPTION:  
    Patient deleted encounter referred to.
  • CROSS-REFERENCE:  409.74^PAT
    1)= S ^SD(409.74,"PAT",$E(X,1,30),DA)=""
    2)= K ^SD(409.74,"PAT",$E(X,1,30),DA)
    Cross reference to allow look-up using the patient's name.
    Resulting node:
    ^SD(409.74,"PAT",[.02],DA)
    Where:
    [.02] = Value contained in PATIENT field (#.02)
    DA = Pointer to entry in file
.03 DELETION DATE/TIME 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1996
  • HELP-PROMPT:  Enter the date/time the encounter was deleted
  • DESCRIPTION:  
    Date/time encounter was deleted.
  • NOTES:  TRIGGERED by the ENCOUNTER DATE/TIME field of the DELETED OUTPATIENT ENCOUNTER File
  • CROSS-REFERENCE:  409.74^ADEL
    1)= S ^SD(409.74,"ADEL",$E(X,1,30),DA)=""
    2)= K ^SD(409.74,"ADEL",$E(X,1,30),DA)
    Cross reference to sort entries by their deletion date/time.
    Resulting node:
    ^SD(409.74,"ADEL",[.03],DA)
    Where:
    [.03] = Value contained in DELETION DATE/TIME field (#.03)
    DA = Pointer to entry in file
11 OLD ENCOUNTER ZERO NODE 1;E1,245 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  MAY 03, 1996
  • HELP-PROMPT:  Enter the zero node of the deleted Outpatient Encounter
  • DESCRIPTION:  
    This field will contain the zero node of the Outpatient Encounter that was deleted.

External References

Name Field # of Occurrence
^%DT .01+1, .03+1
NOW^%DTC .01(XREF 2n1.1)
^DICR .01(XREF 2n1.4)
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4)
^DD(2 ID.02+1
^DD(409.74 .01(XREF 2S)
^DPT - [#2] ID.02+1
^SD(409.74 - [#409.74] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, .01(XREF 2S), .01(XREF 2n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .01(XREF 2n1.1)
>> %DT .01+1*, .03+1*
%H .01(XREF 2n1.1)
%I ID.02+1*!, .01(XREF 2n1.1)
>> C ID.02+1*
>> D0 .01(XREF 2S)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
>> DIC ID.02+1
>> DIG .01(XREF 2n1.4)
>> DIH .01(XREF 2n1.4)
>> DIU .01(XREF 2S)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4)
U ID.02+1, .01(XREF 2S), .01(XREF 2n1.4)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .02(XREF 1S), .02(XREF 1K), .03+1*!, .03(XREF 1S)
.03(XREF 1K), 11+1!
Y ID.02+1*, .01+1, .01(XREF 2S), .03+1
Y(0 .01(XREF 2S)
Y(1 .01(XREF 2S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All