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

Package: Patient Care Component

Routine: APCDKPV


Information

APCDKPV ; IHS/CMI/LAB - LINK DIF DAY RX VISITS ;

Source Information

Source file <APCDKPV.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 4 C^%DTC  FILE^DICN  ^DIE  ^DIR  
IHS Patient 2 $$IMP^AUPNSICD  MOD^AUPNVSIT  
IHS VA Utilities 2 ^XBCLS  ($$VALI,ENP)^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component 1 ^APCDALVR  
Patient Care Component Reports 1 $$VD^APCLV  

Entry Points

Name Comments DBIA/ICR reference
O ;;9;;OTHER
DATES
RVDT(X) ; -- returns reverse date
I ;;1;;IHS
PROVP() ; -- returns pointer file # for providers
6 ;;8;;638
MANUAL ;EP; entry to run linker manually
C ;;2;;CONTRACT
MEDTECH() ; -- returns code if rad tech entry exists in file 200
QUEUE ;EP; entry point to run linker in background
P ;;3;;TRIBAL
LINK(APCDVST) ; -- find orig visit and set link
T ;;3;;TRIBAL
MEDCLN() ; -- returns ien for rx clinic code
CODE(D) ;
START(APCDZMOD) ; begin of linker logic
; APCDZMOD=1 if MOD^AUPNVSIT is to be called
V ;;9;;VA (OTHER)
STUFF(AUPNVSIT,APCDZMOD) ; -- stuff pov and provider
AFFIL ;; affiliation recode

External References

Name Field # of Occurrence
C^%DTC QUEUE+5, QUEUE+6, DATES+10
^APCDALVR STUFF+19, STUFF+31
$$VD^APCLV STUFF+17
$$IMP^AUPNSICD CODE+2
MOD^AUPNVSIT STUFF+6
FILE^DICN START+19
^DIE LINK+20, STUFF+10, STUFF+33
^DIR MANUAL+7, MANUAL+12, DATES+2, DATES+4, DATES+27
^XBCLS MANUAL+2
$$VALI^XBDIQ1 QUEUE+4, DATES+9, START+12, STUFF+3, STUFF+9, MEDTECH+2
ENP^XBDIQ1 LINK+5
$$FMTE^XLFDT DATES+12, DATES+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Orphaned Pharmacy Linker is being queued to run in the background!",!,"Dates of the run will be automatically calculated based on the PCC delay",!,"value.",!
  • Line Location: QUEUE+1
Function Call: WRITE
  • Prompt: !!?20,"FIX UNLINKED PHARMACY VISITS",!!
  • Line Location: MANUAL+2
Function Call: WRITE
  • Prompt: !!,$C(7),"You do not have a generic Pharmacist provider entry"
  • Line Location: MANUAL+5
Function Call: WRITE
  • Prompt: !,"in your database. Cannot run fix for unlinked pharmacy visits."
  • Line Location: MANUAL+6
Function Call: WRITE
  • Prompt: !!,$C(7),"You do not have PHARMACY as a clinic stop. Cannot run"
  • Line Location: MANUAL+10
Function Call: WRITE
  • Prompt: !,"fix for unlinked pharmacy visits."
  • Line Location: MANUAL+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Cannot pick date within PCC Delay. Select a date"
  • Line Location: DATES+11
Function Call: WRITE
  • Prompt: !,"earlier than ",$$FMTE^XLFDT(X,5),"."
  • Line Location: DATES+12
Function Call: WRITE
  • Prompt: !!,"Search begun"
  • Line Location: DATES+29
Function Call: WRITE
  • Prompt: !!,"Search COMPLETED. ",+$G(APCDCNT)," Visits fixed."
  • Line Location: DATES+31
Function Call: WRITE
  • Prompt: "."
  • Line Location: START+17
Routine Call
  • DIE
  • Line Location:
    • LINK+20
    • STUFF+10
    • STUFF+33
Routine Call
  • DIR
  • Line Location:
    • MANUAL+7
    • MANUAL+12
    • DATES+2
    • DATES+4
    • DATES+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] Classic Fileman Calls
^APCDLLOG - [#9001001.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDSITE - [#9001001.2] START+18
^AUPNVMED - [#9000010.14] START+13
^AUPNVMED("AD" START+11, START+13, LINK+4
^AUPNVPOV("AD" START+10
^AUPNVPRV - [#9000010.06] LINK+17
^AUPNVPRV("AD" START+10, LINK+16
^AUPNVSIT("AA" LINK+12, LINK+14
^AUPNVSIT("B" START+7, START+9
^AUTTSITE(1 QUEUE+8, DATES+14
^DD(9000010.06 PROVP+1
^DIC(40.7 - [#40.7] MEDCLN+1
^DIC(6 - [#6] STUFF+27, MEDTECH+5
^VA(200 - [#200] STUFF+28, MEDTECH+4

Label References

Name Line Occurrences
$$CODE STUFF+17
$$MEDCLN QUEUE+3, MANUAL+9, STUFF+10
$$MEDTECH QUEUE+3, MANUAL+4, STUFF+27, STUFF+28
$$PROVP STUFF+27, STUFF+28, MEDTECH+4, MEDTECH+5
$$RVDT LINK+11
DATES DATES+6, DATES+10, DATES+15, DATES+18
LINK START+15
START QUEUE+11, DATES+30
STUFF START+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDALVR STUFF+2~, STUFF+14!, STUFF+24!
APCDALVR("APCDAFLG" STUFF+20
APCDALVR("APCDATMP" STUFF+16*, STUFF+26*
APCDALVR("APCDPAT" STUFF+15*, STUFF+25*
APCDALVR("APCDTNQ" STUFF+18*
APCDALVR("APCDTPOV" STUFF+17*
APCDALVR("APCDTPRO" STUFF+29*
APCDALVR("APCDTPS" STUFF+30*
APCDALVR("APCDVSIT" STUFF+15*, STUFF+25*
APCDBD QUEUE+6*, DATES!, DATES+2*, DATES+6, START+3, START+6, START+21!
APCDCNT DATES+31, START+6*, START+17*, START+21!
APCDED QUEUE+5*, QUEUE+6, QUEUE+10, DATES!, DATES+4*, DATES+6, DATES+10, DATES+18, START+3, START+6
, START+21!
APCDEND START+2~, START+6*, START+7
APCDMED LINK+1~, LINK+4*, LINK+5
APCDT START+2~, START+6*, START+7*, START+9, START+13, STUFF+1~
APCDV START+2~, START+8*, START+9*, START+10, START+11, START+12, START+13, START+15, START+16, START+19
, STUFF+1~
APCDVST LINK~, LINK+4, LINK+20
APCDX LINK+1~, LINK+5!
APCDX( LINK+8
APCDX(1202 LINK+7
APCDX(1211 LINK+6
APCDZMOD START~, START+16, STUFF~, STUFF+6
AUPNVSIT STUFF~, STUFF+3, STUFF+9, STUFF+10, STUFF+15, STUFF+17, STUFF+25, STUFF+33
C CODE+1~, CODE+2*, CODE+3
CODE MEDTECH+1~, MEDTECH+3*, MEDTECH+4, MEDTECH+5, MEDTECH+6
D CODE~, CODE+2
D0 START+19!
DA START+19!, LINK+20*, STUFF+10*, STUFF+33*!
DATE LINK+1~, LINK+11*, LINK+12*, LINK+14
DD START+19!
DELAY QUEUE+2~, QUEUE+4*, QUEUE+5, MANUAL+1~, DATES+9*, DATES+10, DATES+14*, DATES+15, DATES+18, DATES+20
DFN LINK+1~, LINK+8*, LINK+12, LINK+14, STUFF+2~, STUFF+3*, STUFF+15, STUFF+25
DIADD START+19*!
DIC START+19!*
DIC("DR" START+19*
DIC(0 START+19*
DIE START+19!, LINK+20*, STUFF+10*, STUFF+33*!
DINUM START+19!
DIR MANUAL+1~, DATES+1!, DATES+3!, DATES+21!
DIR("?" DATES+23*, DATES+24*, DATES+25*, DATES+26*, DATES+27*
DIR("A" MANUAL+7*, MANUAL+12*, DATES+1*, DATES+3*, DATES+22*
DIR(0 MANUAL+7*, MANUAL+12*, DATES+1*, DATES+3*, DATES+21*
DLAYGO START+19*!
DO START+19!
DR START+19!, LINK+20*, STUFF+10*, STUFF+33*!
DT QUEUE+5, DATES+10, START+19
DUZ(2 START+18, MEDTECH+2
>> END LINK+11*, LINK+12
LINK LINK+1~, LINK+11!, LINK+12, LINK+16, LINK+17*, LINK+20
ORDPRV LINK+1~, LINK+7*, LINK+17
ORDT LINK+1~, LINK+6*, LINK+11
ORDV LINK+1~, LINK+14*, LINK+16, LINK+17
PRV LINK+1~, LINK+16*, LINK+17
SITE MEDTECH+1~, MEDTECH+2*
U QUEUE+8, DATES+14, DATES+27, START+13, START+18, PROVP+1
X QUEUE+2~, QUEUE+5, QUEUE+6, QUEUE+7~, QUEUE+8*, QUEUE+9, QUEUE+10, MANUAL+1~, DATES+10, DATES+12
, START+2~, START+12*, START+13*, START+19*!, STUFF+27*, STUFF+28*, STUFF+29, RVDT~, RVDT+1, PROVP+1~*
, PROVP+2
X1 QUEUE+2~, QUEUE+5*, QUEUE+6*, MANUAL+1~, DATES+10*
X2 QUEUE+2~, QUEUE+5*, QUEUE+6*, MANUAL+1~, DATES+10*
Y MANUAL+1~, DATES+2, DATES+4, DATES+27, DATES+30, START+2~
>> ZTQUEUED QUEUE+1, START+17

Marked Items

Name Field # of Occurrence
$T(@SITE MEDTECH+3
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