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

Package: Equipment Turn-In Request

Routine: PRCNUTL


Information

PRCNUTL ;SSI/ALA-UTILITY PROGRAM ;[ 09/11/96 2:08 PM ]

Source Information

Source file <PRCNUTL.m>

Entry Points

Name Comments DBIA/ICR reference
SEQ ; Get the next sequential number, returns PRCNDA and TST
; TST is the beginning part of the transaction number
EXIT
EMSG ; Loop for message for requests
TMSG ; Loop for turn-in messages
ES
ES1
EQ
FYQ ;RETURNS FY AND QTR GIVEN IN FILEMANAGER DATE IN 'X'
QQ
EN1 ; Check for utilities=13 to ask for free text OTHER
VEN ; Translate potential vendor field into pointer and store it
EX
VENHLP ; Executable help for potential vendor field
T
CHECK ; PRCN*1.0*15 new subroutine to check if all line items for a
; transaction have been dispositioned - CMR equals null if dispo'd
DMSG ; PRCN*1.0*15 new subroutine to display message to user
RESET ; PRCN*1.0*15 reset status, plus original CMR and SGL values
; and set disposition date, method and value each to null

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!!
  • Line Location: EMSG+7
Function Call: WRITE
  • Prompt: !,?3,"There "_TEX1_" "_CT_" equipment "_TEX2_" "_TEX3_"."
  • Line Location: EMSG+10
Function Call: WRITE
  • Prompt: $C(7),!!!
  • Line Location: TMSG+5
Function Call: WRITE
  • Prompt: ?3,"There "_TEX1_" "_CT_" Turn-In "_TEX2_" "_TEX3
  • Line Location: TMSG+8
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: ES1+0
Function Call: WRITE
  • Prompt: $C(7)," SIGNATURE CODE FAILURE "
  • Line Location: ES1+0
Function Call: WRITE
  • Prompt: !,^DD(413.015,2,21,HL0,0)
  • Line Location: VENHLP+2
Function Call: WRITE
  • Prompt: !!,"Current Vendors: "
  • Line Location: VENHLP+3
Function Call: WRITE
  • Prompt: !,L
  • Line Location: T+1
Function Call: READ
  • Formatting: !
  • Prompt: "'^' TO STOP: "
  • Variable: PRCNA
  • Timeout: DTIME
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DMSG+1
Function Call: WRITE
  • Prompt: "*"
  • Line Location: DMSG+1
Function Call: WRITE
  • Prompt: !,"* SORRY. THERE ARE ADDITIONAL LINE ITEMS FOR TRANSACTION:",?78,"*"
  • Line Location: DMSG+2
Function Call: WRITE
  • Prompt: !,"*",?78,"*"
  • Line Location: DMSG+3
Function Call: WRITE
  • Prompt: !,"*",?80-$L($G(Y(0,0)))/2,$G(Y(0,0)),?78,"*"
  • Line Location: DMSG+4
Function Call: WRITE
  • Prompt: !,"*",?78,"*"
  • Line Location: DMSG+5
Function Call: WRITE
  • Prompt: !,"* THAT MUST BE DISPOSITIONED BEFORE THIS TRANSACTION CAN BE FINALIZED.",?78,"*"
  • Line Location: DMSG+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DMSG+7
Function Call: WRITE
  • Prompt: "*"
  • Line Location: DMSG+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DMSG+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCN(413.1 - [#413.1] Classic Fileman Calls
^PRCN(413.7 - [#413.7] Classic Fileman Calls
^PRC(440 - [#440] Classic Fileman Calls
^ENG(6914 - [#6914] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call