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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSSVRP

Package: Contract Health Management Information System

Routine: ACHSSVRP


Information

ACHSSVRP ; IHS/ITSC/PMF - SELECT AND PRINT AO SPECIAL VENDOR REPORT ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSSVRP.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZISC  ($$FMTE,$$HTE)^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 1 $$LOC^ACHS  
IHS VA Utilities 1 $$C^XBFUNC  
VA Fileman 1 IX^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSACOA  

Entry Points

Name Comments DBIA/ICR reference
INDEX ; Create print index for ^ACHSSVR & Begin & End date.
FAX ; Print FAX cover sheet for vendor.
PRTEND ; Print totals.
INDEXB ;
INDEXC ;
ZEND ;
B4 ;
B5 ;
B1 ;
B2 ;
B3 ;
INDEXZ ;
PGHDR ;
ZENDA ;

External References

Name Field # of Occurrence
^%ZISC ZEND+1
$$LOC^ACHS PGHDR+3, FAX+5, FAX+17
IX^DIC B1+4, B4+6
$$C^XBFUNC PGHDR+3, PGHDR+4, PGHDR+6, FAX+4, FAX+5, FAX+6, FAX+8
$$FMTE^XLFDT FAX+9
$$HTE^XLFDT ACHSSVRP+4
$$REPEAT^XLFSTR PRTEND+2, PGHDR+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "VENDOR LOOKUP ERROR FOR EIN # ",ACHSEIN
  • Line Location: B1+5
Function Call: WRITE
  • Prompt: "INVALID FACILITY CODE"
  • Line Location: B4+7
Function Call: WRITE
  • Prompt: ACHSFACN,?14,$E($E(X,103,122),1,16),?32,$E(X,4,4),"-",$E(X,5,7),"-",$E(X,8,12),?45,$E(X,13,14),"-",$E(X,67,67),?51,$E(X,34,39),?59
  • Line Location: B5+3
Function Call: WRITE
  • Prompt: $E(X,63,64),"/",$E(X,65,66),"/",$E(X,61,62),?70
  • Line Location: B5+5
Function Call: WRITE
  • Prompt: $J(V,9,2),!?14,"TRIBE-CD=",$E(X,151,153)," COMM-CD=",$E(X,154,160),!
  • Line Location: B5+7
Function Call: WRITE
  • Prompt: !
  • Line Location: B5+8
Function Call: WRITE
  • Prompt: ?14,"<",$E(X,119,134),">",!
  • Line Location: B5+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: B5+10
Function Call: WRITE
  • Prompt: ?14,"<",$E(X,135,150),">",!!
  • Line Location: B5+11
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",70),!!?10,"TOTAL DOCUMENTS LISTED = ",ACHSDCNT
  • Line Location: PRTEND+2
Function Call: WRITE
  • Prompt: @IOF,$$C^XBFUNC("CHS AUTHORIZATIONS FROM "_$$LOC^ACHS_" FACILITIES",80)
  • Line Location: PGHDR+3
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("FOR "_$P($G(^AUTTVNDR(ACHSEINP,0)),U),80)
  • Line Location: PGHDR+4
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("FOR AUTHORIZATIONS ISSUED BETWEEN "_A_" AND "_B,80)
  • Line Location: PGHDR+6
Function Call: WRITE
  • Prompt: !,ACHSDATE,?70,"PAGE ",ACHSPGNO,!!!,$$REPEAT^XLFSTR("-",80),!,"LOCATION",?14,"PATIENT NAME",?32,"DOCUMENT #",?45,"TYPE",?51,"IHS #",?59,"AUTH DTE",?70,"$$ AMOUNT",!,$$REPEAT^XLFSTR("-",80),!
  • Line Location: PGHDR+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FAX+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FAX+3
Function Call: WRITE
  • Prompt: $$C^XBFUNC("INDIAN HEALTH SERVICE",80)
  • Line Location: FAX+4
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC($$LOC^ACHS,80)
  • Line Location: FAX+5
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC($P(^AUTTLOC(DUZ(2),0),U,12),80)
  • Line Location: FAX+6
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC(X_", "_Z_" "_$P(^AUTTLOC(DUZ(2),0),U,15),80)
  • Line Location: FAX+8
Function Call: WRITE
  • Prompt: !!!!!!?10,"DATE: ",$$FMTE^XLFDT(DT)
  • Line Location: FAX+9
Function Call: WRITE
  • Prompt: !!!!?10,"DELIVER TO:",?25,$E($P(^AUTTVNDR(ACHSEINP,0),U,1),1,30)
  • Line Location: FAX+10
Function Call: WRITE
  • Prompt: !?25,$P(^AUTTVNDR(ACHSEINP,13),U,1)
  • Line Location: FAX+11
Function Call: WRITE
  • Prompt: !?25,$P(^AUTTVNDR(ACHSEINP,13),U,2)," "
  • Line Location: FAX+12
Function Call: WRITE
  • Prompt: Z," ",$P(^AUTTVNDR(ACHSEINP,13),U,4)
  • Line Location: FAX+14
Function Call: WRITE
  • Prompt: !!!!?10,"FAX #: ",?25,$P(^AUTTVNDR(ACHSEINP,11),U,14)
  • Line Location: FAX+15
Function Call: WRITE
  • Prompt: !!!!!!!?10,"FROM: ",?25,"Contract Health Services"
  • Line Location: FAX+16
Function Call: WRITE
  • Prompt: !?25,$E($$LOC^ACHS,1,30)
  • Line Location: FAX+17
Function Call: WRITE
  • Prompt: !!!!!!?10,"SUBJECT: ",?25,"CHS PURCHASE ORDERS"
  • Line Location: FAX+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: FAX+19
Routine Call
  • DIC
  • Line Location:
    • B1+4
    • B4+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTLOC - [#9999999.06] Classic Fileman Calls
^AUTTVNDR - [#9999999.11] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSSVR( B1+1, B1+7, B2+1, B3+1, B4+1, B4+3, PGHDR+5, INDEX+2*, INDEXB+1, INDEXC+2
, INDEXC+4, INDEXC+7*, INDEXC+9, INDEXC+11*, INDEXC+13*
^AUTTLOC - [#9999999.06] FAX+6, FAX+7, FAX+8
^AUTTVNDR - [#9999999.11] PGHDR+4, FAX+10, FAX+11, FAX+12, FAX+13, FAX+14, FAX+15
^DIC(4 - [#4] B4+8
^DIC(5 - [#5] FAX+7, FAX+13

Label References

Name Line Occurrences
B1 B1+5, B2+2
B2 B3+2
B3 B4+2
B4 B5+8, B5+10, B5+12
B5 B4+7
FAX B1+8
INDEX B1+7
INDEXB INDEXC+3
INDEXC INDEXC+15
INDEXZ INDEXB+2
PGHDR B1+8, B5+1
PRTEND B1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A PGHDR+5*, PGHDR+6
>> ACHSADT INDEXC+7*, INDEXC+8*, INDEXC+11, INDEXC+13
>> ACHSDATE ACHSSVRP+4*, PGHDR+7
>> ACHSDCNT ACHSSVRP+3*, B5+4*, PRTEND+2
ACHSEIN ACHSSVRP+3*, B1+1*, B1+2, B1+3, B1+5, B1+7, B2+1, B3+1, B4+1, B4+3
, ZENDA+1!, PGHDR+5, INDEX+2, INDEXB+1, INDEXC+2, INDEXC+4, INDEXC+7, INDEXC+9, INDEXC+11, INDEXC+13
>> ACHSEINP B1+6*, PGHDR+4, FAX+10, FAX+11, FAX+12, FAX+13, FAX+14, FAX+15
>> ACHSFAC ACHSSVRP+3*, B1+9*, B2+1*, B2+2, B3+1, B4+1, B4+3, B4+5
>> ACHSFACN B4+7*, B4+8*, B5+3
>> ACHSI INDEX+1*
>> ACHSJ INDEX+1*, INDEXB+1*, INDEXB+2, INDEXC+2, INDEXC+4, INDEXC+7
>> ACHSK INDEX+1*, INDEXC+2*, INDEXC+3, INDEXC+4, INDEXC+7
>> ACHSNMS ACHSSVRP+3*, B2+3*, B3+1*, B3+2, B4+1
>> ACHSPGNO ACHSSVRP+3*, PGHDR+2*, PGHDR+7
>> ACHSPNAM INDEXC+5*, INDEXC+6*, INDEXC+7
>> ACHSPTR PRTEND+1, PGHDR+1, FAX+1
>> ACHSSEQ ACHSSVRP+3*, B3+3*, B4+1*, B4+2, B4+3
>> ACHSX B4+3*, B5+2, INDEXC+4*, INDEXC+5, INDEXC+7
>> B PGHDR+5*, PGHDR+6
>> D B1+3*, B4+5*
DIC B1+3*, B4+4!, B4+5*
DIC(0 B1+3*, B4+5*
DT FAX+9
DUZ(2 FAX+6, FAX+7, FAX+8
>> I FAX+3*
IO B1+5, B4+7, ZEND+1
IO(0 B1+5, B4+7
IOF PGHDR+3, FAX+2
U B4+8, PGHDR+4, PGHDR+5, FAX+6, FAX+7, FAX+8, FAX+10, FAX+11, FAX+12, FAX+13
, FAX+14, FAX+15, INDEXC+9, INDEXC+11, INDEXC+13
>> V B5+6*, B5+7
X B1+3*, B4+5*, B5+2*, B5+3, B5+5, B5+6, B5+7, B5+8, B5+9, B5+10
, B5+11, ZENDA+1!, FAX+7*, FAX+8, INDEXC+9*, INDEXC+10*, INDEXC+11, INDEXC+12*, INDEXC+13
Y B1+5, B1+6, B4+7, B4+8, ZENDA+1!, FAX+7*, FAX+13*
>> Z PGHDR+5*, FAX+7*, FAX+8, FAX+13*, FAX+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All