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

Package: Contract Health Management Information System

Routine: ACHSOCSP


Information

ACHSOCSP ; IHS/ITSC/PMF - PRINT CHS SERVICE CLASS CODES SUMMARY ; [ 10/12/2004 12:50 PM ]

Source Information

Source file <ACHSOCSP.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Contract Health Management Information System 3 ($$LOC,ERPT,RTRN)^ACHS  BRPT^ACHSFU  ^ACHSVAR  
Kernel 2 ($$FMTE,$$HTE)^XLFDT  $$REPEAT^XLFSTR  
IHS VA Utilities 1 EN^XBVK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSOCSC  

Entry Points

Name Comments DBIA/ICR reference
P1A ;
SUBTOTL ;
P1 ;
END ;Close device, kill variables, quit
HEADER ;Prints heading
TOTAL ;
HEADER1 ;
NODATA ;

External References

Name Field # of Occurrence
$$LOC^ACHS HEADER+5
ERPT^ACHS END+2
RTRN^ACHS P1A+17, TOTAL+5, NODATA+3
BRPT^ACHSFU ACHSOCSP+5
^ACHSVAR END+2
EN^XBVK END+2
$$FMTE^XLFDT HEADER+9
$$HTE^XLFDT HEADER+3
$$REPEAT^XLFSTR P1A+3, SUBTOTL+1, TOTAL+1, HEADER+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(ACHSOCD,1,30),$J($FN(ACHSDOCS,","),10),$J($FN(ACHSOBS,",",2),16),$J($FN(ACHSPMS,",",2),16),$J($FN(ACHSWKL,","),8)
  • Line Location: P1A+13
Function Call: WRITE
  • Prompt: !,?12,"Paid Doc(s)",?30,$J(ACHSPDOC,10),?45,"Blankets/Special Doc(s): ",ACHSBLKT,!
  • Line Location: P1A+15
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",80),!,"SUBTOTAL",$$REPEAT^XLFSTR(" ",22),$J($FN(ACHSDST,","),10),$J("$"_$FN(ACHSOBST,",",2),16),$J("$"_$FN(ACHSPMST,",",2),16),$J($FN(ACHSWKLD,","),8)
  • Line Location: SUBTOTL+1
Function Call: WRITE
  • Prompt: !!,"PERCENTAGE OF PAYMENT TO OBLIGATED",?54,$J($FN(X,",",2),8),"%"
  • Line Location: SUBTOTL+3
Function Call: WRITE
  • Prompt: !!,"PERCENTAGE OF POSTED PAYMENTS TO OBLIGATED",?54,$J($FN(X,",",2),8),"%"
  • Line Location: SUBTOTL+4
Function Call: WRITE
  • Prompt: !!,"OBLIGATED PAYMENT RECONCILE AMT",?45,$J($FN(ACHSOBX,",",2),10)
  • Line Location: SUBTOTL+5
Function Call: WRITE
  • Prompt: !!,"PAYMENT ADJUSTMENT RECONCILE AMT",?45,$J($FN(ACHSZAT,",",2),10)
  • Line Location: SUBTOTL+6
Function Call: WRITE
  • Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!,"TOTAL",$$REPEAT^XLFSTR(" ",25),$J($FN(ACHSDOCT,","),10),$J("$"_$FN(ACHSOBT,",",2),16),$J("$"_$FN(ACHSPMTT,",",2),16),$J($FN(ACHSWKTO,","),8),!
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !,"PERCENTAGE OF PAYMENT TO TOTAL OBLIGATED",?54,$J($FN(Z,",",2),8),"%"
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: !!,"TOTAL DOCUMENTS IN PAID STATUS: ",?20,$J(ACHSPSCC,10)
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: !!!,"NO DATA FOR SPECIFIED ",$S(ACHSFY:"FISCAL YEAR",1:"DATES"),".",!!!!
  • Line Location: NODATA+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"*",$P(Y,"@",1)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?71,ACHSTIM,"*",!,"*User: ",ACHSUSR,?70,"Device:",IO,"*",!!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE,!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X,!,$$REPEAT^XLFSTR("*",80)
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !!,"OBJCODE",?32,"#_DOCS_#",?46,"$_OBLIGD_$",?61,"$_PAYMENT_$ WORKLD"
  • Line Location: HEADER1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("ACHSOCSQ" ACHSOCSP+8, P1+1, P1A+1, P1A+4, END+4!

Label References

Name Line Occurrences
END ACHSOCSP+8, P1A+17
HEADER P1+3, P1A+17, NODATA+1
HEADER1 P1+3, P1A+17
NODATA ACHSOCSP+8
P1 P1A+2
P1A P1A+18
SUBTOTL P1A+2
TOTAL P1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACHSBDT HEADER+9
>> ACHSBLKT P1A+11*, P1A+12*, P1A+15
>> ACHSBM ACHSOCSP+6*, P1A+17
>> ACHSDOC ACHSOCSP+6*, ACHSOCSP+7*
>> ACHSDOCS ACHSOCSP+7*, P1A+5*, P1A+13, P1A+16
>> ACHSDOCT ACHSOCSP+7*, SUBTOTL+8*, TOTAL+1
>> ACHSDST ACHSOCSP+7*, P1A+16*, SUBTOTL+1, SUBTOTL+8, SUBTOTL+10*
>> ACHSEDT HEADER+9
>> ACHSFAC ACHSOCSP+9*, P1+1*, P1+2, P1A+1, P1A+4
>> ACHSFY NODATA+2, HEADER+9
>> ACHSOB ACHSOCSP+6*, ACHSOCSP+7*
>> ACHSOBS ACHSOCSP+7*, P1A+6*, P1A+13, P1A+16
>> ACHSOBST ACHSOCSP+7*, P1A+16*, SUBTOTL+1, SUBTOTL+4, SUBTOTL+8, SUBTOTL+10*
>> ACHSOBT ACHSOCSP+7*, SUBTOTL+8*, TOTAL+1, TOTAL+2
>> ACHSOBX SUBTOTL+5, SUBTOTL+8
>> ACHSOC P1+4*, P1A+1*, P1A+2, P1A+3, P1A+4
>> ACHSOCD P1A+3*, P1A+13
>> ACHSPAGE ACHSOCSP+7*, P1A+17, SUBTOTL+10*, HEADER+2*, HEADER+8
>> ACHSPAY ACHSOCSP+6*
>> ACHSPDOC P1A+10*, P1A+15
>> ACHSPMS ACHSOCSP+7*, P1A+7*, P1A+13, P1A+16
>> ACHSPMST ACHSOCSP+7*, P1A+16*, SUBTOTL+1, SUBTOTL+4, SUBTOTL+8, SUBTOTL+10*
>> ACHSPMT ACHSOCSP+7*
>> ACHSPMTT ACHSOCSP+7*, SUBTOTL+8*, TOTAL+1, TOTAL+2
>> ACHSPSCC TOTAL+4
>> ACHSQUIT P1A+17
>> ACHSTIM HEADER+3*, HEADER+6
>> ACHSUSR HEADER+6
>> ACHSWKL P1A+8*, P1A+13, P1A+16
>> ACHSWKLD ACHSOCSP+7*, P1A+16*, SUBTOTL+1, SUBTOTL+8, SUBTOTL+10*
>> ACHSWKTO ACHSOCSP+7*, SUBTOTL+8*, TOTAL+1
>> ACHSZAT SUBTOTL+6, SUBTOTL+8
DIR END+4!
I END+3!
IO HEADER+6
IOF HEADER+1
IOSL ACHSOCSP+6
U P1A+3, P1A+5, P1A+6, P1A+7, P1A+8, P1A+10, P1A+11
X P1A+4*, P1A+5, P1A+6, P1A+7, P1A+8, P1A+10, P1A+11, SUBTOTL+4*, END+3!, HEADER+5*
, HEADER+7*, HEADER+8, HEADER+9*, HEADER+10
X2 END+4!
>> Y HEADER+3*, HEADER+4
Z TOTAL+2*, END+4!
>> ZTQUEUED END+1
>> ZTREQ END+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All