Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SD53P227

Package: Scheduling

Routine: SD53P227


Information

SD53P227 ;ALB/RBS - Cleanup Encounter/Visit Date/Time 421 error ; 10/11/00 5:24pm

Source Information

Source file <SD53P227.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$DT,$$FMTE,$$HTE,$$HTFM,$$NOW)^XLFDT  
Scheduling 2 PRINT^SD53227  FIND^SD53227P  
VA Fileman 2 WAIT^DICD  ^DIR  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
RUN ;Loop the 409.75 Transmitted Outpatient Encounter Error file
ASK() ; Ask user to contuine or not
TITLE ; Screen title
QUEUE ; queue the report
START ;Check for Programmer DUZ(0)="@", then Prompt for Device.
EXIT ;Clean up and quit
MSG ; List information message
MAIL ;Send mail message
REPORT(SDR) ;Select Utility action type

External References

Name Field # of Occurrence
^%ZIS START+38
HOME^%ZIS QUEUE+6
^%ZISC START+41
^%ZTLOAD QUEUE+3
WAIT^DICD RUN+10
^DIR REPORT+8, ASK+4
PRINT^SD53227 RUN+32
FIND^SD53227P RUN+29
$$DT^XLFDT RUN+24
$$FMTE^XLFDT START+20, START+24
$$HTE^XLFDT TITLE+4
$$HTFM^XLFDT RUN+24
$$NOW^XLFDT RUN+12, EXIT+4
^XMD RUN+9, MAIL+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"DUZ must be defined to run this utility!"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+34
Function Call: WRITE
  • Prompt: !!?5,"Unable to schedule Task.",!
  • Line Location: QUEUE+4
Function Call: WRITE
  • Prompt: !!?5,"Scheduled as Task #: ",ZTSK
  • Line Location: QUEUE+5
Function Call: WRITE
  • Prompt: !!,$C(7)
  • Line Location: REPORT+8
Function Call: WRITE
  • Prompt: !!,"This utility will Report on and Clean Up Encounter Date/Time"
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"error code 421 entries in the #409.75 and #9000010 files."
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,"Both options will E-mail a summary report to the user."
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,"Updated entries will be flagged for Retransmission to the NPCD."
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !!,"The REPORT ONLY option does NOT update any file information."
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !,"You may run the REPORT ONLY option to your CRT or to a device."
  • Line Location: MSG+6
Function Call: WRITE
  • Prompt: !,"The CLEAN UP & REPORT option MUST be queued to a device."
  • Line Location: MSG+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !!,?(80-$L(TITLE)\2),TITLE
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,?(80-$L(X)\2),X
  • Line Location: TITLE+5
Routine Call
  • %ZIS
  • Line Location:
    • QUEUE+6
Routine Call
  • DIR
  • Line Location:
    • REPORT+8
    • ASK+4
Routine Call
  • %ZIS
  • Line Location:
    • START+38

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("SD53P227" START+10, START+15, START+16, START+22, START+35, RUN+1, RUN+18!, RUN+20, RUN+21, RUN+22!
, RUN+27*, EXIT+6

Label References

Name Line Occurrences
$$ASK START+25
$$REPORT START+32
EXIT START+28, START+32, RUN+31, RUN+32
MAIL RUN+31, RUN+32
MSG START+31
QUEUE START+40
RUN START+41
TITLE START+3, START+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS START+2~, START+37*
CRT RUN+11~, RUN+13*, RUN+14*
DIR REPORT+1~, REPORT+8!, ASK+1~, ASK+4!
DIR("?" REPORT+3*, REPORT+4*, REPORT+5*, REPORT+6*, REPORT+7*
DIR("A" REPORT+2*, ASK+3*
DIR("B" ASK+3*
DIR(0 REPORT+2*, ASK+2*
DIRUT REPORT+1~, REPORT+9, ASK+1~, ASK+5
DTOUT REPORT+1~, REPORT+9, ASK+1~, ASK+5
DUOUT REPORT+1~, REPORT+9, ASK+1~, ASK+5
DUZ START+4, RUN+4, RUN+25, MAIL+3
DUZ(0 START+5
EXIT START+1~, START+14*, START+19*, START+25*, START+26*, START+27*, START+28, RUN+11~, RUN+13*, RUN+31
FIX RUN+11~, RUN+13*, RUN+15*, RUN+26
IO("Q" START+40
IOF TITLE+1
IOST RUN+10, RUN+14
>> POP START+39
RUNDT RUN+11~
SDI RUN+11~, RUN+13*, RUN+22*
SDL RUN+11~, RUN+13*
SDMSG RUN+3~
SDMSG(1 RUN+5*
SDMSG(2 RUN+6*
SDMSG(3 RUN+7*
SDR REPORT~, REPORT+10*
SDRTYP START+1~, START+32, START+37, RUN+15, RUN+25, MAIL+2
SDTEMP RUN+11~, RUN+27*, EXIT+4
TIMESTRT RUN+11~, RUN+12*, RUN+25, RUN+26, EXIT+3
TITLE START+1~, RUN+4, TITLE+2*, TITLE+3
TXT START+1~
U START+18, START+20, START+24, RUN+24, RUN+25, RUN+26, EXIT+4
X START+1~, START+16*, START+17, START+18, START+20, START+24, RUN+11~, RUN+13*, RUN+21*, RUN+24*
, RUN+25*, RUN+26*, RUN+27, EXIT+2~, EXIT+4*, REPORT+1~, ASK+1~, TITLE+4*, TITLE+5
XMDUN RUN+3~, RUN+4*, MAIL+1~, MAIL+3*
XMDUZ RUN+3~, RUN+4*, MAIL+1~, MAIL+3*
XMSUB RUN+3~, RUN+4*, MAIL+1~, MAIL+2*
XMTEXT RUN+3~, RUN+8*, MAIL+1~, MAIL+4*
XMY RUN+3~, MAIL+1~
XMY( RUN+4*, MAIL+3*
XMZ MAIL+1~
Y START+1~, RUN+11~, REPORT+1~, REPORT+9*, REPORT+10, REPORT+11, ASK+1~, ASK+6
ZTDESC START+2~, QUEUE+2*
ZTDTH START+2~
ZTIO START+2~
ZTQUEUED START+2~, RUN+10, RUN+14
ZTREQ START+2~, RUN+33*
ZTRTN START+2~, QUEUE+2*
ZTSAVE START+2~
ZTSAVE("SDRTYP" QUEUE+1*
ZTSAVE("TITLE" QUEUE+1*
ZTSK START+2~, QUEUE+4, QUEUE+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All