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

Package: Scheduling

Routine: SDTMPUT0


Information

SDTMPUT0 ;MS/SJA - TELEHEALTH SEARCH UTILITY ;Dec 17, 2020

Source Information

Source file <SDTMPUT0.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Registration 1 2^VADPT  
Scheduling 1 DTS^SDUTL  

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 SD TELE INQ  

Entry Points

Name Comments DBIA/ICR reference
EN
C ; Search by clinic
M ; Search by Medical Center Division
I ; search by Institution
P ; search by patient
S ; Telehealth stop code
L ; list Telehealth stop codes
SN ; Search by Station Number
N1
ICN ; full ICN history
ACT ; inactive clinic
END
SC ;SERVICE CONNECTED MESSAGE/IOFO - BAY PINES/TEH

External References

Name Field # of Occurrence
^DIC C+3, M+2, I+2, P+2, S+2, N1
$$GET1^DIQ C+14, C+15, C+16, C+17, C+18, C+19, C+20, M+8, M+10, I+11
I+14, I+16, N1+7, SC+6, SC+8, SC+15
GETS^DIQ I+20
^DIR EN+14, L+12
DTS^SDUTL ACT+2, ACT+3
2^VADPT P+4, SC+4
$$FMTE^XLFDT N1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: ?22,"Telehealth Inquiries",!!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,SDASH,!
  • Line Location: C+8
Function Call: WRITE
  • Prompt: !,"Clinic",?18,": ",$TR(SDCL,"^","-")
  • Line Location: C+9
Function Call: WRITE
  • Prompt: !,"Default Provider",?18,": "
  • Line Location: C+10
Function Call: WRITE
  • Prompt: $P(NODE0,U,13),"-",$P(^VA(200,$P(NODE0,U,13),0),U)
  • Line Location: C+10
Function Call: WRITE
  • Prompt: !,"Provider",?18,": "
  • Line Location: C+11
Function Call: WRITE
  • Prompt: ?20,+PNODE,"-",$P(^VA(200,+PNODE,0),U),?50,$S($P(PNODE,U,2):" << Default >>",1:""),!
  • Line Location: C+13
Function Call: WRITE
  • Prompt: "Medical Division",?18,": ",DIV,"-",$$GET1^DIQ(40.8,DIV,.01)
  • Line Location: C+14
Function Call: WRITE
  • Prompt: !,"Institution",?18,": ",INST,"-",$$GET1^DIQ(4,INST,.01)
  • Line Location: C+15
Function Call: WRITE
  • Prompt: !,"Station Number",?18,": ",$$GET1^DIQ(4,INST_",",99,"E")
  • Line Location: C+16
Function Call: WRITE
  • Prompt: !,"Stop Code",?18,": ",$P(NODE0,U,7),"-",$$GET1^DIQ(40.7,$P(NODE0,U,7),.01)," (",$$GET1^DIQ(40.7,$P(NODE0,U,7),1),")"
  • Line Location: C+17
Function Call: WRITE
  • Prompt: !,"Credit Stop Code",?18,": ",$P(NODE0,U,18),"-",$$GET1^DIQ(40.7,$P(NODE0,U,18),.01)," (",$$GET1^DIQ(40.7,$P(NODE0,U,18),1),")"
  • Line Location: C+18
Function Call: WRITE
  • Prompt: !,"Country",?18,": ",CTRY,"-",$$GET1^DIQ(779.004,CTRY,.01)
  • Line Location: C+19
Function Call: WRITE
  • Prompt: !,"Location Timezone",?18,": ",LTZ,"-",$$GET1^DIQ(1.71,LTZ,.01)
  • Line Location: C+20
Function Call: WRITE
  • Prompt: !,"Timezone Exception",?18,": ",TZEX
  • Line Location: C+21
Function Call: WRITE
  • Prompt: !,"Overbooks per day",?18,": ",$P(SDSL,U,7)
  • Line Location: C+22
Function Call: WRITE
  • Prompt: !,SDASH,!!
  • Line Location: C+24
Function Call: WRITE
  • Prompt: !,$C(7),"Division not found. Please try again."
  • Line Location: M+3
Function Call: WRITE
  • Prompt: !!,SDASH,!
  • Line Location: M+7
Function Call: WRITE
  • Prompt: !,"Medical Division",?18,": ",ZD,"-",$$GET1^DIQ(40.8,ZD,.01)
  • Line Location: M+8
Function Call: WRITE
  • Prompt: !,"Facility Number",?18,": ",$P(MCD,U,2)
  • Line Location: M+9
Function Call: WRITE
  • Prompt: !,"Institution",?18,": ",INST,"-",$$GET1^DIQ(4,INST,.01)
  • Line Location: M+10
Function Call: WRITE
  • Prompt: !,SDASH,!!
  • Line Location: M+11
Function Call: WRITE
  • Prompt: !,$C(7),"Institution not found. Please try again."
  • Line Location: I+3
Function Call: WRITE
  • Prompt: !!,SDASH,!
  • Line Location: I+8
Function Call: WRITE
  • Prompt: !,"Name",?18,": ",$TR(FAC,"^","-")
  • Line Location: I+9
Function Call: WRITE
  • Prompt: !,"City",?18,": ",$P(NODE1,U,3)
  • Line Location: I+10
Function Call: WRITE
  • Prompt: !,"State",?18,": ",$P(NODE0,U,2),"-",$$GET1^DIQ(5,$P(NODE0,U,2),.01)
  • Line Location: I+11
Function Call: WRITE
  • Prompt: !,"District",?18,": ",$P(NODE0,U,3)
  • Line Location: I+12
Function Call: WRITE
  • Prompt: !,"VA region IEN",?18,": ",$P(NODE0,U,7)
  • Line Location: I+13
Function Call: WRITE
  • Prompt: !,"Location Timezone",?18,": ",LTZ,"-",$$GET1^DIQ(1.71,LTZ,.01)
  • Line Location: I+14
Function Call: WRITE
  • Prompt: !,"Timezone Exception",?18,": ",TZEX
  • Line Location: I+15
Function Call: WRITE
  • Prompt: !,"Country",?18,": ",CTRY,"-",$$GET1^DIQ(779.004,CTRY,.01)
  • Line Location: I+16
Function Call: WRITE
  • Prompt: !,"Station #",?18,": ",$P(NODE99,U)
  • Line Location: I+17
Function Call: WRITE
  • Prompt: !,"Facility DEA #:",?18,": ",$P($G(^DIC(4,+FAC,"DEA")),U)
  • Line Location: I+18
Function Call: WRITE
  • Prompt: !,"Facility Exp. date",?18,": ",$P($G(^DIC(4,+FAC,"DEA")),U,2)
  • Line Location: I+19
Function Call: WRITE
  • Prompt: !,"Association",?18,": ",II_"-"_ARR(4.014,II_","_+FAC_",",.01,"E")
  • Line Location: I+21
Function Call: WRITE
  • Prompt: ?40," Parent",": ",II_"-"_ARR(4.014,II_","_+FAC_",",1,"E")
  • Line Location: I+22
Function Call: WRITE
  • Prompt: !,SDASH,!!
  • Line Location: I+23
Function Call: WRITE
  • Prompt: !,$C(7),"Patient not found. Please try again."
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !,"Number (IEN)",?18,": ",DFN
  • Line Location: P+6
Function Call: WRITE
  • Prompt: !,"Name",?18,": ",VADM(1)
  • Line Location: P+7
Function Call: WRITE
  • Prompt: !,"Sex",?18,": ",$P(VADM(5),U,2)
  • Line Location: P+8
Function Call: WRITE
  • Prompt: !,"Date of Birth",?18,": ",$P(VADM(3),U,2)
  • Line Location: P+9
Function Call: WRITE
  • Prompt: !,"SSN",?18,": ",$P(VADM(2),U,2)
  • Line Location: P+10
Function Call: WRITE
  • Prompt: !,"Full ICN",?18,": ",$P(MPI,U,10)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: !,"Integrated Control: ",$P(MPI,U)
  • Line Location: P+12
Function Call: WRITE
  • Prompt: !,"ICN Checksum",?18,": ",$P(MPI,U,2)
  • Line Location: P+13
Function Call: WRITE
  • Prompt: ?20,$G(ICNHA(XX)),!
  • Line Location: P+14
Function Call: WRITE
  • Prompt: "Deceased Date",?18,": ",$P($P(VADM(6),U,2),"@"),!
  • Line Location: P+15
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: P+17
Function Call: WRITE
  • Prompt: !,$C(7),"Telehealth Stop Code not found. Please try again."
  • Line Location: S+3
Function Call: WRITE
  • Prompt: !!,SDASH,!
  • Line Location: S+6
Function Call: WRITE
  • Prompt: !,"Stop Code: ",STP1," > ",$P($G(^DIC(40.7,F407,0)),U)
  • Line Location: S+7
Function Call: WRITE
  • Prompt: !,"Stop Code: ",STP2," > ",$P($G(^DIC(40.7,S407,0)),U)
  • Line Location: S+8
Function Call: WRITE
  • Prompt: !,SDASH,!!
  • Line Location: S+9
Function Call: WRITE
  • Prompt: !!,SDASH,!
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,"Stop Code: ",STP1_STP2
  • Line Location: L+6
Function Call: WRITE
  • Prompt: !,?11,STP1," > ",$P($G(^DIC(40.7,F407,0)),U)
  • Line Location: L+7
Function Call: WRITE
  • Prompt: !,?11,STP2," > ",$P($G(^DIC(40.7,S407,0)),U)
  • Line Location: L+8
Function Call: WRITE
  • Prompt: !,"Stop Code: ",STP1," > ",$P($G(^DIC(40.7,F407,0)),U)
  • Line Location: L+9
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: L+10
Function Call: WRITE
  • Prompt: !,"Total number of Telehealth Stop code: ",CNT,!!
  • Line Location: L+11
Function Call: WRITE
  • Prompt: !!,SDASH
  • Line Location: N1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: N1+3
Function Call: WRITE
  • Prompt: !,"Number: ",II,?35,"Reference Number: ",$P(NODE0,U)
  • Line Location: N1+5
Function Call: WRITE
  • Prompt: !,?2,"Effective Date: "
  • Line Location: N1+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(NODE0,U,2),1)
  • Line Location: N1+6
Function Call: WRITE
  • Prompt: ?35,"Medical Center Division: "
  • Line Location: N1+7
Function Call: WRITE
  • Prompt: $P(NODE0,U,3)_"-",$$GET1^DIQ(40.8,$P(NODE0,U,3),.01)
  • Line Location: N1+7
Function Call: WRITE
  • Prompt: !,?2,"Station Number: ",$P(NODE0,U,4),?35,"Inactive: ",$S($P(NODE0,U,6):"Yes",1:"No")
  • Line Location: N1+8
Function Call: WRITE
  • Prompt: !,?2,"Is Primary Division: ",$S($P(NODE0,U,5):"Yes",1:"No")
  • Line Location: N1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: N1+10
Function Call: WRITE
  • Prompt: !!,SDASH,!
  • Line Location: N1+12
Function Call: WRITE
  • Prompt: !!,?4,"**** Clinic is inactive ",$S(SDRE:"from ",1:"as of "),Y
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: $S(SDRE:" to "_Y,1:"")," ****"
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: !!,?4,"**** Clinic will be inactive ",$S(SDRE:"from ",1:"as of ")
  • Line Location: ACT+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: ACT+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: ACT+3
Function Call: WRITE
  • Prompt: !,?7,"********** THIS PATIENT IS 50% OR GREATER SERVICE-CONNECTED **********",!
  • Line Location: SC+3
Function Call: WRITE
  • Prompt: !,"PATIENT'S SERVICE CONNECTION AND RATED DISABILITIES:"
  • Line Location: SC+5
Function Call: WRITE
  • Prompt: !,"SC Percent: "_$P(VAEL(3),"^",2)_"%"
  • Line Location: SC+7
Function Call: WRITE
  • Prompt: !,"Service Connected: No"
  • Line Location: SC+9
Function Call: WRITE
  • Prompt: !," "_SDRAT_" ("_SDSER_" - "_$P(SDREC,"^",2)_"%)"
  • Line Location: SC+17
Function Call: WRITE
  • Prompt: !,"Primary Eligibility Code: "_$P(VAEL(1),"^",2)
  • Line Location: SC+19
Function Call: WRITE
  • Prompt: !,"No Service Connected Disabilities Listed"
  • Line Location: SC+20
Routine Call
  • DIC
  • Line Location:
    • C+3
    • M+2
    • I+2
    • P+2
    • S+2
    • N1
Routine Call
  • DIR
  • Line Location:
    • EN+14
    • L+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIT(1.71 - [#1.71] GET1^DIQ
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^DIC(31 - [#31] GET1^DIQ
^VA(389.9 - [#389.9] Classic Fileman Calls
^DIC(4 - [#4] Classic Fileman Calls,  GET1^DIQ
4.014 GETS^DIQ
^SD(40.6 - [#40.6] Classic Fileman Calls
^DIC(40.7 - [#40.7] GET1^DIQ
^DG(40.8 - [#40.8] Classic Fileman Calls,  GET1^DIQ
^SC - [#44] Classic Fileman Calls
^DIC(5 - [#5] GET1^DIQ
^HL(779.004 - [#779.004] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] C+6, M+5
^DIC(4 - [#4] C+7, M+6, I+5, I+6, I+7, I+18, I+19, I+20
^DIC(40.7 - [#40.7] S+5, S+7, S+8, L+5, L+7, L+8, L+9
^DPT - [#2] P+4, ICN+2, ICN+4, ICN+5, SC+2, SC+13, SC+14, SC+20
^SC - [#44] C+5, C+6, C+12, C+13, C+14, ACT+1
^SD(40.6 - [#40.6] L+3
^TMP($J SN+1!, N1*, N1+1, N1+3, N1+11!
^VA(200 - [#200] C+10, C+13
^VA(389.9 - [#389.9] N1+4

Label References

Name Line Occurrences
@( EN+16
ACT C+23
C C+3, C+24
EN EN+17
END EN+14
I I+3, I+23
ICN P+14
M M+3, M+11
N1 N1
P P+3, P+17
S S+3, S+9
SC P+16
SN N1+12

Naked Globals

Name Field # of Occurrence
^("I" ACT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR SDTMPUT0+4~, I+1!, I+20!, END!
ARR( I+21, I+22
CNT SDTMPUT0+4~, L+1!, L+2*, L+4*, L+11, ICN+3*, ICN+5*, ICN+6, ICN+7, END!
CODE SDTMPUT0+4~, S+1!, S+4*, END!
CTRY SDTMPUT0+5~, C+1!, C+7*, C+19, M+1!, M+6*, I+1!, I+6*, I+16, END!
DFN SDTMPUT0+4~, P+1!, P+4*, P+6, ICN+2, ICN+4, ICN+5, END!, SC+2, SC+6
SC+8, SC+13, SC+14, SC+20
DIC C+1!, C+2*, M+1!, M+2*!, I+1!, I+2*!, P+1!, P+2*!, S+1!, S+2*!
L+1!, SN+1!, N1*!
DIC("A" C+3*!, P+2*, N1*
DIC("S" C+2*, C+3!
DIC(0 C+2*, M+2*, I+2*, P+2*, S+2*, N1*
DIR EN+1!, EN+14!, L+12!
DIR("A" EN+3*, EN+4*, EN+5*, EN+6*, EN+7*, EN+8*, EN+9*, EN+10*, EN+11*, EN+12*
EN+13*, L+12*
DIR(0 EN+2*, L+12*
DIRUT EN+1!, EN+14
DIV SDTMPUT0+4~, C+1!, C+5*, C+6, C+14, END!
DT ACT+1, ACT+3
>> DTOUT EN+14, N1+1
DUOUT EN+1!, N1+1
F407 SDTMPUT0+4~, S+1!, S+5*, S+7, L+1!, L+5*, L+7, L+9, END!
FAC SDTMPUT0+4~, I+1!, I+4*, I+9, I+18, I+19, I+20, I+21, I+22, END!
FICN SDTMPUT0+4~, ICN+5*, END!
ICNHA SDTMPUT0+4~, P+1!, ICN+1!, ICN+7*, END!
ICNHA( P+14, ICN+5*
ICNHA(1 ICN+2*, ICN+6*
II SDTMPUT0+4~, C+12*, C+13, I+1!, I+20*, I+21, I+22, L+1!, L+3*, L+4
SN+1!, N1+3*, N1+4, N1+5, END!
INSF SDTMPUT0+4~, C+1!, C+7*, M+1!, M+6*, END!
INST SDTMPUT0+4~, C+1!, C+6*, C+7, C+15, C+16, M+1!, M+5*, M+6, M+10
, END!
IOF EN
LTZ SDTMPUT0+5~, C+1!, C+7*, C+20, M+1!, M+6*, I+1!, I+6*, I+14, END+1!
MCD SDTMPUT0+4~, C+1!, C+6*, M+1!, M+5*, M+9, END!
MPI SDTMPUT0+4~, P+1!, P+4*, P+11, P+12, P+13, END!
NN SC+11~, SC+12*, SC+13*, SC+14
NOD0 C+1!, I+1!
NODE0 SDTMPUT0+4~, C+5*, C+10, C+17, C+18, I+5*, I+11, I+12, I+13, SN+1!
N1+4*, N1+5, N1+6, N1+7, N1+8, N1+9, END!
NODE1 SDTMPUT0+4~, I+1!, I+5*, I+10, END!
NODE8 SDTMPUT0+4~, I+1!, I+6*, END!
NODE99 SDTMPUT0+4~, I+1!, I+7*, I+17, END!
NUM SC+11~, SC+12*, SC+15*
OPT SDTMPUT0+5~, EN+15*, EN+16, END+1!
PNODE C+1!, C+13*
S407 SDTMPUT0+4~, S+1!, S+5*, S+8, L+1!, L+5*, L+8, END!
SDASH SDTMPUT0+5~, SDTMPUT0+6*, C+8, C+24, M+7, M+11, I+8, I+23, P+5, P+17
S+6, S+9, L+2, L+10, N1+2, N1+12, END+1!
SDCL SDTMPUT0+4~, C+1!, C+4*, C+5, C+6, C+9, C+12, C+13, C+14, ACT+1
, END!
SDIN SDTMPUT0+5~, ACT+1*, ACT+2!, ACT+3!, END+1!
SDNO SDTMPUT0+5~, C+1!, C+5*, ACT+2*, ACT+3, END+1!
SDRAT SC+11~, SC+15*, SC+17
SDRE SDTMPUT0+5~, ACT+1*, ACT+2!, ACT+3!, END+1!
SDREC SC+11~, SC+14*, SC+15, SC+16, SC+17
SDSER SC+11~, SC+16*, SC+17
SDSL SDTMPUT0+5~, C+1!, C+6*, C+22, END+1!
SIEN SDTMPUT0+4~, ICN+3*, ICN+4*, ICN+5, END!
STP1 SDTMPUT0+5~, S+1!, S+4*, S+5, S+7, L+1!, L+4*, L+5, L+6, L+7
L+9, END+1!
STP2 SDTMPUT0+5~, S+1!, S+4*, S+5, S+8, L+1!, L+4*, L+5, L+6, L+8
END+1!
TZEX SDTMPUT0+5~, C+1!, C+7*, C+21, M+1!, M+6*, I+1!, I+6*, I+15, END+1!
U C+5, C+6, C+7, C+10, C+13, C+17, C+18, C+22, M+5, M+6
M+9, I+6, I+10, I+11, I+12, I+13, I+17, I+18, I+19, P+8
P+9, P+10, P+11, P+12, P+13, P+15, S+4, S+7, S+8, L+7
L+8, L+9, N1+5, N1+6, N1+7, N1+8, N1+9, ACT+1, SC+2
VADM SDTMPUT0+5~, P+1!, END+1!
VADM(1 P+7
VADM(2 P+10
VADM(3 P+9
VADM(5 P+8
VADM(6 P+15
VAEL SC+1~
VAEL(1 SC+19
VAEL(3 SC+6, SC+7, SC+8
X C+3, M+3, I+3, P+3, S+3, S+9!
XX SDTMPUT0+5~, P+1!, P+14*, END+1!
Y EN+14, EN+15, C+3, C+4, M+3, M+4, I+2, I+3, I+4, I+5
I+6, I+7, P+3, P+4, S+3, S+4, S+9!, N1ACT+2*, ACT+3*
ZD SDTMPUT0+5~, M+1!, M+4*, M+5, M+8, END+1!
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