Global: ^SDASE

FileMan FileNo	FileMan Filename	Package
40.15	OPC ERRORS	Registration

Package	Total	FileMan Files
Registration	2	MEDICAL CENTER DIVISION(#40.8)[.02, #40.152(2), #40.16(4)] VA PATIENT(#2)[.01]

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `JAN 05, 1984` DESCRIPTION: This field contains the pointer value of the patient file. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `40.15^B` 1)= S ^SDASE("B",$E(X,1,30),DA)="" 2)= K ^SDASE("B",$E(X,1,30),DA)
.02	FACILITY	0;2	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	MEDICAL CENTER DIVISION(#40.8) LAST EDITED: `MAY 17, 1988` DESCRIPTION: This field contains the pointer value of the Medical Center Division. CROSS-REFERENCE: `40.15^AF` 1)= S ^SDASE("AF",$E(X,1,30),DA)="" 2)= K ^SDASE("AF",$E(X,1,30),DA)
.09	SSN		COMPUTED	MUMPS CODE: `X ^DD(40.15,.09,9.2) S X=$P(Y(40.15,.09,101),U,9) S D0=Y(40.15,.09,2)` 9.2 = S Y(40.15,.09,2)=$S($D(D0):D0,1:""),Y(40.15,.09,1)=$S($D(^SDASE(D0,0)):^(0),1:""),D0=$P(Y(40.15,.09,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(40.15,.09,101)=$S($D(^DPT(D0,0)):^(0),1:"") ALGORITHM: `NAME:SSN` DESCRIPTION: `This field stores the 9 digit social security number of the patient who has been identified as having missing data and requires editing the OPC ERROR in order for the workload to be transmitted to the Austin DPC.`
1	FIELD NAME	1;0	Multiple #40.16	40.16 DESCRIPTION: This contains the name of the field that needs to be corrected.
2	VISIT DATE MESSAGE	MSG;0	Multiple #40.152	40.152 DESCRIPTION: This field contains the error message related to the visit date.