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: 10

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

Entry Points

Name Comments DBIA/ICR reference
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

External References

Name Field # of Occurrence
^%ZTLOAD QUEUE+5
$$S^%ZTLOAD DQ+4
^DIC ONE+6
^DIE OESET+11
$$DATA2PCE^PXAPI DATA2PCE+28
DISPVSIT^PXAPI VSIT+41, VSIT+44
PROC^SCDXUTL0 DATA2PCE+15
$$INIT^SD53103B ONE+2, SCAN+5
$$MODE^SD53103B SCAN+12
$$OK^SD53103B ONE+10, SCAN+15
$$RANGE^SD53103B SCAN+9
HDR^SD53103B ONE+4, SCAN+6
OE^SD53103B ONE+9, ONE+15
RESULTS^SD53103B DQ+14
$$INP^SDAM2 VSIT+20, VSIT+29
^VSIT VSIT+56
$$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+14
Function Call: WRITE
  • Prompt: $C(7),"Error has occurred.",!,"Please make a note of the following: ",!?10,SDX,!
  • Line Location: ONE+17
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SCE - [#409.68] 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+21
^DPT - [#2] MSG+6, VSIT+22
^PX(815 - [#815] VSIT+41, VSIT+55
^SC - [#44] MSG+8
^SCE - [#409.68] DQ+7, MSG+2, RESYNC+3, VSIT+3, VSIT+12, VSIT+24, VSIT+47*, VSIT+51*, VSIT+55, DATA2PCE+5
^SCE("APAR" RESYNC+20, VSIT+50, DATA2PCE+19
^SCE("B" DQ+4, DQ+6
^SDD( SET+6, SET+7
^TMP("SDVISIT FIX" DQ+3

Label References

Name Line Occurrences
$$DATA2PCE RESYNC+23
$$MSG ONE+12, DQ+11, DQ+12
$$RESYNC ONE+12, DQ+12
$$SCREEN DQ+9
$$VSIT 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, RESYNC+20
ONEQ ONE+2, ONE+5
QUEUE SCAN+17
RESYNCQ RESYNC+4, RESYNC+8, RESYNC+15
SCANQ SCAN+5, SCAN+9, SCAN+12, SCAN+15
SET DATA2PCE+12, DATA2PCE+13, DATA2PCE+14, DATA2PCE+20, DATA2PCE+21, DATA2PCE+22
VSITQ VSIT+4, VSIT+7, VSIT+11, VSIT+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY SET~, SET+8
DA OESET+1~, OESET+11*, VSIT+1~
DFN VSIT+1~, VSIT+17*, VSIT+20, VSIT+22, VSIT+29, VSIT+34
DIC ONE+1~, ONE+6*, VSIT+1~
DIC("S" ONE+6*
DIC(0 ONE+6*
DIE OESET+1~, OESET+11*, VSIT+1~
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*, MSGQ
SDOE ONE+1~, ONE+9*, ONE+12, ONE+15, 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+20, RESYNC+23
, OESET~, OESET+11, VSIT~, VSIT+3, VSIT+47, VSIT+50, 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, RESYNC+1~, RESYNC+3*, RESYNC+4, RESYNC+15, VSIT+1~
, VSIT+3*, VSIT+4, VSIT+7, VSIT+10, VSIT+16, VSIT+17, VSIT+19, VSIT+21, VSIT+22, VSIT+23
, VSIT+24, VSIT+25, VSIT+28, VSIT+39, VSIT+41, VSIT+53, VSIT+55, DATA2PCE+1~, DATA2PCE+5*, DATA2PCE+6
SDOEC RESYNC+1~, RESYNC+19*, RESYNC+20*, VSIT+49~*, VSIT+50*, VSIT+51, DATA2PCE+1~, DATA2PCE+18*, DATA2PCE+19*, DATA2PCE+20
, DATA2PCE+21, DATA2PCE+22
SDOEP VSIT+1~, VSIT+10*, VSIT+11, VSIT+12
SDOK SCREEN+1~, RESYNC+1~, RESYNC+2*, RESYNC+16*, RESYNC+23*, 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+43, DOT+1
SDVST RESYNC+1~, RESYNC+7*, RESYNC+8, RESYNC+12, RESYNC+20, OESET~, OESET+4, OESET+7, OESET+8, OESET+9
, OESET+11, VSIT+1~, VSIT+2*, VSIT+7*, VSIT+11, VSIT+12*, VSIT+58*, VSITQ, DATA2PCE+1~, DATA2PCE+6*
, DATA2PCE+9, DATA2PCE+28
SDX ONE+11~, ONE+12*, ONE+13, ONE+17, BUILD+26~
SDX( BUILD+30*, BUILD+34, BUILD+35
STATUS MSG~, MSG+4
U ONE+13, SCREEN+5, SCREEN+7, SCREEN+9, MSG+3, MSG+5, MSG+6, MSG+7, MSG+8, RESYNC+15
, OESET+4, OESET+8, VSIT+7, VSIT+10, VSIT+12, VSIT+17, VSIT+19, VSIT+21, VSIT+22, VSIT+23
, VSIT+24, VSIT+25, VSIT+28, VSIT+39, VSIT+41, VSIT+47, VSIT+51, VSIT+53, VSIT+55, DATA2PCE+6
, BUILD+4, BUILD+21
VSIT VSIT+1~, VSIT+16*, VSIT+20, VSIT+24*, VSIT+29, VSIT+34
VSIT("CLN" VSIT+19*, VSIT+34
VSIT("ELG" VSIT+22*, VSIT+34
VSIT("IEN" VSIT+46, VSIT+58
VSIT("INS" VSIT+21*, VSIT+34
VSIT("LNK" VSIT+24*
VSIT("LOC" VSIT+23*, VSIT+46, VSIT+47, VSIT+51
VSIT("PRI" VSIT+26*, VSIT+29*, VSIT+31*
VSIT("SVC" VSIT+20*, VSIT+29*
VSIT(0 VSIT+15*
VSITPKG VSIT+1~, VSIT+18*
X VSIT+1~, VSIT+24*, 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 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