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

Package: Contract Health Management Information System

Routine: ACHSPCC5


Information

ACHSPCC5 ; IHS/ITSC/PMF - CHS AREA SPLITOUT (5/5)(LIST GENERATED DHRS) ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSPCC5.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Contract Health Management Information System 3 ($$AOP,$$LOC,$$PB,NOW,RTRN)^ACHS  LINES^ACHSFU  ^ACHSVAR  
IHS VA Utilities 3 $$DIR^XBDIR  VIEWR^XBLM  EN^XBVK  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSAREA DHR LIST  ACHSPCC4  

Entry Points

Name Comments DBIA/ICR reference
SITENAME ;
END ;
LEND ;
H2 ;
FMT ;
H1 ;
DEV ;
START ;EP - TaskMan.
L2 ;
L3 ;
K ;

External References

Name Field # of Occurrence
^%ZIS DEV+5
HOME^%ZIS ACHSPCC5+5, DEV+7
^%ZISC DEV+10, K+2, END+3
^%ZTLOAD DEV+15
$$AOP^ACHS DEV+11
$$LOC^ACHS ACHSPCC5+6
$$PB^ACHS DEV+1
NOW^ACHS ACHSPCC5+5, START+2
RTRN^ACHS L3+4, LEND+3, LEND+7
LINES^ACHSFU ACHSPCC5+5
^ACHSVAR K+2, END+1
$$DIR^XBDIR ACHSPCC5+3, FMT+1
VIEWR^XBLM DEV+3
EN^XBVK DEV+3, K+2, END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"No data in ^ACHSPCC.",$$DIR^XBDIR("E","Press RETURN...")
  • Line Location: ACHSPCC5+3
Function Call: WRITE
  • Prompt: @IOF,!,ACHS("*"),!,"*",?27,"CHS DATA TRANSMITTED TO ",ACHSCCTR,?78,"*",!,"*",?40-(($L(ACHSTIME)+6)\2),"as of ",ACHSTIME,?78,"*",!,"*",?40-(($L(ACHS("SITE"))+4)\2),"for ",ACHS("SITE"),?78,"*",!,ACHS("*"),!
  • Line Location: ACHSPCC5+8
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+10
Function Call: WRITE
  • Prompt: X,!
  • Line Location: L3+8
Function Call: WRITE
  • Prompt: !,"DOCUMENT NUMBER : ",$E(X,17),"-",$E(X,18,20),"-",$E(X,21,25),!?2,"EFFECTIVE DATE (MMDDYY): ",$E(X,2,3),"-",$E(X,4,5),"-",$E(X,6,7),?40,"COMMON ACCOUNTING NUMBER : ",$E(X,41,47)
  • Line Location: L3+11
Function Call: WRITE
  • Prompt: !?8,"DESTINATION CODE : ",$E(X,8,12),?47,"OBJECT CLASS CODE : ",$E(X,48,49),".",$E(X,50,51)
  • Line Location: L3+12
Function Call: WRITE
  • Prompt: !?16,"REF CODE : ",$E(X,13,15),?46,"IHS PAYMENT AMOUNT : ",+$E(X,52,61),".",$E(X,62,63)
  • Line Location: L3+13
Function Call: WRITE
  • Prompt: !?13,"FISCAL YEAR : ",$E(X,40),?48,"FED/NON-FED CODE : ",$E(X,64),!
  • Line Location: L3+14
Function Call: WRITE
  • Prompt: !!,"DHRs : ",ACHSTDHR,!!,"TOTAL RECORDS = ",ACHSRCT
  • Line Location: LEND+2
Function Call: WRITE
  • Prompt: !!,"DHR record layout:",!!!?5,"1",?8,"RECORD TYPE (2)",!?5,"2",?8,"EFFECTIVE DATE (MMDDYY)",!?5,"8",?8,"DESTINATION CODE",!?4,"13",?8,"323, 324, OR 325"
  • Line Location: LEND+4
Function Call: WRITE
  • Prompt: !?4,"16",?8,"DOCUMENT NUMBER",!?4,"26",?8,"If '05024', repeat 13-25, else blanks",!?4,"39",?8,"constant=1",!?4,"40",?8,"FISCAL YEAR",!?4,"41",?8,"COMMON ACCOUNTING NUMBER",!?4,"48",?8,"OBJECT CLASS CODE",!?4,"52",?8,"IHS PAYMENT AMOUNT"
  • Line Location: LEND+5
Function Call: WRITE
  • Prompt: !?4,"64",?8,"FED/NON-FED CODE",!?4,"65",?8,"blanks"
  • Line Location: LEND+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LEND+8
Function Call: WRITE
  • Prompt: @IOF,!,ACHSAST,!,"*",?25,"CHS DHR DATA TRANSMITTED TO ",ACHSCCTR,?67,"Page ",$J(ACHSPG,3),?78,"*",!,"*",?40-(($L(ACHSTIME)+6)\2),"as of ",ACHSTIME,?78,"*",!,"*",?40-(($L(ACHS("SITE"))+4)\2),"for ",ACHS("SITE"),?78,"*",!,ACHSAST,!!!
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: ?4,"+",?9,"1",?14,"+",?19,"2",?24,"+",?29,"3",?34,"+",?39,"4",?44,"+",?49,"5",?54,"+",?59,"6",?64,"+",?69,"7",?74,"+"
  • Line Location: H2+1
Routine Call
  • %ZIS
  • Line Location:
    • ACHSPCC5+5
    • DEV+7
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSPCC( L2+1, L3+1, L3+5
^ACHSPCC(0 ACHSPCC5+3, ACHSPCC5+6, START+1
^AUTTLOC - [#9999999.06] DEV+12
^AUTTLOC("C" SITENAME+1
^DIC(4 - [#4] SITENAME+1

Label References

Name Line Occurrences
DEV DEV+10, DEV+16
END FMT+2, L3+4
H1 START+4, L2+3, L3+4, LEND+3
H2 L3+8, L3+9, LEND+1
K DEV+2, DEV+3, DEV+7
L2 L3+2
L3 L3+6, L3+10, L3+16
LEND L2+2
SITENAME START+2, L2+3
START DEV+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+1*, DEV+2, DEV+3, DEV+14*
%ZIS DEV+4*, DEV+6!
>> ACHS("*" ACHSPCC5+6, ACHSPCC5+8, DEV+13
>> ACHS("R" ACHSPCC5+6*, START+1*, L2+3*, SITENAME+1
>> ACHS("SITE" ACHSPCC5+6*, ACHSPCC5+8, H1+2, SITENAME+1*
>> ACHSAST ACHSPCC5+6*, DEV+13*, H1+2
>> ACHSCAP FMT+3*, L3+8, L3+9, L3+10, H2+2
>> ACHSCCTR ACHSPCC5+4*, ACHSPCC5+8, H1+2
>> ACHSFDHR START+1*, L2+3*, L3+7*, L3+9
>> ACHSIO ACHSPCC5+6*
>> ACHSPG START+1*, H1+1*, H1+2
>> ACHSR START+1*, L2+1*, L2+2, L2+3, L3+1, L3+5
>> ACHSRAW FMT+3*, L3+8, L3+9, L3+15
>> ACHSRCT START+1*, L3+3*, LEND+2
>> ACHSRR START+1*, L3+1*, L3+2, L3+5
>> ACHSTDHR START+1*, L3+7*, LEND+2
>> ACHSTIME ACHSPCC5+8, H1+2
DTOUT FMT+2, DEV+2, L3+4, END+2!
DUOUT FMT+2, DEV+2, L3+4, END+2!
DUZ(2 DEV+12
IO ACHSPCC5+6, START+3
IO("Q" DEV+8, DEV+9!
IO("S" DEV+10
IO(0 ACHSPCC5+7
IOF ACHSPCC5+8, LEND+8, H1+2
IOSL L3+4
IOST DEV+10
>> POP DEV+7
U DEV+2, DEV+12, SITENAME+1
X DEV+11*, DEV+12, L3+5*, L3+6, L3+8, L3+11, L3+12, L3+13, L3+14, END+2!
Y FMT+1*, FMT+3, END+2!
ZTDESC DEV+12*, K+1!
ZTRTN DEV+12*, K+1!
>> ZTSAVE( DEV+14*
ZTSK DEV+16, K+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All