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 |  Marked Items |  All
Print Page as PDF
Routine: ACHSDFS

Package: Contract Health Management Information System

Routine: ACHSDFS


Information

ACHSDFS ; IHS/ITSC/PMF - ACCRUED DEFERRED SERVICES REPORT ;7/27/10 16:07

Source Information

Source file <ACHSDFS.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 1 ($$C,$$DATE,$$DF,$$EBB,$$LOC,$$USR,BRPT,ERPT,RTRN)^ACHS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHS DEF ACCRUEDDEFSVC  

Entry Points

Name Comments DBIA/ICR reference
END ; --- KILL vars, close device, quit.
HDR ; --- Report pagination control.
HDR1 ;
BEG ; --- Select Begin/End dates for report.
DEV ; --- Select device for report.
CATTOT ;
PRNT1 ;
START ;EP - From TaskMan.
IEN ; --- Process a document.
PRINT ;
PRNTX ;
ISSUEDT ; --- Move thru Issue date x-ref.

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC DEV+6, END+2
^%ZTLOAD DEV+12
$$C^ACHS START+5, START+7, START+8, HDR+3
$$DATE^ACHS BEG+2, BEG+5
$$DF^ACHS IEN+3
$$EBB^ACHS BEG+7
$$LOC^ACHS START+8
$$USR^ACHS START+8
BRPT^ACHS PRINT+3
ERPT^ACHS PRINT+6
RTRN^ACHS PRINT+6, HDR+1
$$FMTE^XLFDT START+8
$$REPEAT^XLFSTR CATTOT+1, HDR+3, HDR1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?7,ACHDSUB,?60,$J($FN($P($G(^TMP($J,"ACHSDFS",ACHDX,ACHDY,"TOTAL")),U),","),5),$J($FN($P($G(^TMP($J,"ACHSDFS",ACHDX,ACHDY,"TOTAL")),U,2),","),14),!
  • Line Location: PRNTX+3
Function Call: WRITE
  • Prompt: !!?5,"CATEGORY OF SERVICE: ",ACHDCAT,!
  • Line Location: PRNT1+1
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",79),!!?12,"TOTAL CATEGORY ",ACHDCAT,?60,$J($FN($P($G(^TMP($J,"ACHSDFS",ACHDX,"TOTAL")),U),","),5),$J("$"_$FN($P($G(^TMP($J,"ACHSDFS",ACHDX,"TOTAL")),U,2),","),14)
  • Line Location: CATTOT+1
Function Call: WRITE
  • Prompt: !!,ACHDCHS,!,ACHDTITL,!,$$C^ACHS("FISCAL YEAR "_ACHDFY,80),!,ACHDFT,!!!,"FACILITY: ",ACHDSU,?(66-$L(ACHDUSR)),"PREPARED BY: ",ACHDUSR,!!!,"CLINICAL DIRECTOR SIGNATURE:",$$REPEAT^XLFSTR("_",51),!!,$$REPEAT^XLFSTR("*",79),!!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?7,"SUBCATEGORY OF SERVICE",?60,"UNITS",?70,"EST. COST",!,$$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR1+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEF - [#9002066] ISSUEDT+1, IEN+1, IEN+2, IEN+5
^ACHSDFC - [#9002066.5] PRINT+5, PRNTX+2
^TMP($J START+2!, PRINT+2*, PRINT+5, PRNTX+2, PRNTX+3, CATTOT+1

Label References

Name Line Occurrences
ACHSDFS DEV+9
BEG BEG+6, BEG+7
CATTOT PRINT+5
DEV DEV+6, DEV+13
END BEG+3, DEV+3, PRINT+7
HDR PRINT+5, PRNTX+4
HDR1 PRINT+5, PRNTX+4
IEN IEN+2, IEN+3, IEN+9, IEN+15
ISSUEDT IEN+2
PRINT ISSUEDT+2
PRNT1 PRINT+5
PRNTX PRINT+5
START DEV+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+11*
>> %ZIS DEV+1*
ACHD END+1!
ACHDBDT BEG+2*, BEG+3, BEG+7, DEV+9, END+1!, START+8, START+9
ACHDCAT START+1~, ISSUEDT+4*, IEN+10*, IEN+11, IEN+12, IEN+13, IEN+14, PRINT+5*, PRNT1+1, CATTOT+1
ACHDCHS END+1!, START+5*, HDR+3
ACHDCNT START+1~
ACHDCNT( IEN+11*, IEN+13*, PRINT+2
ACHDCOST END+1!, IEN+7*, IEN+12, IEN+14
ACHDEDT BEG+5*, BEG+6, BEG+7, DEV+9, END+1!, START+8, ISSUEDT+2
ACHDFT START+1~, START+8*, HDR+3
>> ACHDFY START+10*, HDR+2*, HDR+3
>> ACHDFY(1 ISSUEDT+3*, HDR+2
ACHDHAT BEG+8*, END+1!
>> ACHDISDT START+9*, START+10, ISSUEDT+1*, ISSUEDT+2, ISSUEDT+3, IEN+1
ACHDSU START+1~, START+8*, HDR+3
ACHDSUB START+1~, ISSUEDT+4*, IEN+10*, IEN+13, IEN+14, PRNTX+2*, PRNTX+3
>> ACHDTITL START+7*, HDR+3
ACHDTOT START+1~
ACHDTOT( IEN+12*, IEN+14*, PRINT+2
ACHDTYPE START+1~, ISSUEDT+4*, IEN+6*
ACHDUNIT END+1!, IEN+8*, IEN+11, IEN+13
>> ACHDUSR START+8*, HDR+3
>> ACHDX PRINT+4*, PRINT+5*, PRNTX+2, PRNTX+3, CATTOT+1
>> ACHDY PRNTX+1*, PRNTX+2*, PRNTX+3
>> ACHSA ISSUEDT+4*, IEN+1*, IEN+2, IEN+5
>> ACHSBM PRNTX+4
ACHSQIO DEV+9*, END+1!
DUZ(2 ISSUEDT+1, IEN+1, IEN+2, IEN+5
IO("Q" DEV+4, DEV+5!
IO("S" DEV+6
IOF PRINT+5
IOM DEV+9
ION DEV+9
IOST DEV+6, DEV+9
>> POP DEV+3
U IEN+6, IEN+7, IEN+8, IEN+9, IEN+10, PRINT+2, PRINT+5, PRNTX+2, PRNTX+3, CATTOT+1
>> X IEN+5*, IEN+6, IEN+7, IEN+8, IEN+9, IEN+10, PRINT+1*, PRINT+2*
>> Y PRINT+2*
>> ZTDESC DEV+9*
ZTIO END+1!
>> ZTRTN DEV+9*
>> ZTSAVE( DEV+11*
ZTSK DEV+13, END+1!

Marked Items

Name Field # of Occurrence
$T(ACHSDFS DEV+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All