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

Package: Engineering

Routine: ENFAXMTM


Information

ENFAXMTM ;WIRMFO/KLD,SAB-VALIDATE/TRANSMIT FAP EQUIPMENT; 6/9/97

Source Information

Source file <ENFAXMTM.m>

Entry Points

Name Comments DBIA/ICR reference
ST
EQUIP ;Validite/Transmit FA docs by Equipment
; Input
; ENBAT("XMT") - flag; true (1) to transmit after validation
; not returned
EQUIPA ; ask equipment
EQUIPX ; exit point for EQUIP
CMR ;Validite/Transmit FA docs by CMR
; Input
; ENBAT("XMT") - flag; true (1) to transmit after validation
; not returned
CMRQ ; queued entry point to process cmr
; Input
; ENBAT("SEL","I") = ien of selected CMR
; ENBAT("XMT") = flag; when true FA Documents will be transmitted
; set variables for calls to ENFAVAL or ENFAACQ
CMRX ; exit point for CMR
STN ;Validite/Transmit FA Docs by Station
; Input
; ENBAT("XMT") - flag; true (1) to transmit after validation
; not returned
STNQ ; queued entry point to process station
; Input
; ENBAT("SEL","I") = selected Station Number (3-5 characters)
; ENBAT("XMT") = flag; when true FA Documents will be transmitted
; set variables for calls to ENFAVAL or ENFAACQ
STNX ; exit point for STN
RPTB ; Report of Batch Validate/Transmit FA Documents for Equipment
; Input - required
; ENBAT("TYPE") = type of batch (CMR or STATION)
; ENBA("SEL","E") = value specified (either a CMR or STATION NUMBER)
; ENT("BAT") = count of equipment in batch (meets basic criteria)
; ENT("FAP") = count of batch items already established in FAP
; ENBAT("XMT") = flag (0 or 1), true for transmit options
; Input - optional
; ^TMP($J,"BAD",equip entry #,line number) = validation problem
; Output
; Kills ^TMP($J
RPTBHD ; header for FA batch validate/transmit report
LISTP ; List Problems with Equipment/Document
; Called from various FAP Document routines
; Input
; ENEQ("DA") - equipment entry #
; ^TMP($J,"BAD",ENEQ("DA")) - number of problems
; ^TMP($J,"BAD",ENEQ("DA"),seqn #) - description of a problem
; ENBAT("XMT") - optional, flag; true when transmitting (for FA only)
; Output
; Problems are listed to the screen
; ^TMP($J is killed

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option ",$S(ENBAT("XMT"):"TRANSMITS",1:"VALIDATES")," FA Documents (code sheets) for specified equipment.",!
  • Line Location: EQUIP+5
Function Call: WRITE
  • Prompt: !!,"FA document for ENTRY #",ENEQ("DA")," was processed on ",ENFADT("E"),"."
  • Line Location: EQUIPA+5
Function Call: WRITE
  • Prompt: !,"No action taken.",!,$C(7)
  • Line Location: EQUIPA+6
Function Call: WRITE
  • Prompt: !!,"Equipment Entry #: ",ENEQ("DA")," ",$S(ENBAT("XMT"):"was transmitted.",1:"looks OK!")
  • Line Location: EQUIPA+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EQUIPA+18
Function Call: WRITE
  • Prompt: !,"Please correct the Equipment Record before sending a FA Document for this item.",!
  • Line Location: EQUIPA+18
Function Call: WRITE
  • Prompt: !!,"This option ",$S(ENBAT("XMT"):"TRANSMITS",1:"VALIDATES")," FA Documents (code sheets)"
  • Line Location: CMR+5
Function Call: WRITE
  • Prompt: !,"for all equipment that belongs to a specified CMR.",!
  • Line Location: CMR+6
Function Call: WRITE
  • Prompt: !,"Now select the device to print results on."
  • Line Location: CMR+11
Function Call: WRITE
  • Prompt: !!,"This option ",$S(ENBAT("XMT"):"TRANSMITS",1:"VALIDATES")," FA Documents (code sheets)"
  • Line Location: STN+5
Function Call: WRITE
  • Prompt: !,"for all equipment that belongs to a specified Station.",!
  • Line Location: STN+6
Function Call: WRITE
  • Prompt: !,"Now select the device to print results on."
  • Line Location: STN+13
Function Call: WRITE
  • Prompt: !!,+ENT("BAT")_" records have been processed from ",ENBAT("TYPE")
  • Line Location: RPTB+18
Function Call: WRITE
  • Prompt: ": ",ENBAT("SEL","E")_"."
  • Line Location: RPTB+19
Function Call: WRITE
  • Prompt: !!,ENT("SENT")_" record",$S(ENT("SENT")=1:" ",1:"s ")
  • Line Location: RPTB+20
Function Call: WRITE
  • Prompt: !!,"Equipment Records not sent because of validation problems: "
  • Line Location: RPTB+26
Function Call: WRITE
  • Prompt: !!,"Entry #",?24,"Reason"
  • Line Location: RPTB+27
Function Call: WRITE
  • Prompt: !!,"Entry #",?24,"Reason"
  • Line Location: RPTB+30
Function Call: WRITE
  • Prompt: !,$J(I,11)," ",^TMP($J,"BAD",I,II)
  • Line Location: RPTB+31
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTB+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPTBHD+2
Function Call: WRITE
  • Prompt: !,"FA DOCUMENT ",$S(ENBAT("XMT"):"TRANSMISSION",1:"VALIDITY CHECK")
  • Line Location: RPTBHD+4
Function Call: WRITE
  • Prompt: " FOR ",ENBAT("TYPE"),": ",ENBAT("SEL","E")
  • Line Location: RPTBHD+5
Function Call: WRITE
  • Prompt: ?49,ENFA("NOW"),?72,"page ",ENPG
  • Line Location: RPTBHD+6
Function Call: WRITE
  • Prompt: $C(7),!!,"This record "_$S($G(ENBAT("XMT"))=0:"would not have been",1:"was not")_" sent to FAP!"
  • Line Location: LISTP+11
Function Call: WRITE
  • Prompt: !,"Reason"
  • Line Location: LISTP+12
Function Call: WRITE
  • Prompt: "s"
  • Condition for execution: ^TMP($J,"BAD",ENEQ("DA"))>1
  • Line Location: LISTP+12
Function Call: WRITE
  • Prompt: ":"
  • Line Location: LISTP+12
Function Call: WRITE
  • Prompt: !?2,^TMP($J,"BAD",ENEQ("DA"),I)
  • Line Location: LISTP+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(6910 - [#6910] GET1^DIQ
^ENG(6914 - [#6914] GET1^DIQ
^ENG(6914.1 - [#6914.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call