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

Package: Contract Health Management Information System

Routine: ACHSSVRQ


Information

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

Source Information

Source file <ACHSSVRQ.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  ($$FMTE,$$HTE)^XLFDT  $$REPEAT^XLFSTR  
IHS VA Utilities 4 $$DIR^XBDIR  $$C^XBFUNC  VIEWR^XBLM  EN^XBVK  
Contract Health Management Information System 1 ($$LOC,$$PB)^ACHS  
VA Fileman 1 (,IX)^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSAREA SP VEN REPORT  

Entry Points

Name Comments DBIA/ICR reference
INDEX ;EP - Create print index for ^ACHSSVR & begin & end dates.
B0C ;
B1A ;
NOREPORT ; No information in ACHSAOP(DUZ(2),"SVR",ACHSEIN
INDEXC ;
PRTEND ; End printing, print totals.
ZTLOAD ;
ZEND ; Close device, kill vars, quit.
FAX ;EP - Print FAX cover sheet for vendor.
B4 ;
INDEXB ;
A2 ;
B0 ;
B2 ;
B3 ;
PRINT ;EP - From TaskMan.
INDEXZ ;
PGHDR ; Print report header.

External References

Name Field # of Occurrence
^%ZIS B0C+5
HOME^%ZIS ZTLOAD+5
^%ZISC ZEND+2
^%ZTLOAD ZTLOAD+3
KILL^%ZTLOAD ZTLOAD+7
$$LOC^ACHS PGHDR+3, FAX+2, FAX+14
$$PB^ACHS B0C+1
^DIC A2+4
IX^DIC B4+6
$$DIR^XBDIR B1A+1, PRTEND+5, ZEND+1, NOREPORT+3
$$C^XBFUNC PGHDR+3, PGHDR+4, PGHDR+6, FAX+2, FAX+3, FAX+5
VIEWR^XBLM B0C+3
EN^XBVK B0C+3
$$FMTE^XLFDT FAX+6
$$HTE^XLFDT PRINT+3
$$REPEAT^XLFSTR PRTEND+2, PGHDR+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"No Special Vendors have been identified",!,"in the CHS AREA OFFICE PARAMETERS file."
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: A2+2
Function Call: WRITE
  • Prompt: "INVALID FACILITY CODE"
  • Line Location: B4+7
Function Call: WRITE
  • Prompt: ACHSFACN,?14,$E($E(X,103,118),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: B4+11
Function Call: WRITE
  • Prompt: $E(X,63,64),"/",$E(X,65,66),"/",$E(X,61,62),?70
  • Line Location: B4+13
Function Call: WRITE
  • Prompt: $J(V,9,2),!," (",ACHSFAC,")",?14,"TRIBE-CD=",$E(X,151,153)," COMM-CD=",$E(X,154,160),!
  • Line Location: B4+15
Function Call: WRITE
  • Prompt: !
  • Line Location: B4+16
Function Call: WRITE
  • Prompt: ?14,"<",$E(X,119,134),">",!
  • Line Location: B4+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: B4+18
Function Call: WRITE
  • Prompt: ?14,"<",$E(X,135,150),">",!!
  • Line Location: B4+19
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",70),!!?10,"TOTAL DOCUMENTS LISTED = ",ACHSDCNT
  • Line Location: PRTEND+2
Function Call: WRITE
  • Prompt: !,"No Report available for this Vendor"
  • Line Location: NOREPORT+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,!!!!!,$$C^XBFUNC("INDIAN HEALTH SERVICE",80),!,$$C^XBFUNC($$LOC^ACHS,80)
  • Line Location: FAX+2
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC($P(^AUTTLOC(DUZ(2),0),U,12),80)
  • Line Location: FAX+3
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC(X_", "_Z_" "_$P(^AUTTLOC(DUZ(2),0),U,15),80)
  • Line Location: FAX+5
Function Call: WRITE
  • Prompt: !!!!!!?10,"DATE: ",$$FMTE^XLFDT(DT)
  • Line Location: FAX+6
Function Call: WRITE
  • Prompt: !!!!?10,"DELIVER TO:",?25,$E($P(^AUTTVNDR(ACHSEINP,0),U,1),1,30)
  • Line Location: FAX+7
Function Call: WRITE
  • Prompt: !?25,$P(^AUTTVNDR(ACHSEINP,13),U,1)
  • Line Location: FAX+8
Function Call: WRITE
  • Prompt: !?25,$P(^AUTTVNDR(ACHSEINP,13),U,2)," "
  • Line Location: FAX+9
Function Call: WRITE
  • Prompt: Z," ",$P(^AUTTVNDR(ACHSEINP,13),U,4)
  • Line Location: FAX+11
Function Call: WRITE
  • Prompt: !!!!?10,"FAX #: ",?25,$P(^AUTTVNDR(ACHSEINP,11),U,14)
  • Line Location: FAX+12
Function Call: WRITE
  • Prompt: !!!!!!!?10,"FROM: ",?25,"Contract Health Services"
  • Line Location: FAX+13
Function Call: WRITE
  • Prompt: !?25,$E($$LOC^ACHS,1,30)
  • Line Location: FAX+14
Function Call: WRITE
  • Prompt: !!!!!!?10,"SUBJECT: ",?25,"CHS PURCHASE ORDERS"
  • Line Location: FAX+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: FAX+16
Routine Call
  • %ZIS
  • Line Location:
    • ZTLOAD+5
Routine Call
  • DIC
  • Line Location:
    • A2+4
Routine Call
  • %ZIS
  • Line Location:
    • B0C+5
Routine Call
  • DIC
  • Line Location:
    • B4+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSAOP - [#9002079] A2+1
^ACHSSVR( B0+1, PRINT+4, 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+12, INDEXC+14*
^AUTTLOC - [#9999999.06] FAX+3, FAX+4, FAX+5
^AUTTVNDR - [#9999999.11] A2+6, PGHDR+4, FAX+7, FAX+8, FAX+9, FAX+10, FAX+11, FAX+12
^DIC(4 - [#4] B4+8
^DIC(5 - [#5] FAX+4, FAX+10

Label References

Name Line Occurrences
A2 B1A+2, ZTLOAD+8, B4+7, PRTEND+6, NOREPORT+4
B0C B0C+9
B2 B3+2
B3 B4+2
B4 B4+16, B4+18, B4+20
FAX PRINT+2
INDEX PRINT+4
INDEXB INDEXC+3
INDEXC INDEXC+16
INDEXZ INDEXB+2
NOREPORT B0+1
PGHDR PRINT+5, B4+9
PRINT B0C+8
PRTEND B2+2
ZEND A2+1, A2+5, PRTEND+6, NOREPORT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % B0C+1*, B0C+2, B0C+3, ZTLOAD+2*
>> %ZIS B0C+4*
>> A PGHDR+5*, PGHDR+6
>> ACHSADT INDEXC+7*, INDEXC+8*, INDEXC+11, INDEXC+14
>> ACHSDATE PRINT+3*, PGHDR+7
>> ACHSDCNT PRINT+1*, B4+12*, PRTEND+2
ACHSEIN A2+6*, B0+1, PRINT+4, B2+1, B3+1, B4+1, B4+3, ZEND+3!, PGHDR+5, INDEX+2
, INDEXB+1, INDEXC+2, INDEXC+4, INDEXC+7, INDEXC+9, INDEXC+11, INDEXC+12, INDEXC+14
>> ACHSEINP A2+6*, PGHDR+4, FAX+7, FAX+8, FAX+9, FAX+10, FAX+11, FAX+12
>> ACHSFAC PRINT+1*, B2+1*, B2+2, B3+1, B4+1, B4+3, B4+5, B4+15
>> ACHSFACN B4+8*, B4+11
ACHSFAX B1A+1*, PRINT+2, ZEND+3!
>> ACHSI INDEX+1*
>> ACHSIO B0C+6*
>> ACHSIOQ B0C+4*, B0C+7*, B0C+8, PRTEND+3
>> 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 PRINT+1*, B3+1*, B3+2, B4+1
>> ACHSPGNO PRINT+1*, PGHDR+2*, PGHDR+7
>> ACHSPNAM INDEXC+5*, INDEXC+6*, INDEXC+7
>> ACHSSEQ PRINT+1*, B4+1*, B4+2, B4+3
>> ACHSX B4+3*, B4+10, INDEXC+4*, INDEXC+5, INDEXC+7
>> B PGHDR+5*, PGHDR+6
>> D B4+5*
DIC A2+3*, B4+4!, B4+5*
DIC(0 A2+3*, B4+5*
>> DIRUT B1A+2
DT FAX+6
>> DTOUT A2+5, B1A+2, B0C+2
>> DUOUT A2+5, B1A+2, B0C+2
DUZ(2 A2+1, A2+3, FAX+3, FAX+4, FAX+5
IO B0C+6, PRTEND+1, ZEND+2, PGHDR+1, FAX+1
IO("Q" B0C+7, ZTLOAD+4!
IO("S" B0C+9
IO(0 B4+7, PRTEND+4, NOREPORT+1
IOF PGHDR+3, FAX+2
ION ZTLOAD+1
IOP ZTLOAD+6!
IOST B0C+9
U A2+6, B0C+2, B4+8, PGHDR+4, PGHDR+5, FAX+3, FAX+4, FAX+5, FAX+7, FAX+8
, FAX+9, FAX+10, FAX+11, FAX+12, INDEXC+9, INDEXC+11, INDEXC+12, INDEXC+14
>> V B4+14*, B4+15
>> X B4+5*, B4+10*, B4+11, B4+13, B4+14, B4+15, B4+16, B4+17, B4+18, B4+19
, FAX+4*, FAX+5, INDEXC+9*, INDEXC+10*, INDEXC+11, INDEXC+12*, INDEXC+13*, INDEXC+14
>> Y A2+5, A2+6, B4+7, B4+8, PRTEND+5*, PRTEND+6, NOREPORT+3*, NOREPORT+4, FAX+4*, FAX+10*
>> Z PGHDR+5*, FAX+4*, FAX+5, FAX+10*, FAX+11
>> ZTDESC ZTLOAD+1*
>> ZTIO ZTLOAD+1*
>> ZTRTN ZTLOAD+1*
>> ZTSAVE( ZTLOAD+2*
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