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

Package: Contract Health Management Information System

Routine: ACHSCPTD


Information

ACHSCPTD ; IHS/ITSC/PMF - QUEUE CHS CPT CODE REPORT-BY VENDOR ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSCPTD.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Contract Health Management Information System 4 ($$EBB,$$LOC,$$PB,$$USR)^ACHS  ^ACHSCPTE  ^ACHSCPTG  ^ACHSVAR  
IHS VA Utilities 4 $$DIR^XBDIR  $$C^XBFUNC  VIEWR^XBLM  EN^XBVK  
Kernel 4 (,HOME)^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 2 WAIT^DICD  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Contract Health Management Information System 3 ACHSCPTF  ACHSCPTI  ACHSRPTCPTVNDR  

Entry Points

Name Comments DBIA/ICR reference
VENDOR ;
HELP ;
REPTYP ;
ZTLOAD ;Loads Taskman
SELBEG ;
CPTCODE ;
END ;
SELEND ;
DEVICE ;Device Selection
DOS ;Select Dates of Service
ENTCODE ;
SELVNDR ;

External References

Name Field # of Occurrence
^%ZIS DEVICE+7
HOME^%ZIS DEVICE+8, ZTLOAD+5, END+2
^%ZTLOAD ZTLOAD+3
$$EBB^ACHS SELEND+3
$$LOC^ACHS ACHSCPTD+5
$$PB^ACHS DEVICE+3
$$USR^ACHS ACHSCPTD+4
^ACHSCPTE DEVICE+9
^ACHSCPTG DEVICE+9
^ACHSVAR END+2
WAIT^DICD DEVICE+9
^DIR ENTCODE+2, REPTYP+7, DEVICE+8
$$DIR^XBDIR VENDOR+2, SELVNDR+1, CPTCODE+2, SELBEG+1, SELEND+1
$$C^XBFUNC ACHSCPTD+5
VIEWR^XBLM DEVICE+5
EN^XBVK DEVICE+5, END+2
$$FMTE^XLFDT SELEND+1
$$REPEAT^XLFSTR HELP+1, HELP+2, HELP+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!,$$C^XBFUNC("***** CPT Code Summary for "_$$LOC^ACHS_" *****",80)
  • Line Location: ACHSCPTD+5
Function Call: WRITE
  • Prompt: *7,*7,!!?8,$$REPEAT^XLFSTR("*",20)
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: " SELECTING CPT CODES ",$$REPEAT^XLFSTR("*",20)
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!?8,"1. You may enter '??' at any time for a list of valid codes."
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?8,"2. You may enter CPT CODES by NAME or NUMBER."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?8,"3. You may enter from 1 to 10 CPT CODES."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?8,"4. Press <RETURN> to terminate the selection process."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !?8,"5. Enter '^^' at any prompt to EXIT THIS PROGRAM."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: *7,*7,!!?8,$$REPEAT^XLFSTR("*",61)
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: *7,*7,!!?15,"That's 10!"
  • Line Location: ENTCODE+4
Function Call: WRITE
  • Prompt: *7,!!?22,"At least one entry is required.",!?10,"Please select a CPT CODE or enter '^^' to exit this program.",!
  • Line Location: ENTCODE+7
Function Call: WRITE
  • Prompt: *7,!!?20,"This report may take awhile to compile.",!?15," It is recommended that you QUEUE to a PRINTER.",!
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED - REQUEST ABORTED"
  • Line Location: DEVICE+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+8
    • ZTLOAD+5
    • END+2
Routine Call
  • DIR
  • Line Location:
    • ENTCODE+2
    • REPTYP+7
    • DEVICE+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("ACHSCPT" ACHSCPTD+3!

Label References

Name Line Occurrences
CPTCODE VENDOR+4, ENTCODE+3, SELBEG+2
DEVICE DEVICE+10
DOS CPTCODE+4, ENTCODE+3, ENTCODE+4
END VENDOR+3, SELVNDR+2, CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, REPTYP+8, DEVICE+4, DEVICE+5, DEVICE+8
ENTCODE ENTCODE+8
SELBEG SELEND+2, REPTYP+8
SELEND SELEND+3
VENDOR SELVNDR+2, CPTCODE+3, DEVICE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEVICE+3*, DEVICE+4, DEVICE+5, ZTLOAD+2*
>> %ZIS DEVICE+6*
>> ACHS HELP+10*, ENTCODE+4, ENTCODE+5*
>> ACHSBEG SELBEG+1*, SELEND+3
ACHSCODE CPTCODE+1!, ENTCODE+3, ENTCODE+7!
ACHSCODE( ENTCODE+6*
ACHSCODE(0 CPTCODE+4*
>> ACHSEND SELEND+1*, SELEND+3
>> ACHSFAC ACHSCPTD+6*
>> ACHSQIO ZTLOAD+1*
>> ACHSRTYP REPTYP+9*, DEVICE+5, DEVICE+9, ZTLOAD+1
>> ACHSUSR ACHSCPTD+4*
>> ACHSVEN SELVNDR+1*
ACHSVNDR VENDOR+1!
ACHSVNDR(0 VENDOR+4*
C END+1!
DIR HELP+11!, REPTYP+1!, DEVICE+2!, END+1!
DIR("?" REPTYP+3*, REPTYP+4*, REPTYP+5*, REPTYP+6*
DIR("A" ENTCODE+1*, REPTYP+2*
DIR("B" REPTYP+2*
DIR(0 ENTCODE+1*, REPTYP+2*, DEVICE+8*
DIROUT VENDOR+3, SELVNDR+2, CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, REPTYP+8, END+1!
DIRUT ENTCODE+3, END+1!
DT SELEND+1
DTOUT VENDOR+3, SELVNDR+2, CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, REPTYP+8, DEVICE+4, END+1!
DUOUT VENDOR+3, SELVNDR+2, CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, REPTYP+8, DEVICE+4, END+1!
DUZ(2 ACHSCPTD+6
I END+1!
IO("Q" DEVICE+9, ZTLOAD+4!
IO("S" DEVICE+9, DEVICE+10
IOM ZTLOAD+1
ION ZTLOAD+1
IOSL ZTLOAD+1
IOST DEVICE+10, ZTLOAD+1
>> POP DEVICE+8
U DEVICE+4
>> Y VENDOR+2*, VENDOR+4, CPTCODE+2*, CPTCODE+4, ENTCODE+6, ENTCODE+7, REPTYP+9, DEVICE+8
>> ZTDESC ZTLOAD+1*
>> ZTIO ZTLOAD+1*
>> ZTRTN ZTLOAD+1*
>> ZTSAVE( ZTLOAD+2*
ZTSK ZTLOAD+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All