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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: SCRPI01

Package: Scheduling

Routine: SCRPI01


Information

SCRPI01 ;ALB/SCK - IEMM REPORT OF INCOMPLETE ENCOUNTERS ; 2/2/97

Source Information

Source file <SCRPI01.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Scheduling 4 $$ASKDT^SCENI01  PRINT^SCRPI01A  $$DIV^SCRPIUT1  $$OPENC^SCUTIE1  
Kernel 2 HOME^%ZIS  EN^XUTMDEVQ  
Registration 1 (CLINIC,FIRST,PATIENT)^VAUTOMA  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCRPI01A  

Entry Points

Name Comments DBIA/ICR reference
CLN ; Clinic selection o/m/a
EN ; Main entry point for report of incomplete encounters report
; Variables
; SDTXT - String array for initial message display
; SDDT - date Range, Begin^End
; SDSEL1,2 - Selection methods Line Tag
; SDOK - Flag, 1 - Ok to continu, 0 - Quit
PAT ; Patient selection o/m/a
RPT ; Build report, then call print
ERR ; Error selection o/m/a
SELCT(S1,SCT) ; Set selection criteria
; Input
; S1 - Previous selection method
; SCT - first or second selection method
MSG2 ;
DSS ; Clinic Stop code selection o/m/a
HLP ; '??' help for the selection criteria.
ENQ
MSG ;
EXIT ;
BLD1(SDE,SDX) ; If error passes checks, add to sorted TMP global
; Input
; SDE - Pointer to #409.75
; SDX - Pointer to #409.73
SELMTHD(SEL) ; Returns 'external' version of selection method
BLD ; Search for incomplete encounters and build TMP global
; Variables
; SDEND - End date of date range
; SDOE - Encounter IEN
; SDOEDT - Encounter date
; SDCNT - Entry count
OPTIONS ; Selection methods

External References

Name Field # of Occurrence
HOME^%ZIS EN+29
^DIR EN+13, SELCT+23
$$ASKDT^SCENI01 EN+19
PRINT^SCRPI01A RPT+3
$$DIV^SCRPIUT1 EN+15
$$OPENC^SCUTIE1 BLD1+19
CLINIC^VAUTOMA CLN+3
FIRST^VAUTOMA ERR+3, DSS+3
PATIENT^VAUTOMA PAT+3
EN^XUTMDEVQ EN+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,SDTXT
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"This report requires 132 columns and could take some time.",!,"Remember to QUEUE the report.",!
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !!,"Clinic Selection"
  • Line Location: CLN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CLN+4
Function Call: WRITE
  • Prompt: !!,"Patient Selection"
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !!,"Transmission Error Selection"
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ERR+4
Function Call: WRITE
  • Prompt: !!,"Clinic Stop Code Selection"
  • Line Location: DSS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DSS+4
Function Call: WRITE
  • Prompt: !?2,"You may select any two of the following selection criteria, one at a time, for"
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !?2,"your report. You will be asked for one/many/all selections for each criteria"
  • Line Location: HLP+3
Function Call: WRITE
  • Prompt: !?2,"selected."
  • Line Location: HLP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HLP+5
Function Call: WRITE
  • Prompt: !?2,"Selection criteria are not sort criteria. The sort criteria are Division,"
  • Line Location: HLP+6
Function Call: WRITE
  • Prompt: !?2,"Clinic, Patient, and Encounter. Selection criteria limit what will be"
  • Line Location: HLP+7
Function Call: WRITE
  • Prompt: !?2,"printed in the report."
  • Line Location: HLP+8
Function Call: WRITE
  • Prompt: !!!
  • Line Location: MSG2+1
Function Call: WRITE
  • Prompt: "The following are selection criteria which are used to specify a group of or"
  • Line Location: MSG2+2
Function Call: WRITE
  • Prompt: !,"particular clinic, patient, error code or clinic stop code to be printed."
  • Line Location: MSG2+3
Function Call: WRITE
  • Prompt: !,"You are asked to pick two, one at a time. Type '??' for more details."
  • Line Location: MSG2+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+29
Routine Call
  • DIR
  • Line Location:
    • EN+13
    • SELCT+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^SD(409.76 - [#409.76] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] BLD1+42
^DPT - [#2] BLD1+42
^SC - [#44] BLD1+42
^SCE - [#409.68] BLD1+27, BLD1+28
^SD(409.74 - [#409.74] BLD1+24, BLD1+25
^SD(409.75 - [#409.75] BLD+10, BLD+11, BLD+12, BLD1+34, BLD1+39
^TMP("SCRPI ERR" RPT+1!, EXIT+1!, BLD1+42*

Label References

Name Line Occurrences
$$SELCT EN+17, EN+18
@( EN+21, EN+22
BLD RPT+2
BLD1 BLD+12
ENQ EN+15, EN+17, EN+18, EN+19
MSG2 EN+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT SELCT+14~, SELCT+16*
>> DIC ERR+2*, DSS+2*
DIR EN+13!, SELCT+23!
DIR("?" SELCT+21*
DIR("??" SELCT+22*
DIR("A" SELCT+20*
DIR(0 EN+13*, SELCT+20*
>> IOP EN+26*
NDX EN+7~, EN+10*
S1 SELCT~, SELCT+17
SCEN BLD1+15~
SCEN("CLINIC" BLD1+32, BLD1+37, BLD1+42
SCEN("DELIEN" BLD1+24, BLD1+25
SCEN("DFN" BLD1+33, BLD1+38, BLD1+42
SCEN("ENCOUNTER" BLD1+42
SCEN("SDOIEN" BLD1+27, BLD1+28
SCT SELCT~, SELCT+20
SCTEXT SELCT+14~, SELCT+16*, SELCT+17, SELCT+18
SDCDE BLD1+15~, BLD1+25*, BLD1+28*, BLD1+35, BLD1+40
SDCNT BLD+7~, BLD+9*, BLD1+17*
SDDEL BLD1+15~, BLD1+21*, BLD1+42
SDDT EN+7~, EN+19, BLD+9
SDE BLD1~, BLD1+34, BLD1+39, BLD1+42
SDEND BLD+7~, BLD+9*, BLD+10
SDIV BLD1+15~, BLD1+24*, BLD1+27*, BLD1+30, BLD1+42
SDOE BLD+7~
SDOEDT BLD+7~, BLD+9*, BLD+10*, BLD+11, BLD+12
SDOK EN+7~, EN+21, EN+22, CLN+5*, PAT+5*, ERR+5*, DSS+5*
SDRSLT BLD1+15~, BLD1+19*, BLD1+20, BLD1+21, BLD1+23
SDSEL1 EN+7~, EN+17*, EN+18, EN+21, BLD1+32, BLD1+33, BLD1+34, BLD1+35
SDSEL2 EN+7~, EN+18*, EN+22, BLD1+37, BLD1+38, BLD1+39, BLD1+40
SDTXT EN+7~, EN+10*, EN+11
SDX BLD1~, BLD1+42
>> SDXER BLD+12*
>> SDXMT BLD+11*, BLD+12, BLD1+19
SEL SELMTHD~, SELMTHD+1
U BLD+9, BLD1+24, BLD1+25, BLD1+27, BLD1+28, BLD1+34, BLD1+39, BLD1+42
VAUDS EN+7~, BLD1+35, BLD1+40
VAUDS( BLD1+35, BLD1+40
VAUER EN+7~, BLD1+34, BLD1+39
VAUER( BLD1+34, BLD1+39
VAUTC EN+7~, BLD1+32, BLD1+37
VAUTC( BLD1+32, BLD1+37
VAUTD EN+7~, BLD1+30
VAUTD( BLD1+30
VAUTN EN+7~, BLD1+33, BLD1+38
VAUTN( BLD1+33, BLD1+38
VAUTNI EN+7~, CLN+2*, PAT+2*, ERR+2*, DSS+2*
VAUTSTR EN+7~, ERR+2*, DSS+2*
VAUTVB EN+7~, ERR+2*, DSS+2*
X EN+24*, EN+25, SELCT+14~, SELCT+15*, SELCT+18*, SELCT+20
>> Y EN+13, SELCT+24, CLN+5, PAT+5, ERR+5
>> ZTQUEUED BLD1+17
ZTSAVE EN+7~, EN+28
ZTSAVE( EN+25*

Marked Items

Name Field # of Occurrence
$T(MSG+NDX EN+10
$T(OPTIONS+CNT SELCT+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All