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

Package: Engineering

Routine: ENTIRA


Information

ENTIRA ;WOIFO/SAB - IT EQUIPMENT RESPONSIBILITY ASSIGN ;2/4/2008

Source Information

Source file <ENTIRA.m>

Entry Points

Name Comments DBIA/ICR reference
GETEQ ; get equipment
GETPE ; get people that will be assigned the equipment
EXIT ;
SELPER ; Select Person(s)
; output
; ^TMP($J,"ENITPE",0)=count
; ^TMP($J,"ENITPE",ien)="" list of persons by internal entry number

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Selecting accountable IT equipment to be assigned..."
  • Line Location: GETEQ+1
Function Call: WRITE
  • Prompt: !!,+ENY," equipment item(s) selected."
  • Line Location: GETEQ+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETEQ+21
Function Call: WRITE
  • Prompt: !!,"Selecting person(s) to be assigned responsibility..."
  • Line Location: GETPE+1
Function Call: WRITE
  • Prompt: !!,+ENY," person(s) selected."
  • Line Location: GETPE+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETPE+8
Function Call: WRITE
  • Prompt: !," Equipment # ",ENDA," is already assigned to ",$$GET1^DIQ(200,ENPER,.01)
  • Line Location: GETPE+29
Function Call: WRITE
  • Prompt: !," ERROR. Equipment ",ENDA," was not assigned to ",$$GET1^DIQ(200,ENPER,.01)
  • Line Location: GETPE+30
Function Call: WRITE
  • Prompt: !!,+$G(ENC(1))," equipment assignment(s) created."
  • Line Location: GETPE+33
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPER+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call