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

Package: Engineering

Routine: ENTIRRH


Information

ENTIRRH ;WOIFO/LKG - Print hand receipt ;3/19/08 15:48

Source Information

Source file <ENTIRRH.m>

Entry Points

Name Comments DBIA/ICR reference
ASK ;Main entry point
ITSTART ;Entry point for IT
USTART ;User entry point
IN ;
EX
HDR1 ;Logic to print report heading
ITST2 ;IT personnel entry point for printing signed hand receipts
USER ;User entry point for printing signed hand receipts
IN2 ;
PRT
EX2
SIGNED(ENDA) ;Returns how many signed/certified, active assignments exist for this person
ISSUEDBY(ENRDA) ;Name of person assigning responsibility
DATEDUE(ENDA,ENADD) ;Returns Date Due for Return
LOAN(ENEQ) ;Loan Data for Equipment

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"UNKNOWN"
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: !,"There are no hand receipt templates on file."
  • Line Location: ITSTART+1
Function Call: WRITE
  • Prompt: !,"There are no hand receipt templates on file."
  • Line Location: USTART+1
Function Call: WRITE
  • Prompt: !,"You have no active IT assignments."
  • Line Location: USTART+2
Function Call: WRITE
  • Prompt: !,"The are no unsigned IT assignments."
  • Line Location: IN+8
Function Call: WRITE
  • Prompt: !!!,"Hand receipt text is corrupted - Please contact EPS AEMS/MERS support"
  • Line Location: IN+9
Function Call: WRITE
  • Prompt: !,ENNBR,?11,$E(ENMFGN,1,20),?35,ENMODEL,?65,ENSERNBR
  • Line Location: IN+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: IN+20
Function Call: WRITE
  • Prompt: !,$G(^ENG(6916.2,ENVR,1,ENI,0))
  • Line Location: IN+23
Function Call: WRITE
  • Prompt: !!!
  • Line Location: IN+26
Function Call: WRITE
  • Prompt: !,"Signature:______________________________ Date:________________"
  • Line Location: IN+27
Function Call: WRITE
  • Prompt: !,?12,$P($$ESBLOCK^XUSESIG1(ENDA),U)
  • Line Location: IN+28
Function Call: WRITE
  • Prompt: $S($G(ENPRT)="SIGNED":"IT HAND RECEIPT/LOAN FORM FOR GOVERNMENT FURNISHED EQUIPMENT (GFE) Page ",1:"INFORMATION TECHNOLOGY HAND RECEIPT FOR GOVERNMENT FURNISHED EQUIPMENT Page "),ENPG
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,"STATION: ",ENSTN,?14,"ASSIGNED TO: ",$E(ENNAME,1,30),?58,"Printed ",ENNOW,!
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,"ENTRY #",?11,"MFG EQUIP NAME",?35,"MODEL",?65,"SERIAL#",!,"---------",?11,"--------------------",?35,"--------------------------",?65,"----------"
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !,"There are no active, Signed/Certified IT assignments for "_$$GET1^DIQ(200,ENDA_",",.01)_"."
  • Line Location: ITST2+5
Function Call: WRITE
  • Prompt: !,"You have no active IT assignments."
  • Line Location: USER+1
Function Call: WRITE
  • Prompt: !,"You do not have any active, Signed/Certified IT assignments."
  • Line Location: USER+3
Function Call: WRITE
  • Prompt: !!!,"Hand receipt v",$P($G(^ENG(6916.2,ENVR,0)),U)," text is corrupted.",!?5," - Please contact EPS AEMS/MERS support"
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !,ENNBR,?11,$E(ENMFGN,1,20),?35,ENMODEL,?65,ENSERNBR
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !?4,"Signed: ",ENSIGNDT,?35,"Signature: /ES/",$G(ENSIG)
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: !,?4,"Signed: "_$$GET1^DIQ(6916.3,ENRDA_",",4),?35,"Certified by: ",$$GET1^DIQ(6916.3,ENRDA_",",6)
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: !,?2,"Issued By: ",$$ISSUEDBY(ENRDA),?49,"Contact #: ",$P(ENVAL,U,2)
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !,?2,"Equipment Return Date: ",$$DATEDUE($P(ENDAC,","),$P(ENVAL,U))
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: !?19,"** Hand Receipt Text Altered **"
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: !?19,"** Assigned Equipment Altered **"
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: !?19,"** Assigned Person Altered **"
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: !?19,"** Date Signed Altered **"
  • Line Location: PRT+33
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRT+36
Function Call: WRITE
  • Prompt: !,$G(^ENG(6916.2,ENVR,1,ENI,0))
  • Line Location: PRT+39

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(6910 - [#6910] GET1^DIQ
^ENG(6914 - [#6914] GET1^DIQ,  GETS^DIQ
^ENG(6916.3 - [#6916.3] FIND^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call