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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ADEAPC

Package: IHS Dental System

Routine: ADEAPC


Information

ADEAPC ;IHS/HQW/MJL - DENTAL PCC LINK [ 08/26/2008 7:16 AM ]

Source Information

Source file <ADEAPC.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Patient Care Component 3 EN^APCDALV  EN^APCDALVR  GETVISIT^APCDAPI4  
VA Fileman 3 ^%DT  (,UPDATE)^DIE  ^DIR  
IHS Dental System 2 (,BULLT,DENTRY,DENTRY3,VPOV,VPRV)^ADEAPC1  (,ADDPCC)^ADEAPC2  
IHS Patient 1 MOD^AUPNVSIT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
MailMan 1 ^XMB  
Patient Care Component Reports 1 $$PRIMPROV^APCLV  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Dental System 2 ADEFIX01  ADEGRL6  

Entry Points

Name Comments DBIA/ICR reference
END
VMOD
BULLT
INTERACT ;
CONTRACT ;IHS/SET/HMW 2-6-2003 Modified this subroutine to append ` to APCDALVR("APCDCLN")
DSERV
WRITE ; WRITE VISITS FOR SELECT
REV(ADEV) ;IHS/OIT/HMW 9-22-2005 **16**Mark visit as reviewed
BSDADD1 ;
VISIT(ADEV,ADEADD) ;
SELECT ; SELECT EXISTING VISIT

External References

Name Field # of Occurrence
^%DT BULLT
^ADEAPC1 ADEAPC+29, ADEAPC+41
BULLT^ADEAPC1 ADEAPC+48
DENTRY^ADEAPC1 ADEAPC+46
DENTRY3^ADEAPC1 ADEAPC+47
VPOV^ADEAPC1 ADEAPC+67
VPRV^ADEAPC1 ADEAPC+65
^ADEAPC2 ADEAPC+27
ADDPCC^ADEAPC2 ADEAPC+69
EN^APCDALV VISIT+7
EN^APCDALVR VMOD
GETVISIT^APCDAPI4 VISIT+6, VISIT+22, VISIT+38, BSDADD1+4
$$PRIMPROV^APCLV WRITE+9
MOD^AUPNVSIT ADEAPC+62
^DIE ADEAPC+62
UPDATE^DIE REV+3
^DIR SELECT+7
$$VAL^XBDIQ1 WRITE+10
^XMB BULLT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PATIENT: ",$P(^DPT(ADEPAT,0),U)," has one or more VISITs on this date.",!,"If one of these is your visit, please select it",!
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !,ADEC," Create New Visit",!
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !,ADEC," TIME: ",ADEVLT,"LOC: ",ADEVLOC," TYPE: ",$P(ADEX,U,3)," CAT: ",$P(ADEX,U,7)," CLINIC: ",$S($P(ADEX,U,8)]"":$E($P(^DIC(40.7,$P(ADEX,U,8),0),U),1,8),1:"<NONE>")
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: !?3,"Hospital Location: ",$P($G(^SC($P(ADEX,U,22),0)),U)
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !?3,"Provider on Visit: ",ADETIU
  • Line Location: WRITE+9
Function Call: WRITE
  • Prompt: !?3,"Dental ADA Codes: ",ADEB
  • Line Location: WRITE+11
Routine Call
  • DIE
  • Line Location:
    • REV+3
Routine Call
  • DIE
  • Line Location:
    • ADEAPC+62
Routine Call
  • DIR
  • Line Location:
    • SELECT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEPARAM - [#9002006] ADEAPC+6, ADEAPC+16, ADEAPC+18, VISIT+25
^ADEPCD - [#9002007] ADEAPC+9, ADEAPC+26, ADEAPC+53, DSERV+1, DSERV+3
^AUPNVDEN("AD" VISIT+31, WRITE+10
^AUPNVPOV("AD" ADEAPC+67
^AUPNVPRV - [#9000010.06] ADEAPC+57, ADEAPC+58, ADEAPC+59
^AUPNVPRV("AD" ADEAPC+51, ADEAPC+54
^AUPNVSIT - [#9000010] SELECT+4
^AUTTADA - [#9999999.31] DSERV+4
^AUTTLOC - [#9999999.06] WRITE+4
^AUTTSITE(1 ADEAPC+6, ADEAPC+16, ADEAPC+18, VISIT+25
^DD("DD" BULLT
^DD(9000010.06 ADEAPC+53
^DIC(16 - [#16] ADEAPC+53
^DIC(40.7 - [#40.7] ADEAPC+11, CONTRACT+3, WRITE+6
^DPT - [#2] BULLT+1, SELECT+3
^SC - [#44] WRITE+8

Label References

Name Line Occurrences
BSDADD1 SELECT+8, SELECT+9
BULLT ADEAPC+34
CONTRACT ADEAPC+22
DSERV ADEAPC+24
INTERACT VISIT+25
VISIT ADEAPC+33
VMOD ADEAPC+28
WRITE SELECT+4

Naked Globals

Name Field # of Occurrence
^(0 ADEAPC+9, WRITE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT BULLT*
ADEA SELECT+1~, SELECT+4*, WRITE+10*
ADEADA END!
ADEADA( DSERV+5*
ADEADD ADEAPC+31~, ADEAPC+32*, ADEAPC+33, ADEAPC+38, VISIT~, VISIT+3*, VISIT+10*, VISIT+29*, VISIT+33*, VISIT+41*
, INTERACT+3*, BSDADD1+7*
>> ADEAPC("ADELOC" ADEAPC+15*, ADEAPC+16*, ADEAPC+18, ADEAPC+20!
>> ADEAPC("ADETYP" ADEAPC+17*, ADEAPC+18*, ADEAPC+19, ADEAPC+20!
ADEB SELECT+1~, WRITE+10*, WRITE+11
ADEBSD VISIT+2~, VISIT+22, VISIT+38, BSDADD1+4
ADEBSD("CLINI C CODE" , VISIT+19*
ADEBSD("FORCE ADD" , VISIT+37*, SELECT+8*, SELECT+9*, BSDADD1+3*
ADEBSD("PAT" VISIT+13*
ADEBSD("SITE" VISIT+15*
ADEBSD("SRV C AT" , VISIT+17*
ADEBSD("TIME RANGE" , VISIT+18*
ADEBSD("USR" VISIT+20*
ADEBSD("VISIT DATE" , VISIT+14*,  TYPE" , VISIT+16*
ADEBSOUT VISIT+2~, VISIT+22, VISIT+38, BSDADD1+4
ADEBSOUT( VISIT+28, VISIT+29, INTERACT+3, SELECT+4
ADEBSOUT(0 VISIT+39, VISIT+40, INTERACT+3, BSDADD1+5, BSDADD1+6
ADEC END!, DSERV+1*, SELECT+1~, SELECT+4*, SELECT+5*, SELECT+7, SELECT+9, WRITE+1*, WRITE+6
>> ADECON CONTRACT+1
ADEDA ADEAPC+52~, ADEAPC+54*, ADEAPC+56
>> ADEDFN ADEAPC+9, ADEAPC+26, ADEAPC+53, ADEAPC+69, DSERV+1, DSERV+3
ADEFDA REV+1~
ADEFDA(9000010 REV+2*
ADEHIT ADEAPC+44~, ADEAPC+45*, ADEAPC+59*, ADEAPC+65, VISIT+2~, VISIT+3*, VISIT+28, VISIT+29*, VISIT+33*, INTERACT+3*
ADEI END!, DSERV+1*, DSERV+5, DSERV+6, DSERV+7, DSERV+8, DSERV+9
ADEIEN REV+1~
ADEMSG REV+1~
>> ADENEWVS ADEAPC+25
ADENOD DSERV+2~, DSERV+3*, DSERV+4, DSERV+5, DSERV+7, DSERV+8, DSERV+9
ADEOP END!
ADEOP( DSERV+7*
>> ADEPAT ADEAPC+10, VISIT+13, BULLT+1, SELECT+3
ADEPRV ADEAPC+52~, ADEAPC+53*, ADEAPC+59
ADEQTY END!
ADEQTY( DSERV+6*
ADESER END!, DSERV*, DSERV+1*, DSERV+3
ADETFEE END+2!
ADETFEE( DSERV+8*
>> ADETIU WRITE+9*
ADETSUR END+1!
ADETSUR( DSERV+9*
ADEV ADEAPC+31~, ADEAPC+32*, ADEAPC+33, ADEAPC+34, ADEAPC+37, ADEAPC+40~, ADEAPC+51, ADEAPC+54, ADEAPC+67, ADEAPC+69
, END!, REV~, REV+2, VISIT~, VISIT+3*, VISIT+8*, VISIT+9*, VISIT+28*, VISIT+29, VISIT+31
, VISIT+36, VISIT+40*, INTERACT+3*, SELECT+2*, SELECT+10*, BSDADD1+2, BSDADD1+6*
ADEV1 SELECT+1~, SELECT+4!*, WRITE+1, WRITE+9, WRITE+10
ADEVLOC SELECT+1~, WRITE+3*, WRITE+4*, WRITE+5*, WRITE+6
ADEVLT SELECT+1~, WRITE+2*, WRITE+6
ADEVPRV ADEAPC+52~
ADEW ADEAPC+44~, ADEAPC+47
ADEX END!, SELECT+1~, SELECT+4*, WRITE+2, WRITE+4, WRITE+6, WRITE+7, WRITE+8
>> ADEX1( SELECT+10, WRITE+1*
>> ADEX11 SELECT+4*, WRITE+7
ADEY END!
APCDALVR ADEAPC+7!, ADEAPC+52~, END!, VISIT+21~
APCDALVR("APCDACS" ADEAPC+13*
APCDALVR("APCDAFLG" VISIT+8, VMOD+1
APCDALVR("APCDATMP" VMOD*
APCDALVR("APCDCLN" ADEAPC+11*, ADEAPC+12*, VISIT+19, CONTRACT+3*, CONTRACT+4*
APCDALVR("APCDDATE" ADEAPC+9*, VISIT+14
APCDALVR("APCDLOC" ADEAPC+9*, ADEAPC+15, VISIT+15
APCDALVR("APCDPAT" ADEAPC+10*
APCDALVR("APCDTNQ" CONTRACT+5*
APCDALVR("APCDTYPE" ADEAPC+14*, ADEAPC+19*, VISIT+16, CONTRACT+2*
APCDALVR("APCDVSIT" ADEAPC+37*, VISIT+9
>> APCDANE ADEAPC+8*
>> APCDAUTO ADEAPC+8*
>> AUPNTALK ADEAPC+8*
DA ADEAPC+52~, ADEAPC+55~, ADEAPC+56*, ADEAPC+57, ADEAPC+58, ADEAPC+59, SELECT+7!
DIE ADEAPC+52~, ADEAPC+60*
DIR SELECT+6!, SELECT+7!
DIR("A" SELECT+7*
DIR(0 SELECT+7*
>> DIRUT SELECT+8
>> DR ADEAPC+61*
DUZ VISIT+20
U ADEAPC+9, ADEAPC+18, ADEAPC+53, ADEAPC+58, ADEAPC+59, VISIT+25, DSERV+4, DSERV+5, DSERV+7, DSERV+8
, DSERV+9, BULLT+1, INTERACT+3, SELECT+3, WRITE+4, WRITE+6, WRITE+7, WRITE+8
>> V INTERACT+3*
>> X BULLT*
XMB ADEAPC+44~, ADEAPC+48, END!, BULLT+1*
XMB(1 BULLT+1*
XMB(2 BULLT+1*
XMB(6 BULLT+1*
XMB(7 VMOD+1*
>> XMDUZ BULLT+1*
Y END!, BULLT+1, SELECT+9, SELECT+10

Marked Items

Name Field # of Occurrence
$T(GETVISIT^APCDAPI4 VISIT+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All