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

Package: Scheduling

Routine: SDECRT1


Information

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

Source Information

Source file <SDECRT1.m>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call