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

Package: DSS Extracts

Routine: ECXSCLD1


Information

ECXSCLD1 ;ALB/DAN <CONT> Enter, Print and Edit Entries in 728.44 ;4/4/19 15:52

Source Information

Source file <ECXSCLD1.m>

Entry Points

Name Comments DBIA/ICR reference
HEAD ; header for worksheet 149 - moved from ECXSCLD due to size restraints.
SS ;SCROLL STOPS 149 - moved from ECXSCLD due to size restraints.
ERRCHK(CODE,TYPE,CLIEN1) ;check for problems 149 - moved from ECXSCLD due to size restraints.
SHOWEM ; list clinics for worksheet 149 moved from ECXSCLD due to size.
ERRPRNT ;print errors
EDIT1 ;check input & update field #3; allow '@' deletion; allow bypass empty with no entry
EXPORT ;Export clinic review data to spreedsheet
EDIT ;Enter/Edit Clinic moved from ECXSCLD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y!($E(IOST)="C")
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,HEAD1,@$S(ECALL="D":"?71",1:"?123"),"Page: ",PG
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,$S(ECDATE="":"(NEVER APPROVED)",1:"(last approved on "_ECDATE_")"),@$S(ECALL="D":"?59",1:"?112"),"Print Date:",$TR($$FMTE^XLFDT(DT,"2F")," ",0)
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SS+4
Function Call: WRITE
  • Prompt: !!,ECSC
  • Line Location: SHOWEM+6
Function Call: WRITE
  • Prompt: ?33,$P(ECD,U,1),?42,$P(ECD,U,2),?55,$P(ECD,U,5)
  • Line Location: SHOWEM+8
Function Call: WRITE
  • Prompt: ?$P("28,35,44,50,62",",",J),$S($P(ECD,U,J):$P(ECD,U,J),J<3:"",1:"_____")
  • Line Location: SHOWEM+9
Function Call: WRITE
  • Prompt: ?63,$S(ECN]"":ECN,1:"____"),?70,$$GET1^DIQ(728.442,$P(ECD,U,13),.01),?78,ECNON,?87,$P(ECD,U,10),?108,$P(ECD,U,8)
  • Line Location: SHOWEM+10
Function Call: WRITE
  • Prompt: ?124,$$GET1^DIQ(4,$P(ECD,U,14),99,"E")
  • Line Location: SHOWEM+11
Function Call: WRITE
  • Prompt: !,"..",ECXERR(I)
  • Line Location: ERRPRNT+3
Function Call: WRITE
  • Prompt: !,"..",WARNING(I)
  • Line Location: ERRPRNT+6
Function Call: WRITE
  • Prompt: " deleted..."
  • Line Location: EDIT1+14
Function Call: WRITE
  • Prompt: " deleted..."
  • Line Location: EDIT1+21
Function Call: WRITE
  • Prompt: !,?5,"Invalid... try again."
  • Line Location: EDIT1+24
Function Call: WRITE
  • Prompt: !,?5,"Invalid... try again."
  • Line Location: EDIT1+28
Function Call: WRITE
  • Prompt: !,?5,ECXMSG,!
  • Line Location: EDIT1+29
Function Call: WRITE
  • Prompt: " deleted..."
  • Line Location: EDIT1+42
Function Call: WRITE
  • Prompt: !,?5,"Invalid... try again."
  • Line Location: EDIT1+49
Function Call: WRITE
  • Prompt: !,?5,"Invalid... try again."
  • Line Location: EDIT1+53
Function Call: WRITE
  • Prompt: !,?5,ECXMSG,!
  • Line Location: EDIT1+54
Function Call: WRITE
  • Prompt: !!,"Select which clinics to include on the spreadsheet for exporting."
  • Line Location: EXPORT+3
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !,"DSS Clinic stop code file does not exist",!!
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ
^ECX(728.44 - [#728.44] Classic Fileman Calls
^ECX(728.441 - [#728.441] GET1^DIQ
^ECX(728.442 - [#728.442] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call