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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SDECRT1

Package: Scheduling

Routine: SDECRT1


Information

SDECRT1 ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

Source Information

Source file <SDECRT1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Scheduling 6 ($$DEAD,$$DOD,$$HRCN)^SDECF2  $$FIRST^SDECRT0  ($$CONF,$$DIV)^SDECU  TM^SDROUT0  END^SDROUT1  DTS^SDUTL  
Kernel 3 ^%ZIS  ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  
VA FileMan 2 ^DIE  $$GET1^DIQ  
Registration 1 ADD^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDECRT  

Entry Points

Name Comments DBIA/ICR reference
PRINT(ORDER,SDATE,SDX,SDSTART,SDSTOP,SDREP) ;EP; called to print routing slips
; called by SDROUT0
; assumes the following variables are set: SDSTART,SDSTOP,SDX,SDREP,DIV
; loop by sort criteria and get patient
RS(SORT,TERM,DFN,FIRST) ; -- print rs
; quit if not first appt that day when sorting by clinic
APPTC(DFN,TERM,DATE)
APPT(DFN,DATE,CLN) ; -- print individual appointments
PRTDT(P,D,C,MODE) ; -- called to set date routing slip printed
PRTCR(PAT,DATE,CLN) ; -- set date/time chart request printed
FUTURE(DFN) ; -- print future appts
PRINTED ; add date printed, requested by and increment count of rs printed
CURHED ; -- print current appt heading
FUTHED ; -- print future appt heading
RSHED(DFN) ; -- routing slip heading
OTHER(DFN) ; -- calls other forms
HS(DFN,SDATE) ; -- health summary
MP(DFN,SDATE) ; -- med profile
APRO(DFN,SDATE) ; -- action profiles (one for each appt where needed)
AIU(DFN,SDATE) ; -- insurance update
ONE(DFN,SDATE,FORM) ; -- returns 1 if at least one clinic for pat wants form
MORERS() ; -- returns 1 if want >1 rs
DIV() ; -- returns division ien
FORMAT() ; -- returns format used - short, long or duplicate
APPTCNT(A,B,C) ; -- count how many appts patient has for date
CHKDV(SDEV) ;-- check to see if the original device got closed and if so reopen it

External References

Name Field # of Occurrence
^%ZIS CHKDV+4
^DIE PRTDT+7, PRTCR+6
$$GET1^DIQ APPT+11, APPT+16, APPT+17, APPT+26, FUTURE+22, FUTURE+23, PRINTED+6, RSHED+3, RSHED+7, RSHED+9
, OTHER+1, APRO+5, ONE+5, ONE+7, ONE+14, ONE+16, MORERS+1, FORMAT+1
$$DEAD^SDECF2 RSHED+12
$$DOD^SDECF2 RSHED+12
$$HRCN^SDECF2 RSHED+7
$$FIRST^SDECRT0 RS+8, RS+9
$$CONF^SDECU RSHED+4
$$DIV^SDECU DIV+1
TM^SDROUT0 APPT+3, FUTURE+17, FUTURE+21
END^SDROUT1 PRINT+19
DTS^SDUTL FUTURE+17, FUTURE+21
ADD^VADPT RSHED+17
$$FMTE^XLFDT APPT+26, PRINTED+2, PRINTED+3, PRINTED+5, RSHED+10
$$NOW^XLFDT PRINTED+5
$$REPEAT^XLFSTR RS+28, FUTHED+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RS+27
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: RS+28
Function Call: WRITE
  • Prompt: !,$J(X,8)
  • Line Location: APPT+3
Function Call: WRITE
  • Prompt: !,"CR-"_$E(DATE,4,5)_"/"_$E(DATE,6,7)_"-"_($E(DATE,1,3)+1700)
  • Line Location: APPT+5
Function Call: WRITE
  • Prompt: ?9,$P(CLN,U,3)
  • Line Location: APPT+8
Function Call: WRITE
  • Prompt: ?13,$E(X,1,25)
  • Line Location: APPT+12
Function Call: WRITE
  • Prompt: !?11
  • Line Location: APPT+14
Function Call: WRITE
  • Prompt: ?40
  • Line Location: APPT+15
Function Call: WRITE
  • Prompt: $$GET1^DIQ(44,+CLN,10)
  • Line Location: APPT+16
Function Call: WRITE
  • Prompt: !?COL,$P(Y,U,3)
  • Line Location: APPT+25
Function Call: WRITE
  • Prompt: !?COL,"Requested at "_$$FMTE^XLFDT($E(+Y,1,12))_" by "_$$GET1^DIQ(200,+$P(Y,U,2),.01)_" x"_$$GET1^DIQ(200,+$P(Y,U,2),.132)
  • Line Location: APPT+26
Function Call: WRITE
  • Prompt: !,Y,?13,$J(X,8)
  • Line Location: FUTURE+17
Function Call: WRITE
  • Prompt: ?22,$S(BSDI=3:"LAB",BSDI=4:"XRAY",1:"EKG")," Stop"
  • Line Location: FUTURE+18
Function Call: WRITE
  • Prompt: !,Y,?13,$J(X,8)
  • Line Location: FUTURE+21
Function Call: WRITE
  • Prompt: ?21,$$GET1^DIQ(44,+BSDY,.01)
  • Line Location: FUTURE+22
Function Call: WRITE
  • Prompt: ?55,$$GET1^DIQ(44,+BSDY,10)
  • Line Location: FUTURE+23
Function Call: WRITE
  • Prompt: !!,"DATE ORIGINALLY PRINTED : ",$$FMTE^XLFDT(SDSTART)
  • Line Location: PRINTED+2
Function Call: WRITE
  • Prompt: !,"DATE REPRINTED: ",$$FMTE^XLFDT(DT)
  • Line Location: PRINTED+3
Function Call: WRITE
  • Prompt: !!,"DATE PRINTED: ",$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: PRINTED+5
Function Call: WRITE
  • Prompt: !,"Requested by: ",$$GET1^DIQ(200,$G(DUZ),.01)
  • Line Location: PRINTED+6
Function Call: WRITE
  • Prompt: !!?9,"**CURRENT APPOINTMENTS**"
  • Line Location: CURHED+1
Function Call: WRITE
  • Prompt: !?3,"TIME",?13,"CLINIC"
  • Line Location: CURHED+2
Function Call: WRITE
  • Prompt: ?40,"LOCATION",?68,"PHONE"
  • Line Location: CURHED+3
Function Call: WRITE
  • Prompt: !!,?9,"**FUTURE APPOINTMENTS**",!,$$REPEAT^XLFSTR("=",79)
  • Line Location: FUTHED+1
Function Call: WRITE
  • Prompt: !," DATE",?13,"TIME",?21,"CLINIC",?55,"LOCATION",!
  • Line Location: FUTHED+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RSHED+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RSHED+2
Function Call: WRITE
  • Prompt: !,"FACILITY: ",$$GET1^DIQ(40.8,$$DIV,.01)
  • Line Location: RSHED+3
Function Call: WRITE
  • Prompt: ?40,"**",$E($$CONF^SDECU,1,25),"**"
  • Line Location: RSHED+4
Function Call: WRITE
  • Prompt: !,"PAGE ",BSDPG,?10,"OUTPATIENT ROUTING SLIP"
  • Line Location: RSHED+5
Function Call: WRITE
  • Prompt: !!,$$GET1^DIQ(2,DFN,.01),?30,"HRCN: ",$$HRCN^SDECF2(DFN,+$G(DUZ(2)))
  • Line Location: RSHED+7
Function Call: WRITE
  • Prompt: !?5,"DOB: ",$$GET1^DIQ(2,DFN,.03)
  • Line Location: RSHED+9
Function Call: WRITE
  • Prompt: ?44,"APPT DT: ",$$FMTE^XLFDT(SDATE,5)
  • Line Location: RSHED+10
Function Call: WRITE
  • Prompt: !?10,"**** PATIENT DIED ON ",$$DOD^SDECF2(DFN)," ****"
  • Line Location: RSHED+12
Function Call: WRITE
  • Prompt: !,VAPA(4),", ",$P(VAPA(5),U,2)," ",VAPA(6)
  • Line Location: RSHED+18
Routine Call
  • %ZIS
  • Line Location:
    • CHKDV+4
Routine Call
  • DIE
  • Line Location:
    • PRTDT+7
    • PRTCR+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRTDT+3, PRTDT+4, PRTDT+6, FUTURE+3, FUTURE+8, FUTURE+10, APRO+3, APRO+4, ONE+3, ONE+4
^SC - [#44] APPT+20, APPT+21, APPT+22, PRTCR+2, PRTCR+3
^SC("AIHSCR" ONE+12, ONE+13
^TMP("SDRS" PRINT+6, PRINT+7, PRINT+8, RS+4, RS+5, RS+8, RS+9, RS+14, RS+15, APPTC+5
, OTHER+4, APPTCNT+2, APPTCNT+3
^TMP("SDRS1" APPTC+3, APPTC+4

Label References

Name Line Occurrences
$$APPTCNT PRINT+14
$$CHKDV OTHER+8
$$DIV RSHED+3, OTHER+1, MORERS+1, FORMAT+1
$$FORMAT PRINT+10, RS+22, RS+25, APPT+14, APPT+17, APPT+24, CURHED+2, RSHED+1, RSHED+16
$$MORERS PRINT+14, RS+8, RS+9
AIU OTHER+10
APPT RS+20, APPTC+6
APPTC RS+18
APRO OTHER+9
CURHED RS+13, APPT+1
FUTHED FUTURE+5, FUTURE+9, FUTURE+15
FUTURE RS+22
HS OTHER+6
MP OTHER+7
OTHER PRINT+16
PRINTED RS+23
PRTCR PRTDT+2
PRTDT RS+18, RS+21
RS PRINT+11, PRINT+14, RS+29
RSHED RS+12, APPT+1, FUTURE+4, FUTURE+9, FUTURE+15

Naked Globals

Name Field # of Occurrence
^(0 APRO+4, ONE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A APPTCNT~, APPTCNT+2, APPTCNT+3
APDT APPTC+1~, APPTC+2*, APPTC+3*, APPTC+4, APPTC+5, APPTC+6
ARRAY APPTC+1~
B APPTCNT~, APPTCNT+2, APPTCNT+3
BDGSDEV PRINT+18!, OTHER+8
BSDI PRINT+4~, PRINT+14*, FUTURE+1~, FUTURE+14*, FUTURE+16, FUTURE+18
BSDPG RS+11~, RSHED+5*, RSHED+14
BSDX FUTURE+1~, FUTURE+8*, FUTURE+10, FUTURE+21, APRO+1~, APRO+2*, APRO+3*, APRO+4
BSDY FUTURE+1~, FUTURE+10*, FUTURE+11, FUTURE+14, FUTURE+16, FUTURE+22, FUTURE+23
C PRTDT~, PRTDT+2, ONE+1~, ONE+4*, ONE+5, ONE+7, ONE+12*, ONE+13, ONE+14, ONE+16
, APPTCNT~, APPTCNT+2, APPTCNT+3
CLN RS+11~, RS+15*, RS+18, RS+20, RS+21, APPTC+1~, APPTC+5*, APPTC+6, APPT~, APPT+3
, APPT+4, APPT+8, APPT+10, APPT+11, APPT+13, APPT+16, APPT+17, APPT+20, APPT+21, APPT+22
, PRTCR~, PRTCR+2, PRTCR+3, PRTCR+4, PRTCR+5, APRO+1~, APRO+4*, APRO+5
CNT PRINT+4~, PRINT+14*, APPTCNT+1~*, APPTCNT+4*, APPTCNT+5
COL APPT+24~*, APPT+25, APPT+26
D PRTDT~, PRTDT+2, PRTDT+3, PRTDT+4, PRTDT+5, PRTDT+6
DA PRTDT+1~, PRTDT+5*, PRTCR+1~, PRTCR+5*
DA(1 PRTDT+5*, PRTCR+5*
DA(2 PRTCR+5*
DATE RS+11~, RS+13*, RS+14*, RS+15, RS+18*, RS+20, RS+21, APPTC~, APPTC+2, APPT~
, APPT+3, APPT+5, APPT+20, APPT+21, APPT+22, PRTCR~, PRTCR+2, PRTCR+3, PRTCR+4, PRTCR+5
DFN PRINT+4~, PRINT+8*, PRINT+11, PRINT+14, PRINT+16, RS~, RS+4, RS+5, RS+8, RS+9
, RS+12, RS+14, RS+15, RS+18, RS+20, RS+21, RS+22, RS+29, APPTC~, APPTC+3
, APPTC+4, APPTC+5, APPTC+6, APPT~, APPT+1, APPT+21, FUTURE~, FUTURE+3, FUTURE+4, FUTURE+8
, FUTURE+9, FUTURE+10, FUTURE+15, RSHED~, RSHED+7, RSHED+9, RSHED+12, OTHER~, OTHER+4, OTHER+6
, OTHER+7, OTHER+9, OTHER+10, HS~, MP~, APRO~, APRO+3, APRO+4, AIU~, ONE~
, ONE+3, ONE+4, ONE+12, ONE+13
DIE PRTDT+1~, PRTDT+5*, PRTCR+1~, PRTCR+4*
DR PRTDT+1~, PRTDT+6*, PRTCR+1~, PRTCR+5*
DT PRINTED+3
DUZ PRINTED+6
DUZ(2 RSHED+7
FIRST RS~, RS+4, RS+5, RS+29
FORM ONE~, ONE+5, ONE+6, ONE+7, ONE+14, ONE+15, ONE+16
I RSHED+17~*
IEN PRTCR+1~, PRTCR+2*, PRTCR+3, PRTCR+5
IO OTHER+8*, CHKDV+2, CHKDV+3, CHKDV+5
IOF RSHED+2
IOM RS+28
IOP CHKDV+1~, CHKDV+4*
IOSL RS+27, APPT+1, FUTURE+4, FUTURE+9, FUTURE+15
MODE PRTDT~, PRTDT+2
ORDER PRINT~, RS+4, RS+5, RS+8, RS+9, RS+18, OTHER+4
P PRTDT~, PRTDT+2, PRTDT+3, PRTDT+4, PRTDT+5, PRTDT+6
PAT PRTCR~, PRTCR+3
SDATE PRINT~, FUTURE+3, FUTURE+8, RSHED+10, OTHER+6, OTHER+7, OTHER+9, OTHER+10, HS~, MP~
, APRO~, APRO+2, APRO+3, AIU~, ONE~, ONE+2, ONE+3, ONE+13
SDCNT PRINT+4~, PRINT+17!, PRINTED+4*, PRINTED+7*, RSHED+2
SDEV CHKDV~, CHKDV+2, CHKDV+3, CHKDV+4
SDREP PRINT~, PRINTED+1
SDSTART PRINT~, PRINTED+2
SDSTOP PRINT~, PRINT+19!
SDX PRINT~, PRINTED+1
SECOND PRINT+4~, PRINT+10*, RS+25, RS+26*, RSHED+1
SORT PRINT+4~, PRINT+5*, PRINT+6*, PRINT+7, PRINT+8, PRINT+11, PRINT+14, RS~, RS+4, RS+5
, RS+8, RS+9, RS+14, RS+15, RS+29, APPTC+1~, APPTC+4*, APPTC+5, OTHER+4
TERM PRINT+4~, PRINT+7*, PRINT+8, PRINT+11, PRINT+14, RS~, RS+8, RS+9, RS+14, RS+15
, RS+18, RS+29, APPTC~, APPTC+5
U RS+18, RS+21, APPT+3, APPT+4, APPT+8, APPT+10, APPT+13, APPT+25, APPT+26, PRTDT+4
, PRTDT+6, FUTURE+11, FUTURE+14, FUTURE+16, RSHED+18, APRO+4, ONE+4, ONE+6, ONE+7, ONE+15
, ONE+16, APPTCNT+3
VAPA RSHED+17~
VAPA( RSHED+17
VAPA(4 RSHED+18
VAPA(5 RSHED+18
VAPA(6 RSHED+18
X APPT+2~, APPT+3*, APPT+10*, APPT+11*, APPT+12, APPT+20*, APPT+21, APPT+22, PRTCR+1~, FUTURE+1~
, FUTURE+16*, FUTURE+17, FUTURE+21*, ONE+1~, ONE+2*, ONE+3*, ONE+4, APPTCNT+1~*, APPTCNT+2*, APPTCNT+3
Y APPT+2~, APPT+22*, APPT+25, APPT+26, FUTURE+1~, FUTURE+16*, FUTURE+17, FUTURE+21*, APRO+1~, APRO+5*
, ONE+1~, ONE+2*, ONE+3, ONE+6*, ONE+7*, ONE+8*, ONE+11, ONE+12, ONE+15*, ONE+16*
, ONE+17*, ONE+18
Z ONE+1~, ONE+5*, ONE+6, ONE+14*, ONE+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All