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

Package: Patient Care Component Reports

Routine: APCLCOD0


Information

APCLCOD0 ; IHS/CMI/LAB - EXTENSION OF ROUTINE APCLCODE ;

Source Information

Source file <APCLCOD0.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Patient Care Component Reports 2 ^APCLCOD1  (DISPLAY,SHOW)^APCLCODE  
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 APCLCODE  

Entry Points

Name Comments DBIA/ICR reference
X3
SETDIR ; ENTRY POINT - SETS HELP AND DIR FOR INIT SUBROUTINE OF APCLCODE
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
^APCLCOD1 LOOK+5, LOOK+7
DISPLAY^APCLCODE LOOK+7
SHOW^APCLCODE ASK2+2
^DIC LOOK+1
YN^DICN ASK2+2
$$ICDDX^ICDEX LOOK+4, LOOK+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • 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+9
Function Call: WRITE
  • Prompt: !,$C(7),"Low code is higher than high code.",!
  • Line Location: LOOK+10
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+5*, LOOK+7*, LOOK+8, LOOK+10
>> APCL("LOW" LOOK+4*, LOOK+5, LOOK+8, LOOK+10
>> APCL("NO DISP LAY" , LOOK+2*, LOOK+7, LOOK+9*, LOOK+10*
>> APCLA LOOK+2*
>> APCLONE LOOK+5
>> APCLTBLE ASK2+1
>> APCLTYP LOOK+4, LOOK+5, LOOK+7
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!
U LOOK+4, LOOK+7
>> Y LOOK+2, LOOK+4, LOOK+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All