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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SCMCHLR8

Package: Scheduling

Routine: SCMCHLR8


Information

SCMCHLR8 ;ALB/KCL - PCMM HL7 Reject Transmission Report; 22-FEB-2000

Source Information

Source file <SCMCHLR8.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
Scheduling 1 PRINT^SCMCHLR9  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
AGAIN
REPEAT
ASKRANGE(SCRP) ;
; Description: Asks the user to enter a date range for report.
SORTBY(SCRP) ; Description: Ask the user to enter a sort criteria for printing errors.
SELECT(SCRP) ; Description: Ask the user to select 'all errors' or errors for a 'date range'.
EPS(SCRP) ; Description: Ask user to enter a error processing status.
ASKBEGIN(SCRP) ;
DEVICE() ; Description: Allows the user to select a device.
TERPRT ; Description: Main entry point for the PCMM HL7 Reject Transmission Report.
ASKEND(SCRP) ;
; Description: Asks the user to enter an end date.

External References

Name Field # of Occurrence
^%ZIS DEVICE+11
HOME^%ZIS DEVICE+17
^%ZTLOAD DEVICE+15
^DIR SELECT+15, REPEAT, AGAIN, SORTBY+13, EPS+15
PRINT^SCMCHLR9 TERPRT+18
$$FMADD^XLFDT ASKBEGIN+12
$$FMTE^XLFDT ASKBEGIN+12, ASKEND+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Date can not be latter than today!"
  • Line Location: REPEAT+2
Function Call: WRITE
  • Prompt: !,"Date must not be earlier than "_DIR("B")
  • Line Location: AGAIN+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+17
Routine Call
  • DIR
  • Line Location:
    • SELECT+15
    • REPEAT
    • AGAIN
    • SORTBY+13
    • EPS+15
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+11

Label References

Name Line Occurrences
$$ASKBEGIN ASKRANGE+8
$$ASKEND ASKRANGE+9
$$ASKRANGE TERPRT+13
$$DEVICE TERPRT+18
$$EPS TERPRT+15
$$SELECT TERPRT+12
$$SORTBY TERPRT+14
AGAIN AGAIN+2
REPEAT REPEAT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+10*
DIR SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~
DIR("?" SELECT+13*, SELECT+14*, ASKBEGIN+13*, ASKEND+15*, SORTBY+12*, EPS+13*, EPS+14*
DIR("A" SELECT+12*, ASKBEGIN+11*, ASKEND+12*, SORTBY+11*, EPS+12*
DIR("B" ASKBEGIN+12*, ASKEND+14*, AGAIN+2
DIR(0 SELECT+11*, ASKBEGIN+10*, ASKEND+11*, SORTBY+10*, EPS+11*
>> DIRUT SELECT+17, REPEAT+1, AGAIN+1, SORTBY+15, EPS+17
DT ASKRANGE+6, ASKBEGIN+12, REPEAT+2, ASKEND+14
DTOUT SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~
DUOUT SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~
IO("Q" DEVICE+13
OK DEVICE+8~, DEVICE+9*, DEVICE+12*, DEVICE+13, DEVICE+18*, DEVICE+20
>> POP DEVICE+12
SCRP TERPRT+9~, TERPRT+12, TERPRT+13, TERPRT+14, TERPRT+15, SELECT~, ASKRANGE~, ASKRANGE+8, ASKRANGE+9, ASKBEGIN~
, ASKEND~, SORTBY~, EPS~
SCRP("BEGIN" ASKRANGE+5*, REPEAT+3*, AGAIN+2
SCRP("END" ASKRANGE+6*, AGAIN+3*
SCRP("EPS" EPS+18*
SCRP("SELCT" SELECT+18*, ASKRANGE+4
SCRP("SORT" SORTBY+16*
X SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~
Y SELECT+8~, SELECT+18, ASKBEGIN+9~, REPEAT+2, REPEAT+3, ASKEND+10~, AGAIN+2, AGAIN+3, SORTBY+8~, SORTBY+16
, EPS+9~, EPS+18
>> ZTDESC DEVICE+14*
>> ZTRTN DEVICE+14*
>> ZTSAVE("SCRP(" DEVICE+14*
>> ZTSK DEVICE+16
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All