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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AFSLDRVE

Package: NCR Financial System

Routine: AFSLDRVE


Information

AFSLDRVE ;IHS/OIRM/DSD/JDM - PRINT DUPLICATE VENDORS BY EIN. [ 09/26/2005 12:53 PM ]

Source Information

Source file <AFSLDRVE.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 (NOW,YX)^%DTC  WAIT^DICD  ^DIR  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
Commitment Register 1 $$NAME2^ACRFUTL1  

Entry Points

Name Comments DBIA/ICR reference
P2
B
END
BADTOTL
BAD1
HEADER ;Prints heading
ZTLOAD1 ;Loads Taskman
BADEIN ;PRINTS LIST OF VENDORS WITH NO EIN ON FILE
ZTLOAD ;Loads Taskman
TOTL
LSTUSED ;CHECKS LAST USED DATE IN ^AFSLF(DUZ(2),"VB"
PRINT
P1
BADHEAD ;Prints heading of missing EIN's
VNDR
DEVICE ;Device Selection
LSTEND
CALC ;S AFSLVNDR=0 K ^AFSLCTMP ; KILL OF SCRATCH WORK GLOBAL ;ACR*2.1*19.05 IM16848
CHECK
DIR ;
LST2

External References

Name Field # of Occurrence
NOW^%DTC HEADER+2, BADHEAD+2
YX^%DTC HEADER+2, BADHEAD+2
^%ZIS DEVICE+3, DEVICE+7
HOME^%ZIS ZTLOAD+4, ZTLOAD1+5
^%ZTLOAD ZTLOAD+4, ZTLOAD1+5
$$NAME2^ACRFUTL1 AFSLDRVE+8
WAIT^DICD DEVICE+9
^DIR DEVICE+6, P2+7, TOTL+1, BAD1+3, BADTOTL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?18,"This report will generate a list of VENDORS whose"
  • Line Location: AFSLDRVE+10
Function Call: WRITE
  • Prompt: !?18,"file contains either a DUPLICATE or MISSING EIN."
  • Line Location: AFSLDRVE+10
Function Call: WRITE
  • Prompt: *7,!!?18,"Since this report may take awhile to compile"
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !?18,"it is recommended that you QUEUE to a PRINTER."
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED - REQUEST ABORTED"
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !?1,AFSLEIN,?16,$E($P(^AFSLCTMP(AFSLEIN,AFSLVNDR),U,1),1,30)
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: ?63,$P(^AFSLCTMP(AFSLEIN,AFSLVNDR),U,2),?96,$P(^AFSLCTMP(AFSLEIN,AFSLVNDR),U,3),?116,AFSLSTAT,?120,$P(^AFSLCTMP(AFSLEIN,AFSLVNDR),U,5)
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: P2+7
Function Call: WRITE
  • Prompt: !!?1,"TOTAL",?30,C
  • Line Location: TOTL+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOTL+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: BADEIN+2
Function Call: WRITE
  • Prompt: !?12,$P(^AUTTVNDR(AFSLBAD,0),U,1)
  • Line Location: BAD1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: BAD1+3
Function Call: WRITE
  • Prompt: !!?1,"TOTAL",?12,C
  • Line Location: BADTOTL+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: BADTOTL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"*",AFSLDAT
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X_AFSLPAGE
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!?12,"VENDOR EIN",?30,"VENDOR NAME",?66,"LAST USED"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: "~"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BADHEAD+1
Function Call: WRITE
  • Prompt: !,"*",AFSLDAT
  • Line Location: BADHEAD+3
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X
  • Line Location: BADHEAD+3
Function Call: WRITE
  • Prompt: ?71,AFSLTIM,"*",!,"*User: ",AFSLUSR,?70,"Device:",$J(AFSLIO,2),"*"
  • Line Location: BADHEAD+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: BADHEAD+5
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X_AFSLPAGE
  • Line Location: BADHEAD+5
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X
  • Line Location: BADHEAD+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: BADHEAD+7
Function Call: WRITE
  • Prompt: "*"
  • Line Location: BADHEAD+7
Function Call: WRITE
  • Prompt: !!?8,"The following do(es) not have an EIN entry in the VENDOR FILE."
  • Line Location: BADHEAD+8
Function Call: WRITE
  • Prompt: !?25,"PLEASE validate and correct."
  • Line Location: BADHEAD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BADHEAD+9
Function Call: WRITE
  • Prompt: "~"
  • Line Location: BADHEAD+9
Function Call: WRITE
  • Prompt: !
  • Line Location: BADHEAD+10
Function Call: WRITE
  • Prompt: ?65,$E(AFSLLUDT,4,5),"-",$E(AFSLLUDT,6,7),"-",$E(AFSLLUDT,2,3)
  • Line Location: LSTEND+1
Routine Call
  • %ZIS
  • Line Location:
    • ZTLOAD+4
    • ZTLOAD1+5
Routine Call
  • DIR
  • Line Location:
    • DEVICE+6
    • P2+7
    • TOTL+1
    • BAD1+3
    • BADTOTL+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3
    • DEVICE+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AFSLCTMP( VNDR+1, VNDR+5*, P1, P2, P2+1, P2+2, P2+3, P2+4
^AFSLCTMP("DUP" B+3*, CHECK, VNDR, VNDR+1!, VNDR+6!
^AFSLCTMP("NOT ON FILE" BAD1
^AFSLF( LSTUSED+2, LST2, LSTEND
^AUTTLOC - [#9999999.06] AFSLDRVE+9
^AUTTVNDR - [#9999999.11] B, B+1, B+2, B+4, B+5, VNDR+2, VNDR+4, BAD1+1
^DIC(4 - [#4] HEADER+3, BADHEAD+3
^DIC(5 - [#5] P2+3

Label References

Name Line Occurrences
B B+1, B+6
BAD1 BAD1+4
BADHEAD BADEIN+1, BAD1+2, BAD1+3
BADTOTL BAD1
CALC DEVICE+9
CHECK B, VNDR
DEVICE DEVICE+4, DEVICE+10
END DEVICE+4
HEADER PRINT, P2+6, P2+7
LST2 LST2+2
LSTEND LST2
LSTUSED P2+5
P1 P2
P2 P2+8
PRINT ZTLOAD1+1
TOTL P1
VNDR VNDR+1, VNDR+6
ZTLOAD1 CHECK

Naked Globals

Name Field # of Occurrence
^(0 VNDR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+3*
ACRTMP AFSLDRVE+4~, AFSLDRVE+5*, AFSLDRVE+6, CALC+2~, CALC+3*, CALC+4
>> AFSLADRN B+4*, B+5*, VNDR+3*, VNDR+4*, VNDR+5
AFSLBAD END!, BADEIN+2*, BAD1*, BAD1+1
AFSLDAT END!, HEADER+2*, HEADER+3, BADHEAD+2*, BADHEAD+3
>> AFSLDTSV LST2+1*, LSTEND
AFSLEIN END!, B*, B+2*, B+3, CHECK*, VNDR, VNDR+1, VNDR+5, VNDR+6, PRINT*
, P1*, P2, P2+1, P2+2, P2+3, P2+4, P2+8
AFSLFAC AFSLDRVE+9*, END!
AFSLIO DEVICE+8*, END!, ZTLOAD1+2, BADHEAD+4
AFSLIOQ DEVICE+1*, DEVICE+8*, DEVICE+9, END!, ZTLOAD1+1
>> AFSLLUDT LSTEND*, LSTEND+1
>> AFSLNODE LSTUSED+1*, LST2*, LST2+1
AFSLPAGE END!, PRINT*, BADEIN+1*, HEADER+1*, HEADER+5, BADHEAD+1*, BADHEAD+5
AFSLSAVE ZTLOAD+2*, END!
AFSLSKIP END!, PRINT*, P1, P2+8*
>> AFSLSTAT P2+2*, P2+3*, P2+4
>> AFSLSTE P2+1*, P2+3
AFSLTIM END!, HEADER+2*, BADHEAD+2*, BADHEAD+4
AFSLUSR AFSLDRVE+8*, END!, BADHEAD+4
AFSLVNDR END!, CALC+1*, B*, B+1, B+2, B+3, B+4, B+5, CHECK*, VNDR*
, VNDR+1, VNDR+2, VNDR+4, VNDR+5, VNDR+6, P1*, P2*, P2+1, P2+2, P2+3
, P2+4, LSTUSED+2, LST2
C END!, PRINT*, P2+4*, TOTL, BADEIN+2*, BAD1+1*, BADTOTL
DIR DEVICE+3!, END!, P2+7!, TOTL+1!, BAD1+3!, BADTOTL+1!
DIR(0 DEVICE+6*, P2+7*, TOTL+1*, BAD1+3*, BADTOTL+1*
DIROUT END!
DIRUT END!
DTOUT END!
DUOUT END!
DUZ AFSLDRVE+8
DUZ(2 AFSLDRVE+9, HEADER+3, BADHEAD+3, LSTUSED+2, LST2, LSTEND
I END!, HEADER+7*, HEADER+9*, BADHEAD+7*, BADHEAD+9*
IO DEVICE+8, HEADER+1
IO("Q" DEVICE+8, ZTLOAD+4!, ZTLOAD1+5!
IO("S" DEVICE+10
IO(0 DEVICE+6
IOF HEADER+1, BADHEAD+1
IOP ZTLOAD+4!, ZTLOAD1+3!, ZTLOAD1+5!
IOST DEVICE+10, P2+6, P2+7, BAD1+2, BAD1+3
POP DEVICE+4, END!
U AFSLDRVE+9, B+2, VNDR+2, P2+1, P2+2, P2+3, P2+4, BAD1+1, HEADER+3, BADHEAD+3
, LSTEND
X END!, VNDR+2*, VNDR+5, HEADER+3*, HEADER+5*, BADHEAD+3*, BADHEAD+5*
Y DEVICE+4, END!, P2+7, TOTL+1, BAD1+3, BADTOTL+1, HEADER+2, BADHEAD+2
>> ZTDESC ZTLOAD+1*, ZTLOAD1+2*
>> ZTIO ZTLOAD+1*, ZTLOAD1+2*
>> ZTRTN ZTLOAD+1*, ZTLOAD1+2*
>> ZTSAVE( ZTLOAD+2*
>> ZTSAVE("AFSLFACP" ZTLOAD1+2*
>> ZTSAVE("AFSLIO" ZTLOAD1+2*
>> ZTSAVE("AFSLIOQ" ZTLOAD1+2*
>> ZTSAVE("AFSLUSR" ZTLOAD1+2*
>> ZTSAVE("^AFSLCTMP(" ZTLOAD1+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All