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

Package: DSS Extracts

Routine: ECXSCLD


Information

ECXSCLD ;BIR/DMA,CML-Enter, Print and Edit Entries in 728.44 ;5/9/17 12:31

Source Information

Source file <ECXSCLD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
START ; entry point
FIX(EC) ;
; synchronize files #44 and #728.44.
UPDATE(ECSC,ECDDIF,ECSCSIGN) ;update ^xtmp node with today's changes
SELECT ;select IO device to 'gather clinic stop codes' and print 'unreviewd clinics' report;
PRINT ; print worksheet for updates
SPRINT ; queued entry to print work sheet
HEAD ; header for worksheet 149 moved to ECXSCLD1 due to size
SHOWEM ; list clinics for worksheet 149 moved to ECXSCLD1 due to size
EDIT ; put in DSS stopcodes and which one to send
ENDCHK ;check validity of clinic
ERRPRNT ;print errors 149 moved to ECXSCLD1 due to size
KILL ;
ERRCHK(CODE,TYPE,CLIEN1) ;check for problems 149 moved to ECXSCLD1 due to size
APPROVE ; approve current DSS Stop and Credit Stop codes
APPLOOP ; queued entry to approve action codes
ENDX
PAUSE ;pause screen
LOOK ;queued entry to check for new clinics

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option creates local entries in the DSS CLINIC AND STOP CODES"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"file (#728.44).",!
  • Line Location: EN+4
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"DSS Clinic stop code file does not exist",!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"The CREATE option last ran on ",$S($D(^ECX(728.44,"C")):$$FMTE^XLFDT($O(^ECX(728.44,"C"," "),-1),2),1:"- No date on file"),".",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"Running CREATE..."
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !!,"The CREATE option has completed on ",$$FMTE^XLFDT($$NOW^XLFDT),".",!
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !,"DSS CSC",!
  • Line Location: FIX+49
Function Call: WRITE
  • Prompt: !,"Please select a print device for the 'Unreviewed Clinics' report."
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !,"**Please note: If printing in foreground, synching files may cause screen delay."
  • Line Location: SELECT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: !,"Queued as Task #: "_ZTSK
  • Line Location: SELECT+15
Function Call: WRITE
  • Prompt: !!,">> Synchronizing Stop Codes file (#728.44) with the Hospital"
  • Line Location: SELECT+16
Function Call: WRITE
  • Prompt: !," Location file (#44)...",!
  • Line Location: SELECT+17
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"DSS Clinic stop code file does not exist",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"This option produces a worksheet of (A) All Clinics, (C) Active, (D) Duplicate, ",!,"(I) Inactive, "
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: "or only the (U) Unreviewed Clinics that are awaiting approval."
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"**REMINDER - The CREATE option last ran on ",$S($D(^ECX(728.44,"C")):$$FMTE^XLFDT($O(^ECX(728.44,"C"," "),-1),2),1:"- No date on file"),"."
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,"If the most recent clinic changes from the HOSPITAL LOCATION file #44",!,"are desired, run the CREATE option before running a report.**",!
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!,"**REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY**",!
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND FOR WORKSHEET.",!
  • Line Location: SPRINT+14
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND FOR WORKSHEET.",!
  • Line Location: SPRINT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: SPRINT+41
Function Call: WRITE
  • Prompt: !!,"...Errors found please fix."
  • Line Location: ENDCHK+15
Function Call: WRITE
  • Prompt: !!,"This option allows you to mark the current clinic entries in the CLINICS AND",!,"STOP CODES file (#728.44) as ""reviewed"". Those entries will then be omitted"
  • Line Location: APPROVE+1
Function Call: WRITE
  • Prompt: !,"from the list printed from the ""Clinic and DSS Stop Codes Print"" when you",!,"choose to print only ""unreviewed"" clinics.",!
  • Line Location: APPROVE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: APPROVE+9
Function Call: WRITE
  • Prompt: !!,"...approval queued"
  • Line Location: APPROVE+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ
^ECX(728.44 - [#728.44] Classic Fileman Calls,  GETS^DIQ
^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