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

Package: Engineering

Routine: ENTIRRH1


Information

ENTIRRH1 ;WOIFO/LKG - Print hand receipt (Continued) ;3/4/08 15:02

Source Information

Source file <ENTIRRH1.m>

Entry Points

Name Comments DBIA/ICR reference
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
DATES() ;Signature Dates for User

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You have no IT assignments, either active or ended."
  • Line Location: USER+1
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+5
Function Call: WRITE
  • Prompt: !,ENNBR,?11,$E(ENMFGN,1,20),?35,ENMODEL,?65,ENSERNBR
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !?4,"Signed: ",ENSIGNDT,?35,"Signature: /ES/",$G(ENSIG)
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: !,?4,"Signed: "_$S(ENRDA1>0:$$GET1^DIQ(6916.31,ENRDA1_","_ENRDA_",",.01),1:$$GET1^DIQ(6916.3,ENRDA_",",4))
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: ?35,"Certified by: "_$S(ENRDA1>0:$$GET1^DIQ(6916.31,ENRDA1_","_ENRDA_",",3),1:$$GET1^DIQ(6916.3,ENRDA_",",6))
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !?19,"** Hand Receipt Text Altered **"
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: !?19,"** Assigned Equipment Altered **"
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: !?19,"** Assigned Person Altered **"
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: !?19,"** Date Signed Altered **"
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: !?4,"Current Status: ",$$GET1^DIQ(6916.3,ENI_",",20),?35,"Date: ",$$GET1^DIQ(6916.3,ENI_",",21)
  • 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
Function Call: WRITE
  • Prompt: @IOF,?5,"Signature Dates"
  • Line Location: DATES+10
Function Call: WRITE
  • Prompt: !?5,$P(^TMP($J,"ENITRRH","DATES",ENI),U)
  • Line Location: DATES+14
Function Call: WRITE
  • Prompt: !?3,"* No Signed Assignments *"
  • Line Location: DATES+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+16

FileMan Files Accessed Via FileMan Db Call

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