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 |  All
Print Page as PDF
Routine: ACDRLP1

Package: Alcohol Chemical Dependency

Routine: ACDRLP1


Information

ACDRLP1 ;IHS/ADC/EDE/KML - CONT OF ACDRLP;

Source Information

Source file <ACDRLP1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Alcohol Chemical Dependency 1 PAUSE^ACDRL01  
VA Fileman 1 ^DIWP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Alcohol Chemical Dependency 1 ACDRLP  

Entry Points

Name Comments DBIA/ICR reference
COUNT ;if COUNTING entries only
PAUSE
SHOW ;
COVPAGE ;EP
WPS ;EP
WP ;EP - Entry point to print wp fields pass node in ACDNODE
SHOWP ;

External References

Name Field # of Occurrence
PAUSE^ACDRL01 SHOW+6, SHOWP+4, SHOWP+6, SHOWP+8, SHOWP+9, SHOWP+13, SHOWP+15, SHOWP+18, SHOWP+20, PAUSE
, COUNT+1
^DIWP WP+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"CHEMICAL DEPENDENCY MIS ",$S(ACDPTVS="P":"PATIENT",1:"CDMIS RECORD")," ",$S(ACDCTYP="D":"LISTING",1:"COUNT")
  • Line Location: COVPAGE+2
Function Call: WRITE
  • Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U)
  • Line Location: COVPAGE+3
Function Call: WRITE
  • Prompt: !!,"The following report contains a ",$S(ACDPTVS="V":"CDMIS Record",1:"Patient")," report based on the",!,"following criteria:",!
  • Line Location: COVPAGE+4
Function Call: WRITE
  • Prompt: !,$S(ACDPTVS="P":"PATIENT",1:"VISIT")," Selection Criteria"
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !!?6,"Visit Date range: ",ACDBDD," to ",ACDEDD,!
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: " ; "
  • Condition for execution: C'=1&(ACDY'="")
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: X
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOWP+4
Function Call: WRITE
  • Prompt: !!,$S(ACDPTVS="V":"NO VISITS",1:"NO PATIENTS")_" TO REPORT.",!
  • Line Location: SHOWP+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: SHOWP+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOWP+9
Function Call: WRITE
  • Prompt: !!,"PRINT Field Selection"
  • Line Location: SHOWP+10
Function Call: WRITE
  • Prompt: $P(^ACDRPTD(ACDRPT,12,X,0),U,2),")"
  • Line Location: SHOWP+14
Function Call: WRITE
  • Prompt: !?10," TOTAL column width: ",ACDTCW
  • Line Location: SHOWP+16
Function Call: WRITE
  • Prompt: !!?6,$S(ACDPTVS="V":"Records",1:"Patients")," will be sorted by: ",$P(^ACDTITEM(ACDSORT,0),U),!
  • Line Location: SHOWP+19
Function Call: WRITE
  • Prompt: !?6,"Each ",$P(^ACDTITEM(ACDSORT,0),U)," will be on a separate page.",!
  • Line Location: SHOWP+21
Function Call: WRITE
  • Prompt: !!,$S(ACDPTVS="V":"NO VISITS",1:"NO PATIENTS")_" TO REPORT.",!
  • Line Location: SHOWP+22
Function Call: WRITE
  • Prompt: !!!,$S(ACDPTVS="V":"NO VISITS",1:"NO PATIENTS")_" TO REPORT.",!
  • Line Location: COUNT+2
Function Call: WRITE
  • Prompt: !!!,"Total COUNT of ",$S(ACDPTVS="P":"Patients",1:"Records"),": ",ACDRCNT
  • Line Location: COUNT+3
Function Call: WRITE
  • Prompt: !!!,"Total COUNT of ",$S(ACDPTVS="P":"Patients",1:"Records"),": ",ACDPTCT
  • Line Location: COUNT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDRPTD - [#9002171.8] SHOW+4, SHOW+5, SHOW+8, SHOWP+11, SHOWP+12, SHOWP+14, WP+4
^ACDTITEM - [#9002171.3] SHOW+7, SHOW+8, SHOWP+5, SHOWP+14, SHOWP+19, SHOWP+21
^DIC - [#1] WP+3
^TMP("ACDRL" SHOWP+6, SHOWP+22, COUNT+2
^UTILITY($J WP+2!, WPS+1, WPS+3!
^VA(200 - [#200] COVPAGE+3

Label References

Name Line Occurrences
COUNT SHOWP+2
PAUSE SHOWP+11
SHOWP SHOW+4

Naked Globals

Name Field # of Occurrence
^(2 SHOW+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDBDD SHOW+2, SHOW+3
>> ACDBTH SHOWP+6, SHOWP+22, COUNT+2
>> ACDCRIT SHOWP+12*, SHOWP+14
>> ACDCTYP COVPAGE+2, SHOWP+1, SHOWP+2, SHOWP+3, SHOWP+8
ACDDA WP+3, WPS+3!
>> ACDEDD SHOW+2, SHOW+3
ACDFILE SHOWP+1, WP+3, WPS+3!
>> ACDG WP+3*, WP+4, WP+5
>> ACDI SHOW+5*, SHOW+7, SHOW+8, SHOWP+12*, WP+4
>> ACDJOB SHOWP+6, SHOWP+22, COUNT+2
ACDNODE WPS+3!
>> ACDPCNT WPS+1*
>> ACDPRNM( WPS+1*
>> ACDPTCT COUNT+4
>> ACDPTVS COVPAGE+2, COVPAGE+4, SHOW+1, SHOW+3, SHOWP+6, SHOWP+19, SHOWP+22, COUNT+2, COUNT+3, COUNT+4
ACDQ SHOW+8!, SHOW+9!
>> ACDRCNT COUNT+3
>> ACDRDTR SHOW+2
>> ACDRPT SHOW+4, SHOW+5, SHOW+8, SHOWP+11, SHOWP+12, SHOWP+14, WP+4
>> ACDSORT SHOWP+5, SHOWP+17, SHOWP+19, SHOWP+21
>> ACDSPAG SHOWP+21
>> ACDTCW SHOWP+16
>> ACDX WP+4*
>> ACDY SHOW+8*
>> C SHOW+8*
DIWF WPS+2!
DIWL WP+4*, WPS+1, WPS+2!
DIWR WP+4*, WPS+2!
DUZ COVPAGE+3
IOF COVPAGE+1, SHOW+6, SHOWP+4, SHOWP+6, SHOWP+8, SHOWP+9, SHOWP+13, SHOWP+15, SHOWP+18, SHOWP+20
, PAUSE, COUNT+1
IOSL SHOW+6, SHOWP+4, SHOWP+9, SHOWP+13, SHOWP+15, SHOWP+18, SHOWP+20, COUNT+1
U COVPAGE+3, SHOW+7, SHOWP+5, SHOWP+12, SHOWP+14, SHOWP+19, SHOWP+21, WP+4
>> X SHOW+8*, SHOWP+14*, WP+5*
>> Y WP+5*
Z WPS+1*, WPS+2!
>> ZTQUEUED SHOWP+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All