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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: SDHPIB

Package: Scheduling

Routine: SDHPIB


Information

SDHPIB ;PKE/ALB - Health Services R&D Caregiver Study Main Routine;

Source Information

Source file <SDHPIB.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 HOME^%ZIS  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
MailMan 3 KILL^XM  GET^XMA2  ENT1^XMD  
Registration 1 $$SITE^VASITE  
VA Fileman 1 GETS^DIQ  

Entry Points

Name Comments DBIA/ICR reference
LINECALC(SDFIELD,SDLINE) ;
; return length that would be set
FLDS5 ;;.3601;.36205;.3621;.36215;.3622;.36225;.3623;.36235;.3624;.3625;.36255;.3626;.36265;.3627;.36275;.3628;.36285;.3629;.36295;.525;.5291;57.4;148;1901
INITMAIL(FLAG) ;-- This function will initialize mail variables
FMAIL(DATA) ;- This function will generate a summary mail message.
SETMAIL(SDTATION,SDDFN) ;
FLDS3 ;;.2401;.2402;.2403;.251;.2514;.2515;.252;.253;.254;.255;.256;.257;.258;.291;.2911;.2912;.2913;.2914;.2915;.2916;.2917;.2918;.2919;.292;.2921;.2922;.2923;.2924;.2925;.2926;.2927;.2928;.2929;.293
FLDS4 ;;.301;.3192;.323;.33011;.3305;.331;.331011;.3311;.3312;.3313;.3314;.3315;.3316;.3317;.3318;.3319;.332;.333;.334;.335;.336;.337;.338;.339;.34011;.3405;.341;.342;.343;.344;.345;.346;.347;.348;.349;.351
DFN(SSN) ;function to lookup DFN from SSN x-ref
; input SSN
; output DFN or error code
FLDS2 ;;.131;.132;.14;.21011;.211;.211011;.212;.2125;.213;.214;.215;.216;.217;.218;.219;.2191;.2192;.21925;.2193;.2194;.2195;.2196;.2197;.2198;.2199
DIQLOOK(SDTATION) ;
FLDS1 ;;.01;.02;.03;.033;.05;.06;.07;.08;.09;.103;.104;.1041;.105;.111;.1112;.112;.113;.114;.115;.116;.117;.12105;.1211;.12111;.12112;.1212;.1213;.1214;.1215;.1216;.1217;.1218;.1219
SENDATA(SDTATION) ;
; sdline is the message line
START
SMAIL(SDLINE) ;-- Send Mail Message containing records so far
INIFLDS ; set up array of fields to be used in fm getsdiq call
SETLINE ;set mailmsg from xtmp array
; $g will preserve piece position if field returned error
GETSDIQ(SDDFN) ;
GETDFN(SDTATION) ;

External References

Name Field # of Occurrence
HOME^%ZIS SDHPIB+17
^%ZTLOAD SDHPIB+17
GETS^DIQ GETSDIQ+4
$$SITE^VASITE SDHPIB+6, START+2, INITMAIL+2, FMAIL+2
$$FMTE^XLFDT START+5, FMAIL+11
$$NOW^XLFDT START+5, FMAIL+11
KILL^XM SMAIL+6
GET^XMA2 INITMAIL+7, FMAIL+7
ENT1^XMD SMAIL+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Could not find station number from VASITE"
  • Line Location: SDHPIB+8
Function Call: WRITE
  • Prompt: !?3,">>> VA HSR&D Caregivers Survey <<< ",!
  • Line Location: SDHPIB+10
Function Call: WRITE
  • Prompt: !," Please queue to run at a none peak time."
  • Line Location: SDHPIB+11
Function Call: WRITE
  • Prompt: !," This extract will generate 2 mail messages to you"
  • Line Location: SDHPIB+12
Function Call: WRITE
  • Prompt: !," and to G.SD HPI EXTRACT@ISC-ALBANY.VA.GOV",!
  • Line Location: SDHPIB+13
Function Call: WRITE
  • Prompt: !?30,"Task Number = ",ZTSK,!
  • Line Location: SDHPIB+18
Function Call: WRITE
  • Prompt: !!,"Please set DUZ variables, D ^XUP"
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!?3,">>>... all done"
  • Line Location: START+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETDFN+12
Function Call: WRITE
  • Prompt: "."
  • Line Location: DIQLOOK+10
Function Call: WRITE
  • Prompt: " ."
  • Line Location: SENDATA+9
Routine Call
  • %ZIS
  • Line Location:
    • SDHPIB+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SETMAIL+7, GETSDIQ+25, DFN+13, DFN+16
^DPT("SSN" DFN+5, DFN+8, DFN+11
^XMB(3.9 - [#3.9] SETMAIL+7*, SETMAIL+15*, SETMAIL+22*, SETMAIL+25*, LINECALC+2, SETLINE+2*, SMAIL+4*, FMAIL+8*, FMAIL+9*, FMAIL+10*
, FMAIL+11*, FMAIL+12*, FMAIL+16*, FMAIL+22*, FMAIL+25*, FMAIL+27*, FMAIL+31*
^XTMP("SDHPI" START+3, START+7!, START+8!, START+9!, START+11, GETDFN+4, GETDFN+6, GETDFN+8*, GETDFN+9*, DIQLOOK+6
, SENDATA+5, SETMAIL+11, LINECALC+2, SETLINE+2, GETSDIQ+8*, GETSDIQ+17, GETSDIQ+20*, GETSDIQ+24*, GETSDIQ+25*, FMAIL+19

Label References

Name Line Occurrences
$$DFN GETDFN+7
$$LINECALC SETMAIL+13
DIQLOOK START+22
FLDS1 INIFLDS+1
FLDS2 INIFLDS+2
FLDS3 INIFLDS+3
FLDS4 INIFLDS+4
FLDS5 INIFLDS+5
FMAIL START+13, START+32
GETDFN START+18
GETSDIQ DIQLOOK+7
INIFLDS DIQLOOK+3
INITMAIL SETMAIL+1
SENDATA START+26
SETLINE SETMAIL+18
SETMAIL SENDATA+6
SMAIL SENDATA+13, FMAIL+17, FMAIL+23, FMAIL+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATA FMAIL~, FMAIL+15
DFN DFN+3~, DFN+11*, DFN+13, DFN+16, DFN+18
DT SMAIL+4
DUZ SDHPIB+3, START, INITMAIL+3, FMAIL+3
FLAG INITMAIL~, INITMAIL+4
SDDATA GETSDIQ+1!, GETSDIQ+8, GETSDIQ+9!
SDDFN START+35!, GETDFN+7*, GETDFN+8, GETDFN+9, DIQLOOK+5*, DIQLOOK+6*, DIQLOOK+7, SENDATA+3*, SENDATA+5*, SENDATA+6
, SETMAIL~, SETMAIL+7, SETMAIL+11, LINECALC+2, SETLINE+2, GETSDIQ~, GETSDIQ+4, GETSDIQ+17, GETSDIQ+20, GETSDIQ+24
, GETSDIQ+25
SDERR GETSDIQ+1!, GETSDIQ+10!, GETSDIQ+23*!, GETSDIQ+24, GETSDIQ+27
SDERR("DIERR" GETSDIQ+23, GETSDIQ+24, GETSDIQ+27!
SDFIELD START+34!, SETMAIL+10*, SETMAIL+11*, SETMAIL+13, LINECALC~, LINECALC+2, SETLINE+2, GETSDIQ+14*, GETSDIQ+17, GETSDIQ+20
, GETSDIQ+24
SDFLDS START+35!, GETSDIQ+3*, GETSDIQ+4, GETSDIQ+14
SDFLDS( GETSDIQ+4, GETSDIQ+14
SDFLDS(1 INIFLDS+1*
SDFLDS(2 INIFLDS+2*
SDFLDS(3 INIFLDS+3*
SDFLDS(4 INIFLDS+4*
SDFLDS(5 INIFLDS+5*
SDLINE START+35!, SENDATA+2*, SENDATA+12, SENDATA+13, SETMAIL+1, SETMAIL+3*, SETMAIL+7, SETMAIL+8*, SETMAIL+13, SETMAIL+15
, SETMAIL+16*, SETMAIL+22, SETMAIL+23*, SETMAIL+25, LINECALC~, LINECALC+2, SETLINE+2, SMAIL~, SMAIL+4, FMAIL+14*
, FMAIL+16, FMAIL+17, FMAIL+22, FMAIL+23, FMAIL+25, FMAIL+26*, FMAIL+27, FMAIL+30*, FMAIL+31, FMAIL+34
, FMAIL+35
SDN START+34!, GETDFN+3*, GETDFN+4*, GETDFN+6
SDP START+34!, GETDFN+6*, GETSDIQ+14*
SDPECE START+34!, SETMAIL+4*, SETMAIL+15, SETMAIL+17*, SETMAIL+19*, SETMAIL+22, SETLINE+2
SDSSN START+35!, GETDFN+6*, GETDFN+7, GETDFN+8, GETDFN+9
SDSTART START+5*, START+34!, FMAIL+10
SDTATION SDHPIB+6*, SDHPIB+7, START+2*, START+3, START+9, START+11, START+18, START+22, START+26, START+35!
, GETDFN~, GETDFN+4, GETDFN+6, GETDFN+8, DIQLOOK~, DIQLOOK+6, SENDATA~, SENDATA+6, SETMAIL~, SETMAIL+7
SDZ START+35!, FMAIL+19*, FMAIL+20, FMAIL+27, FMAIL+29*, FMAIL+31, FMAIL+34*
SSN DFN~, DFN+5, DFN+6, DFN+8, DFN+9, DFN+11, DFN+14, DFN+16, DFN+17
U SMAIL+4
>> XMDUZ INITMAIL+3*, FMAIL+3*
>> XMSUB INITMAIL+2*, FMAIL+2*
>> XMY( INITMAIL+3*, FMAIL+3*
>> XMY("G.SD HPI EXTRACT@ISC-ALBANY.VA.GOV" , INITMAIL+5*, FMAIL+4*
>> XMY("S.SD HPI EXTRACT@ISC-ALBANY.VA.GOV" , INITMAIL+6*, FMAIL+5*
>> XMZ SETMAIL+7, SETMAIL+15, SETMAIL+22, SETMAIL+25, LINECALC+2, SETLINE+2, SMAIL+4, FMAIL+8, FMAIL+9, FMAIL+10
, FMAIL+11, FMAIL+12, FMAIL+16, FMAIL+22, FMAIL+25, FMAIL+27, FMAIL+31
>> ZTDESC SDHPIB+16*
>> ZTIO SDHPIB+15*
>> ZTQUEUED START+3, START+14, START+16, START+20, START+24, START+28, GETDFN+12, DIQLOOK+10, SENDATA+9
>> ZTRTN SDHPIB+15*
>> ZTSK SDHPIB+18

Marked Items

Name Field # of Occurrence
$T(FLDS1 INIFLDS+1
$T(FLDS2 INIFLDS+2
$T(FLDS3 INIFLDS+3
$T(FLDS4 INIFLDS+4
$T(FLDS5 INIFLDS+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All