Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRST(455.5 - [#455.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call