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

Package: Patient Care Component

Routine: APCDKRV


Information

APCDKRV ; IHS/CMI/LAB - LINK DIF DAY RAD VISITS ;

Source Information

Source file <APCDKRV.m>

Call Graph

Call Graph Total: 11

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

Entry Points

Name Comments DBIA/ICR reference
RADTECH() ; -- returns code if rad tech entry exists in file 200
DATES
RADCLN() ; -- returns ien for rad clinic code
RVDT(X) ; -- returns reverse date
I ;;1;;IHS
PROVP() ; -- returns pointer file # for providers
V ;;9;;VA (OTHER)
MANUAL ;EP; entry to run linker manually
C ;;2;;CONTRACT
O ;;9;;OTHER
QUEUE ;EP; entry point to run linker in background
P ;;3;;TRIBAL
LINK(APCDVST) ; -- find orig visit and set link
T ;;3;;TRIBAL
6 ;;8;;638
START(APCDZMOD) ; begin of linker logic
; APCDZMOD=1 if MOD^AUPNVSIT is to be called
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
$$CODE^APCDKLV STUFF+17
$$VD^APCLV STUFF+17
MOD^AUPNVSIT STUFF+6
FILE^DICN START+20
^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, RADTECH+2
ENP^XBDIQ1 LINK+5
$$FMTE^XLFDT DATES+12, DATES+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Orphaned Radiology 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 RADIOLOGY VISITS",!!
  • Line Location: MANUAL+2
Function Call: WRITE
  • Prompt: !!,$C(7),"You do not have a generic X-Ray Technician provider entry"
  • Line Location: MANUAL+5
Function Call: WRITE
  • Prompt: !,"in your database. Cannot run fix for unlinked rads."
  • Line Location: MANUAL+6
Function Call: WRITE
  • Prompt: !!,$C(7),"You do not have RADIOLOGY as a clinic stop. Cannot run"
  • Line Location: MANUAL+10
Function Call: WRITE
  • Prompt: !,"fix for unlinked radiology 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+18
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+19
^AUPNVPOV("AD" START+10
^AUPNVPRV - [#9000010.06] LINK+17
^AUPNVPRV("AD" START+10, LINK+16
^AUPNVRAD - [#9000010.22] START+14
^AUPNVRAD("AD" START+11, START+14, LINK+4
^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] RADCLN+1
^DIC(6 - [#6] STUFF+27, RADTECH+5
^VA(200 - [#200] STUFF+28, RADTECH+4

Label References

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

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+22!
APCDCNT DATES+31, START+6*, START+18*, START+22!
APCDED QUEUE+5*, QUEUE+6, QUEUE+10, DATES!, DATES+4*, DATES+6, DATES+10, DATES+18, START+3, START+6
, START+22!
APCDEND START+2~, START+6*, START+7
APCDRAD LINK+1~, LINK+4*, LINK+5
APCDT START+2~, START+6*, START+7*, START+9, START+14, STUFF+1~
APCDV START+2~, START+8*, START+9*, START+10, START+11, START+12, START+14, START+16, START+17, START+20
, 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+17, STUFF~, STUFF+6
AUPNVSIT STUFF~, STUFF+3, STUFF+9, STUFF+10, STUFF+15, STUFF+17, STUFF+25, STUFF+33
CODE RADTECH+1~, RADTECH+3*, RADTECH+4, RADTECH+5, RADTECH+6
D0 START+20!
DA START+20!, LINK+20*, STUFF+10*, STUFF+33*!
DATE LINK+1~, LINK+11*, LINK+12*, LINK+14
DD START+20!
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+20*!
DIC START+20!*
DIC("DR" START+20*
DIC(0 START+20*
DIE START+20!, LINK+20*, STUFF+10*, STUFF+33*!
DINUM START+20!
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+20*!
DO START+20!
DR START+20!, LINK+20*, STUFF+10*, STUFF+33*!
DT QUEUE+5, DATES+10, START+20
DUZ(2 START+19, RADTECH+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 RADTECH+1~, RADTECH+2*
U QUEUE+8, DATES+14, DATES+27, START+14, START+19, 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+14*, START+20*!, 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+18

Marked Items

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