Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  EN1^DIK  ^DIR  
PCE Patient Care Encounter 3 ($$DATA2PCE,DISPVSIT)^PXAPI  ^VSIT  $$GETVID^VSITVID  
Scheduling 3 PROC^SCDXUTL0  ($$INIT,$$MODE,$$OK,$$RANGE,HDR,OE,RESULTS,TIU)^SD53103B  $$INP^SDAM2  
Kernel 2 (,$$S)^%ZTLOAD  $$FMTE^XLFDT  

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

External References

Name Field # of Occurrence
^%ZTLOAD QUEUE+5
$$S^%ZTLOAD DQ+4
^DIC ONE+6
^DIE OESET+11
EN1^DIK TIUPD+2
^DIR EN+5
$$DATA2PCE^PXAPI DATA2PCE+28
DISPVSIT^PXAPI VSIT+42, VSIT+45
PROC^SCDXUTL0 DATA2PCE+15
$$INIT^SD53103B ONE+2, SCAN+5
$$MODE^SD53103B SCAN+12
$$OK^SD53103B ONE+11, SCAN+15
$$RANGE^SD53103B SCAN+9
HDR^SD53103B ONE+4, SCAN+6
OE^SD53103B ONE+9, ONE+16
RESULTS^SD53103B DQ+14
TIU^SD53103B ONE+17
$$INP^SDAM2 VSIT+21, VSIT+30
^VSIT VSIT+58
$$GETVID^VSITVID OESET+6
$$FMTE^XLFDT MSG+7

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
Routine Call
  • DIC
  • Line Location:
    • ONE+6
Routine Call
  • DIE
  • Line Location:
    • OESET+11
Routine Call
  • DIR
  • Line Location:
    • EN+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVCPT("AD" DATA2PCE+9
^AUPNVPOV("AD" DATA2PCE+9
^AUPNVPRV("AD" DATA2PCE+9
^AUPNVSIT - [#9000010] OESET+4, OESET+8*
^AUPNVSIT("VID" OESET+7!, OESET+9*
^DG(40.8 - [#40.8] VSIT+22
^DPT - [#2] MSG+6, VSIT+23
^PX(815 - [#815] VSIT+42, VSIT+57
^SC - [#44] MSG+8
^SCE - [#409.68] DQ+7, MSG+2, RESYNC+3, VSIT+3, VSIT+25, VSIT+48*, VSIT+57, DATA2PCE+5
^SCE("APAR" DATA2PCE+19
^SCE("B" DQ+4, DQ+6
^SDD( SET+6, SET+7
^TIU(8925 - [#8925] ONE+10, ONE+17, MSG+9, TIUPD+2
^TMP("SDVISIT FIX" DQ+3

Label References

Name Line Occurrences
$$DATA2PCE RESYNC+24
$$MSG ONE+13, DQ+11, DQ+12
$$RESYNC ONE+13, DQ+12
$$SCREEN DQ+9
$$VSIT ONE+10, RESYNC+7
BUILD DATA2PCE+25
DATAQ DATA2PCE+5, DATA2PCE+6, DATA2PCE+9
DOT RESYNC+9, OESET+12, DATA2PCE+12, DATA2PCE+13, DATA2PCE+14, DATA2PCE+15, DATA2PCE+20, DATA2PCE+21, DATA2PCE+22
MSGQ MSG+3
OESET RESYNC+12
ONE EN+7
ONEQ ONE+2, ONE+5
QUEUE SCAN+17
RESYNCQ RESYNC+4, RESYNC+8, RESYNC+16
SCAN EN+8
SCANQ SCAN+5, SCAN+9, SCAN+12, SCAN+15
SET DATA2PCE+12, DATA2PCE+13, DATA2PCE+14, DATA2PCE+20, DATA2PCE+21, DATA2PCE+22
TIUPD RESYNC+13
VSITQ VSIT+4, VSIT+7, VSIT+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY SET~, SET+8
DA OESET+1~, OESET+11*, VSIT+1~, TIUPD+1~, TIUPD+2*
DFN VSIT+1~, VSIT+18*, VSIT+21, VSIT+23, VSIT+30, VSIT+35
DIC ONE+1~, ONE+6*, VSIT+1~
DIC("S" ONE+6*
DIC(0 ONE+6*
DIE OESET+1~, OESET+11*, VSIT+1~
DIK TIUPD+1~, TIUPD+2*
DIK(1 TIUPD+2*
DIR EN+1~
DIR("?" EN+4*
DIR("A" EN+3*
DIR(0 EN+2*
DIRUT EN+1~, EN+6
DR OESET+1~, OESET+11*, VSIT+1~
FILE SET~, SET+6, SET+7
I QUEUE+1~, QUEUE+4*
ID OESET+5~, OESET+6*, OESET+8, OESET+9
SDATA BUILD~, BUILD+4, BUILD+12, BUILD+20, BUILD+21, BUILD+37, BUILD+38
SDBEG SCAN+2~, SCAN+9, DQ+3, DQ+14
SDCLASS BUILD~, BUILD+2, BUILD+3
SDCLS DATA2PCE+1~
SDCNT DQ+1~, DQ+3*, DQ+10*, DQ+11, DQ+12, DQ+14, RESYNC+1~, BUILD+1~, BUILD+8*, BUILD+11*
, BUILD+12, BUILD+16*, BUILD+19*, BUILD+20, BUILD+21, BUILD+27*, BUILD+33*, BUILD+36*, BUILD+37, BUILD+38
SDCPT BUILD~, BUILD+24, BUILD+28, BUILD+29
SDDT DQ+1~, DQ+3*, DQ+4*, DQ+6
SDDX BUILD~, BUILD+15, BUILD+17, BUILD+18
SDEND SCAN+2~, SCAN+9, DQ+4, DQ+14
SDEXIT ONE+1~, ONE+3*, ONE+5, ONE+7*
SDI BUILD+1~, BUILD+2*, BUILD+3
SDIAG DATA2PCE+1~
SDIEN BUILD+1~, BUILD+8*, BUILD+9*, BUILD+10, BUILD+16*, BUILD+17*, BUILD+18, BUILD+27*, BUILD+28*, BUILD+29
, BUILD+33*, BUILD+34*, BUILD+35, BUILD+37, SET+4~, SET+5*, SET+6*, SET+7, SET+8
SDMODE SCAN+2~, SCAN+12*, DQ+11, DQ+12, DQ+14
SDMSG MSG+1~, MSG+3*, MSG+4*, MSG+5*, MSG+6*, MSG+7*, MSG+8*, MSG+10*, MSGQ
SDOE ONE+1~, ONE+9*, ONE+10, ONE+13, ONE+16, DQ+1~, DQ+5*, DQ+6*, DQ+7, DQ+11
DQ+12, MSG~, MSG+2, MSG+3, MSG+5, RESYNC~, RESYNC+3, RESYNC+7, RESYNC+12, RESYNC+24
, OESET~, OESET+11, VSIT~, VSIT+3, VSIT+48, DATA2PCE~, DATA2PCE+5, DATA2PCE+12, DATA2PCE+13, DATA2PCE+14
, DATA2PCE+15, DATA2PCE+19, SET~, SET+6
SDOE0 DQ+1~, DQ+7*, DQ+9, SCREEN~, SCREEN+3, SCREEN+5, SCREEN+7, SCREEN+9, MSG+1~, MSG+2*
, MSG+3, MSG+5, MSG+6, MSG+7, MSG+8, MSG+9, RESYNC+1~, RESYNC+3*, RESYNC+4, RESYNC+16
, VSIT+1~, VSIT+3*, VSIT+4, VSIT+7, VSIT+17, VSIT+18, VSIT+20, VSIT+22, VSIT+23, VSIT+24
, VSIT+25, VSIT+26, VSIT+29, VSIT+40, VSIT+42, VSIT+55, VSIT+57, DATA2PCE+1~, DATA2PCE+5*, DATA2PCE+6
SDOEC RESYNC+1~, DATA2PCE+1~, DATA2PCE+18*, DATA2PCE+19*, DATA2PCE+20, DATA2PCE+21, DATA2PCE+22
SDOEP VSIT+1~
SDOK SCREEN+1~, RESYNC+1~, RESYNC+2*, RESYNC+17*, RESYNC+24*, RESYNCQ, DATA2PCE+1~, DATA2PCE+2*, DATA2PCE+9*, DATA2PCE+29*
DATAQ
SDPCE DATA2PCE+1~
SDPKG ONE+1~, SCAN+2~, DATA2PCE+28
SDPROC DATA2PCE+1~
SDPROV BUILD~, BUILD+7, BUILD+9, BUILD+10
SDPRV DATA2PCE+1~
SDRT DQ+1~, DQ+3*, DQ+11, DQ+12, DQ+14, DQ+15
SDTALK ONE+1~, ONE+3*, SCAN+2~, VSIT+44, DOT+1
SDTI MSG+1~, MSG+9*
SDTIU ONE+1~, ONE+10*, MSG+1~, MSG+9*, MSG+10
SDTIU1 ONE+1~, ONE+17*
SDVST ONE+1~, ONE+10*, ONE+17, RESYNC+1~, RESYNC+7*, RESYNC+8, RESYNC+12, RESYNC+13, OESET~, OESET+4
, OESET+7, OESET+8, OESET+9, OESET+11, VSIT+1~, VSIT+2*, VSIT+7*, VSIT+60*, VSITQ, DATA2PCE+1~
, DATA2PCE+6*, DATA2PCE+9, DATA2PCE+28, TIUPD~, TIUPD+2
SDVT MSG+1~, MSG+9*
SDX ONE+12~, ONE+13*, ONE+14, ONE+18, ONE+19, BUILD+26~
SDX( BUILD+30*, BUILD+34, BUILD+35
STATUS MSG~, MSG+4
U ONE+14, ONE+18, SCREEN+5, SCREEN+7, SCREEN+9, MSG+3, MSG+5, MSG+6, MSG+7, MSG+8
, MSG+9, MSG+10, RESYNC+16, OESET+4, OESET+8, VSIT+7, VSIT+18, VSIT+20, VSIT+22, VSIT+23
, VSIT+24, VSIT+25, VSIT+26, VSIT+29, VSIT+40, VSIT+42, VSIT+48, VSIT+55, VSIT+57, DATA2PCE+6
, BUILD+4, BUILD+21
VSIT VSIT+1~, VSIT+17*, VSIT+21, VSIT+25*, VSIT+30, VSIT+35
VSIT("CLN" VSIT+20*, VSIT+35
VSIT("ELG" VSIT+23*, VSIT+35
VSIT("IEN" VSIT+47, VSIT+60
VSIT("INS" VSIT+22*, VSIT+35
VSIT("LNK" VSIT+25*
VSIT("LOC" VSIT+24*, VSIT+47, VSIT+48
VSIT("PRI" VSIT+27*, VSIT+30*, VSIT+32*
VSIT("SVC" VSIT+21*, VSIT+30*
VSIT(0 VSIT+16*
VSITPKG VSIT+1~, VSIT+19*
X EN+1~, VSIT+1~, VSIT+25*, DATA2PCE+1~, BUILD+1~, BUILD+3*, BUILD+4, BUILD+10*, BUILD+12, BUILD+18*
, BUILD+20, BUILD+21, BUILD+29*, BUILD+30, BUILD+35*, BUILD+38, SET+7*, SET+8
Y EN+1~, EN+7, EN+8, ONE+1~, ONE+7, ONE+9
ZTDESC QUEUE+1~, QUEUE+3*
ZTIO QUEUE+1~, QUEUE+3*
ZTRTN QUEUE+1~, QUEUE+3*
ZTSAVE QUEUE+1~
ZTSAVE( QUEUE+4*
ZTSK QUEUE+1~, QUEUE+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All