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

Package: Scheduling

Routine: SDRPA00


Information

SDRPA00 ;BP-OIFO/OWAIN,ESW - Patient Appointment Information Transmission ; 11/2/04 11:09am ; 2/24/08 11:25am

Source Information

Source file <SDRPA00.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA Fileman 6 ^%DT  (,NOW)^%DTC  FILE^DICN  ^DIE  ^DIK  ($$GET1,GETS)^DIQ  
Scheduling 5 $$RUNCK^SDRPA02  MSGT^SDRPA04  $$STATUS^SDRPA05  SNDS19^SDRPA07  ($$DPT,$$DTCONV,APPT)^SDRPA08  
Kernel 1 (,$$S,STAT)^%ZTLOAD  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SD-PAIT MANUAL TRANSMISSION  SD-PAIT TASKED TRANSMISSION  

Entry Points

Name Comments DBIA/ICR reference
START ;Tasked entry
EN ;manual entry
GT90DAYS(X1,X2) ; Date is older than Sep 1st 2003, see specs.
; X1 - creation date. More efficient to have it set at the top instead of every time this subroutine is called.
; X2 - comparison date, now sent as Sep 1 2003, both in Vista format cyymmdd
STAT(SDSTTY,SDFF,SDFIN,SDPEN,SDF) ;summarize pending and finals
STMES ;generate start message

External References

Name Field # of Occurrence
^%DT EN+7
^%DTC GT90DAYS+3
NOW^%DTC START+25, START+38, START+60, START+114, STMES+6
^%ZTLOAD EN+13
$$S^%ZTLOAD START+48, START+93
STAT^%ZTLOAD EN+4, START+10
FILE^DICN START+26, START+72, START+124
^DIE START+27, START+51, START+73, START+80, START+125, START+130
^DIK START+91
$$GET1^DIQ START+46, START+53, START+101, START+102
GETS^DIQ STMES+3
$$RUNCK^SDRPA02 EN+2, START+2
MSGT^SDRPA04 START+48, START+93, START+138
$$STATUS^SDRPA05 START+61, START+114
SNDS19^SDRPA07 START+48, START+77, START+93, START+133, START+136
$$DPT^SDRPA08 START+68, START+120
$$DTCONV^SDRPA08 START+75, START+131
APPT^SDRPA08 START+75, START+131
$$SITE^VASITE STMES+8
^XMD START+23, STMES+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You attempted to start PAIT outside the authorized transmission dates.",!,"Job has been terminated.",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"A task is currently active."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Task # "_ZTSK_" queued!"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!,"Task not queued, check Taskman",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,"Task number: ",ZTSK,!
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"NOT AN INTERACTIVE OPTION...schedule through TaskMan",!!
  • Line Location: START+4
Routine Call
  • DIE
  • Line Location:
    • START+27
    • START+51
    • START+73
    • START+80
    • START+125
    • START+130

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.98 GET1^DIQ
^HLCS(870 - [#870] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("ASADM" START+39, START+41, START+44, START+79, START+98
^HLCS(870 - [#870] STMES+2
^SDWL(409.6 - [#409.6] EN+3, EN+4, EN+10, START+6, START+8, START+10, START+32, START+33, START+35, START+50
, START+83, START+87, START+88!
^TMP("SDDPT" START+31!, START+48!, START+77!, START+93!, START+107, START+133!, START+136, START+137!

Label References

Name Line Occurrences
$$GT90DAYS START+65
STAT START+76, START+132
STMES START+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STMES+7
>> %DT EN+7*
>> %DT("A" EN+6*
APPTID START+84~, START+85*, START+87*, START+88, START+91, START+130
ARRAY STMES+3~
ARRAY(870 STMES+5
CMY STMES+9~
CRUNID START+32~*, START+33, START+48, START+50, START+51, START+71, START+80, START+83, START+93, START+123
, START+138
DA START+27*, START+49~, START+51*, START+69~, START+73*, START+80*, START+91*, START+121~, START+125*, START+126~
, START+130*
DA(1 START+71*, START+91*, START+123*, START+129*
DFN START+1~, START+40~*, START+41*, START+44, START+46, START+53, START+61, START+68, START+72, START+75
, START+89*, START+98, START+101, START+102, START+107, START+114, START+120, START+124, START+131
DFNEND START+1~
DIC START+24*, START+27, START+69~, START+71*, START+73, START+121~, START+123*, START+125, START+126~, START+129*
, START+130
DIC("P" START+71*, START+123*
DIC(0 START+24*, START+71*, START+123*
DIE START+27*, START+49~, START+51*, START+73*, START+80*, START+125*, START+130*
DIK START+91~*
DO START+26!, START+72!, START+124!
DR START+27*, START+49~, START+51*, START+73*, START+80*, START+125*, START+130*
DT EN+7*
FIRST START+1~, START+34*, START+35*
REC EN+1~, START+84~, START+87*, START+88, START+89, START+95, START+96
RUNDT START+1~, START+33*
RUNID EN+1~, EN+3*, EN+4, EN+10, START+1~, START+36*, START+82*, START+83*, START+87, START+88
, START+91, START+129
RUNIDP START+1~
SD1 START+7~*, START+10*, START+19, START+20*
SD68 START+1~
SD6A START+1~, START+64*, START+66, START+73, START+116*, START+125
SD87 STMES+1~, STMES+4~*, STMES+5
SD870 STMES+1~, STMES+2*, STMES+3, STMES+4
SD8A START+1~, START+64*, START+66, START+73, START+116*, START+125
SDADT START+42~*, START+43*, START+44*, START+45, START+46, START+53, START+61, START+73, START+75, START+84~
, START+89*, START+91, START+98, START+101, START+102, START+107, START+114, START+125, START+131
SDAMX START+12~, STMES+9~
SDAMX(1 START+17*, STMES+15*
SDAMX(2 START+18*, STMES+16*
SDAMX(3 START+19*, START+21*, STMES+17*
SDAMX(4 START+19*, START+22*, STMES+20*
SDAMX(5 STMES+21*
SDAMX(6 STMES+22*
SDAMX(7 STMES+23*
SDBCID START+48~, START+77, START+93~, START+133, START+136
SDCE START+68~, START+94~, START+120~
SDCL START+52~, START+53*, START+54, START+61, START+63*, START+73, START+75, START+94~, START+102*, START+103
, START+104, START+111, START+113*, START+114, START+117*, START+125, START+131
SDCLL START+63~*, START+117~*
SDCLO START+94~, START+95*, START+104*, START+111, START+113
SDCNT START+1~, START+30*, START+48*, START+93*
SDCNT0 START+1~
SDCOA START+67~*, START+116~*
SDCON EN+5~*, EN+7, EN+10*, EN+12
SDD START+49~, START+50*, START+51, START+79~*, START+80, START+98~*
SDDAM START+1~, START+37*, START+39*, START+41, START+44, START+46, START+65, START+73, START+75, START+94~
, START+101*, START+105*, START+111, START+113*, START+125, START+131
SDDAMO START+94~, START+96*, START+97, START+98*, START+99, START+105, START+111, START+113
SDDT STMES+7~*, STMES+17
SDF START+36~*, START+76, START+132, STAT~, STAT+2*
SDFF START+76*, START+132*, STAT~, STAT+2
SDFIN START+36~*, START+48, START+76, START+93, START+132, START+138, STAT~, STAT+1*
SDI EN+1~, EN+13*
SDLAST START+49~, START+50*
SDMCID START+48~, START+77, START+93~, START+133, START+136
SDMSHA START+67~*, START+116~*
SDOUT START+1~, START+30*, START+39, START+41, START+44, START+48*, START+78, START+83, START+87, START+93*
, START+135
SDPEN START+36~*, START+48, START+76, START+93, START+132, START+138, STAT~, STAT+2*
SDPR START+1~, START+6*, START+7, START+8, START+10, START+18, START+34, START+35
SDPREV START+1~, START+34*, START+35*, START+37
SDREJ START+94~, START+96*, START+119, START+128
SDRET START+69~, START+70~*, START+73, START+122~*, START+125, START+128~*, START+130
SDS STMES+1~
SDST STMES+7~, STMES+8*, STMES+10, STMES+17, STMES+20
SDSTAT START+52~, START+61*, START+62, START+63, START+64, START+67, START+75, START+76, START+94~, START+110*
, START+113*, START+114*, START+115, START+116, START+117, START+118, START+131, START+132, STMES+5*, STMES+17
, STMES+19
SDSTOP START+48~*, START+93~*
SDSTTY START+52~, START+64*, START+65, START+66, START+70, START+76, START+118*, START+119, START+122, START+132
, STAT~, STAT+1, STAT+2
SDTODAY START+114~*
SDTR START+36~*, START+77*, START+133*
STODAY START+60~*, START+61
TODAY START+1~, START+25*, START+38*, START+39, START+79
U EN+10, START+8, START+35, START+50, START+63, START+64, START+67, START+113, START+116, START+117
, START+118
X START+25, START+38, START+60, START+69~, START+72*, START+114, START+121~, START+124*, GT90DAYS+4
X1 GT90DAYS~
X2 GT90DAYS~
XMDUZ START+12~, START+16*, STMES+9~, STMES+14*
XMSUB START+12~, START+13*, STMES+9~, STMES+10*
XMTEXT START+12~, START+15*, STMES+9~, STMES+13*
XMY START+12~
XMY("G.SD-PAIT" START+14*, STMES+11*
XMY("S.SD-PAIT-SERVER@FORUM.VA.GOV" STMES+12*
XMY("VHACIONHD@MED.VA.GOV" STMES+19*
Y EN+1~, EN+7, EN+8, START+27, START+73, START+125
ZTDESC EN+1~, EN+9*
ZTDTH EN+1~, EN+8*
ZTIO EN+1~, EN+8*
ZTRTN EN+1~, EN+8*
ZTSAVE EN+1~
ZTSK EN+1~, EN+4*, EN+5!, EN+13, EN+14, EN+15, EN+16, START+3, START+5, START+9~
, START+10*, START+18, START+27, START+32, START+48, START+77, START+93, START+133, START+136, STMES+15
, STMES+17
ZTSK(1 EN+4, START+10
ZTSKN START+1~, START+5*
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