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

Package: Patient Care Component

Routine: APCDDUPP


Information

APCDDUPP ; IHS/CMI/LAB - find and delete duplicate visits ;

Source Information

Source file <APCDDUPP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS VA Utilities 3 $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
IHS Patient 2 KILL^AUPNPAT  MOD^AUPNVSIT  
VA Fileman 2 ^DIK  ^DIR  
Kernel 1 $$FMADD^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
DATES ;
PROCESS ;
EOJ ;
GETDATES ;
CHECK ;
DELETE ;

External References

Name Field # of Occurrence
KILL^AUPNPAT EOJ+3
MOD^AUPNVSIT DELETE+5
^DIK DELETE+4
^DIR DATES+3, DATES+5, DATES+11
$$VAL^XBDIQ1 DELETE+2
^XBFMK EOJ+2, DELETE+4
EN^XBVK APCDDUPP+6, EOJ+1
$$FMADD^XLFDT DATES+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will find all visits that have duplicate primary providers"
  • Line Location: APCDDUPP+4
Function Call: WRITE
  • Prompt: !,"and delete one of the primary provider entries.",!!
  • Line Location: APCDDUPP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Visit Date MUST not be earlier than Beginning Visit Date."
  • Line Location: DATES+8
Function Call: WRITE
  • Prompt: !!,"A total of ",APCDCNT," duplicate primary providers were deleted."
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !,"Deleting provider ",$P(^VA(200,X,0),U)," from visit: "
  • Line Location: DELETE+1
Function Call: WRITE
  • Prompt: !?10,"Patient: ",$$VAL^XBDIQ1(9000010,APCDV,.05)," visit date: ",$$VAL^XBDIQ1(9000010,APCDV,.01)
  • Line Location: DELETE+2
Routine Call
  • DIR
  • Line Location:
    • DATES+3
    • DATES+5
    • DATES+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVPRV - [#9000010.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPRV - [#9000010.06] CHECK+6, CHECK+7, CHECK+8
^AUPNVPRV("AD" CHECK+5
^AUPNVSIT - [#9000010] CHECK+1, CHECK+2
^AUPNVSIT("B" PROCESS+2, PROCESS+4
^VA(200 - [#200] DELETE+1

Label References

Name Line Occurrences
CHECK PROCESS+4
DATES DATES+7
DELETE CHECK+9
EOJ DATES+12, PROCESS+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCDBD DATES+1*, DATES+3*, DATES+7, DATES+9
>> APCDCNT PROCESS+1*, PROCESS+6, DELETE+3*
>> APCDED DATES+1*, DATES+5*, DATES+7, PROCESS+2
>> APCDP CHECK+5*, CHECK+6, CHECK+7, CHECK+8, DELETE+4
APCDPRV CHECK+4!
APCDPRV( CHECK+9, CHECK+10*
>> APCDSD DATES+1*, DATES+9*, PROCESS+2*, PROCESS+4
>> APCDV PROCESS+4*, CHECK+1, CHECK+2, CHECK+5, DELETE+2, DELETE+5
AUPNVSIT EOJ+4!, DELETE+5*!
DA DATES+11!, DELETE+4*
>> DIK DELETE+4*
DIR DATES+2!, DATES+4!, DATES+11!
DIR("A" DATES+2*, DATES+4*, DATES+11*
DIR("B" DATES+11*
DIR(0 DATES+2*, DATES+4*, DATES+11*
U CHECK+1, CHECK+2, CHECK+7, CHECK+8, DELETE+1
>> X CHECK+8*, CHECK+9, CHECK+10, DELETE+1
>> Y DATES+3, DATES+5, DATES+12
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