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

Package: Scheduling

Routine: SD53P754


Information

SD53P754 ;MS/GN - TMP POST INSTALL;July 05, 2018

Source Information

Source file <SD53P754.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Begin Post Install
FIXCID(BEGIN,END) ;Fix CID/PREFERRED DATE OF APPT field (#22) in SDEC APPOINTMENT REQUEST file (#409.85)
UPDCID(AP,CDT)
UPDDIS(AP,DDT,APSTS) ;Update the "DIS" node in 409.85 file field all fields especially date (#19)
; AP - Rec ien for 409.85 file
; CDT - Dispositioned date (FM format no time) in Appt Req file
DISP ;QUICK DISPLAY OF SDEC RECS TOUCHED IF CURIOUS?
; assumes Refletion display settings set to max of 999 memory to see all or,
; user will turn on logging to record to a flat file or,
; user will use %G to access XTMP directly
HDR ;Write screen header
CNT ;pre-post install null CID datre count entire 409.85 file
ALL ;ALL RECD COUNTED INEGRITY OF "E" XREF VS $O OF 0 NODES
UNDO ;UNDO MY CURRENT UPDATE FOR CID & DIS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: #
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!!,"APPROXIMATE NUMBER OF SCREEN PAGES TO DISPLAY... ",^XTMP("SD53P754",0,"TOTAL EMPTY CID RECORDS UPDATED")\7
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: #
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,"0: ",AP,?14,$P(^SDEC(409.85,AP,0),U,1,17)
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,"DIS:",?15,$G(^SDEC(409.85,AP,"DIS")),!
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: #!,?20,"Ctrl + PgUp for previous page.",!,?17,"(hold down both for continuous scrolling)",!
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !?3,"Assumes Reflection Display Settings = 999 Memory blocks to retain all pages"
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: #
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Node 0: IEN ^ Create dte",?36,"<pg ",PG,">",?53,"^16 CID dte ^17 Open/Close",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "DIS node: date ^ duz ^ sts"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"================================================================================"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"cid null count: ",?40,$J(CNT,10),!,"date entered is also null count: ",?40,$J(CNTERR,10),!,"difference: ",?40,$J((CNT-CNTERR),10)
  • Line Location: CNT+3
Function Call: WRITE
  • Prompt: !,"Analyzing."
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: !,AP,?20,APNODE0
  • Line Location: ALL+9
Function Call: WRITE
  • Prompt: !!,"TOTL ",CNT,!,"NCID ",ECNT,!,"NOST ",NCNT,!,"NODT ",DCNT,!!,"XREF ",XCNT,!,"XFIX ",XEC,!!
  • Line Location: ALL+12
Function Call: WRITE
  • Prompt: !,AP
  • Line Location: UNDO+3
Function Call: WRITE
  • Prompt: !,AP,"<<<<<<"
  • Line Location: UNDO+6
Info |  Source |  Entry Points |  Interaction Calls