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

Package: Scheduling

Routine: SDMHAD1


Information

SDMHAD1 ;MAF/ALB - MENTAL HEALTH AD HOC NO SHOW REPORT(cont.);JULY 14, 2010

Source Information

Source file <SDMHAD1.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; Set up the data for the patient
; piece 1 = dfn
; piece 2 = Appointment Date and time
; piece 3 = status N(Noshow) or NA (Noshow with auto rebook)
; piece 4 = PID last 4 of SSN
; piece 5 = clinic ien ^SC(
; piece 6 = stop code ien ^DIC(40.7
;
EN ;PRINT OF THE ^TMP
PRT ;Print report
PATINFO ;Patients home, cell and office phones
NOK ; Next of Kin information
NOKFL
EC ;display emergency contact information
PROV ;Clinic Default Provider
MHTC ;Mental Health Treatment Coordinator
FUT ; FUTURE SCHEDULED APPTS.
RESULTS ;Reminder information
PID(DFN) ; Return PID
; INPUT - DFN
; OUTPUT - PID or 'UNKNOWN'
RET ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !!,SDCOUNT,?4,$E($P(^DPT(SDXDFN,0),"^",1),1,20),?25,SDXID,?31,SDXDT,?49,$E(SDXCLIN,1,30)
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: !?47,$E("*"_SDXSTAT,1,5)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: ?53,$E(SDPROV,1,26)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: !,?5,"Home: ",$$HLPHONE^HLFNC(SDPHON("HOME"),,)
  • Line Location: PATINFO+11
Function Call: WRITE
  • Prompt: !,?5,"Work: ",$$HLPHONE^HLFNC(SDPHON("WORK"),,)
  • Line Location: PATINFO+12
Function Call: WRITE
  • Prompt: !,?5,"Cell: ",$$HLPHONE^HLFNC(SDPHON("CELL"),,)
  • Line Location: PATINFO+13
Function Call: WRITE
  • Prompt: ?7,"NOK: "_SDNOKNM
  • Line Location: NOK+13
Function Call: WRITE
  • Prompt: ?45,"NOK2: "_SDNOKNM2
  • Line Location: NOK+14
Function Call: WRITE
  • Prompt: ?7,"Relation: "_SDNOKR
  • Line Location: NOK+18
Function Call: WRITE
  • Prompt: ?45,"Relation: "_SDNOKR2
  • Line Location: NOK+19
Function Call: WRITE
  • Prompt: ?7,"Phone: "_$$HLPHONE^HLFNC(SDNOKPH,,)
  • Line Location: NOK+24
Function Call: WRITE
  • Prompt: ?45,"Phone: "_$$HLPHONE^HLFNC(SDNOKPH2,,)
  • Line Location: NOK+25
Function Call: WRITE
  • Prompt: ?7,"Work Phone: "_$$HLPHONE^HLFNC(SDNOKPO,,)
  • Line Location: NOK+29
Function Call: WRITE
  • Prompt: ?45,"Work Phone: "_$$HLPHONE^HLFNC(SDNOKPO2,,)
  • Line Location: NOK+30
Function Call: WRITE
  • Prompt: !
  • Line Location: NOK+31
Function Call: WRITE
  • Prompt: !!," Next of Kin:",!
  • Line Location: NOKFL+0
Function Call: WRITE
  • Prompt: !,?5,"Emergency Contact:"
  • Line Location: EC+12
Function Call: WRITE
  • Prompt: !?7,"E-Cont.: ",SDEC1(9)
  • Line Location: EC+14
Function Call: WRITE
  • Prompt: ?45,"E2-Cont.: ",SDEC2(9)
  • Line Location: EC+15
Function Call: WRITE
  • Prompt: !,?7,"Relation: ",SDEC1(10)
  • Line Location: EC+16
Function Call: WRITE
  • Prompt: ?45,"Relation: ",SDEC2(10)
  • Line Location: EC+17
Function Call: WRITE
  • Prompt: !,?9,SDEC1(1)
  • Line Location: EC+19
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+20
Function Call: WRITE
  • Prompt: ?47,SDEC2(1)
  • Line Location: EC+21
Function Call: WRITE
  • Prompt: !,?9,SDEC1(2)
  • Line Location: EC+22
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+23
Function Call: WRITE
  • Prompt: ?47,SDEC2(2)
  • Line Location: EC+24
Function Call: WRITE
  • Prompt: !,?9,SDEC1(3)
  • Line Location: EC+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+26
Function Call: WRITE
  • Prompt: ?47,SDEC2(3)
  • Line Location: EC+27
Function Call: WRITE
  • Prompt: !,?9,SDEC1(4)
  • Line Location: EC+30
Function Call: WRITE
  • Prompt: ", "_$$GET1^DIQ(5,+SDEC1(5),1)
  • Line Location: EC+31
Function Call: WRITE
  • Prompt: " ",$P(SDEC1(11),"^",2)
  • Line Location: EC+32
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+35
Function Call: WRITE
  • Prompt: ?47,SDEC2(4)
  • Line Location: EC+36
Function Call: WRITE
  • Prompt: ", "_$$GET1^DIQ(5,+SDEC2(5),1)
  • Line Location: EC+37
Function Call: WRITE
  • Prompt: " ",$P(SDEC2(11),"^",2)
  • Line Location: EC+38
Function Call: WRITE
  • Prompt: !,?7,"Phone: "_$$HLPHONE^HLFNC(SDEC1(8),,)
  • Line Location: EC+40
Function Call: WRITE
  • Prompt: ?45,"Phone: "_$$HLPHONE^HLFNC(SDEC2(8),,)
  • Line Location: EC+41
Function Call: WRITE
  • Prompt: !?7,"Work Phone: "_$$HLPHONE^HLFNC(SDPHON("E-WORK"),,)
  • Line Location: EC+42
Function Call: WRITE
  • Prompt: ?45,"Work Phone: "_$$HLPHONE^HLFNC(SDPHON("E2-WORK"),,)
  • Line Location: EC+43
Function Call: WRITE
  • Prompt: !
  • Line Location: MHTC+2
Function Call: WRITE
  • Prompt: !,?5,"MHTC: "_SDMHTC_" ("_SDMHTEAM_$S(SDMHTEAM["TEAM":"",1:" TEAM")_")"
  • Line Location: MHTC+5
Function Call: WRITE
  • Prompt: !,?5,"Future Scheduled Appointments: "
  • Line Location: FUT+1
Function Call: WRITE
  • Prompt: !,?7,SDFUTDT,?26,$E($P($P(SDFNODE,"^",2),";",2),1,30)
  • Line Location: FUT+15
Function Call: WRITE
  • Prompt: !,?5,"Results: "
  • Line Location: RESULTS+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
^DIC(5 - [#5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call