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

Package Total Call Graph
Scheduling 3 $$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  
Health Level Seven 1 $$HLPHONE^HLFNC  
Kernel 1 $$FMTE^XLFDT  

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.
B
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
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
;
RET ;
EN ;PRINT OF THE ^TMP
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+25, NOK+26, NOK+30, NOK+31, EC+40, EC+41, EC+42
, EC+43
$$SDAPI^SDAMA301 FUT+9
HEAD^SDMHAD EN+36, PRT+2, RET+6
HEAD1^SDMHAD PRT+3, B
COUNT^SDMHNS B+1
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 B+15, FUT+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !!,SDCOUNT,?3,$P(^DPT(SDXDFN,0),"^",1),?23,SDXID,?33,SDXDT,?53,$E(SDXCLIN,1,15),?73,$E("*"_SDXSTAT,1,10),!
  • Line Location: B+15
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+14
Function Call: WRITE
  • Prompt: ?45,"NOK2: "_SDNOKNM2
  • Line Location: NOK+15
Function Call: WRITE
  • Prompt: ?7,"Relation: "_SDNOKR
  • Line Location: NOK+19
Function Call: WRITE
  • Prompt: ?45,"Relation: "_SDNOKR2
  • Line Location: NOK+20
Function Call: WRITE
  • Prompt: ?7,"Phone: "_$$HLPHONE^HLFNC(SDNOKPH,,)
  • Line Location: NOK+25
Function Call: WRITE
  • Prompt: ?45,"Phone: "_$$HLPHONE^HLFNC(SDNOKPH2,,)
  • Line Location: NOK+26
Function Call: WRITE
  • Prompt: ?7,"Work Phone: "_$$HLPHONE^HLFNC(SDNOKPO,,)
  • Line Location: NOK+30
Function Call: WRITE
  • Prompt: ?45,"Work Phone: "_$$HLPHONE^HLFNC(SDNOKPO2,,)
  • Line Location: NOK+31
Function Call: WRITE
  • Prompt: !
  • Line Location: NOK+32
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: !,?5,"MHTC: "
  • Line Location: MHTC+1
Function Call: WRITE
  • Prompt: !,?5,"Future Scheduled Appointments: "
  • Line Location: FUT+1
Function Call: WRITE
  • Prompt: !,?7,SDFUTDT,?33,$E($P($P(SDFNODE,"^",2),";",2),1,20)
  • 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] B+14
^DPT - [#2] B+15
^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, B+5, B+6
^TMP($J FUT+14, FUT+15, FUT+20!
^VA(200 - [#200] PROV+4

Label References

Name Line Occurrences
EC B+18
FUT B+21
MHTC B+20
NOK B+17
NOKFL NOK+13, NOK+17, NOK+22, NOK+28
PATINFO B+16
PROV B+19
PRT EN+14, EN+24, EN+34
RESULTS B+22
RET B+15, B+17, B+18, B+19, B+20, B+21, B+22, PATINFO+11, PATINFO+12, PATINFO+13
, NOK+13, NOK+14, NOK+16, NOK+19, NOK+21, NOK+24, NOK+27, NOK+32, 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+4, MHTC+1, FUT+16, RESULTS+2

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
>> 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, B+5, B+6
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
, B+5, B+6
SDCOUNT EN+1~, EN+2*, B+15*, FUT+2~, FUT+9*, FUT+10, FUT+18
SDDSS B+2~, B+14*
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+9
SDEC3(10 NOK+10
SDEC3(8 NOK+10, NOK+12
SDEC3(9 NOK+10
SDEC4 NOK+1~, NOK+11
SDEC4(10 NOK+12
SDEC4(9 NOK+12
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
SDNOK NOK+1~
SDNOK2 NOK+1~
SDNOKFL NOK+1~, NOK+17, NOK+22, NOK+28, NOKFL*
SDNOKNM NOK+1~, NOK+10*, NOK+13, NOK+14
SDNOKNM2 NOK+1~, NOK+12*, NOK+13, NOK+15
SDNOKPH NOK+1~, NOK+10*, NOK+21, NOK+25
SDNOKPH2 NOK+1~, NOK+12*, NOK+21, NOK+26
SDNOKPO NOK+1~, NOK+10*, NOK+27, NOK+30
SDNOKPO2 NOK+1~, NOK+12*, NOK+27, NOK+31
SDNOKR NOK+1~, NOK+10*, NOK+16, NOK+19
SDNOKR2 NOK+1~, NOK+12*, NOK+16, NOK+20
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+10
SDPHON("K2-WORK" NOK+7*, NOK+12
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*
>> SDTL EN+5, EN+15, EN+25, PRT+2, PRT+3, B, B+3, B+4, B+5, B+6
SDTOTPG EN+1~, EN+36*
>> 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, B+15, B+16, B+17, B+18, B+19, B+20
, B+21, B+22, PATINFO+11, PATINFO+12, PATINFO+13, NOK+13, NOK+14, NOK+16, NOK+19, NOK+21
, NOK+24, NOK+27, NOK+32, 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+2, RET+1, RET+4*
SDX FUT+2~, FUT+3*, FUT+4
SDXCLIEN B+2~, B+13*, 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, B+3, B+4
, B+15, RET+6
SDXDFN EN+1~, EN+2*, B+7*, B+15, 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, FUT+7, FUT+14, FUT+15
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
, B, B+5, B+6, B+15, RET+5, RET+6
SDXDT B+2~, B+9*, B+15*
>> SDXFLG( PRT+2*, PRT+3*, B*, RET+5!, RET+6*
SDXID B+2~, B+8*, B+15
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, B+5, B+6
SDXNODE B+2~, B+5*, B+6*, B+7, B+8, B+9, B+10, B+13, B+14
SDXREM EN+1~, EN+2*, EN+26*, EN+27*, EN+29, EN+31, EN+33, EN+34, B+3
SDXRLL B+2~
SDXSORT1 B+2~, B+3*, B+5, B+6
SDXSORT2 B+2~, B+4*, B+5, B+6
SDXSTAT B+2~, B+10*, B+15
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, B, B+3, B+4, RET+6
SDXSTOPN EN+15~, EN+24*, PRT+2, B
SDXZERO B+2~
>> TOTAL( B+15
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