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

Package: Scheduling

Routine: SDTMPUT0


Information

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

Source Information

Source file <SDTMPUT0.m>

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
N ; search by ICN
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
SDINQ ;Print inquiry
SDMSG ;Print warning for multiple ICN
SDCLN ;Clean up variables
SDHELP ;Help text
SI ;Parse and display special instructions
R ;Clinic schedule queuing report
AUDIT(CLN) ; default provider audit

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+17
Function Call: WRITE
  • Prompt: !!,SDASH
  • Line Location: C+11
Function Call: WRITE
  • Prompt: !,"Clinic",?18,": ",$TR(SDCL,"^","-")
  • Line Location: C+12
Function Call: WRITE
  • Prompt: !,"Default Provider",?18,": "
  • Line Location: C+13
Function Call: WRITE
  • Prompt: $P(NODE0,U,13),"-",$P(^VA(200,$P(NODE0,U,13),0),U)
  • Line Location: C+13
Function Call: WRITE
  • Prompt: $P(NODE0,U,13),"-",$P(^VA(200,$P(NODE0,U,13),0),U)
  • Line Location: C+13
Function Call: WRITE
  • Prompt: !,"Provider",?18,": "
  • Line Location: C+14
Function Call: WRITE
  • Prompt: ?20,+PNODE,"-",$P(^VA(200,+PNODE,0),U),?50,$S($P(PNODE,U,2):" << Default >>",1:""),!
  • Line Location: C+16
Function Call: WRITE
  • Prompt: "Medical Division",?18,": "
  • Line Location: C+17
Function Call: WRITE
  • Prompt: DIV,"-",$$GET1^DIQ(40.8,DIV,.01)
  • Condition for execution: DIV
  • Line Location: C+17
Function Call: WRITE
  • Prompt: !,"Institution",?18,": "
  • Line Location: C+18
Function Call: WRITE
  • Prompt: INST,"-",$$GET1^DIQ(4,INST,.01)
  • Condition for execution: INST
  • Line Location: C+18
Function Call: WRITE
  • Prompt: !,"Station Number",?18,": ",$$GET1^DIQ(4,INST_",",99,"E")
  • Line Location: C+19
Function Call: WRITE
  • Prompt: !,"Instit.(derived)",?18,": "
  • Line Location: C+20
Function Call: WRITE
  • Prompt: INSTD,"-",$$GET1^DIQ(4,INSTD,.01)
  • Condition for execution: INSTD
  • Line Location: C+20
Function Call: WRITE
  • Prompt: !,"Station (derived)",?18,": ",$$GET1^DIQ(4,INSTD_",",99,"E")
  • Line Location: C+21
Function Call: WRITE
  • Prompt: !,"Stop Code",?18,": "
  • Line Location: C+22
Function Call: WRITE
  • Prompt: $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+22
Function Call: WRITE
  • Prompt: !,"Credit Stop Code",?18,": "
  • Line Location: C+23
Function Call: WRITE
  • Prompt: $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+23
Function Call: WRITE
  • Prompt: !,"CHAR4",?18,": "
  • Line Location: C+24
Function Call: WRITE
  • Prompt: CHAR4DSC
  • Condition for execution: $D(CHAR4DSC)
  • Line Location: C+24
Function Call: WRITE
  • Prompt: !,"Country",?18,": "
  • Line Location: C+25
Function Call: WRITE
  • Prompt: CTRY,"-",$$GET1^DIQ(779.004,CTRY,.01)
  • Condition for execution: $D(CTRY)
  • Line Location: C+25
Function Call: WRITE
  • Prompt: !,"Location Timezone",?18,": "
  • Line Location: C+26
Function Call: WRITE
  • Prompt: LTZ,"-",$$GET1^DIQ(1.71,LTZ,.01)
  • Condition for execution: $D(LTZ)
  • Line Location: C+26
Function Call: WRITE
  • Prompt: !,"Timezone Exception",?18,": ",TZEX
  • Line Location: C+27
Function Call: WRITE
  • Prompt: !,"Overbooks per day",?18,": "
  • Line Location: C+28
Function Call: WRITE
  • Prompt: $P(SDSL,U,7)
  • Condition for execution: $D(SDSL)
  • Line Location: C+28
Function Call: WRITE
  • Prompt: !,"Spec Instructions",?18,":"
  • Line Location: C+29
Function Call: WRITE
  • Prompt: !,SDASH,!
  • Line Location: C+32
Function Call: WRITE
  • Prompt: !,$C(7),"Division not found. Please try again."
  • Line Location: M+3
Function Call: WRITE
  • Prompt: !!,SDASH,!
  • Line Location: M+8
Function Call: WRITE
  • Prompt: !,"Medical Division",?18,": "
  • Line Location: M+9
Function Call: WRITE
  • Prompt: ZD,"-",$$GET1^DIQ(40.8,ZD,.01)
  • Condition for execution: ZD
  • Line Location: M+9
Function Call: WRITE
  • Prompt: !,"Facility Number",?18,": ",$P(MCD,U,2)
  • Line Location: M+10
Function Call: WRITE
  • Prompt: !,"Institution",?18,": "
  • Line Location: M+11
Function Call: WRITE
  • Prompt: INST,"-",$$GET1^DIQ(4,INST,.01)
  • Condition for execution: INST
  • Line Location: M+11
Function Call: WRITE
  • Prompt: !,"Facility DEA #",?18,": ",$P(DEA,U)
  • Line Location: M+12
Function Call: WRITE
  • Prompt: !,"Facility Exp. date",?18,": ",$$FMTE^XLFDT($P(DEA,U,2),2)
  • Line Location: M+13
Function Call: WRITE
  • Prompt: !,SDASH,!!
  • Line Location: M+14
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,": "
  • Line Location: I+11
Function Call: WRITE
  • Prompt: $P(NODE0,U,2),"-",$$GET1^DIQ(5,$P(NODE0,U,2),.01)
  • Condition for execution: $P(NODE0,U,2)
  • 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,": "
  • Line Location: I+14
Function Call: WRITE
  • Prompt: LTZ,"-",$$GET1^DIQ(1.71,LTZ,.01)
  • Condition for execution: LTZ
  • Line Location: I+14
Function Call: WRITE
  • Prompt: !,"Timezone Exception",?18,": ",TZEX
  • Line Location: I+15
Function Call: WRITE
  • Prompt: !,"Country",?18,": "
  • Line Location: I+16
Function Call: WRITE
  • Prompt: CTRY,"-",$$GET1^DIQ(779.004,CTRY,.01)
  • Condition for execution: CTRY
  • 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(DEA,U)
  • Line Location: I+18
Function Call: WRITE
  • Prompt: !,"Facility Exp. date",?18,": ",$$FMTE^XLFDT($P(DEA,U,2),2)
  • Line Location: I+19
Function Call: WRITE
  • Prompt: !,"Association"
  • Line Location: I+21
Function Call: WRITE
  • Prompt: ?18,": ",II_"-"_ARR(4.014,II_","_+FAC_",",.01,"E")
  • Condition for execution: II
  • Line Location: I+21
Function Call: WRITE
  • Prompt: ?40," Parent",": "
  • Line Location: I+22
Function Call: WRITE
  • Prompt: II_"-"_ARR(4.014,II_","_+FAC_",",1,"E")
  • Condition for execution: II
  • 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+7
Function Call: WRITE
  • Prompt: !,"Number (IEN)",?18,": ",DFN
  • Line Location: P+8
Function Call: WRITE
  • Prompt: !,"Name",?18,": ",VADM(1)
  • Line Location: P+9
Function Call: WRITE
  • Prompt: !,"Sex",?18,": ",$P(VADM(5),U,2)
  • Line Location: P+10
Function Call: WRITE
  • Prompt: !,"Date of Birth",?18,": ",$P(VADM(3),U,2)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: !,"SSN",?18,": ",$P(VADM(2),U,2)
  • Line Location: P+12
Function Call: WRITE
  • Prompt: !,"DOD Number",?18,": ",$G(SDDODN)
  • Line Location: P+13
Function Call: WRITE
  • Prompt: !,"Full ICN",?18,": ",$P(MPI,U,10)
  • Line Location: P+14
Function Call: WRITE
  • Prompt: !,"Integrated Control: ",$P(MPI,U)
  • Line Location: P+15
Function Call: WRITE
  • Prompt: !,"ICN Checksum",?18,": ",$P(MPI,U,2)
  • Line Location: P+16
Function Call: WRITE
  • Prompt: ?20,$G(ICNHA(XX)),!
  • Line Location: P+17
Function Call: WRITE
  • Prompt: "Deceased Date",?18,": ",$P($P(VADM(6),U,2),"@"),!
  • Line Location: P+18
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: P+20
Function Call: WRITE
  • Prompt: !,"Select ICN: "
  • Line Location: N+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: N+4
Function Call: WRITE
  • Prompt: !,"Records Found: ",SDCNT,!
  • Line Location: N+6
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)
  • Condition for execution: $P(NODE0,U,3)
  • 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
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: SDINQ+4
Function Call: WRITE
  • Prompt: !,"Full ICN",?18,": ",$P(MPI,U,10)
  • Line Location: SDINQ+5
Function Call: WRITE
  • Prompt: !,"Number (IEN)",?18,": ",DFN
  • Line Location: SDINQ+6
Function Call: WRITE
  • Prompt: !,"Name",?18,": ",VADM(1)
  • Line Location: SDINQ+7
Function Call: WRITE
  • Prompt: !,"Sex",?18,": ",$P(VADM(5),U,2)
  • Line Location: SDINQ+8
Function Call: WRITE
  • Prompt: !,"Date of Birth",?18,": ",$P(VADM(3),U,2)
  • Line Location: SDINQ+9
Function Call: WRITE
  • Prompt: !,"SSN",?18,": ",$P(VADM(2),U,2)
  • Line Location: SDINQ+10
Function Call: WRITE
  • Prompt: !,"DOD Number",?18,": ",$G(SDDODN)
  • Line Location: SDINQ+11
Function Call: WRITE
  • Prompt: !,"Integrated Control: ",$P(MPI,U)
  • Line Location: SDINQ+12
Function Call: WRITE
  • Prompt: !,"ICN Checksum",?18,": ",$P(MPI,U,2)
  • Line Location: SDINQ+13
Function Call: WRITE
  • Prompt: ?20,$G(ICNHA(XX)),!
  • Line Location: SDINQ+14
Function Call: WRITE
  • Prompt: "Deceased Date",?18,": ",$P($P(VADM(6),U,2),"@"),!
  • Line Location: SDINQ+15
Function Call: WRITE
  • Prompt: !,SDASH,!
  • Line Location: SDINQ+17
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: SDMSG+1
Function Call: WRITE
  • Prompt: "More than one Patient ICN exists in this VistA System, please contact your",!
  • Line Location: SDMSG+2
Function Call: WRITE
  • Prompt: "local Health Administration Services. If this is related to an INTRAfacility",!
  • Line Location: SDMSG+3
Function Call: WRITE
  • Prompt: "action, enter a Service Now ticket with your local HAS Office. If this is",!
  • Line Location: SDMSG+4
Function Call: WRITE
  • Prompt: "related to an INTERfacility action, enter an IAM Toolkit Request at",!
  • Line Location: SDMSG+5
Function Call: WRITE
  • Prompt: "http://vaww.vhadataportal.domain.ext/PolicyAdmin/HealthcareIdentityManagement.aspx",!
  • Line Location: SDMSG+6
Function Call: WRITE
  • Prompt: !," Enter the local or national Integration Control Number (ICN)",!
  • Line Location: SDHELP+1
Function Call: WRITE
  • Prompt: " assigned to the patient.",!
  • Line Location: SDHELP+2
Function Call: WRITE
  • Prompt: ?20,X
  • Line Location: SI+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I<N
  • Line Location: SI+6
Function Call: WRITE
  • Prompt: ?20,$E(X,1,S-1),!,?22,$E(X,S,99)
  • Line Location: SI+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SI+11

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