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

Package: Registration

Routine: DG53735P


Information

DG53735P ;EG,TMK - Re-transmit OEF-OIF Data to HEC ; 10/24/2006

Source Information

Source file <DG53735P.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$NEWCP,BMES)^XPDUTL  
VA Fileman 2 ^DIE  ^DIR  
Income Verification Match 1 ($$YEAR,EVENT)^IVMPLOG  
MailMan 1 ^XMD  
Registration 1 $$CVDATE^DGCVRPT  

Entry Points

Name Comments DBIA/ICR reference
STOP(NAMSPC) ; returns stop flag
SET(DFN,CEN,CALC,REASON) ;
BLDLINE(NAMSPC,TEXT,LIN) ;bld line in TMP
TESTID(MESS) ;
LOOP(NAMSPC,TESTING) ;
NAMSPC() ;
SUMRY(LIN,TOTREC,TOTPAT,NAMSPC) ; summary lines
KILIT(POST,NAMSPC) ;
CHKSTAT(POST,NAMSPC) ;check if job is running, stopped, or complete
SETUPX(EXPDAYS,NAMSPC) ;
; requires EXPDAYS - # of days to keep XTMP
TEST ; test entry point
TRANSMIT(DFN) ;
STATUS ; current run status
END ; Post-install done
CHPAT(DFN,CEN,CALC) ; Function returns:
; 0 if no CV End date or CV End date not correct
; 1 if CV End Date correct
; Also returns CEN=CV END DATE ON FILE CALC=CALCULATED CV END DATE
HDNG(NAMSPC,LIN,STAT,STIME,ETIME,TESTING) ; hdr lines
RUN ;entry point from taskman
POST
EP ; Queue the conversion
CHKR(DFN,IEN) ;
MAILIT(HTEXT,DUZ,NAMSPC) ; send mail msg
DEQUE(NAMSPC) ;
UPDATEX(NAMSPC,TOTREC,LASTREC,TOTPAT) ;
QUE
UPDCVED(NAMSPC,DFN,CEN,CALC) ; Update CV end date
ALOEIF(NAMSPC,TESTING,ZTSTOP) ;
MAIL(NAMSPC,TESTING,DUZ) ; stats

External References

Name Field # of Occurrence
^%ZTLOAD QUE+3
$$S^%ZTLOAD STOP+3
$$CVDATE^DGCVRPT CHPAT+8
^DIE UPDCVED+3
^DIR TESTID+3
$$YEAR^IVMPLOG CHKR+11
EVENT^IVMPLOG TRANSMIT+3
$$FMADD^XLFDT SETUPX+4
$$FMTE^XLFDT STATUS+6, STATUS+8, HDNG+6
$$NOW^XLFDT QUE+2, DEQUE+6, DEQUE+12, SETUPX+3, STOP+7
^XMD MAILIT+6
$$NEWCP^XPDUTL EP+2, EP+3
BMES^XPDUTL POST+1, POST+3, POST+4, POST+5, END+1, RUN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,"Ending To Date can't be less than starting To Date"
  • Line Location: TEST+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: TESTID+3
Function Call: WRITE
  • Prompt: !!,"Task not started!!!"
  • Line Location: STATUS+4
Function Call: WRITE
  • Prompt: !!," Current status: ",$P(X,U,6)
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: !," Starting time: ",$$FMTE^XLFDT($P(X,U,7))
  • Line Location: STATUS+6
Function Call: WRITE
  • Prompt: !," Ending time: ",$$FMTE^XLFDT($P(X,U,8))
  • Line Location: STATUS+8
Function Call: WRITE
  • Prompt: !!," Total patient records read: ",$P(X,U,2)
  • Line Location: STATUS+9
Function Call: WRITE
  • Prompt: !," Last ALOEIF xref processed: ",$P(X,U,1)
  • Line Location: STATUS+10
Function Call: WRITE
  • Prompt: !," Total patient records set for re-transmit: ",$P(X,U,10)
  • Line Location: STATUS+11
Routine Call
  • DIE
  • Line Location:
    • UPDCVED+3
Routine Call
  • DIR
  • Line Location:
    • TESTID+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CHKR+12, CHPAT+7
^DPT("ALOEIF" ALOEIF+8, ALOEIF+9, ALOEIF+10
^IVM(301.5 CHKR+11
^TMP( MAIL+11!, HDNG+2!, BLDLINE+2*
^XTMP( RUN+6!, TEST+5!, TEST+11*, DEQUE+4, DEQUE+7*, DEQUE+10, DEQUE+13*, DEQUE+17, SETUPX+5*, SETUPX+6*
, LOOP+5, LOOP+6, ALOEIF+5, CHPAT+16*, UPDCVED+4*, SET+1*, UPDATEX+2, UPDATEX+5*, STATUS+3, STOP+4!
, STOP+6, STOP+8*, MAIL+2, CHKSTAT+1, KILIT+1!

Label References

Name Line Occurrences
$$CHKSTAT RUN+3, TEST+4
$$CHPAT CHKR+6
$$LOOP DEQUE+9
$$NAMSPC RUN+2, TEST+2, STATUS+2
$$STOP CHKR+20
$$TESTID TEST+6, TEST+8
ALOEIF LOOP+13
BLDLINE HDNG+5, HDNG+7, HDNG+8, HDNG+11, HDNG+12, SUMRY+3, SUMRY+5
CHKR ALOEIF+10
DEQUE RUN+6, TEST+12
HDNG MAIL+8
KILIT CHKSTAT+3
MAIL DEQUE+15
MAILIT MAIL+10
QUE POST+2
SET CHKR+14, CHPAT+10, CHPAT+21
SETUPX DEQUE+3
SUMRY MAIL+9
TRANSMIT CHKR+7, CHKR+15
UPDATEX CHKR+18
UPDCVED CHPAT+10, CHPAT+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EP+1~, EP+2*, EP+3*
BEGTIME SETUPX+2~, SETUPX+3*, SETUPX+4, SETUPX+5
CALC CHKR+1~, CHKR+6, CHKR+14, CHPAT~, CHPAT+6*, CHPAT+8*, CHPAT+10, CHPAT+16, CHPAT+18, CHPAT+19
, CHPAT+20, CHPAT+21, UPDCVED~, UPDCVED+2, UPDCVED+4, SET~, SET+1
CEN CHKR+1~, CHKR+6, CHKR+14, CHPAT~, CHPAT+6*, CHPAT+7*, CHPAT+10, CHPAT+12, CHPAT+16, CHPAT+18
, CHPAT+19, CHPAT+20, CHPAT+21, UPDCVED~, UPDCVED+4, SET~, SET+1
CONF ALOEIF+1~, ALOEIF+8*, ALOEIF+9*, ALOEIF+10, CHKR+17
DA UPDCVED+1~, UPDCVED+2*
DFN ALOEIF+1~, ALOEIF+9*, ALOEIF+10, CHKR~, CHKR+6, CHKR+7, CHKR+11, CHKR+12, CHKR+14, CHKR+15
, CHKR+17, TRANSMIT~, TRANSMIT+3, CHPAT~, CHPAT+7, CHPAT+8, CHPAT+10, CHPAT+15, CHPAT+16, CHPAT+19
, CHPAT+21, UPDCVED~, UPDCVED+2, UPDCVED+4, SET~, SET+1
DGARRY CHPAT+5~, CHPAT+8
DGARRY("OEF/OIF" CHPAT+13, CHPAT+16
DGARRY(2 CHPAT+15
DGOK CHPAT+5~, CHPAT+10*, CHPAT+20*, CHPAT+22*, CHPAT+23
DGX TESTID+1~, TESTID+4*, TESTID+5*, TESTID+6
DIE UPDCVED+1~, UPDCVED+2*
DIR TESTID+1~, TESTID+3!
DIR("A" TESTID+2*
DIR(0 TESTID+2*
DR UPDCVED+1~, UPDCVED+2*
DTOUT TESTID+1~, TESTID+5
DUOUT TESTID+1~, TESTID+5
DUZ DEQUE+15, MAIL~, MAIL+10, MAILIT~, MAILIT+2
END ALOEIF+1~, ALOEIF+3*, ALOEIF+6*, ALOEIF+8
ENDDT TEST+1~, TEST+8*, TEST+9, TEST+10, TEST+11
ETIME MAIL+1~, MAIL+5*, MAIL+8, HDNG~, HDNG+6
EXPDAYS SETUPX~, SETUPX+4
FIRST ALOEIF+1~
FIRST("CONF" ALOEIF+7*, ALOEIF+8*
FIRST("DFN" ALOEIF+7*, ALOEIF+9*
FIRST("FRDT" ALOEIF+7*, ALOEIF+8*
FIRST("IEN" ALOEIF+7*, ALOEIF+9*
FRDT ALOEIF+1~, ALOEIF+8*, ALOEIF+9, ALOEIF+10, CHKR+17
HTEXT HDNG+1~, HDNG+4*, HDNG+5, HDNG+6*, HDNG+7, MAILIT~, MAILIT+4
IEN ALOEIF+1~, ALOEIF+9*, ALOEIF+10*, CHKR~, CHKR+12, CHKR+17
LASTREC LOOP+2~, LOOP+3*, LOOP+8*, ALOEIF+3, ALOEIF+7, CHKR+17*, CHKR+18, UPDATEX~, UPDATEX+3
LD CHKR+10~, CHKR+11*, CHKR+13
LIN MAIL+8, MAIL+9, HDNG~, HDNG+3*, HDNG+5, HDNG+7, HDNG+8, HDNG+11, HDNG+12, SUMRY~
, SUMRY+3, SUMRY+5, BLDLINE~, BLDLINE+1*, BLDLINE+2
LOEIF CHKR+10~, CHKR+12*, CHKR+13
LSSD CHPAT+14~, CHPAT+15*, CHPAT+16
LTR CHKR+10~, CHKR+11*, CHKR+13
MESS TESTID~, TESTID+2
NAMSPC RUN+1~, RUN+2*, RUN+3, RUN+6, TEST+1~, TEST+2*, TEST+4, TEST+5, TEST+11, TEST+12
, DEQUE~, DEQUE+3, DEQUE+4, DEQUE+7, DEQUE+9, DEQUE+10, DEQUE+13, DEQUE+15, DEQUE+17, SETUPX~
, SETUPX+5, SETUPX+6, LOOP~, LOOP+5, LOOP+6, LOOP+13, ALOEIF~, ALOEIF+5, CHKR+18, CHKR+20
, CHPAT+10, CHPAT+16, CHPAT+19, UPDCVED~, UPDCVED+4, SET+1, UPDATEX~, UPDATEX+2, UPDATEX+5, STATUS+1~
, STATUS+2*, STATUS+3, STOP~, STOP+4, STOP+6, STOP+8, MAIL~, MAIL+2, MAIL+8, MAIL+9
, MAIL+10, MAIL+11, HDNG~, HDNG+2, HDNG+5, HDNG+7, HDNG+8, HDNG+11, HDNG+12, SUMRY~
, SUMRY+3, SUMRY+5, BLDLINE~, BLDLINE+2, MAILIT~, CHKSTAT~, CHKSTAT+1, CHKSTAT+3, KILIT~, KILIT+1
POST CHKSTAT~, CHKSTAT+3, KILIT~, KILIT+1
PURGDT SETUPX+2~, SETUPX+4*, SETUPX+5
REASON SET~, SET+1
STARTDT TEST+1~, TEST+6*, TEST+7, TEST+10, TEST+11
STAT MAIL+1~, MAIL+4*, MAIL+8, HDNG~, HDNG+4
STIME MAIL+1~, MAIL+4*, MAIL+8, HDNG~
TESTING RUN+5~, RUN+6*, TEST+1~, TEST+3*, DEQUE+2~*, DEQUE+9, DEQUE+15, DEQUE+16!, LOOP~, LOOP+13
, ALOEIF~, ALOEIF+4, TRANSMIT+2, MAIL~, MAIL+8, HDNG~, HDNG+9
TEXT HDNG+1~, HDNG+10*, HDNG+11, SUMRY+1~, SUMRY+2*, SUMRY+3, SUMRY+4*, SUMRY+5, BLDLINE~, BLDLINE+2
TODT ALOEIF+1~, ALOEIF+3*, ALOEIF+6*, ALOEIF+8*, ALOEIF+9, ALOEIF+10, CHKR+17
TOTPAT LOOP+2~, LOOP+11*, CHKR+18, TRANSMIT+1*, UPDATEX~, UPDATEX+4, MAIL+1~, MAIL+6*, MAIL+9, SUMRY~
, SUMRY+4
TOTREC LOOP+2~, LOOP+4*, LOOP+10*, CHKR+3*, CHKR+18, CHKR+20, UPDATEX~, UPDATEX+3, MAIL+1~, MAIL+3*
, MAIL+9, SUMRY~, SUMRY+2
U TEST+11, DEQUE+5, DEQUE+6, DEQUE+11, DEQUE+12, SETUPX+5, SETUPX+6, LOOP+8, LOOP+10, LOOP+11
, ALOEIF+6, CHKR+11, CHKR+12, CHPAT+7, CHPAT+16, SET+1, UPDATEX+3, UPDATEX+4, STATUS+5, STATUS+6
, STATUS+7, STATUS+8, STATUS+9, STATUS+10, STATUS+11, STOP+7, MAIL+3, MAIL+4, MAIL+5, MAIL+6
X TEST+1~, TEST+4*, TESTID+1~, DEQUE+1~, DEQUE+4*, DEQUE+5*, DEQUE+6*, DEQUE+7, DEQUE+10*, DEQUE+11*
, DEQUE+12*, DEQUE+13, LOOP+2~, ALOEIF+1~, ALOEIF+5*, ALOEIF+6, CHKR+1~, CHPAT+5~, UPDCVED+1~, UPDATEX+1~
, UPDATEX+2*, UPDATEX+3*, UPDATEX+4*, UPDATEX+5, STATUS+1~, STATUS+3*, STATUS+4, STATUS+5, STATUS+6, STATUS+7
, STATUS+8, STATUS+9, STATUS+10, STATUS+11, STOP+1~, STOP+6*, STOP+7*, STOP+8, MAIL+1~, MAIL+2*
, MAIL+3, MAIL+4, MAIL+5, MAIL+6, HDNG+1~, SUMRY+1~
XMDUZ MAILIT+1~, MAILIT+2*
XMSUB MAILIT+1~, MAILIT+4*
XMTEXT MAILIT+1~, MAILIT+5*
XMY MAILIT+1~
XMY( MAILIT+2*
XMY("G.DGEN E LIGIBILITY ALERT" , MAILIT+3*
XREC LOOP+2~, LOOP+6*, LOOP+8, LOOP+10, LOOP+11
Y TESTID+1~, TESTID+4, UPDCVED+1~
ZTDESC QUE~, QUE+1*
ZTDTH QUE~, QUE+2*
ZTIO QUE~, QUE+2*
ZTRTN QUE~, QUE+1*
ZTSAVE QUE~
ZTSK POST~, POST+3
ZTSTOP DEQUE+9*, DEQUE+11, LOOP+3*, LOOP+13, LOOP+14, ALOEIF~, ALOEIF+2*, ALOEIF+8*, ALOEIF+9, ALOEIF+10
, CHKR+20*, STOP+2*, STOP+3*, STOP+4*, STOP+5, STOP+10

Marked Items

Name Field # of Occurrence
$T( NAMSPC+1
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