Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SD53103A

Package: Scheduling

Routine: SD53103A


Information

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

Source Information

Source file <SD53103A.m>

Entry Points

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SCE - [#409.68] Classic Fileman Calls
^TIU(8925 - [#8925] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call