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

Package: IHS Dental System

Routine: ADEPQA4


Information

ADEPQA4 ; IHS/HQT/MJL - REVIEW PARAMETERS ;08:38 PM [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEPQA4.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
IHS Dental System 1 $$HAT^ADEPQA  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Dental System 1 ADEPQA  

Entry Points

Name Comments DBIA/ICR reference
CHK() ;EP - Returns 1 if user says parameters ok, otw 0
CHK2

External References

Name Field # of Occurrence
$$HAT^ADEPQA CHK+5, CHK+10
^DIR CHK+4, CHK+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+9
Function Call: WRITE
  • Prompt: !!,"This search includes dental visits which meet the following specifications:",!!
  • Line Location: CHK2+0
Function Call: WRITE
  • Prompt: !,"Limited to entries in the ",$P(^DIBT($P(ADESTP,U,2),0),U)," Template."
  • Line Location: CHK2+1
Function Call: WRITE
  • Prompt: !,"Limited to visits between "
  • Line Location: CHK2+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: CHK2+5
Function Call: WRITE
  • Prompt: " and "
  • Line Location: CHK2+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: CHK2+7
Function Call: WRITE
  • Prompt: !,"Limited to patients whose AGE AT TIME OF VISIT was between ",$P(ADEAGE,U,2)," and ",$P(ADEAGE,U,3)," (inclusive)."
  • Line Location: CHK2+8
Function Call: WRITE
  • Prompt: !,"Limited to the following ATTENDING DENTISTS:",!,?5
  • Line Location: CHK2+9
Function Call: WRITE
  • Prompt: $P(^DIC(16,$P(^DIC(6,$P($P(ADEPROV,U,2),",",ADEJ),0),U),0),U)," "
  • Line Location: CHK2+11
Function Call: WRITE
  • Prompt: !,"Limited to the following HYGIENISTS/THERAPISTS:",!,?5
  • Line Location: CHK2+12
Function Call: WRITE
  • Prompt: $P(^DIC(16,$P(^DIC(6,$P($P(ADEHYG,U,2),",",ADEJ),0),U),0),U)," "
  • Line Location: CHK2+14
Function Call: WRITE
  • Prompt: !,"Limited to the following LOCATIONS:",!,?5
  • Line Location: CHK2+15
Function Call: WRITE
  • Prompt: $P(^DIC(4,$P($P(ADELOC,U,2),",",ADEJ),0),U)," "
  • Line Location: CHK2+17
Function Call: WRITE
  • Prompt: !,"Limited to the following ADA CODES:",!,?5
  • Line Location: CHK2+21
Function Call: WRITE
  • Prompt: $P(^AUTTADA($P($P(ADESCN,U,2),",",ADEJ),0),U)," "
  • Line Location: CHK2+23
Function Call: WRITE
  • Prompt: !,"Limited to the following OPERATIVE SITES:",!,?5
  • Line Location: CHK2+24
Function Call: WRITE
  • Prompt: $P(^ADEOPS($P($P(ADESCN,U,7),",",ADEJ),88),U)," "
  • Line Location: CHK2+25
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK2+27
Function Call: WRITE
  • Prompt: "NOT "
  • Line Location: CHK2+28
Function Call: WRITE
  • Prompt: "Followed "
  • Line Location: CHK2+29
Function Call: WRITE
  • Prompt: "on the SAME Operative Site "
  • Line Location: CHK2+30
Function Call: WRITE
  • Prompt: "within ",$P(ADESCN,U,5)," days "
  • Line Location: CHK2+31
Function Call: WRITE
  • Prompt: "by these ADA CODES: "
  • Line Location: CHK2+32
Function Call: WRITE
  • Prompt: !,?5
  • Line Location: CHK2+32
Function Call: WRITE
  • Prompt: $P(^AUTTADA($P($P(ADESCN,U,3),",",ADEJ),0),U)," "
  • Line Location: CHK2+33
Function Call: WRITE
  • Prompt: !,"Codes on the same visit ",$S($P(ADESCN,U,8)="Y":"WILL",1:"will NOT")," be included as 'FOLLOWED BY' codes."
  • Line Location: CHK2+34
Routine Call
  • DIR
  • Line Location:
    • CHK+4
    • CHK+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEOPS - [#9002010.03] CHK2+25
^AUTTADA - [#9999999.31] CHK2+23, CHK2+33
^DD("DD" CHK2+5, CHK2+7
^DIBT( CHK2+1
^DIC(16 - [#16] CHK2+11, CHK2+14
^DIC(4 - [#4] CHK2+17
^DIC(6 - [#6] CHK2+11, CHK2+14

Label References

Name Line Occurrences
CHK2 CHK+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADEADA(1 CHK2+19, CHK2+20
>> ADEAGE CHK2+8
>> ADEDATE CHK2+2, CHK2+5, CHK2+7
>> ADEHYG CHK2+12, CHK2+14
ADEJ CHK2+10~, CHK2+11*, CHK2+13~, CHK2+14*, CHK2+16~, CHK2+17*, CHK2+22~, CHK2+23*, CHK2+25*, CHK2+33*
>> ADELOC CHK2+15, CHK2+17
>> ADEPROV CHK2+9, CHK2+11
ADESCN CHK2+20~*, CHK2+21, CHK2+23, CHK2+24, CHK2+25, CHK2+26, CHK2+28, CHK2+30, CHK2+31, CHK2+33
, CHK2+34, CHK2+36!
>> ADESTP CHK2+1
DIR CHK+2~, CHK+3!, CHK+8!
DIR("A" CHK+4*, CHK+9*
DIR("B" CHK+4*, CHK+9*
DIR(0 CHK+4*, CHK+9*
U CHK2+1, CHK2+5, CHK2+7, CHK2+8, CHK2+11, CHK2+14, CHK2+17, CHK2+21, CHK2+23, CHK2+24
, CHK2+25, CHK2+26, CHK2+28, CHK2+30, CHK2+31, CHK2+33, CHK2+34
Y CHK+6, CHK+11, CHK2+3~, CHK2+5*, CHK2+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All