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

Package: PAID

Routine: PRSRUT0


Information

PRSRUT0 ;HISC/JH,JAH-UTILITY ROUTINE FOR PAID ADDIM. REPORTS ;6/24/94

Source Information

Source file <PRSRUT0.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ENDR^%ZISS  ^%ZTLOAD  
PAID 2 ^PRSAENT  DUZ^PRSRUTL  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
PAID 16 PRSRASOR  PRSRAU1  PRSRAU11  PRSREX1  PRSREX11  PRSRL1  PRSRL11  PRSRL12  
PRSRL2  PRSRL21  PRSRL4  PRSRL41  PRSRLSOR  PRSROT1  PRSROT11  PRSRTLPR  

Entry Points

Name Comments DBIA/ICR reference
QUE ;QUEUE FOR PAID REPORTS
QUE1 ;QUEUE FOR PAID REPORTS
Q ;TERMINAL RESET FROM 132 TO 80 CHARS.
FOOT ;CODE = 3 Char code for type of report, NUM = Report Number,
FOOT1
FOOT2
CKTOUR(CK)
TYPSTF
TLESEL ;user select T&L units
; set up array:
; TLE(n)="T&L number ^ unit name"
; TLE(n,m) = "ien ^ member name"
; TLE= approving T&L unit
TL ; Select T&L from those allowed
SEL
P1 ;S TLI=$P($G(^PRSPC(PRSRDUZ,0)),U,8)
P2
VALSEL ; Validate input in form 001 or 211,234,333 or 221,2233,345-367,400
CHKSEL ; Check selection array eliminating T&L units not assigned, if not Fiscal.
KILL
ALL
GET
MSG

External References

Name Field # of Occurrence
^%ZIS QUE+1, QUE1+1
HOME^%ZIS Q+1
ENDR^%ZISS Q+1
^%ZTLOAD QUE+2, QUE1+2
^DIC SEL+6
^PRSAENT TYPSTF
DUZ^PRSRUTL TLESEL+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @X
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: !,"DHCP PAID REPORT ",CODE,?(IOM-$L(FOOT))/2,FOOT
  • Line Location: FOOT1+0
Function Call: WRITE
  • Prompt: !,"DHCP PAID REPORT ",CODE,?40,FOOT
  • Line Location: FOOT2+0
Function Call: WRITE
  • Prompt: !!,*7,"No T&L Units have been assigned to you!"
  • Line Location: TL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: ?($X+2),$C(7),"??"
  • Line Location: SEL+7
Function Call: WRITE
  • Prompt: !!,$C(7),"ENTER CODE(s), ONE OR MORE, SEPERATED BY COMMA(S) ( , ) or ( ALL ) .",!
  • Line Location: MSG+0
Routine Call
  • %ZIS
  • Line Location:
    • QUE+1
    • QUE1+1
Routine Call
  • %ZIS
  • Line Location:
    • Q+1
Routine Call
  • DIC
  • Line Location:
    • SEL+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRST(455.5 - [#455.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSPC - [#450] P2+1, GET+3
^PRSPC("ATL" GET, GET+1
^PRSPC("SSN" TYPSTF, TL+1
^PRST(455.5 - [#455.5] TL+6, P2, CHKSEL+2, CHKSEL+3, CHKSEL+4, ALL, ALL+1

Label References

Name Line Occurrences
GET CHKSEL+4, ALL+1
KILL CHKSEL+2, CHKSEL+3
SEL SEL+7, MSG
VALSEL SEL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q+1!, CKTOUR*
%T Q+1!
%XX Q+1!
%YY Q+1!
%ZIS QUE+1*!, QUE1+1*!
A TLESEL+6~, VALSEL+1*, VALSEL+2, VALSEL+3
B TLESEL+6~, VALSEL+3*
C TLESEL+6~, VALSEL+1*, VALSEL+3*
CK CKTOUR~*
>> CODE FOOT1, FOOT2
D TLESEL+6~, VALSEL+1*, VALSEL+2*, VALSEL+3*, CHKSEL+1, CHKSEL+6, KILL
>> DA ALL*, ALL+1
>> DA(1 GET*, GET+1
>> DFN TYPSTF*
DIC TL+2!, SEL*, SEL+6!
DIC("A" SEL+1*
DIC("S" SEL+5*
DIC(0 SEL+1*
>> DTOUT SEL+6
>> DUOUT SEL+6
DUZ TL+6, CHKSEL+3, ALL
E TLESEL+6~
>> ENT TYPSTF
F TLESEL+6~, CHKSEL+3*, CHKSEL+4
>> FOOT FOOT1, FOOT2
>> I FOOT+4*, P2, VALSEL+2*, VALSEL+3*, CHKSEL+1*, CHKSEL+2, CHKSEL+3, CHKSEL+4, ALL*, ALL+1
, GET, GET+1
>> II CHKSEL+1*, GET*, GET+1
IO("C" QUE+2!, QUE1+2!
IO("Q" QUE+1!, QUE+2!, QUE1+1!, QUE1+2!
IOHG Q+1!
IOM QUE+2, QUE1+2, Q+1, FOOT1
ION QUE+2, QUE1+2
>> IOP QUE+1*
IOPAR Q+1!
IORESET Q+1!
IOSL QUE+2, QUE1+2, FOOT+4
IOST QUE+2, QUE1+2, Q+1
IOUPAR Q+1!
K CKTOUR~*
KK CKTOUR~*
LL CKTOUR~*
>> LVT CKTOUR
M CKTOUR~*
>> POP QUE+1, QUE+2*, QUE1+1, QUE1+2*
PP TYPSTF~
>> PRSR TL+6, TL+7, CHKSEL+3
>> PRSRDUZ P2+1, GET+3
>> PRSRSSN TYPSTF
>> PRSTLV TL+5
>> SSN TLESEL+8, TL+1
>> SW GET+3*
>> SW(2 TYPSTF*
>> TLE TLESEL+8*, SEL+7, P2*, CHKSEL+1*, CHKSEL+6*, KILL*, GET+3*
>> TLE( P2*, VALSEL+2*, VALSEL+3*, CHKSEL+1, CHKSEL+2, CHKSEL+3, CHKSEL+4*, KILL!, ALL+1*, GET
, GET+1*
>> TLI TL+6*, P2, P2+1*
U P2+1, CHKSEL+4, ALL+1, GET, GET+1, GET+3
>> USR TLESEL+8*, TL+1*
X Q+1*, TLESEL+6~, SEL+6*, VALSEL+1, VALSEL+2, VALSEL+3
>> Y SEL+6
>> Z1 TL+5*, TL+6, CHKSEL+3, ALL
>> ZTIO QUE+2*, QUE1+2*
>> ZTSAVE("IOM" QUE+2*
>> ZTSK QUE+2, QUE1+2
>> ZTSTOP QUE+1*, QUE+2*, QUE1+1*
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