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 |  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: 20

Package Total Routines
Scheduling 19 SCDDI1    SCDXFU01    SCDXFU02    SCDXFU04    SCDXFU11    SCDXMSG    SCDXMSG0    SCDXMSG2
SCDXPRG0    SCDXRT01    SCDXUTL    SCDXUTL2    SCDXUTL4    SCDXUTL5    SCENI0    SCRPI01
SCRPI02    SCUTIE1    SD53105A    
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 VA 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 S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
    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 VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA 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.







    



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