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

Package: Contract Health Management Information System

Routine: ACHSOCVD


Information

ACHSOCVD ; IHS/ITSC/PMF - DETAILED PRINT CHS OBJCLAS CODE - VENDOR ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSOCVD.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Contract Health Management Information System 3 $$LOC^ACHS  BRPT^ACHSFU  ^ACHSVAR  
Kernel 3 ^%ZISC  $$HTE^XLFDT  $$REPEAT^XLFSTR  
IHS VA Utilities 2 $$DIR^XBDIR  EN^XBVK  
VA Fileman 1 COMMA^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSOCV2  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
P3 ;
SUBTOTL ;
END ;Close device, kill variables, quit
P4 ;
VNDRTOT ;
GETADD ;Vendor address
GETPAT ;
TOTL ;
HEADER ;Prints heading
GETHRN ;
HEADER1 ;Prints Object Class Code/Vendor Data
PRINT ;Prints data totals
NODATA ;

External References

Name Field # of Occurrence
COMMA^%DTC PRINT+3, PRINT+6, SUBTOTL+3, SUBTOTL+6, VNDRTOT+3, VNDRTOT+6, TOTL+3, TOTL+6
^%ZISC END+2
$$LOC^ACHS HEADER+6
BRPT^ACHSFU ACHSOCVD+3
^ACHSVAR END+4
$$DIR^XBDIR PRINT+10, SUBTOTL+11, VNDRTOT+9, TOTL+9, NODATA+3
EN^XBVK END+4
$$HTE^XLFDT HEADER+4
$$REPEAT^XLFSTR SUBTOTL+1, VNDRTOT+1, TOTL+1, HEADER+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,ACHSDOC,?17,$E(ACHSPAT,1,25),?45,$J(ACHSHRN,6)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?54,X
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?68,X
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",80),!,"SUBTOTAL",?25,$J(ACHSDOCS,4)
  • Line Location: SUBTOTL+1
Function Call: WRITE
  • Prompt: ?54,X
  • Line Location: SUBTOTL+4
Function Call: WRITE
  • Prompt: ?68,X
  • Line Location: SUBTOTL+7
Function Call: WRITE
  • Prompt: !!,"PERCENTAGE OF PAYMENT TO OBLIGATED"
  • Line Location: SUBTOTL+9
Function Call: WRITE
  • Prompt: ?67,$E(X,1,5)_"%"
  • Line Location: SUBTOTL+9
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("=",80),!,"VENDOR TOTALS",?25,$J(ACHSVDCT,4)
  • Line Location: VNDRTOT+1
Function Call: WRITE
  • Prompt: ?54,X
  • Line Location: VNDRTOT+4
Function Call: WRITE
  • Prompt: ?68,X
  • Line Location: VNDRTOT+7
Function Call: WRITE
  • Prompt: !!,"PERCENTAGE OF PAYMENT TO OBLIGATED"
  • Line Location: VNDRTOT+8
Function Call: WRITE
  • Prompt: ?67,$E(X,1,5)_"%"
  • Line Location: VNDRTOT+8
Function Call: WRITE
  • Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!,"TOTAL",?25,$J(ACHSDOCT,4)
  • Line Location: TOTL+1
Function Call: WRITE
  • Prompt: ?56,X
  • Line Location: TOTL+4
Function Call: WRITE
  • Prompt: ?68,X
  • Line Location: TOTL+7
Function Call: WRITE
  • Prompt: !!,"PERCENTAGE OF PAYMENT TO OBLIGATED"
  • Line Location: TOTL+8
Function Call: WRITE
  • Prompt: ?67,$E(X,1,5)_"%"
  • Line Location: TOTL+8
Function Call: WRITE
  • Prompt: !!!,"NO DATA FOR SPECIFIED FISCAL YEAR",!!!!
  • Line Location: NODATA+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"*",ACHSDAT
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?71,ACHSTIM,"*",!,"*User: ",ACHSUSR,?70,"Device:",IO,"*"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !!?((80/2)-($L(X)/2)),X_ACHSPAGE
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !?((80/2)-($L(X)/2)),X_ACHSFY,!,$$REPEAT^XLFSTR("*",80)
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !!?5,"Object Class Code: ",ACHSOCD,!?16,"Vendor: ",ACHSVNDR,!?24,ACHSVADD,!?24,ACHSVCIT," ",?34,ACHSVST," ",?45,ACHSZIP,!!?1,"# DOCS #",?17,"PATIENT NAME",?44,"# CHART #",?56,"$ OBLIG $",?68,"$ PAYMENT $",!
  • Line Location: HEADER1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(3 - [#9002063] P3+4
^AUTTVNDR - [#9999999.11] GETADD+1
^DIC(5 - [#5] GETADD+2
^DPT - [#2] GETPAT+1
^TMP("ACHSOCV" ACHSOCVD+5, P2+1, P3+1, P4+1, GETADD+1, GETADD+4, END+3!, NODATA+4!

Label References

Name Line Occurrences
END PRINT+10, SUBTOTL+11, VNDRTOT+9, TOTL+9, NODATA+5
HEADER P3+3, PRINT+9, PRINT+10, NODATA+1
HEADER1 GETADD+3, PRINT+9, PRINT+10
NODATA ACHSOCVD+5
P2 VNDRTOT+11
P3 SUBTOTL+13
P4 PRINT+11
SUBTOTL P4+2
TOTL P2+2
VNDRTOT P3+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A GETHRN+1*
>> ACHSDAT HEADER+4*, HEADER+5
>> ACHSDOC ACHSOCVD+6*, P3+5*, P4+1*, P4+2, GETADD+1, GETADD+4, PRINT+1
>> ACHSDOCS ACHSOCVD+6*, PRINT+8*, SUBTOTL+1, SUBTOTL+8, SUBTOTL+10, SUBTOTL+12*
>> ACHSDOCT ACHSOCVD+6*, SUBTOTL+8*, TOTL+1
>> ACHSFAC ACHSOCVD+4*, ACHSOCVD+5, P2+1, P3+1, P3+4, P4+1, GETADD+1, GETADD+4, NODATA+4
>> ACHSFLG ACHSOCVD+6*, GETADD+3, PRINT+8*, PRINT+9*, PRINT+10*, SUBTOTL+12*, VNDRTOT+10*
>> ACHSFY HEADER+12
>> ACHSHRN GETHRN+1*, PRINT+1
>> ACHSOB ACHSOCVD+6*, GETHRN+1*, PRINT+2, PRINT+8
>> ACHSOBST ACHSOCVD+6*, PRINT+8*, SUBTOTL+2, SUBTOTL+8, SUBTOTL+9, SUBTOTL+10, SUBTOTL+12*
>> ACHSOBT ACHSOCVD+6*, SUBTOTL+8*, TOTL+2, TOTL+8
>> ACHSOC P2+3*, P3+1*, P3+2, P3+4, P4+1, GETADD+1, GETADD+4
>> ACHSOCD P3+4*, HEADER1+1
>> ACHSPAGE ACHSOCVD+4*, ACHSOCVD+6*, VNDRTOT+10*, HEADER+3*, HEADER+10
>> ACHSPAT GETPAT+1*, PRINT+1
>> ACHSPMST ACHSOCVD+6*, PRINT+8*, SUBTOTL+5, SUBTOTL+8, SUBTOTL+9, SUBTOTL+10, SUBTOTL+12*
>> ACHSPMT GETHRN+1*, PRINT+5, PRINT+8
>> ACHSPMTT ACHSOCVD+6*, SUBTOTL+8*, TOTL+5, TOTL+8
>> ACHSTIM HEADER+4*, HEADER+8
>> ACHSUSR HEADER+8
>> ACHSVADD GETADD+2*, HEADER1+1
>> ACHSVCIT GETADD+2*, HEADER1+1
>> ACHSVDCT ACHSOCVD+6*, SUBTOTL+10*, VNDRTOT+1, VNDRTOT+10*
>> ACHSVEN GETADD+1*
>> ACHSVNDR ACHSOCVD+7*, P2+1*, P2+2, P3+1, P4+1, GETADD+1, GETADD+4, HEADER1+1
>> ACHSVOBT ACHSOCVD+6*, SUBTOTL+10*, VNDRTOT+2, VNDRTOT+8, VNDRTOT+10*
>> ACHSVPMT ACHSOCVD+6*, SUBTOTL+10*, VNDRTOT+5, VNDRTOT+8, VNDRTOT+10*
>> ACHSVST GETADD+2*, HEADER1+1
>> ACHSZIP GETADD+2*, HEADER1+1
>> C ACHSOCVD+6*, PRINT+8*, SUBTOTL+12*
DUZ(2 ACHSOCVD+4
I END+3!
IO HEADER+1, HEADER+8
IO("S" PRINT+10, SUBTOTL+11, VNDRTOT+9, TOTL+9, NODATA+3
IOF HEADER+2
IOST PRINT+9, PRINT+10, SUBTOTL+11, VNDRTOT+9, TOTL+9, NODATA+3
P GETPAT+1*, END+3!
U P3+4, GETADD+1, GETADD+2, GETPAT+1, GETHRN+1
X GETADD+4*, GETPAT+1, GETHRN+1, PRINT+2*, PRINT+4, PRINT+5*, PRINT+7, SUBTOTL+2*, SUBTOTL+4, SUBTOTL+5*
, SUBTOTL+7, SUBTOTL+9*, VNDRTOT+2*, VNDRTOT+4, VNDRTOT+5*, VNDRTOT+7, VNDRTOT+8*, TOTL+2*, TOTL+4, TOTL+5*
, TOTL+7, TOTL+8*, END+3!, HEADER+6*, HEADER+7, HEADER+9*, HEADER+10, HEADER+11*, HEADER+12
X2 PRINT+2*, PRINT+5*, SUBTOTL+2*, SUBTOTL+5*, VNDRTOT+2*, VNDRTOT+5*, TOTL+2*, TOTL+5*, END+3!
Y END+3!, HEADER+4*
Z GETADD+1*, GETADD+2, END+3!
>> 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