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

Package: Alcohol Chemical Dependency

Routine: ACDPCCLS


Information

ACDPCCLS ;IHS/ADC/EDE/KML - GEN PCC LINK/HC;

Source Information

Source file <ACDPCCLS.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Alcohol Chemical Dependency 6 ^ACD  (GETVSITS,PAUSE)^ACDDEU  (DIC,DIQ1)^ACDFMC  ^ACDKILL  VISIT^ACDPCCL  ^ACDPCCLC  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
HCP ; EP-GENERATE HARDCOPY FOR SELECTED PATIENTS/VISITS
SETIIF ; HARDCOPY FROM IIF ENTRY
SETFU ; FOLLOWUP
GENOUTP ; EP - PRINT HARDCOPY OR GENERATE PCC LINK FOR CDMIS VISIT
GETDTRNG ; GET DATE RANGE FOR VISIT
GETPAT ; GET PATIENT
SETIN ; INITIAL
START ;
INIT ;
SELECT ; SELECT A CDMIS VISIT
SETRE ; REOPEN
EOJ ;
MAIN ;
SETTD ; HARDCOPY FROM TDC ENTRY
PATLOOP ; DISPLAY PATIENTS UNTIL DONE
SETCS ; HARDCOPY OR PCC LINK FROM CLIENT SERVICES

External References

Name Field # of Occurrence
^ACD INIT+1
GETVSITS^ACDDEU PATLOOP+3
PAUSE^ACDDEU SELECT+20
DIC^ACDFMC GETPAT+3
DIQ1^ACDFMC SELECT+17
^ACDKILL EOJ+2
VISIT^ACDPCCL GENOUTP+5
^ACDPCCLC INIT+9
^DIR INIT+3, SELECT+24, GETDTRNG+4, GETDTRNG+7
$$FMTE^XLFDT GETDTRNG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !,"----------",!,"No CDMIS visits!",!,"----------",!
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: ACDLC,?5,ACDPDD(9002172.1,ACDY,.01),?18," - ",ACDPDD(9002172.1,ACDY,1),"/",ACDPDD(9002172.1,ACDY,5)," ",ACDPDD(9002172.1,ACDY,3),!
  • Line Location: SELECT+18
Function Call: WRITE
  • Prompt: !,"No visits in date range",!
  • Line Location: SELECT+23
Function Call: WRITE
  • Prompt: !,"Patient has ",ACDVCNT," visits between ",$$FMTE^XLFDT(ACDDTLOW,"1")," and ",$$FMTE^XLFDT(ACDDTHI,"1"),".",!,"Enter date range of desired visit.",!
  • Line Location: GETDTRNG+3
Function Call: WRITE
  • Prompt: !!,"This visit already has an associated PCC visit!",!
  • Line Location: GENOUTP+1
Function Call: WRITE
  • Prompt: !,"INVALID TYPE CONTACT",!
  • Line Location: GENOUTP+3
Routine Call
  • DIR
  • Line Location:
    • INIT+3
    • SELECT+24
    • GETDTRNG+4
    • GETDTRNG+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDCS("C" SETCS+2
^ACDIIF("C" SETIIF+3
^ACDTDC("C" SETTD+3
^ACDVIS - [#9002172.1] GENOUTP+1, GENOUTP+2
^DPT - [#2] GETPAT+6
^TMP("ACD" SELECT+5, SELECT+12, GETDTRNG+2

Label References

Name Line Occurrences
@( GENOUTP+4
EOJ START+3, MAIN+2
GENOUTP PATLOOP+7
GETDTRNG SELECT+7
GETPAT PATLOOP+1
INIT START+2
MAIN START+4, HCP+5
PATLOOP MAIN+1
SELECT PATLOOP+5
SETIIF SETIN+1, SETRE+1, SETFU+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACD6DIG INIT+1
>> ACDCONT GENOUTP+4*
>> ACDDFN GETPAT+6*
>> ACDDFNP GETPAT+6*, SETIIF+5, SETIIF+6, SETTD+5, SETTD+6, SETCS+3
>> ACDDTHI SELECT+6*, SELECT+12, GETDTRNG+2*, GETDTRNG+3, GETDTRNG+9*
>> ACDDTLOW SELECT+6*, SELECT+11, SELECT+12, GETDTRNG+2*, GETDTRNG+3, GETDTRNG+6*
ACDEV EOJ+1!
ACDFHCP START+1~, INIT+6*, INIT+8*, HCP+2~, HCP+4*
ACDFPCC START+1~, INIT+6*, INIT+7*, INIT+9, HCP+2~, HCP+3*, GENOUTP+1
ACDLC SELECT+10*, SELECT+14*, SELECT+15, SELECT+18, SELECT+20, SELECT+23, SELECT+24, SELECT+26!
>> ACDMODE INIT+10*, HCP+4*
>> ACDOPT INIT+5*, INIT+7, INIT+8
ACDPCCL SETIIF+2!, SETTD+2!, EOJ+1!
ACDPCCL( SETIIF+5*, SETIIF+6*, SETTD+5*, SETTD+6*, SETCS+3*
ACDPCCLS GENOUTP+5*!
ACDPDD SELECT+19!
ACDPDD( SELECT+18
>> ACDQ START+3, INIT+2*, INIT+11*, HCP+4*, MAIN+1, PATLOOP+2, PATLOOP+4, PATLOOP+6, GETPAT+1*, GETPAT+7*
, SELECT+1*, SELECT+7, SELECT+8*, SELECT+12, SELECT+13*, SELECT+20*, SELECT+22*, SELECT+28*, GETDTRNG+1*, GETDTRNG+10*
, GENOUTP+5, SETIIF+1*, SETIIF+7*, SETTD+1*, SETTD+7*
>> ACDVCNT SELECT+7, GETDTRNG+3
>> ACDVIEN SELECT+3*, SELECT+25*, SELECT+27, GENOUTP+1, GENOUTP+2, SETIIF+3, SETIIF+5, SETIIF+6, SETTD+3, SETTD+5
, SETTD+6, SETCS+2, SETCS+3
ACDVLST SELECT+4!, SELECT+26!
ACDVLST( SELECT+15*, SELECT+25
>> ACDX SELECT+11*, SELECT+12*
>> ACDY SELECT+12*, SELECT+15, SELECT+16, SELECT+18, SETCS+1*, SETCS+2*, SETCS+3
>> AUPNLK("ALL" GETPAT+2*, GETPAT+4!
DA INIT+3!, SELECT+16*, SELECT+24!, GETDTRNG+4!, GETDTRNG+7!
>> DIC GETPAT+3*, SELECT+16*
>> DIC("S" GETPAT+3*
>> DIC(0 GETPAT+3*
>> DIQ SELECT+16*
DIR INIT+3!, SELECT+24!, GETDTRNG+4!, GETDTRNG+7!
DIR("A" INIT+3*, SELECT+24*, GETDTRNG+4*, GETDTRNG+7*
DIR("B" INIT+3*, GETDTRNG+7*
DIR(0 INIT+3*, SELECT+24*, GETDTRNG+4*, GETDTRNG+7*
>> DIRUT INIT+4, SELECT+20, GETDTRNG+8
>> DR SELECT+16*
U GETPAT+6, GENOUTP+2
>> X INIT+9*, GETDTRNG+7, GENOUTP+2*, GENOUTP+3, GENOUTP+4
>> Y INIT+5, GETPAT+5, GETPAT+6, SELECT+25, GETDTRNG+5, GETDTRNG+6, GETDTRNG+7, GETDTRNG+9, SETIIF+3*, SETIIF+4
, SETIIF+5, SETTD+3*, SETTD+4, SETTD+5
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