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 |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Scheduling 4 $$START^SCMCMHTC  $$SDAPI^SDAMA301  (HEAD,HEAD1)^SDMHAD  (COUNT,TOTAL1)^SDMHNS  
VA FileMan 3 C^%DTC  ($$GET1,GETS)^DIQ  ^DIR  
Registration 2 (ADD,KVAR,OAD)^VADPT  PID^VADPT6  
Clinical Reminders 1 MAINDF^PXRM  
Health Level Seven 1 $$HLPHONE^HLFNC  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SDMHAD  SDMHNS  

Entry Points

Name Comments DBIA/ICR reference
PID(DFN) ; Return PID
; INPUT - DFN
; OUTPUT - PID or 'UNKNOWN'
FUT ; FUTURE SCHEDULED APPTS.
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
;
NOK ; Next of Kin information
PROV ;Clinic Default Provider
MHTC ;Mental Health Treatment Coordinator
RESULTS ;Reminder information
EC ;display emergency contact information
PATINFO ;Patients home, cell and office phones
PRT ;Print report
EN ;PRINT OF THE ^TMP
RET ;
NOKFL

External References

Name Field # of Occurrence
C^%DTC FUT+3
$$GET1^DIQ EC+31, EC+37
GETS^DIQ PATINFO+8, NOK+4, EC+7
^DIR RET+3
$$HLPHONE^HLFNC PATINFO+11, PATINFO+12, PATINFO+13, NOK+24, NOK+25, NOK+29, NOK+30, EC+40, EC+41, EC+42
, EC+43
MAINDF^PXRM RESULTS+10
$$START^SCMCMHTC MHTC+4
$$SDAPI^SDAMA301 FUT+9
HEAD^SDMHAD EN+36, PRT+2, RET+6
HEAD1^SDMHAD PRT+3, PRT+4
COUNT^SDMHNS PRT+5
TOTAL1^SDMHNS EN+36
ADD^VADPT PATINFO+2
KVAR^VADPT EC+44
OAD^VADPT PATINFO+5, NOK+2, NOK+3, EC+5, EC+6
PID^VADPT6 PID+4
$$FMTE^XLFDT PRT+18, FUT+15

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
Routine Call
  • DIR
  • Line Location:
    • RET+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
^DIC(5 - [#5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] PRT+17
^DPT - [#2] PRT+18
^PXD(811.9 - [#811.9] RESULTS+5
^SC - [#44] PROV+3
^TMP( EN+4, EN+7, EN+9, EN+11, EN+13, EN+14, EN+17, EN+19, EN+21, EN+23
, EN+24, EN+27, EN+29, EN+31, EN+33, EN+34, EN+36, PRT+10, PRT+11
^TMP("PXRHM" RESULTS+2!, RESULTS+13, RESULTS+15, RESULTS+16, RESULTS+17, RESULTS+22!
^TMP("PXRM" RESULTS+2!, RESULTS+22!
^TMP($J FUT+14, FUT+15, FUT+20!
^VA(200 - [#200] PROV+4

Label References

Name Line Occurrences
EC PRT+23
FUT PRT+26
MHTC PRT+25
NOK PRT+22
NOKFL NOK+12, NOK+16, NOK+21, NOK+27
PATINFO PRT+21
PROV PRT+19
PRT EN+14, EN+24, EN+34
RESULTS PRT+27
RET PRT+19, PRT+20, PRT+22, PRT+23, PRT+25, PRT+26, PRT+27, PATINFO+11, PATINFO+12, PATINFO+13
, NOK+12, NOK+13, NOK+15, NOK+18, NOK+20, NOK+23, NOK+26, NOK+31, EC+12, EC+16
, EC+19, EC+20, EC+22, EC+23, EC+25, EC+26, EC+30, EC+35, EC+40, EC+42
, MHTC+5, FUT+16, RESULTS+15, RESULTS+18, RESULTS+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN PATINFO+1~, PATINFO+2*, PATINFO+5*, NOK+1~, NOK+2*, NOK+3*, EC+3~, EC+4*, PID~
DIR RET+3!
DIR(0 RET+2*
DT FUT+3, FUT+4
IOSL RET+1
IOST RET+1
MHTC MHTC+3~
>> NAMSPC1 EN+4, EN+7, EN+9, EN+11, EN+13, EN+14, EN+17, EN+19, EN+21, EN+23
, EN+24, EN+27, EN+29, EN+31, EN+33, EN+34, EN+36, PRT+10, PRT+11
SDARRAY FUT+2~, FUT+9
SDARRAY("FLDS" FUT+8*
SDARRAY("SORT" FUT+5*
SDARRAY(1 FUT+4*
SDARRAY(3 FUT+6*
SDARRAY(4 FUT+7*
SDATE EN+1~, EN+12*, EN+13*, EN+14, EN+22*, EN+23*, EN+24, EN+32*, EN+33*, EN+34
, PRT+10, PRT+11
SDCOUNT EN+1~, EN+2*, PRT+18, PRT+19*, FUT+2~, FUT+9*, FUT+10, FUT+18
SDCR RESULTS+3~, RESULTS+5*, RESULTS+10, RESULTS+13, RESULTS+15, RESULTS+16, RESULTS+17
SDDSS PRT+6~, PRT+17*
SDEC1 EC+1~, EC+12
SDEC1(1 EC+19, EC+20
SDEC1(10 EC+16
SDEC1(11 EC+32
SDEC1(2 EC+22, EC+23
SDEC1(3 EC+25, EC+26
SDEC1(4 EC+29, EC+30, EC+35
SDEC1(5 EC+31
SDEC1(8 EC+40
SDEC1(9 EC+11, EC+14
SDEC2 EC+1~, EC+12
SDEC2(1 EC+20, EC+21
SDEC2(10 EC+17
SDEC2(11 EC+38
SDEC2(2 EC+23, EC+24
SDEC2(3 EC+26, EC+27
SDEC2(4 EC+34, EC+36
SDEC2(5 EC+37
SDEC2(8 EC+41
SDEC2(9 EC+15
SDEC3 NOK+1~, NOK+8
SDEC3(10 NOK+9
SDEC3(8 NOK+9, NOK+11
SDEC3(9 NOK+9
SDEC4 NOK+1~, NOK+10
SDEC4(10 NOK+11
SDEC4(9 NOK+11
SDEC5 PATINFO+1~, PATINFO+6
SDEC5(8 PATINFO+7
SDEC6 PATINFO+1~, PATINFO+3
SDEC6(8 PATINFO+4
SDFA FUT+12~, FUT+14*, FUT+15
SDFNODE FUT+12~, FUT+15*
SDFUTDT FUT+12~, FUT+15*
>> SDFUTNUM FUT+3, FUT+19
SDMHTC MHTC+3~, MHTC+4*, MHTC+5
SDMHTEAM MHTC+3~, MHTC+4*, MHTC+5
SDNOK NOK+1~
SDNOK2 NOK+1~
SDNOKFL NOK+1~, NOK+16, NOK+21, NOK+27, NOKFL*
SDNOKNM NOK+1~, NOK+9*, NOK+12, NOK+13
SDNOKNM2 NOK+1~, NOK+11*, NOK+12, NOK+14
SDNOKPH NOK+1~, NOK+9*, NOK+20, NOK+24
SDNOKPH2 NOK+1~, NOK+11*, NOK+20, NOK+25
SDNOKPO NOK+1~, NOK+9*, NOK+26, NOK+29
SDNOKPO2 NOK+1~, NOK+11*, NOK+26, NOK+30
SDNOKR NOK+1~, NOK+9*, NOK+15, NOK+18
SDNOKR2 NOK+1~, NOK+11*, NOK+15, NOK+19
SDPHON PATINFO+1~, NOK+1~, EC+1~
SDPHON("CELL" PATINFO+10*, PATINFO+13
SDPHON("E-WORK" EC+9*, EC+42
SDPHON("E2-WORK" EC+10*, EC+43
SDPHON("HOME" PATINFO+4*, PATINFO+11
SDPHON("K-WORK" NOK+6*, NOK+9
SDPHON("K2-WORK" NOK+7*, NOK+11
SDPHON("WORK" PATINFO+7*, PATINFO+12
SDPHON(2 PATINFO+9, PATINFO+10, NOK+5, NOK+6, NOK+7, EC+8, EC+9, EC+10
SDPNODE PROV+1~, PROV+3*, PROV+4
SDPNUM PROV+1~, PROV+2*, PROV+3*
SDPROV PRT+6~, PRT+7*, PRT+19, PROV+4*
SDRNODE RESULTS+11~, RESULTS+13*
>> SDTL EN+5, EN+15, EN+25, PRT+2, PRT+3, PRT+4, PRT+8, PRT+9, PRT+10, PRT+11
SDTOTPG EN+1~, EN+36*
SDTXT RESULTS+11~, RESULTS+12*, RESULTS+13*, RESULTS+15, RESULTS+16*, RESULTS+17
SDTXTR RESULTS+11~, RESULTS+12*, RESULTS+13, RESULTS+19*
>> SDUP EN+4, EN+7, EN+9, EN+11, EN+13, EN+17, EN+19, EN+21, EN+23, EN+27
, EN+29, EN+31, EN+33, EN+35, PRT+19, PRT+20, PRT+21, PRT+22, PRT+23, PRT+25
, PRT+26, PRT+27, PATINFO+11, PATINFO+12, PATINFO+13, NOK+12, NOK+13, NOK+15, NOK+18, NOK+20
, NOK+23, NOK+26, NOK+31, EC+12, EC+16, EC+19, EC+20, EC+22, EC+23, EC+25
, EC+26, EC+30, EC+35, EC+40, EC+42, PROV+3, FUT+10, FUT+14, FUT+16, FUT+18
, RESULTS+15, RESULTS+18, RESULTS+21, RET+1, RET+4*
SDX FUT+2~, FUT+3*, FUT+4
SDXCLIEN PRT+6~, PRT+16*, PROV+3
SDXCLIN EN+1~, EN+6*, EN+7*, EN+9, EN+11, EN+13, EN+14, EN+20*, EN+21*, EN+23
, EN+24, EN+28*, EN+29*, EN+31, EN+33, EN+34, PRT+2, PRT+3, PRT+8, PRT+9
, PRT+18, PRT+19, RET+6
SDXDFN EN+1~, EN+2*, PRT+12*, PRT+18, PATINFO+2, PATINFO+5, PATINFO+8, PATINFO+9, PATINFO+10, NOK+2
, NOK+3, NOK+4, NOK+5, NOK+6, NOK+7, EC+2, EC+4, EC+7, EC+8, EC+9
, EC+10, MHTC+4, FUT+7, FUT+14, FUT+15, RESULTS+10
SDXDIV EN+1~, EN+3*, EN+4*, EN+7, EN+9, EN+11, EN+13, EN+14, EN+17, EN+19
, EN+21, EN+23, EN+24, EN+27, EN+29, EN+31, EN+33, EN+34, PRT+2, PRT+3
, PRT+4, PRT+10, PRT+11, PRT+19, RET+5, RET+6
SDXDT PRT+6~, PRT+14*, PRT+18*
>> SDXFLG( PRT+2*, PRT+3*, PRT+4*, RET+5!, RET+6*
SDXID PRT+6~, PRT+13*, PRT+18
SDXNM EN+1~, EN+8*, EN+9*, EN+11, EN+13, EN+14, EN+18*, EN+19*, EN+21, EN+23
, EN+24, EN+30*, EN+31*, EN+33, EN+34, PRT+10, PRT+11
SDXNODE PRT+6~, PRT+10*, PRT+11*, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17, RESULTS+10
SDXREM EN+1~, EN+2*, EN+26*, EN+27*, EN+29, EN+31, EN+33, EN+34, PRT+8
SDXRLL PRT+6~
SDXSORT1 PRT+6~, PRT+8*, PRT+10, PRT+11
SDXSORT2 PRT+6~, PRT+9*, PRT+10, PRT+11
SDXSTAT PRT+6~, PRT+15*, PRT+19
SDXSTOP EN+1~, EN+10*, EN+11*, EN+13, EN+14, EN+16*, EN+17*, EN+19, EN+21, EN+23
, EN+24, EN+34*, PRT+2, PRT+4, PRT+8, PRT+9, RET+6
SDXSTOPN EN+15~, EN+24*, PRT+2, PRT+4
SDXZERO PRT+6~
>> TOTAL( PRT+19
VA PID+3~
VA("BID" PID+5
VAOA PATINFO+1~, NOK+1~, EC+1~
VAOA("A" PATINFO+5*, NOK+3*, EC+5*, EC+6*
VAROOT PATINFO+1~, PATINFO+2*, PATINFO+5*, NOK+1~, NOK+2*, NOK+3*, EC+1~, EC+5*, EC+6*
X FUT+2~, FUT+3
X1 FUT+2~, FUT+3*
X2 FUT+2~, FUT+3*
>> Y RET+4
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 |  Local Variables |  All