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

Package: Scheduling

Routine: SDHPIB


Information

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

Source Information

Source file <SDHPIB.m>

Entry Points

Name Comments DBIA/ICR reference
START
GETDFN(SDTATION) ;
DIQLOOK(SDTATION) ;
SENDATA(SDTATION) ;
; sdline is the message line
SETMAIL(SDTATION,SDDFN) ;
LINECALC(SDFIELD,SDLINE) ;
; return length that would be set
SETLINE ;set mailmsg from xtmp array
; $g will preserve piece position if field returned error
GETSDIQ(SDDFN) ;
INITMAIL(FLAG) ;-- This function will initialize mail variables
SMAIL(SDLINE) ;-- Send Mail Message containing records so far
FMAIL(DATA) ;- This function will generate a summary mail message.
DFN(SSN) ;function to lookup DFN from SSN x-ref
; input SSN
; output DFN or error code
INIFLDS ; set up array of fields to be used in fm getsdiq call
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
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
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
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

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.DOMAIN.EXT",!
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call