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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLAUD6

Package: Patient Care Component Reports

Routine: APCLAUD6


Information

APCLAUD6 ; IHS/CMI/LAB - EXTENSION OF ROUTINE APCLAUD5 ;

Source Information

Source file <APCLAUD6.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Patient Care Component Reports 2 (DISPLAY,SHOW)^APCLAUD5  ^APCLAUD7  
VA Fileman 2 ^DIC  YN^DICN  
DRG Grouper 1 $$ICDDX^ICDEX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLAUD5  

Entry Points

Name Comments DBIA/ICR reference
X3
SETDIR ; ENTRY POINT - SETS HELP AND DIR FOR INIT SUBROUTINE OF APCLAUD5
LOOK ; ENTRY POINT - LOOKUP USER RESPONSE; SET UTILITY NODES
ASK2 ;ASKS USER IF WANTS TO DISPLAY/PRINT RESULTS TO THIS POINT

External References

Name Field # of Occurrence
DISPLAY^APCLAUD5 LOOK+5
SHOW^APCLAUD5 ASK2+2
^APCLAUD7 LOOK+4, LOOK+5
^DIC LOOK+1
YN^DICN ASK2+2
$$ICDDX^ICDEX LOOK+3, LOOK+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)," ?? Invalid ",$S(APCLTYP="LOW":"LOW",1:"HIGH")," code."
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: !,$C(7),"Low and high codes of range must both start either with a letter or a number.",!
  • Line Location: LOOK+7
Function Call: WRITE
  • Prompt: !,$C(7),"Low code is higher than high code.",!
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: !!,"A code range has yet to be selected. A display cannot be generated.",!
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"Do you want to display the codes from a range you have already selected"
  • Line Location: ASK2+2
Function Call: WRITE
  • Prompt: !!,"A table of ranges you have selected is displayed above. You may ask for the",!,"codes in one of the ranges to be displayed.",!
  • Line Location: ASK2+4
Routine Call
  • DIC
  • Line Location:
    • LOOK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls

Label References

Name Line Occurrences
ASK2 ASK2+4
X3 LOOK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK2+2*, ASK2+3, ASK2+4
>> APCL("HI" LOOK+4*, LOOK+5*, LOOK+6, LOOK+8
>> APCL("LOW" LOOK+3*, LOOK+4, LOOK+6, LOOK+8
>> APCL("NO DISP LAY" , LOOK+2*, LOOK+5, LOOK+7*, LOOK+8*
>> APCLA LOOK+2*
>> APCLONE LOOK+4
>> APCLSYS LOOK+1
>> APCLTABL ASK2+1
>> APCLTYP LOOK+2, LOOK+3, LOOK+4, LOOK+5
DIC LOOK+1*!
DIC(0 LOOK+1*
>> DIR("?" SETDIR+1*, SETDIR+2*, SETDIR+3*, SETDIR+4*, SETDIR+5*
>> DIR("??" SETDIR+6*
>> DIR(0 SETDIR+1*
DR LOOK+1!
>> ICDSYS LOOK+1*
U LOOK+3, LOOK+5
>> Y LOOK+2, LOOK+3, LOOK+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All