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

Package: Engineering

Routine: ENFAXMTM


Information

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

Source Information

Source file <ENFAXMTM.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Engineering 4 ^ENFAACQ  $$CHKFA^ENFAUTL  ^ENFAVAL  GETEQ^ENUTL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

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

Package Total Caller Graph
Engineering 11 ENFA SEND BY CMR  ENFA SEND BY STATION  ENFA SEND SINGLE  ENFA VALCHK BY CMR  ENFA VALCHK BY STATION  ENFA VALCHK SINGLE  ENFAACQ  ENFABETR  
ENFACHG  ENFADEL  ENFAXFR  
Kernel 1 ^DIC(19  

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

External References

Name Field # of Occurrence
DD^%DT EQUIPA+4, RPTB+12
NOW^%DTC RPTB+12
^%ZIS CMR+12, STN+14
^%ZISC RPTB+37
^%ZTLOAD CMR+17, STN+19
^DIC CMR+8
$$GET1^DIQ STN+9, STNQ+10, STNQ+16
^DIR STN+10, RPTB+33, RPTBHD+1
^ENFAACQ EQUIPA+15, CMRQ+18, STNQ+23
$$CHKFA^ENFAUTL EQUIPA+3, CMRQ+14, STNQ+19
^ENFAVAL EQUIPA+14, CMRQ+17, STNQ+22
GETEQ^ENUTL EQUIPA+1

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
Routine Call
  • DIC
  • Line Location:
    • CMR+8
Routine Call
  • DIR
  • Line Location:
    • STN+10
    • RPTB+33
    • RPTBHD+1
Routine Call
  • %ZIS
  • Line Location:
    • CMR+12
    • STN+14

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] EQUIPA+13, CMRQ+11, CMRQ+12, CMRQ+16, STNQ+12, STNQ+13, STNQ+14, STNQ+21
^ENG(6914.1 - [#6914.1] CMRQ+21
^TMP($J EQUIPA+11!, EQUIPA+17, EQUIPA+18, CMRQ+7!, STNQ+7!, RPTB+15, RPTB+28, RPTB+29, RPTB+31, RPTB+34!
, LISTP+12, LISTP+13, LISTP+14!

Label References

Name Line Occurrences
CMRX CMR+12, CMR+13
EQUIPA EQUIPA+3, EQUIPA+19
EQUIPX EQUIPA+1
LISTP EQUIPA+18
RPTB CMRQ+22, STNQ+27
RPTBHD RPTB+13, RPTB+30
STNX STN+10, STN+14, STN+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RPTB+12
>> %ZIS CMR+12*, STN+14*
DA EQUIPA+7!
DIC EQUIPX+1!, CMR+8*, CMRX+1!, STNX+1!
DIC(0 CMR+8*
DIR EQUIPX+1!, STN+10!, RPTB+34!
DIR("A" STN+8*
DIR("B" STN+9*
DIR(0 STN+8*, RPTB+33*, RPTBHD+1*
DIROUT RPTB+34!
DIRUT EQUIPX+1!, STN+10, RPTB+34!
DTOUT RPTB+34!
DUOUT EQUIPX+1!, RPTB+34!
ENBAT EQUIPX+1!, CMRX+1!, STNX+1!
ENBAT("SEL" CMR+9*, CMRQ+11, CMRQ+21*, STN+11*, STNQ+15, STNQ+26*, RPTB+19, RPTBHD+5
ENBAT("SILENT" EQUIPA+10*, CMRQ+6*, STNQ+6*
ENBAT("TYPE" CMRQ+20*, STNQ+25*, RPTB+18, RPTBHD+5
ENBAT("XMT" EQUIP+4, EQUIP+5, EQUIPA+9, EQUIPA+10, EQUIPA+12, EQUIPA+15, EQUIPA+17, EQUIPA+18, CMR+4, CMR+5
, CMR+15, CMRQ+5, CMRQ+6, CMRQ+15, CMRQ+18, STN+4, STN+5, STN+17, STNQ+5, STNQ+6
, STNQ+20, STNQ+23, RPTB+21, RPTB+22, RPTB+23, RPTBHD+4, LISTP+11
END RPTB+12*, RPTB+28, RPTB+29, RPTB+30, RPTB+33, RPTB+35!, RPTBHD+1*
ENEQ RPTB+35!
ENEQ( EQUIPA+13*, CMRQ+16*, STNQ+21*
ENEQ("DA" EQUIPA+2*, EQUIPA+3, EQUIPA+5, EQUIPA+13, EQUIPA+17, CMRQ+10*, CMRQ+11*, CMRQ+12, CMRQ+14, CMRQ+16
, STNQ+11*, STNQ+12*, STNQ+13, STNQ+14, STNQ+16, STNQ+19, STNQ+21, LISTP+12, LISTP+13
ENFA CMRX+1!, STNX+1!, RPTB+35!
ENFA("NOW" RPTB+12*, RPTBHD+6
ENFADT EQUIPA+7!
ENFADT("E" EQUIPA+4*, EQUIPA+5
ENFAP EQUIPX+1!, CMRX+1!, STNX+1!, RPTB+35!
ENFAP("DOC" EQUIPA+9*, CMRQ+5*, STNQ+5*
ENPG RPTB+12*, RPTB+35!, RPTBHD+1, RPTBHD+2, RPTBHD+3*, RPTBHD+6
ENSN STNQ+14*, STNQ+15, STNX+1!
ENSND STNQ+10*, STNQ+14, STNX+1!
ENT RPTB+35!
ENT("BAD" CMRQ+8*, STNQ+8*, RPTB+15*, RPTB+16, RPTB+23, RPTB+25
ENT("BAT" CMRQ+8*, CMRQ+13*, STNQ+8*, STNQ+18*, RPTB+16, RPTB+18
ENT("FAP" CMRQ+8*, CMRQ+14*, STNQ+8*, STNQ+19*, RPTB+16, RPTB+22
ENT("SENT" CMRQ+8*, STNQ+8*, RPTB+16*, RPTB+20, RPTB+21
I EQUIPA+13*, EQUIPX+1!, CMR+16*, CMRQ+16*, STN+18*, STNQ+21*, RPTB+15*, RPTB+28*, RPTB+29, RPTB+31
, RPTB+34!, LISTP+10~, LISTP+13*
II RPTB+29*, RPTB+31, RPTB+34!
IO RPTB+11
IO("Q" CMR+13, STN+15
IOF RPTBHD+2
IOSL RPTB+30
IOST RPTB+33, RPTBHD+1, RPTBHD+2
>> POP CMR+12, STN+14
U EQUIPA+4, CMRQ+12, CMRQ+21, STNQ+13, STNQ+14
X EQUIPA+3*, EQUIPA+4, EQUIPA+7!, EQUIPX+1!, CMRX+1!, STNX+1!, RPTB+34!
Y EQUIPA+1, EQUIPA+2, EQUIPA+4*, EQUIPA+7!, EQUIPX+1!, CMR+8, CMR+9, CMRX+1!, STN+11, STNX+1!
, RPTB+12*, RPTB+34!, RPTBHD+1
>> ZTDESC CMR+15*, STN+17*
>> ZTQUEUED RPTB+36
>> ZTREQ RPTB+36*
>> ZTRTN CMR+14*, STN+16*
>> ZTSAVE( CMR+16*, STN+18*
ZTSK CMR+17!, STN+19!
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