Routine: SD53103A

Information

SD53103A ;ALB/MJK - Unique Visit ID Clean Up ; March 10,1997

Name	Comments	DBIA/ICR reference
EN	;Unique Visit ID Clean Up Option entry point
ONE	; -- entry point to select a single -1 encounter and resync
ONEQ
SCAN	; -- entry point to scan encounter file for -1's to either ; 'count only' or 'count and fix'
SCANQ
QUEUE	; queue job
DQ	; -- dequeue point...collect results and generate message.
SCREEN(SDOE0)	; -- process screen for -1's and null ID's
MSG(SDOE,STATUS)	; -- build display text
MSGQ
RESYNC(SDOE)	; -- resync sd and pce data
RESYNCQ
OESET(SDOE,SDVST)	; -- set oe visit field
VSIT(SDOE)	; -- get/find visit
VSITQ
DATA2PCE(SDOE)	; -- send data to pce
DATAQ
BUILD(SDPROV,SDDX,SDCLASS,SDCPT,SDATA)	; -- build pce data array
BUILDQ
SET(SDOE,ARRAY,FILE)	;Set-up Array for Outpatient Encounter ; Input -- SDOE Outpatient Encounter IEN ; Output -- ARRAY Provider or dx Array Subscripted by a ien
SETQ
DOT	; -- write '.' if ok to talk
TIUPD(SDVST)	;Correct TIU document if applicable, SD5.3748

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ONE+4
Function Call: WRITE	Prompt: "Re-Linked successfully:" Line Location: ONE+15
Function Call: WRITE	Prompt: $C(7),"Error has occurred.",!,"Please make a note of the following: ",!?10,SDX,! Line Location: ONE+19
Function Call: WRITE	Prompt: ! Line Location: QUEUE+2
Function Call: WRITE	Prompt: !!,"Task queued: #",ZTSK Line Location: QUEUE+6
Function Call: WRITE	Prompt: "." Line Location: DOT+2

FileNo	Call Tags
^SCE - [#409.68]	Classic Fileman Calls
^TIU(8925 - [#8925]	Classic Fileman Calls