SD53103A ;ALB/MJK - Unique Visit ID Clean Up ; March 10,1997
Source file <SD53103A.m>
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, SD*5.3*748
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^SCE - [#409.68] | Classic Fileman Calls |
^TIU(8925 - [#8925] | Classic Fileman Calls |