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 |  All
Print Page as PDF
Routine: CIMSRYXD

Package: Uncategorized

Routine: CIMSRYXD


Information

CIMSRYXD ;CMI [ 04/20/98 1:05 PM ]

Source Information

Source file <CIMSRYXD.m>

Entry Points

Name Comments DBIA/ICR reference
BD ;
CONT ;continue or not
GENLOG ;generate new log entry
NLOG() ;get next log
V ; Run by visit date
QUEUE ;EP
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
SETE ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
V1 ;go through each visit on this date
INTRO ;introductory text
CHECK ;
RERUN1 ;
QUEUE1 ;
ED ;
START ;Begin processing backload
XIT ;exit, eoj cleanup
RERUN ;EP - rerun old log entry
SETB ;
PROCESS ;EP - process new run
KILLE ;
GETDATES ;
KILLB ;
PROC ;
WRITEF ;EP - write out flat file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC(),80),!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,$$CTR(X,80),!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"A file will be created and will be placed in the public directory where",!,"all other exports are placed. It will be called OX"_$P(^AUTTLOC(DUZ(2),0),U,10)_"."_$$NLOG,!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"CIMSORY1 GLOBAL EXISTS FROM A PREVIOUS RUN - CANNOT CONTINUE"
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,"Please enter the date range for which the statistical (ORYX) records",!,"should be generated.",!
  • Line Location: GETDATES+1
Function Call: WRITE
  • Prompt: !,"Ending date must be greater than or equal to beginning date!"
  • Line Location: ED+3
Function Call: WRITE
  • Prompt: !!,"Goodbye",!
  • Line Location: ED+8
Function Call: WRITE
  • Prompt: !!,"Log entry ",$$NLOG," will be created and records generated for visit",!,"date range ",$$FMTE^XLFDT(CIMSBD)," to ",$$FMTE^XLFDT(CIMSED),".",!
  • Line Location: ED+9
Function Call: WRITE
  • Prompt: !!,"Goodbye"
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: !!,"Goodbye"
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !!,"Goodbye, no processing will occur.",!
  • Line Location: CONT+9
Function Call: WRITE
  • Prompt: !!,"One or more of those visit dates has already been processed! Log entry ",$O(^CIMSORYX("AD",CIMSBD,0)),!
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !!,"One or more of those visit dates has already been processed! Log entry ",$O(^CIMSORYX("AD",CIMSED,0)),!
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !!,"One or more of those visit dates has already been processed! Log entry ",$O(^CIMSORYX("AD",X,0)),!
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !!,"Rerun ORYX Backload Visit Set",!
  • Line Location: RERUN+2
Function Call: WRITE
  • Prompt: !!,"Log entry ",CIMSLOG," will be reprocessed. Visits in the date range ",!,$$FMTE^XLFDT(CIMSBD)," to ",$$FMTE^XLFDT(CIMSED)," will be processed.",!
  • Line Location: RERUN+10
Function Call: WRITE
  • Prompt: !,"The output file created will be called OX"_$P(^AUTTLOC(DUZ(2),0),U,10)_"."_CIMSLOG
  • Line Location: RERUN+11
Function Call: WRITE
  • Prompt: !,"The last time a total of ",$P(CIMS0,U,5)," visits were processed, of which, ",!,$P(CIMS0,U,6)," generated statistical records.",!!
  • Line Location: RERUN+12
Function Call: WRITE
  • Prompt: !!,"Goodbye"
  • Line Location: RERUN+14
Function Call: WRITE
  • Prompt: !!,"Goodbye"
  • Line Location: RERUN+15
Function Call: WRITE
  • Prompt: !!,"Goodbye, no processing will occur.",!
  • Line Location: RERUN+17
Function Call: WRITE
  • Prompt: !,"Okay, you '^'ed out or timed out so I'm deleting the Log entry and quitting.",!
  • Line Location: QUEUE+4
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued!!",1:"Request cancelled")
  • Line Location: QUEUE1+4
Function Call: WRITE
  • Prompt: !,"Okay, you '^'ed out or timed out so I'm deleting the Log entry and quitting.",!
  • Line Location: QUEUE1+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Error creating log entry."
  • Line Location: GENLOG+4
Info |  Source |  Entry Points |  Interaction Calls |  All