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 | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^SDSC(409.48

Package: Scheduling

Global: ^SDSC(409.48

Information

FileMan FileNo	FileMan Filename	Package
409.48	SDSC SERVICE CONNECTED CHANGES	Scheduling

Description

This file contains a list of encounters which were selected for review based on a comparison of the ICD diagnosis codes from the encounter and the VBA rated disabilities (VA) codes from the patient. Entries will be edited as necessary per the review criteria established for determining if an encounter is service-connected (SC) or non-service connected (NSC).

Directly Accessed By Routines, Total: 21

Package	Total	Routines
Scheduling	21	SD53P495 SDSCAPI SDSCCHK SDSCCLM SDSCEDT SDSCINS SDSCLM SDSCMSR SDSCNSCP SDSCOMP SDSCPRG SDSCPRV SDSCRP1 SDSCRP2 SDSCRPT1 SDSCUSR SDSCUTL ^SDSC(409.48 SDSCSSD TEAM POSITIONS TRACK EDITS

Accessed By FileMan Db Calls, Total: 7

Package	Total	Routines
Scheduling	7	SDSCAPI SDSCEDT SDSCLM SDSCNSCP SDSCPRG SDSCRP1 SDSCRPT2

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Registration	2	MEDICAL CENTER DIVISION(#40.8)[.12] PATIENT(#2)[.11]
Kernel	1	NEW PERSON(#200)[.03, .08, #409.481(.03)]
Scheduling	1	OUTPATIENT ENCOUNTER(#409.68)[.01]

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	OUTPATIENT ENCOUNTER	0;1	POINTER TO OUTPATIENT ENCOUNTER FILE (#409.68)	**********************REQUIRED FIELD********************** OUTPATIENT ENCOUNTER(#409.68) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `MAR 05, 2007` DESCRIPTION: `This is the Encounter Number from file #409.68 (Outpatient Encounter) which was determined needs to be reviewed.` TECHNICAL DESCR: `A pointer to the OUTPATIENT ENCOUNTER File #409.68.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `409.48^B` `1)= S ^SDSC(409.48,"B",$E(X,1,30),DA)=""` `2)= K ^SDSC(409.48,"B",$E(X,1,30),DA)`
.02	DATE LAST EDITED	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 16, 2004` DESCRIPTION: `This field contains the date that this encounter was last edited through the ASCD options.` NOTES: `TRIGGERED by the DATE EDITED field of the TRACK EDITS sub-field of the SDSC SERVICE CONNECTED CHANGES File` CROSS-REFERENCE: `409.48^AC` `1)= S ^SDSC(409.48,"AC",$E(X,1,30),DA)=""` `2)= K ^SDSC(409.48,"AC",$E(X,1,30),DA)` `This cross reference is by DATE LAST EDITED and is used for several reports that track changes the user made to the encounter.`
.03	LAST EDITED BY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 22, 2004` DESCRIPTION: `This field contains the user who last edited this encounter through the ASCD options.` TECHNICAL DESCR: `A pointer to the NEW PERSON File #200.` NOTES: `TRIGGERED by the EDITED BY field of the TRACK EDITS sub-field of the SDSC SERVICE CONNECTED CHANGES File` RECORD INDEXES: `AG (#719)`
.04	DATE CREATED	0;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 23, 2004` DESCRIPTION: `This field contains the date that this encounter was added to this file.` CROSS-REFERENCE: `409.48^AD` `1)= S ^SDSC(409.48,"AD",$E(X,1,30),DA)=""` `2)= K ^SDSC(409.48,"AD",$E(X,1,30),DA)` `This cross reference is by DATE CREATED and is used for several reports that track what happened when an encounter was added to this file.`
.05	STATUS	0;5	SET	**********************REQUIRED FIELD********************** 'N' FOR NEW; 'R' FOR REVIEW; 'C' FOR COMPLETED; LAST EDITED: `SEP 23, 2004` DESCRIPTION: `This field contains the status of this encounter.` `"NEW" - this encounter was recently added to this file.` `"REVIEW" - this encounter was forwarded for clinical review.` `"COMPLETED" - edits to this encounter are complete and only a` `supervisor may make further modifications.` NOTES: `TRIGGERED by the SERV. CONNECT (OK BY USER?) field of the SDSC SERVICE CONNECTED CHANGES File` `TRIGGERED by the REVIEW REQUIRED? field of the TRACK EDITS sub-field of the SDSC SERVICE CONNECTED CHANGES File` RECORD INDEXES: `C (#720)`
.06	SERV. CONNECT (OK BY USER?)	0;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 22, 2004` DESCRIPTION: `This field will contain 1 ('YES') or 0 ('NO') based on the user determination of the encounter's service connected value.` NOTES: `TRIGGERED by the SERV. CONNECT (OK BY USER?) field of the TRACK EDITS sub-field of the SDSC SERVICE CONNECTED CHANGES File` CROSS-REFERENCE: `^^TRIGGER^409.48^.05` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X="C" S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=409.48,DIG=.05 D ^DICR` `2)= Q` `CREATE VALUE)= "C"` `DELETE VALUE)= NO EFFECT` `FIELD)= #.05`
.07	DATE OF ENCOUNTER	0;7	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 23, 2004` DESCRIPTION: `This is the actual date of the encounter copied from the OUTPATIENT ENCOUNTER file #409.68 at the time of the compile.` CROSS-REFERENCE: `409.48^AE` `1)= S ^SDSC(409.48,"AE",$E(X,1,30),DA)=""` `2)= K ^SDSC(409.48,"AE",$E(X,1,30),DA)` `This cross reference is by DATE OF ENCOUNTER and is used by several reports.` RECORD INDEXES: `AF (#718), AG (#719), C (#720)`
.08	PRIMARY PROVIDER	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 22, 2004` DESCRIPTION: `This field contains the primary provider for the encounter determined at the time of the compile.` TECHNICAL DESCR: `A pointer to the NEW PERSON FILE #200.` RECORD INDEXES: `AF (#718)`
.09	SERV. CONNECT (OK BY VBA/ICD?)	0;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 05, 2007` DESCRIPTION: `This field will contain 1 ('YES') or 0 ('NO') depending on whether the automation or compile determined that the VBA/ICD codes found for this patient and encounter provided a match.`
.1	CLAIMS TRACKING ENTRY	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 05, 2007` HELP-PROMPT: `Type a Number between 1 and 99999999999, 0 Decimal Digits` DESCRIPTION: `This field will contain the Claims Tracking Entry for a record which may have been modified.` TECHNICAL DESCR: `Contains the pointer value to the CLAIMS TRACKING file #356.`
.11	PATIENT	0;11	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `MAR 02, 2007` DESCRIPTION: `This field contains the patient's DFN for the encounter.` TECHNICAL DESCR: `A pointer to the PATIENT file #2.` CROSS-REFERENCE: `409.48^D` `1)= S ^SDSC(409.48,"D",$E(X,1,30),DA)=""` `2)= K ^SDSC(409.48,"D",$E(X,1,30),DA)` `Patient IEN cross-reference`
.12	DIVISION	0;12	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	MEDICAL CENTER DIVISION(#40.8) LAST EDITED: `AUG 11, 2005` DESCRIPTION: `This field is the medical center division assigned to the encounter.` TECHNICAL DESCR: `A pointer to the MEDICAL CENTER DIVISION File #40.8.`
.13	SERV. CONNECT (ORIGINAL VALUE)	0;13	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 08, 2007` DESCRIPTION: `This field will contain 1 ('YES') or 0 ('NO') based on the original encounter's service connected value.`
1	TRACK EDITS	1;0	Multiple #409.481	409.481 DESCRIPTION: `This multiple field tracks each edit made to this encounter through the ASCD options.`

External References

Name	Field # of Occurrence
^%DT	.02+1, .04+1, .07+1
^DICR	.06(XREF 1S)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SDSC(409.48 - [#409.48]	IXAFSL+1, IXAFKL+1!, IXAFKEIC+1!, IXAGSL+1, IXAGKL+1!, IXAGKEIC+1!, IXCSL+1*, IXCKL+1!, IXCKEIC+1!, .01(XREF 1S) , .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), .06(XREF 1S), .07(XREF 1S), .07(XREF 1K), .11(XREF 1S), .11(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	.06(XREF 1S)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1, .04+1, .07+1*
>> D0	.06(XREF 1S)
>> DA	IXAFSL+1, IXAFKL+1, IXAGSL+1, IXAGKL+1, IXCSL+1, IXCKL+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K) , .04(XREF 1S), .04(XREF 1K), .06(XREF 1S), .07(XREF 1S), .07(XREF 1K), .11(XREF 1S), .11(XREF 1K)
>> DIG	.06(XREF 1S)
>> DIH	.06(XREF 1S)
>> DINUM	.01+1*
>> DIU	.06(XREF 1S)
DIV	.06(XREF 1S)
DIV(0	.06(XREF 1S)
U	.06(XREF 1S)
X	.01+1, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .04+1!, .04(XREF 1S), .04(XREF 1K), .06(XREF 1S) , .07+1*!, .07(XREF 1S), .07(XREF 1K), .1+1!, .11(XREF 1S), .11(XREF 1K)
X(1	IXAFSL+1, IXAFKL+1, IXAGSL+1, IXAGKL+1, IXCSL+1, IXCKL+1
X(2	IXAFSL+1, IXAFKL+1, IXAGSL+1, IXAGKL+1, IXCSL+1, IXCKL+1
Y	.02+1, .04+1, .06(XREF 1S), .07+1
Y(1	.06(XREF 1S)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All