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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCDDVE

Package: Patient Care Component

Routine: APCDDVE


Information

APCDDVE ; IHS/CMI/LAB - AUTO MERGE E VISITS ;

Source Information

Source file <APCDDVE.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
IHS Patient 2 $$HRN^AUPNPAT  DEL^AUPNVSIT  
IHS VA Utilities 2 ^XBDBQUE  $$VALI^XBDIQ1  
Patient Care Component 2 UPDLOG^APCDVDEL  ^APCDVM2  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Patient Care Component Reports 1 $$VD^APCLV  

Entry Points

Name Comments DBIA/ICR reference
RDPV ; Determine to run by Posting date or Visit date
BD ;get beginning date
REPORT ;
DONE ;
PRINT ;EP
PV ;
V1 ;
MRG1 ;call visit merge utility
HEAD ;
ZIS ;call xbdbque
ED ;get ending date
DRIVER ;EP entry point for taskman
PRN1 ;print each set of visits
P ; Run by Posting date
XIT ;EP
V ; Run by visit date
MRG ;find all visits that could be merged to visit in APCDVSIT
HEAD2 ;
SETTMP ;set tmp for report
HEAD1 ;
START ;EP - called from option
PROCESS ;process report
DE2 ;
GETDATES ;
PROC ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
UPDLOG^APCDVDEL MRG1+3
^APCDVM2 MRG1+1
$$VD^APCLV MRG+6
$$HRN^AUPNPAT PRN1+4, PRN1+6
DEL^AUPNVSIT MRG1+4
^DIR RDPV+3, BD+1, ED+1, REPORT+2, DONE+1, HEAD+1
^XBDBQUE ZIS+2
$$VALI^XBDIQ1 SETTMP+2, SETTMP+4
$$FMADD^XLFDT DRIVER+3
$$FMTE^XLFDT PRN1+4, PRN1+6, HEAD2+2, HEAD2+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will go through the visit file, find all instances where there",!,"are 2 'E - Historical Event' visits on the same day to the same location",!,"and AUTOMATICALLY merge them together.",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"You will be asked for a date range for which to run this report.",!,"It takes a long time to process so you may want to queue it to run after hours."
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"You may optionally receive a report detailing which visits where merged ",!,"together.",!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"NO Event Visits in the date range were auto merged.",!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"FROM VISIT: ",?14,$$FMTE^XLFDT($P($P(F,U),"."),"5D"),?26,$$HRN^AUPNPAT($P(F,U,4),DUZ(2),2),?41,$P(^AUTTLOC($P(F,U,5),0),U,7),?47,$P(F,U,6),?65,$P(F,U,7)
  • Line Location: PRN1+4
Function Call: WRITE
  • Prompt: !,?65,$P(^XTMP("APCDDVE",APCDJOB,APCDBT,"E MERGE",APCDC,"FROM"),U,X)
  • Line Location: PRN1+5
Function Call: WRITE
  • Prompt: !," TO VISIT: ",?14,$$FMTE^XLFDT($P(T,U),"5D"),?26,$$HRN^AUPNPAT($P(T,U,4),DUZ(2),2),?41,$P(^AUTTLOC($P(T,U,5),0),U,7),?47,$P(T,U,6),?65,$P(T,U,7)
  • Line Location: PRN1+6
Function Call: WRITE
  • Prompt: !,?65,$P(^XTMP("APCDDVE",APCDJOB,APCDBT,"E MERGE",APCDC,"TO"),U,X)
  • Line Location: PRN1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?50,$$FMTE^XLFDT(DT),?72,"Page ",APCDPG,!
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: !?29,"PCC Data Entry Module"
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: !?23,"*********************************"
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !?23,"* VISIT REVIEW ERROR REPORT *"
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: !?23,"*********************************"
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: !?((80-$L(X))/2),X
  • Line Location: HEAD2+8
Function Call: WRITE
  • Prompt: !!,"Report of Visits Merged for ",$S(APCDPROC="P":"Posting",APCDPROC="V":"VISIT",1:"Posting")," Date Range: ",$$FMTE^XLFDT(APCDBD,"5D")," through ",$$FMTE^XLFDT(APCDED,"5D")
  • Line Location: HEAD2+9
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD2+10
Routine Call
  • DIR
  • Line Location:
    • RDPV+3
    • BD+1
    • ED+1
    • REPORT+2
    • DONE+1
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] P+2, V1+1, PROC+1, PROC+2, PROC+3, PROC+4, PROC+5, MRG+2, MRG+3, MRG+4
, MRG+7, MRG+8, MRG+9, MRG+10, MRG1+2*
^AUPNVSIT("AC" MRG+1
^AUPNVSIT("ADWO" PV+1
^AUPNVSIT("AMRG" P+1
^AUPNVSIT("B" V+1, V+2, V1+1
^AUTTLOC - [#9999999.06] PRN1+4, PRN1+6
^AUTTSITE(1 RDPV+2
^DIC - [#1] SETTMP+3, SETTMP+5, DE2+1, DE2+2
^VA(200 - [#200] HEAD2+2
^XTMP("APCDDVE" DRIVER+2!, DRIVER+3*, PRINT+4, PRINT+5, DONE+3!, PRN1+2, PRN1+3, PRN1+5, PRN1+7, SETTMP+2*
, SETTMP+4*, DE2+2*

Label References

Name Line Occurrences
@( PRINT+3, PROCESS+1
BD ED+2
DE2 SETTMP+3, SETTMP+5
DONE PRINT+2, PRINT+4
GETDATES REPORT+3
HEAD PRN1+1
MRG PROC+6
MRG1 MRG+12
PRN1 PRINT+5
PROC P+2, PV+1, V1+1
PROCESS DRIVER+4
SETTMP MRG+11
V1 V+2
XIT RDPV+4, BD+2, ZIS+3, DONE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+2!, SETTMP+2*, SETTMP+4*
>> %1 SETTMP+2*, SETTMP+4*
%DT XIT+2!
%ZIS XIT+2!
APCDBD BD+3*, ED+1, ED+4, XIT+1!, HEAD2+9
APCDBDFN XIT+1!, P+1*, P+2
APCDBEEP RDPV+1*, XIT+1!
APCDBT DRIVER+1*, DRIVER+2, PRINT+4, PRINT+5, DONE+3, PRN1+2, PRN1+3, PRN1+5, PRN1+7, XIT+1!
, SETTMP+2, SETTMP+4, DE2+2
APCDC DRIVER+1*, PRINT+5*, PRN1+2, PRN1+3, PRN1+5, PRN1+7, XIT+1!, SETTMP+2*, SETTMP+4, DE2+2
APCDED ED+3*, XIT+1!, P+2, V+2, HEAD2+9
APCDET DRIVER+5*, XIT+1!
APCDJOB DRIVER+1*, DRIVER+2, PRINT+4, PRINT+5, DONE+3, PRN1+2, PRN1+3, PRN1+5, PRN1+7, XIT+1!
, SETTMP+2, SETTMP+4, DE2+2
APCDODAT XIT+1!, PV+1, V+1*, V+2*, V1+1
APCDP XIT+1!, SETTMP+3*, SETTMP+5*, DE2+2*
APCDPG PRINT+1*, XIT+1!, HEAD2+1*, HEAD2+2
APCDPROC RDPV+5*, BD+1, ED+1, XIT+1!, PROCESS+1, HEAD2+9
APCDQUIT PRINT+1*, PRINT+5, DONE+1, PRN1+1, XIT+1!, HEAD+1*
APCDRPT REPORT+1*, REPORT+4*, DRIVER+3, PRINT+2, XIT+1!, SETTMP+1
APCDSD ED+4*, XIT+1!, P+1, V+1, V+2
APCDSITE RDPV+1*, RDPV+2*, XIT+1!
APCDV XIT+1!, MRG+1*, MRG+2, MRG+3, MRG+4, MRG+5, MRG+6, MRG+7, MRG+8, MRG+9
, MRG+10, MRG1+1, SETTMP+5
>> APCDVDFN DE2+2*
>> APCDVDG DE2+1*
>> APCDVFLE SETTMP+3*, SETTMP+5*, DE2+1, DE2+2
>> APCDVIGR DE2+1*, DE2+2
>> APCDVIST SETTMP+3*, SETTMP+5*
APCDVMF MRG1+1*, MRG1+2, MRG1+3, MRG1+4, MRG1+5!
APCDVMT MRG1+1*, MRG1+3, MRG1+5!
APCDVREC XIT+1!, PROC+5*, MRG+7, MRG+8, MRG+9
APCDVSIT XIT+1!, P+2*, PV+1*, V1+1*, PROC+1, PROC+2, PROC+3, PROC+4, PROC+5, MRG+5
, MRG+6, MRG+10, MRG1+1, SETTMP+2, SETTMP+3, SETTMP+4
AUPNVSIT MRG1+4*, MRG1+5!
DA REPORT+2!
DFN XIT+1!, PROC+5*, MRG+1
DIR RDPV+3!, BD+1!, ED+1!, REPORT+2!, DONE+1!, HEAD+1!
DIR("A" RDPV+3*, BD+1*, ED+1*, REPORT+2*
DIR("B" RDPV+3*, ED+1*, REPORT+2*
DIR(0 RDPV+3*, BD+1*, ED+1*, REPORT+2*, DONE+1*, HEAD+1*
>> DIRUT RDPV+3*, RDPV+4, BD+1*, BD+2, ED+1*, ED+2, REPORT+3
DLOUT XIT+2!
DT DRIVER+3, HEAD2+2
>> DTOUT HEAD+1
DUOUT RDPV+3, BD+1, ED+1, XIT+2!
DUZ HEAD2+2
DUZ(2 RDPV+1, RDPV+2, PRN1+4, PRN1+6
>> F PRN1+2*, PRN1+4
IO DONE+1, HEAD+1
IO("Q" XIT+2!
IO(0 DONE+1, HEAD+1
IOF START+1, DONE+2, HEAD1+1
IOSL PRN1+1
IOST PRINT+3, DONE+1, HEAD+1
>> T PRN1+3*, PRN1+6
U DRIVER+3, PRN1+4, PRN1+5, PRN1+6, PRN1+7, P+2, PROC+1, PROC+2, PROC+3, PROC+4
, PROC+5, MRG+2, MRG+3, MRG+4, MRG+7, MRG+8, MRG+9, MRG+10, MRG1+2, SETTMP+2
, SETTMP+4, DE2+2, HEAD2+2
X ED+4, PRN1+5*, PRN1+7*, XIT+2!, MRG+10*, HEAD2+7*, HEAD2+8
X1 ED+4*, XIT+2!
X2 ED+4*, XIT+2!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y RDPV+5*, BD+3, ED+1*, ED+3, REPORT+4, XIT+2!, MRG+10*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All