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

Package: Patient Care Component

Routine: APCDFOA4


Information

APCDFOA4 ; IHS/CMI/LAB - EXTENSION OF ROUTINE APCDFOA3 ;

Source Information

Source file <APCDFOA4.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Patient Care Component 2 (DISPLAY,SHOW)^APCDFOA3  ^APCDFOA5  
VA Fileman 2 ^DIC  YN^DICN  
DRG Grouper 1 $$ICDOP^ICDEX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDFOA3  

Entry Points

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

External References

Name Field # of Occurrence
DISPLAY^APCDFOA3 LOOKSTAR+3
SHOW^APCDFOA3 ASK2+2
^APCDFOA5 LOOKSTAR+2, LOOKSTAR+3
^DIC LOOK+1
YN^DICN ASK2+2
$$ICDOP^ICDEX LOOKSTAR+1, LOOKSTAR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!," ?? Invalid ",$S(APCDTYP="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: LOOKSTAR+5
Function Call: WRITE
  • Prompt: !,$C(7),"Low code is higher than high code.",!
  • Line Location: LOOKSTAR+6
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
^ICD0 - [#80.1] 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
>> APCD("HI" LOOKSTAR+2*, LOOKSTAR+3*, LOOKSTAR+4, LOOKSTAR+6
>> APCD("LOW" LOOKSTAR+1*, LOOKSTAR+2, LOOKSTAR+4, LOOKSTAR+6
>> APCD("NO DISP LAY" , LOOK+2*, LOOKSTAR+3, LOOKSTAR+5*, LOOKSTAR+6*
>> APCDA LOOK+2*
>> APCDONE LOOKSTAR+2
>> APCDSYS LOOK+1
>> APCDTABL ASK2+1
>> APCDTYP LOOK+2, LOOKSTAR+1, LOOKSTAR+2, LOOKSTAR+3
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 LOOKSTAR+1, LOOKSTAR+3
>> Y LOOK+2, LOOKSTAR+1, LOOKSTAR+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All