Routine: SDWLCU6

Information

SDWLCU6 ;IOFO BAY PINES/DMR - EWL FILE 409.3 CLEANUP - print ;2/15/05 ; Compiled August 20, 2007 15:12:20

Name	Comments	DBIA/ICR reference
CLINIC	;Display all clinics in file 409.32 that need to be cleaned up in file 44 in mail message
FIX	;fix corrupted Wait List Type piece 5
HD	;HDR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TOTAL null field error EWL entries: "_CC Line Location: SDWLCU6+20
Function Call: WRITE	Prompt: !!,"++ Missing Wait List Type and corresponding field entry (TEAM,POSITION,",!," SERVICE/SPECIALTY,CLINIC). Correct corresponding field entries",!," and running report again will correct Wait List Type field" Line Location: SDWLCU6+21
Function Call: WRITE	Prompt: !!," End of Report " Line Location: SDWLCU6+23
Function Call: WRITE	Prompt: !,*7,$P(INSTST,U,6) Line Location: CLINIC+5
Function Call: WRITE	Prompt: !!!,"The following clinics need to have the institution updated in file 44:",!! Line Location: CLINIC+7
Function Call: WRITE	Prompt: !,?20,$$GET1^DIQ(44,+$G(^SDWL(409.32,CLINIC,0))_",",.01) Line Location: CLINIC+8
Function Call: WRITE	Prompt: !,?15,"Wait List Key Field 'NULL' Report" Line Location: HD+3
Function Call: WRITE	Prompt: ?57,SDWLPD,?72,"Page: ",SDWLPG Line Location: HD+4
Function Call: WRITE	Prompt: !!,"STATION: "_+$$SITE^VASITE(,) Line Location: HD+5
Function Call: WRITE	Prompt: !!,"IEN Patient Name",?42,"Wait Date",?53,"STS",?58,"Null Fields" Line Location: HD+6

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.3 - [#409.3]	SDWLCU6+6, SDWLCU6+7, SDWLCU6+8, SDWLCU6+12, FIX+5*
^SDWL(409.32 - [#409.32]	CLINIC+2, CLINIC+3, CLINIC+8

Name	Field # of Occurrence
>> %	SDWLCU6+4
>> CC	SDWLCU6+3, SDWLCU6+18, SDWLCU6+20, CLINIC+1, CLINIC+6, CLINIC+7
CL	CLINIC+3~*, CLINIC+4
>> CLINIC	CLINIC+1, CLINIC+2, CLINIC+3, CLINIC+8
DT	HD+4
END	SDWLCU6+2~, SDWLCU6+3, SDWLCU6+6, SDWLCU6+7, SDWLCU6+11, SDWLCU6+19, HD+1
I	SDWLCU6+2~, SDWLCU6+9, SDWLCU6+15
>> IEN	SDWLCU6+3, SDWLCU6+7, SDWLCU6+8, SDWLCU6+12, SDWLCU6+14, FIX+5
>> INST	CLINIC+1*
INSTST	CLINIC+3~, CLINIC+4*, CLINIC+5
IOF	HD+2
IOSL	SDWLCU6+11
IOST	HD+1
J	SDWLCU6+2~, FIX+2*
>> NAME	SDWLCU6+12*, SDWLCU6+14
>> NN	SDWLCU6+12*
>> PAT	SDWLCU6+3, SDWLCU6+6, SDWLCU6+7
SDWLAPTD	SDWLCU6+2~, SDWLCU6+13*, SDWLCU6+14
>> SDWLDTP	SDWLCU6+4*
SDWLPD	SDWLCU6+2~, HD+4*
SDWLPG	SDWLCU6+2~, SDWLCU6+3, HD+1, HD+2, HD+4
SDWLTP	SDWLCU6+2~, SDWLCU6+3, SDWLCU6+21, FIX+3
SDWLTP1	SDWLCU6+2~, SDWLCU6+8, SDWLCU6+16, FIX+1, FIX+3*
SDWLWD	SDWLCU6+2~, SDWLCU6+8, SDWLCU6+17, FIX+6
>> SDWLX	SDWLCU6+8, SDWLCU6+9, SDWLCU6+13, SDWLCU6+14, FIX+2, FIX+5
U	SDWLCU6+3*, SDWLCU6+9, SDWLCU6+13, SDWLCU6+14, CLINIC+5, FIX+2, FIX+5
XDATA	SDWLCU6+2~, SDWLCU6+9, FIX+2
XFL	SDWLCU6+2~, SDWLCU6+8, SDWLCU6+9, SDWLCU6+15, SDWLCU6+16, FIX+4, FIX+5
XFL1	SDWLCU6+2~, FIX+1, FIX+2, FIX+3, FIX+4, FIX+5, FIX+6
XFLG	SDWLCU6+2~, SDWLCU6+8, SDWLCU6+9, SDWLCU6+10, SDWLCU6+15
>> Y	SDWLCU6+4, SDWLCU6+13, HD+4*