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 |  All
Print Page as PDF
Routine: APCDRDEM

Package: Patient Care Component

Routine: APCDRDEM


Information

APCDRDEM ; IHS/CMI/LAB - report of visits re-linked ;

Source Information

Source file <APCDRDEM.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
VA Fileman 4 (,DD)^%DT  C^%DTC  ^DIK  ^DIR  
IHS VA Utilities 3 ^XBDBQUE  $$VAL^XBDIQ1  EN^XBVK  
IHS Patient 1 ($$HRN,KILL)^AUPNPAT  
Patient Care Component Reports 1 ($$DEMO,DEMOCHK)^APCLUTL  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
DEMO ;
PURGERL ;EP - CALLED FROM OPTION
PURGE ;
TSKMN ;
PRINT ;EP - called from xbdbque
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
INIT ;
HEADER1 ;
EOJ ;
DATE(D) ;EP
GETDATE ;
ZIS ;
XTMP(N,D) ;EP - set xtmp 0 node
ED ;get ending date
DRIVER ;
HEADER ;EP
XIT ;
START ;EP - called from option
TYPE ;
ZIS1
GETDATES ;
PROC ;EP - called from xbdbque

External References

Name Field # of Occurrence
^%DT GETDATE+2
DD^%DT ED+1, ED+4
C^%DTC ED+4, PROC+5
^%ZIS ZIS1
^%ZISC EOJ+3
^%ZTLOAD TSKMN+2
$$DEMO^APCLUTL PROC+8
DEMOCHK^APCLUTL DEMO+1
$$HRN^AUPNPAT PRINT+13
KILL^AUPNPAT XIT+2
^DIK PURGE+3
^DIR TYPE+2, BD+1, ED+1, ZIS+1, HEADER+2
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 PRINT+14
EN^XBVK XIT+1
$$FMADD^XLFDT XTMP+2
$$FMTE^XLFDT PRINT+13, PRINT+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will print a list of visits that were merged into another visit,"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"or that were deleted. If a reason for the deletion/merge can be determined "
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"it will be displayed.",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,"Please enter the range of dates on which the deletion/merge occurred."
  • Line Location: GETDATES+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+4
Function Call: WRITE
  • Prompt: !!,"There are no visits in the Visit Delete/Merge Log for that time period.",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?53,$$FMTE^XLFDT($P(^AUPNVSIT(APCDTV,0),U),2)," (",APCDTV,")"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !!,"Total # of Visits: ",APCDTOT,!
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?($S(80=132:120,1:72)),"Page ",APCDPG,!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !?(80-$L(APCDTEXT)/2),APCDTEXT,!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: ?(80-$L(APCDTEXT)/2),APCDTEXT,!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: $TR($J(" ",80)," ","-")
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,?25,"DELETED/MERGED VISIT",?53,"MERGED TO VISIT"
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !,"HRN",?7,"PATIENT",?25,"DATE/TIME (IEN)",?53,"DATE/TIME (IEN)"
  • Line Location: HEADER1+10
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEADER1+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS1+0
Function Call: WRITE
  • Prompt: !!,"A Total of ",APCDCNT," Entries Purged.",!
  • Line Location: DRIVER+2
Function Call: WRITE
  • Prompt: !!,"Purge Data from Visit Delete/Merge Log!"
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+2
Routine Call
  • DIR
  • Line Location:
    • TYPE+2
    • BD+1
    • ED+1
    • ZIS+1
    • HEADER+2
Routine Call
  • %ZIS
  • Line Location:
    • ZIS1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCDVDEL - [#9001003.92] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDVDEL - [#9001003.92] PROC+6, PROC+7, PROC+8, PRINT+9, PRINT+14
^APCDVDEL("AC" PURGE+1, PURGE+2
^AUPNVSIT - [#9000010] PROC+8, PRINT+12, PRINT+13, PRINT+15
^DD("DD" GETDATE+1, GETDATE+4
^DIC(4 - [#4] HEADER1+3
^DPT - [#2] PRINT+13
^XTMP( XTMP+2*
^XTMP("APCDRDEM" PROC+9*, PRINT+2, PRINT+4, PRINT+7, PRINT+17!

Label References

Name Line Occurrences
BD ED+2, DEMO+2
BROWSE ZIS+3
EOJ PURGERL+3, ZIS1+1, ZIS1+2, DRIVER+3
GETDATE PURGERL+2
HEADER PRINT+2, PRINT+3, PRINT+8
HEADER1 HEADER+1
INIT PURGERL+1
PURGE DRIVER+1
TSKMN ZIS1+2
XIT START+1, TYPE+3, BD+2, ZIS+2, ZIS+3, ZIS+6
XTMP PROC+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TSKMN+1*
%DT GETDATE+2*, EOJ+1!
%DT("A" GETDATE+2*
>> %ZIS ZIS1*
>> APCDBD BD+3*, ED+1, ED+4, PROC+5
>> APCDBDD ED+4*, HEADER1+6
>> APCDBT PROC+2*, PROC+9, PRINT+2, PRINT+4, PRINT+7, PRINT+17
APCDCNT DRIVER+2, INIT+2*, PURGE+3*, EOJ+1!
>> APCDD PRINT+4*, PRINT+7
>> APCDDEMO DEMO+1, DEMO+2, PROC+8
APCDDTP GETDATE+1*, EOJ+1!
APCDDUZ EOJ+1!
>> APCDED ED+3*, ED+4, PROC+6
>> APCDEDD ED+4*, HEADER1+6
>> APCDFV PRINT+10*, PRINT+12, PRINT+13, PRINT+15
>> APCDJOB PROC+2*, PROC+9, PRINT+2, PRINT+4, PRINT+7, PRINT+17
>> APCDN PRINT+9*, PRINT+10, PRINT+11
>> APCDODAT PROC+6*, PROC+7, PROC+9
>> APCDPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+3
APCDPGE GETDATE+4*, PURGE+1, EOJ+1!
APCDPGEY GETDATE+4*, EOJ+1!
APCDQ PRINT+1!, PRINT+4, PRINT+7, PRINT+8, HEADER+2*
APCDQUIT PURGERL+3, INIT+3!, GETDATE+3*
>> APCDR PROC+7*, PROC+8, PROC+9, PRINT+7*, PRINT+9, PRINT+14
>> APCDSD ED+4*, PROC+5*, PROC+6
>> APCDTEXT HEADER1+4*, HEADER1+5, HEADER1+6*, HEADER1+7
>> APCDTOT PROC+2*, PROC+9*, PRINT+16
>> APCDTV PRINT+11*, PRINT+13
>> APCDTYPE TYPE+1*, TYPE+4*, PROC+3
APCDX PURGE+1*, PURGE+2, EOJ+1!
>> APCDXREF PROC+3*, PROC+6, PROC+7
APCDY PURGE+2*, PURGE+3, EOJ+1!
D DATE~, DATE+1, DATE+2, XTMP~, XTMP+2, EOJ+1!
D0 EOJ+1!
D1 EOJ+1!
DA TYPE+2!, ZIS+1!, PURGE+3*, EOJ+1!
>> DFN PRINT+12*, PRINT+13
DIC EOJ+1!
DIE EOJ+1!
>> DIK PURGE+3*
DIR TYPE+2!, BD+1!, ED+1!, ZIS+1!, HEADER+2!
DIR("A" TYPE+2*, BD+1*, ED+1*, ZIS+1*
DIR("B" TYPE+2*, ZIS+1*
DIR(0 TYPE+2*, BD+1*, ED+1*, ZIS+1*, HEADER+2*
>> DIRUT TYPE+3, BD+1*, BD+2, ED+1*, ED+2, ZIS+2
DQ EOJ+1!
DR EOJ+1!
DT XTMP+2, GETDATE+1
>> DTOUT HEADER+2
>> DUOUT BD+1, ED+1
DUZ(2 PRINT+13, HEADER1+3
>> F PROC+8*
IO HEADER+2
IO("Q" ZIS1+2
IO(0 HEADER+2
>> IOCPU TSKMN+2
IOF START+2, HEADER1+1
IOM CTR+1
ION TSKMN+2
IOSL PRINT+8
IOST HEADER+2
N XTMP~, XTMP+1, XTMP+2
POP ZIS1+1, EOJ+1!
U PROC+8, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15, HEADER1+3
X ED+4, PROC+5, CTR~, CTR+1, EOJ+1!
>> X1 ED+4*, PROC+5*
>> X2 ED+4*, PROC+5*
>> XBIOP BROWSE+2*
>> XBNS ZIS+4*, BROWSE+2*
>> XBRC ZIS+4*, BROWSE+2*
>> XBRP ZIS+4*, BROWSE+1*
>> XBRX ZIS+4*, BROWSE+2*
Y TYPE+4, BD+3, ED+1*, ED+3, ED+4*, ZIS+3, CTR~, CTR+1, HEADER+2, GETDATE+1*
, GETDATE+3, GETDATE+4, EOJ+1!
>> ZTCPU TSKMN+2*
>> ZTDESC TSKMN+2*
>> ZTDTH TSKMN+2*
>> ZTIO TSKMN+2*
>> ZTQUEUED EOJ+2
>> ZTREQ EOJ+2*
>> ZTRTN TSKMN+2*
ZTSAVE TSKMN+1!
ZTSAVE( TSKMN+1*
ZTSK EOJ+2!
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 |  All