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

Package: Engineering

Routine: ENPRPAD


Information

ENPRPAD ;(WIRMFO)/SAB-Project Actions Due Report ;1/29/1998

Source Information

Source file <ENPRPAD.m>

Entry Points

Name Comments DBIA/ICR reference
ASKDM ; ask due date (month/year)
QEN ; queued entry
PRT ; print results
EXIT
HD ; header
HDC ; header for continued project

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Month is required.",!
  • Line Location: ASKDM+5
Function Call: WRITE
  • Prompt: !!,"No Due or OverDue actions on projects"
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: " marked for MONTHLY UPDATE"
  • Condition for execution: ENONLYMU
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !!,"PROGRAM: ",$$EXTERNAL^DILFD(6925,155,"",ENPR)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !!,ENPN,?15,$$GET1^DIQ(6925,ENDA,2)
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !,?5,$S($P(ENX,U,2)="D":"Due",1:"Overdue")
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: ?15,$$MS^ENPRUTL(ENI)," (",$$FMTE^XLFDT($P(ENX,U),2),") "
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: "PROJECT ACTIONS DUE IN ",$$FMTE^XLFDT(ENDM),?48,ENDT,?72,"page ",ENPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"For ",$S(ENONLYMU:"projects with MONTHLY UPDATE = YES",1:"all projects"),"."
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,ENL
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,"PROGRAM: ",$$EXTERNAL^DILFD(6925,155,"",ENPR)," (continued)"
  • Line Location: HDC+1
Function Call: WRITE
  • Prompt: !!,ENPN,?15,$$GET1^DIQ(6925,ENDA,2)," (continued)"
  • Line Location: HDC+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG("PROJ" - [#6925] EXTERNAL^DILFD,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call