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

Package: Patient Care Component

Routine: APCDKIV


Information

APCDKIV ; IHS/CMI/LAB - LINK DIF DAY IMMUNIZATION VISITS ;

Source Information

Source file <APCDKIV.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
T ;;3;;TRIBAL
QUEUE ;EP; entry point to run linker in background
P ;;3;;TRIBAL
LINK(APCDVST) ; -- find orig visit and set link
IMMCLN() ; -- returns ien for imm 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+11
^APCDALVR STUFF+21, STUFF+36
$$VD^APCLV STUFF+19
$$IMP^AUPNSICD CODE+2
MOD^AUPNVSIT STUFF+6
FILE^DICN START+20
^DIE LINK+20, STUFF+10, STUFF+39
^DIR MANUAL+7, DATES+3, DATES+5, DATES+28
^XBCLS MANUAL+2
$$VALI^XBDIQ1 QUEUE+4, DATES+10, START+12, STUFF+3, STUFF+9
ENP^XBDIQ1 LINK+5
$$FMTE^XLFDT DATES+13, DATES+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Orphaned Immunization 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 IMMUNIZATION VISITS",!!
  • Line Location: MANUAL+2
Function Call: WRITE
  • Prompt: !!,$C(7),"You do not have IMMUNIZATION as a clinic stop. Cannot run"
  • Line Location: MANUAL+5
Function Call: WRITE
  • Prompt: !,"fix for unlinked immunization visits."
  • Line Location: MANUAL+6
Function Call: WRITE
  • Prompt: !,"When choosing a date rante for visits keep in mind that you should run this",!,"utility for visit dates that have not been completed by data entry.",!!
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+8
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Cannot pick date within PCC Delay. Select a date"
  • Line Location: DATES+12
Function Call: WRITE
  • Prompt: !,"earlier than ",$$FMTE^XLFDT(X,5),"."
  • Line Location: DATES+13
Function Call: WRITE
  • Prompt: !!,"Search begun"
  • Line Location: DATES+30
Function Call: WRITE
  • Prompt: !!,"Search COMPLETED. ",+$G(APCDCNT)," Visits fixed."
  • Line Location: DATES+32
Function Call: WRITE
  • Prompt: "."
  • Line Location: START+18
Routine Call
  • DIE
  • Line Location:
    • LINK+20
    • STUFF+10
    • STUFF+39
Routine Call
  • DIR
  • Line Location:
    • MANUAL+7
    • DATES+3
    • DATES+5
    • DATES+28

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
^AUPNVIMM - [#9000010.11] STUFF+18, STUFF+30
^AUPNVIMM("AD" START+11, LINK+4, STUFF+14, STUFF+26
^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
^AUTTIMM - [#9999999.14] STUFF+18, STUFF+20
^AUTTSITE(1 QUEUE+8, DATES+15
^DD(9000010.06 PROVP+1
^DIC(40.7 - [#40.7] IMMCLN+1
^VA(200 - [#200] STUFF+32

Label References

Name Line Occurrences
$$CODE STUFF+19
$$IMMCLN QUEUE+3, MANUAL+4, STUFF+10
$$PROVP STUFF+32
$$RVDT LINK+11
DATES DATES+7, DATES+11, DATES+16, DATES+19
START QUEUE+11, DATES+31
STUFF START+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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