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

Package: NCR Financial System

Routine: AFSLDRV


Information

AFSLDRV ;IHS/OIRM/DSD/JDM - PRINT DUPLICATE VENDORS BY EIN. [ 9/27/2005 12:53 PM ]

Source Information

Source file <AFSLDRV.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 ;CHK LAST USED DATE
PRINT
P1
BADHEAD ;Missing EIN head
VNDR
DEVICE ;Dev Select
LSTEND
CALC ;S AFSLVNDR=0 K ^AFSLCTMP ; 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+4
^%ZTLOAD ZTLOAD+4, ZTLOAD1+4
$$NAME2^ACRFUTL1 AFSLDRV+8
WAIT^DICD DEVICE+9
^DIR DEVICE+6, TOTL+1, BADTOTL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?18,"This report will generate a list of VENDORS whose"
  • Line Location: AFSLDRV+10
Function Call: WRITE
  • Prompt: !?18,"file contains either a DUPLICATE or MISSING EIN."
  • Line Location: AFSLDRV+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: !,"VENDOR ENTRY ",AFSLBAD," INCOMPLETE. MUST BE CORRECTED."
  • Line Location: BAD1+1
Function Call: WRITE
  • Prompt: !?12,$P(^AUTTVNDR(AFSLBAD,0),U,1)
  • Line Location: BAD1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: BAD1+4
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,"ADDRESS"
  • 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: !!
  • Line Location: BADHEAD+6
Function Call: WRITE
  • Prompt: "*"
  • Line Location: BADHEAD+6
Function Call: WRITE
  • Prompt: !!?8,"The following have no EIN in the VENDOR FILE."
  • Line Location: BADHEAD+7
Function Call: WRITE
  • Prompt: !?25,"VALIDATE & CORRECT."
  • Line Location: BADHEAD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BADHEAD+8
Function Call: WRITE
  • Prompt: "~"
  • Line Location: BADHEAD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BADHEAD+9
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+4
Routine Call
  • DIR
  • Line Location:
    • DEVICE+6
    • TOTL+1
    • 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] AFSLDRV+9
^AUTTVNDR - [#9999999.11] B, B+1, B+2, B+4, B+5, VNDR+2, VNDR+4, BAD1+1, BAD1+2
^DIC(4 - [#4] HEADER+3, BADHEAD+3
^DIC(5 - [#5] P2+3

Label References

Name Line Occurrences
B B+1, B+6
BAD1 BAD1+1, BAD1+5
BADHEAD BADEIN+1, BAD1+3, BAD1+4
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*, END+2!
ACRTMP AFSLDRV+4~, AFSLDRV+5*, AFSLDRV+6, CALC+2~, CALC+3*, CALC+4
AFSLADRN END!, B+4*, B+5*, VNDR+3*, VNDR+4*, VNDR+5
AFSLBAD END!, BADEIN+2*, BAD1*, BAD1+1, BAD1+2
AFSLDAT END!, HEADER+2*, HEADER+3, BADHEAD+2*, BADHEAD+3
AFSLDTSV END+1!, 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 AFSLDRV+9*, END!
AFSLIO DEVICE+8*, END!, ZTLOAD1+2, BADHEAD+4
AFSLIOQ DEVICE+1*, DEVICE+8*, DEVICE+9, END!, ZTLOAD1+1
AFSLLUDT END+1!, LSTEND*, LSTEND+1
AFSLNODE END!, LSTUSED+1*, LST2*, LST2+1
AFSLPAGE END!, PRINT*, BADEIN+1*, HEADER+1*, HEADER+5, BADHEAD+1*, BADHEAD+5
AFSLSAVE ZTLOAD+2*, END!
AFSLSKIP END!, END+1!, PRINT*, P1, P2+8*
AFSLSTAT END+1!, P2+2*, P2+3*, P2+4
AFSLSTE END+1!, P2+1*, P2+3
AFSLTIM END!, END+1!, HEADER+2*, BADHEAD+2*, BADHEAD+4
AFSLUSR AFSLDRV+8*, END!, END+1!, BADHEAD+4
AFSLVNDR END!, END+1!, 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+2!, PRINT*, P2+4*, TOTL, BADEIN+2*, BAD1+2*, BADTOTL
D END+2!
DCC END+2!
DI END+2!
DIR DEVICE+3!, END+2!, TOTL+1!, BADTOTL+1!
DIR(0 DEVICE+6*, TOTL+1*, BADTOTL+1*
DIROUT END+2!
DIRUT END+2!
DNP END+2!
DTOUT END+2!
DUOUT END+2!
DUZ AFSLDRV+8
DUZ(2 AFSLDRV+9, HEADER+3, BADHEAD+3, LSTUSED+2, LST2, LSTEND
FLDS END+2!
FR END+2!
I END+2!, HEADER+7*, HEADER+9*, BADHEAD+6*, BADHEAD+8*
IO DEVICE+8, P2+4, TOTL, BADEIN+2, BAD1+2, BADTOTL, HEADER+1, HEADER+3, HEADER+5, HEADER+7
, HEADER+8, HEADER+9, HEADER+10, BADHEAD+1, BADHEAD+3, LSTEND+1
IO("Q" DEVICE+8, ZTLOAD+4!, ZTLOAD1+4!
IO("S" DEVICE+10
IO(0 AFSLDRV+10, DEVICE+1, DEVICE+6, TOTL+1, BAD1+1, BADTOTL+1
IOF HEADER+1, BADHEAD+1
IOP ZTLOAD+4!, ZTLOAD1+4!
IOST DEVICE+10, P2+6, P2+7, BAD1+3, BAD1+4
POP DEVICE+4, END+2!
U AFSLDRV+9, B+2, VNDR+2, P2+1, P2+2, P2+3, P2+4, BAD1+2, HEADER+3, BADHEAD+3
, LSTEND
X END+2!, VNDR+2*, VNDR+5, HEADER+3*, HEADER+5*, BADHEAD+3*, BADHEAD+5*
Y DEVICE+4, END+2!, TOTL+1, 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