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

Package Total Call Graph
Scheduling 4 $$CHAR4^SDESUTIL  BEGIN^SDTMPPRC  $$CHAR4DSC^SDTMPUTL  DTS^SDUTL  
VA FileMan 3 ^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Registration 1 2^VADPT  

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

External References

Name Field # of Occurrence
^DIC C+3, M+2, I+2, P+2, S+2, N1
$$GET1^DIQ C+17, C+18, C+19, C+20, C+21, C+22, C+23, C+25, C+26, M+9
M+11, I+11, I+14, I+16, N1+7, SC+6, SC+8, SC+15
GETS^DIQ I+20
^DIR EN+16, L+12
$$CHAR4^SDESUTIL C+10
BEGIN^SDTMPPRC R+1
$$CHAR4DSC^SDTMPUTL C+10
DTS^SDUTL ACT+2, ACT+3
2^VADPT P+4, SC+4, SDINQ+1
$$FMTE^XLFDT M+13, I+19, N1+6, AUDIT+5

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
Routine Call
  • DIC
  • Line Location:
    • C+3
    • M+2
    • I+2
    • P+2
    • S+2
    • N1
Routine Call
  • DIR
  • Line Location:
    • EN+16
    • 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+7, M+5
^DGCN(391.91 - [#391.91] P+5, P+6, SDINQ+2, SDINQ+3
^DIA(44 AUDIT+3, AUDIT+4
^DIC(4 - [#4] C+9, M+6, M+7, I+5, I+6, I+7, 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, SDINQ+1
^DPT("AFICN" N+4, N+5
^SC - [#44] C+5, C+15, C+16, C+17, ACT+1, SI+2, SI+4
^SD(40.6 - [#40.6] L+3
^TMP($J SN+1!, N1*, N1+1, N1+3, N1+11!, AUDIT+2!, AUDIT+5*, AUDIT+6, AUDIT+7, AUDIT+8
^VA(200 - [#200] C+13, C+16
^VA(389.9 - [#389.9] N1+4

Label References

Name Line Occurrences
$$AUDIT C+13
@( EN+18
ACT C+31
C C+3, C+32
EN EN+19
END EN+16
I I+3, I+23
ICN P+17, SDINQ+14
M M+3, M+14
N N+3, N+4, N+7
N1 N1
P P+3, P+20
S S+3, S+9
SC P+19, SDINQ+16
SDCLN N+2
SDHELP N+3
SDINQ N+5
SDMSG N+5
SI C+30
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+5~, I+1!, I+20!, END!
ARR( I+21, I+22
CHAR4 C+1!, C+10*
CHAR4DSC C+1!, C+10*, C+24
CLN AUDIT~, AUDIT+5
CNT SDTMPUT0+5~, L+1!, L+2*, L+4*, L+11, ICN+3*, ICN+5*, ICN+6, ICN+7, END!
CODE SDTMPUT0+5~, S+1!, S+4*, END!
CTRY SDTMPUT0+6~, C+1!, C+4*, C+9*, C+25, M+1!, M+6*, I+1!, I+6*, I+16
, END!
DATE AUDIT+1~, AUDIT+3*, AUDIT+4, AUDIT+5
DEA SDTMPUT0+5~, M+1!, M+7*, M+12, M+13, I+1!, I+7*, I+18, I+19
DFN SDTMPUT0+5~, P+1!, P+4*, P+5, P+8, N+5*, ICN+2, ICN+4, ICN+5, END!
SC+2, SC+6, SC+8, SC+13, SC+14, SC+20, SDINQ+1, SDINQ+2, SDINQ+6, SDCLN+1!
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+16!, 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*, EN+14*, EN+15*, L+12*
DIR(0 EN+2*, L+12*
DIRUT EN+1!, EN+16
DIV SDTMPUT0+5~, C+1!, C+4*, C+5*, C+6, C+7, C+17, END!
DT ACT+1, ACT+3
DTIME N+1
>> DTOUT EN+16, N1+1
DUOUT EN+1!, N1+1
E SI+1~, SI+7*, SI+8*, SI+9
F407 SDTMPUT0+5~, S+1!, S+5*, S+7, L+1!, L+5*, L+7, L+9, END!
FAC SDTMPUT0+5~, I+1!, I+4*, I+7, I+9, I+20, I+21, I+22, END!
FICN SDTMPUT0+5~, ICN+5*, END!, SDCLN+1!
I SI+1~, SI+4*, SI+6, SI+11
ICNHA SDTMPUT0+5~, P+1!, ICN+1!, ICN+7*, END!, SDCLN+1!
ICNHA( P+17, ICN+5*, SDINQ+14
ICNHA(1 ICN+2*, ICN+6*
II SDTMPUT0+5~, C+15*, C+16, 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+5~, C+1!, C+4*, C+9*, M+1!, M+6*, END!
INST SDTMPUT0+5~, C+1!, C+4*, C+8*, C+18, C+19, M+1!, M+5*, M+6, M+7
M+11, END!
INSTD C+1!, C+4*, C+8*, C+9, C+20, C+21
IOF EN
LTZ SDTMPUT0+6~, C+1!, C+4*, C+9*, C+26, M+1!, M+6*, I+1!, I+6*, I+14
END+1!
MCD SDTMPUT0+5~, C+1!, C+4*, C+7*, C+8, M+1!, M+5*, M+10, END!
MPI SDTMPUT0+5~, P+1!, P+4*, P+14, P+15, P+16, END!, SDINQ+1*, SDINQ+5, SDINQ+12
SDINQ+13, SDCLN+1!
N SI+1~, SI+2*, SI+3, SI+4, SI+6, SI+11
NN SC+11~, SC+12*, SC+13*, SC+14
NOD0 C+1!, I+1!
NODE AUDIT+1~, AUDIT+4*, AUDIT+5
NODE0 SDTMPUT0+5~, C+5*, C+8, C+13, C+22, C+23, 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+5~, I+1!, I+5*, I+10, END!
NODE8 SDTMPUT0+5~, I+1!, I+6*, END!
NODE99 SDTMPUT0+5~, I+1!, I+7*, I+17, END!
NUM SC+11~, SC+12*, SC+15*
OPT SDTMPUT0+6~, EN+17*, EN+18, END+1!
PNODE C+1!, C+16*
S SI+1~, SI+9*, SI+10
S407 SDTMPUT0+5~, S+1!, S+5*, S+8, L+1!, L+5*, L+8, END!
SDASH SDTMPUT0+6~, SDTMPUT0+7*, C+11, C+32, M+8, M+14, I+8, I+23, P+7, P+20
S+6, S+9, L+2, L+10, N1+2, N1+12, END+1!, SDINQ+4, SDINQ+17
SDCL SDTMPUT0+5~, C+1!, C+4*, C+5, C+10, C+12, C+13, C+15, C+16, C+17
ACT+1, END!, SI+2, SI+4
SDCNT N+5*, N+6, SDCLN+1!
SDDOD P+1!, P+5*, P+6, SDINQ+2*, SDINQ+3, SDCLN+1!
SDDODN P+1!, P+6*, P+13, SDINQ+3*, SDINQ+11, SDCLN+1!
SDICN N+1*, N+2, N+3, N+4, N+5, SDCLN+1!
SDIEN AUDIT+1~, AUDIT+4*, AUDIT+5
SDIN SDTMPUT0+6~, ACT+1*, ACT+2!, ACT+3!, END+1!
SDNO SDTMPUT0+6~, C+1!, C+5*, ACT+2*, ACT+3, END+1!
SDRAT SC+11~, SC+15*, SC+17
SDRE SDTMPUT0+6~, 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+6~, C+1!, C+5*, C+28, END+1!
SIEN SDTMPUT0+5~, ICN+3*, ICN+4*, ICN+5, END!
STP1 SDTMPUT0+6~, S+1!, S+4*, S+5, S+7, L+1!, L+4*, L+5, L+6, L+7
L+9, END+1!
STP2 SDTMPUT0+6~, S+1!, S+4*, S+5, S+8, L+1!, L+4*, L+5, L+6, L+8
END+1!
SV SI+1~, SI+7*, SI+8
TZEX SDTMPUT0+6~, C+1!, C+4*, C+9*, C+27, M+1!, M+6*, I+1!, I+6*, I+15
END+1!
U C+5, C+8, C+9, C+10, C+13, C+16, C+22, C+23, C+28, M+5
M+6, M+10, M+12, M+13, I+6, I+10, I+11, I+12, I+13, I+17
I+18, I+19, P+6, P+10, P+11, P+12, P+14, P+15, P+16, P+18
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, SDINQ+3, SDINQ+5, SDINQ+8, SDINQ+9, SDINQ+10, SDINQ+12, SDINQ+13
SDINQ+15, SI+2, AUDIT+5, AUDIT+8
VA SDCLN+1!
VADM SDTMPUT0+6~, P+1!, END+1!, SDCLN+1!
VADM(1 P+9, SDINQ+7
VADM(2 P+12, SDINQ+10
VADM(3 P+11, SDINQ+9
VADM(5 P+10, SDINQ+8
VADM(6 P+18, SDINQ+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!, SI+4*, SI+5, SI+6, SI+7
SI+10, AUDIT+1~, AUDIT+7*, AUDIT+8
XX SDTMPUT0+6~, P+1!, P+17*, END+1!, SDINQ+14*, SDCLN+1!
Y EN+16, EN+17, 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+6~, M+1!, M+4*, M+5, M+9, 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