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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACDPCCL5

Package: Alcohol Chemical Dependency

Routine: ACDPCCL5


Information

ACDPCCL5 ;IHS/ADC/EDE/KML - PCC LINK;

Source Information

Source file <ACDPCCL5.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Alcohol Chemical Dependency 4 PAUSE^ACDDEU  FILE^ACDFMC  ERROR^ACDPCCL  VFILES^ACDPCCL6  
Patient Care Component 1 ^APCDALV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Alcohol Chemical Dependency 1 ACDPCCL  

Entry Points

Name Comments DBIA/ICR reference
VE21 ;;No activity location passed. No Location determined.
VE23 ;;No IHS Location for OTHER in CDMIS SITE PARAMETER File.
VE22 ;;No IHS Location for HOME in CDMIS SITE PARAMETER File.
VE24 ;;No Location of Encounter when Activity location is Hospital/Clinic.
VE27 ;;No Location of Encounter for OFFICE in CDMIS SITE PARAMETER file.
VE28 ;;Error attempting to modify visit
VSERROR ;
KILL ;
VE6 ;;Required variable is null
GENLINK ; EP-GENERATE PCC LINK
VE4 ;;ACDEV array not passed
VE5 ;;Required variable not passed
VE2 ;;inability to create visit
VE3 ;;invalid visit parameters (date, location etc.)
EOJ ;
A ; ADD LOGIC
E ; EDIT LOGIC
VE7 ;;No appropriate type (i.e., A,E,D)
ECHK ;ERROR CHECK
VISIT ;
ADDVISIT ; ADD ONE PCC VISIT
GENLCS ; ADD CS VISITS

External References

Name Field # of Occurrence
PAUSE^ACDDEU VSERROR+5, E+2
FILE^ACDFMC ADDVISIT+8
ERROR^ACDPCCL ADDVISIT+9
VFILES^ACDPCCL6 ADDVISIT+11
^APCDALV ADDVISIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"Notify your supervisor that the PCC LINK failed with the following error:",!,ACDFILE,"-",ACDERR_$G(IORVOFF),!!
  • Line Location: VSERROR+4
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"Logic error at E^ACDPCCL5 - Notify programmer!"_$G(IORVOFF),!!
  • Line Location: E+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9002172.1 ADDVISIT+7

Label References

Name Line Occurrences
@( GENLINK+4
ADDVISIT A+3, GENLCS+10
ECHK GENLINK+2
EOJ GENLINK+5
GENLCS A+1
KILL VISIT+1, EOJ+1
VISIT ADDVISIT+1
VSERROR GENLINK+3, ADDVISIT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACD21IEN ADDVISIT+10*, EOJ+2!
ACDCSDTE GENLCS+1*, GENLCS+2*, GENLCS+3, GENLCS+5, GENLCS+6, GENLCS+7, GENLCS+9, EOJ+2!
ACDDAY A+2*, GENLCS+9*, ADDVISIT+7, EOJ+2!
ACDERR VSERROR+3*, VSERROR+4, EOJ+2!
>> ACDEV ECHK+2
>> ACDEV("CLINIC" VISIT+11
>> ACDEV("CS LOC " , GENLCS+6*
>> ACDEV("LOCATION" GENLCS+8*, ADDVISIT+7, VISIT+8
>> ACDEV("PAT" VISIT+6
>> ACDEV("PROC" GENLCS+2, GENLCS+5, GENLCS+6, GENLCS+7
>> ACDEV("SITE T YPE" , VISIT+9
>> ACDEV("SVC CA T" , VISIT+10
>> ACDEV("TC" A+1
>> ACDEV("TYPE" GENLINK+4, ECHK+10, VISIT+4
>> ACDEV("V DATE " , GENLCS+3*, VISIT+7
>> ACDEV("VISIT" VSERROR+2, ADDVISIT+7
ACDFILE VSERROR+1*, VSERROR+4, EOJ+2!
ACDIEN VSERROR+2*, EOJ+2!
ACDLOC GENLCS+4*, GENLCS+5*, GENLCS+6, GENLCS+7, EOJ+2!
ACDQUIT GENLINK+3, ECHK+1*, ECHK+2*, ECHK+3, ECHK+6*, ECHK+7*, ECHK+9, ECHK+10*, VSERROR+3, ADDVISIT+2
, ADDVISIT+4*, EOJ+2!
ACDTPRO KILL+6!
ACDTPRV KILL+6!
APCDAFLG KILL+1!
APCDALVR KILL+1!
APCDALVR("ACDAFLG" ADDVISIT+4
APCDALVR("APCDADD" VISIT+4*
APCDALVR("APCDANE" VISIT+5*
APCDALVR("APCDAPPT" VISIT+12*
APCDALVR("APCDAUTO" VISIT+3*
APCDALVR("APCDCAT" VISIT+10*
APCDALVR("APCDCLN" VISIT+11*
APCDALVR("APCDDATE" VISIT+7*
APCDALVR("APCDLOC" VISIT+8*
APCDALVR("APCDPAT" VISIT+6*
APCDALVR("APCDTYPE" VISIT+9*
APCDALVR("APCDVSIT" ADDVISIT+5
APCDALVR("AUPNTALK" VISIT+2*
APCDANE KILL+1!
APCDAPPT KILL+1!
APCDATMP KILL+1!
APCDAUTO KILL+1!
APCDCAT KILL+2!
APCDCLN KILL+2!
>> APCDDATK VISIT+7*
APCDLOC KILL+3!
APCDOLOC KILL+4!
APCDPAT KILL+5!
APCDTAT KILL+6!
APCDTLOU KILL+6!
APCDTNQ KILL+6!
APCDTPOV KILL+6!
APCDTPS KILL+6!
APCDTTOP KILL+6!
APCDTYPE KILL+6!
>> APCDVSIT ADDVISIT+5*, ADDVISIT+7
AUPNTALK KILL+7!
>> DA(1 ADDVISIT+7*
>> DIC ADDVISIT+7*
>> DIC("DR" ADDVISIT+7*
>> DIC("P" ADDVISIT+7*
>> DIC(0 ADDVISIT+7*
>> IORVOFF VSERROR+4, E+1
>> IORVON VSERROR+4, E+1
U ADDVISIT+7
>> X ECHK+3*, ECHK+4*, ECHK+5*, ECHK+6, ECHK+7, GENLCS+7*, GENLCS+8, ADDVISIT+7*
>> Y ADDVISIT+9, ADDVISIT+10

Marked Items

Name Field # of Occurrence
$T(@ACDERR VSERROR+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All