Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACDRL2

Package: Alcohol Chemical Dependency

Routine: ACDRL2


Information

ACDRL2 ;IHS/ADC/EDE/KML - CONT OF ACDRL;

Source Information

Source file <ACDRL2.m>

Entry Points

Name Comments DBIA/ICR reference
PMENU ;EP
RMENU ;EP - SORT MENU
SMENU ;EP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?((80-$L(ACDLHDR))/2),ACDLHDR,!
  • Line Location: PMENU+3
Function Call: WRITE
  • Prompt: "The following data items can be printed. You can use up to 132 characters.",!,"Choose the data items in the order you want them printed.",!
  • Line Location: PMENU+4
Function Call: WRITE
  • Prompt: ?15,"Total Report width (including column margins - 2 spaces): ",ACDTCW
  • Line Location: PMENU+5
Function Call: WRITE
  • Prompt: ?27,J,") ",$S($P(^ACDTITEM(ACDSEL(J),0),U,14)="":$E($P(^ACDTITEM(ACDSEL(J),0),U),1,20),1:$P(^(0),U,14))
  • Line Location: PMENU+11
Function Call: WRITE
  • Prompt: ?55,K,") ",$S($P(^ACDTITEM(ACDSEL(K),0),U,14)="":$E($P(^ACDTITEM(ACDSEL(K),0),U),1,20),1:$P(^(0),U,14))
  • Line Location: PMENU+12
Function Call: WRITE
  • Prompt: !?7,"<Enter a list or a range. E.g. 1-4,5,20 or 10,12,20,30>"
  • Line Location: PMENU+13
Function Call: WRITE
  • Prompt: !?7,"<<HIT RETURN to conclude selections or '^' to exit>>"
  • Line Location: PMENU+14
Function Call: WRITE
  • Prompt: !!,"The ",$S(ACDPTVS="P":"Patients",1:"records")," displayed can be selected based on any of the following criteria:",!
  • Line Location: SMENU+3
Function Call: WRITE
  • Prompt: ?27,J,") ",$E($P(^ACDTITEM(ACDSEL(J),0),U),1,20)
  • Line Location: SMENU+9
Function Call: WRITE
  • Prompt: ?53,K,") ",$E($P(^ACDTITEM(ACDSEL(K),0),U),1,20)
  • Line Location: SMENU+10
Function Call: WRITE
  • Prompt: !!?9,"<Enter a list or a range. E.g. 1-4,5,20 or 10,12,20,30>"
  • Line Location: SMENU+11
Function Call: WRITE
  • Prompt: !?9,"<<HIT RETURN to conclude selections or bypass screens>>"
  • Line Location: SMENU+12
Function Call: WRITE
  • Prompt: !!,"The ",$S(ACDPTVS="P":"Patients",1:"records")," displayed can be SORTED by any one of the following:",!
  • Line Location: RMENU+3
Function Call: WRITE
  • Prompt: ?27,J,") ",$E($P(^ACDTITEM(ACDSEL(J),0),U),1,20)
  • Line Location: RMENU+9
Function Call: WRITE
  • Prompt: ?53,K,") ",$E($P(^ACDTITEM(ACDSEL(K),0),U),1,20)
  • Line Location: RMENU+10
Function Call: WRITE
  • Prompt: !!,"<<If you don't select a sort criteria the report will be sorted by ",$S(ACDPTVS="V":"Visit date",1:"Patient"),".>>"
  • Line Location: RMENU+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDTITEM - [#9002171.3] PMENU+6, PMENU+10, PMENU+11, PMENU+12, SMENU+4, SMENU+8, SMENU+9, SMENU+10, RMENU+4, RMENU+8
, RMENU+9, RMENU+10

Naked Globals

Name Field # of Occurrence
^(0 PMENU+6, PMENU+10, PMENU+11, PMENU+12, SMENU+4, RMENU+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDCUT PMENU+8*, PMENU+11, PMENU+12, SMENU+6*, SMENU+9, SMENU+10, RMENU+6*, RMENU+9, RMENU+10
ACDDISP PMENU+1!, SMENU+1!, RMENU+1!
ACDDISP( PMENU+9, PMENU+10*, PMENU+11*, PMENU+12*, SMENU+7, SMENU+8*, SMENU+9*, SMENU+10*, RMENU+7, RMENU+8*
, RMENU+9*, RMENU+10*
ACDHIGH PMENU+1!, PMENU+6*, PMENU+8, SMENU+1!, SMENU+4*, SMENU+6, RMENU+1!, RMENU+4*, RMENU+6
>> ACDLHDR PMENU+3*
>> ACDPTVS PMENU+6, SMENU+3, SMENU+4, RMENU+3, RMENU+4, RMENU+11
ACDSEL PMENU+1!, SMENU+1!, RMENU+1!
ACDSEL( PMENU+6*, PMENU+9, PMENU+10, PMENU+11, PMENU+12, SMENU+4*, SMENU+7, SMENU+8, SMENU+9, SMENU+10
, RMENU+4*, RMENU+7, RMENU+8, RMENU+9, RMENU+10
>> ACDTCW PMENU+5
>> ACDXREF PMENU+6, SMENU+4
>> I PMENU+9*, PMENU+10, PMENU+11, SMENU+7*, SMENU+8, SMENU+9, RMENU+7*, RMENU+8, RMENU+9
IOF PMENU+2, SMENU+2, RMENU+2
IOSL SMENU+2, RMENU+2
>> J PMENU+9*, PMENU+11*, PMENU+12, SMENU+7*, SMENU+9*, SMENU+10, RMENU+7*, RMENU+9*, RMENU+10
>> K PMENU+9*, PMENU+12*, SMENU+7*, SMENU+10*, RMENU+7*, RMENU+10*
U PMENU+6, PMENU+10, PMENU+11, PMENU+12, SMENU+4, SMENU+8, SMENU+9, SMENU+10, RMENU+4, RMENU+8
, RMENU+9, RMENU+10
>> X PMENU+6*, SMENU+4*, RMENU+4*
>> Y PMENU+6*, SMENU+4*
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All