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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SCRPI01A

Package: Scheduling

Routine: SCRPI01A


Information

SCRPI01A ;ALB/SCK - IEMM REPORT OF INCOMPLETE ENCOUNTERS PRINT ; 6/24/97

Source Information

Source file <SCRPI01A.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 2 $$S^%ZTLOAD  ($$DT,$$FMTE)^XLFDT  
Registration 2 PID^VADPT6  $$FDATE^VALM1  
Scheduling 2 $$SELMTHD^SCRPI01  (CTR,PARSE)^SCRPIUT1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCRPI01  

Entry Points

Name Comments DBIA/ICR reference
HDR(SDIV,SDCLN) ; Print report header, if abort flag is set, then quit
; Input
; SDIV - Division Name
; SDCLN - Clinic Name
HDR1 ; Report header for no data found. Prints modified header.
LINE(SDTMP) ; Print formatted line of the report. Check if task has been stopped by user.
; Set abort flag to quit if stopped.
; Input
; SDTMP - formatted line to print
NEXTLEV(SRT) ; Print out any sublevels of the user selection parameters
SELPAGE ; Print on last page the user parameters used for the report.
PRINT ; Begin printing report
; Variables
; PAGE - Page Number
; SDIV - Division Name
; SDCLN - Clinic Name
; SDNAME - Patient Name
; SDT - Encounter Date
; SCABORT - Abort report flag

External References

Name Field # of Occurrence
$$S^%ZTLOAD LINE+15
^DIR HDR+12, SELPAGE+5
$$SELMTHD^SCRPI01 HDR+32, HDR1+6
CTR^SCRPIUT1 HDR+21, HDR+25, HDR+29, HDR+33, HDR+40, HDR1+4, HDR1+7, SELPAGE+13, SELPAGE+15
PARSE^SCRPIUT1 LINE+39
PID^VADPT6 LINE+27
$$FDATE^VALM1 HDR+18, HDR1+2, SELPAGE+11
$$DT^XLFDT HDR+18, HDR1+2, SELPAGE+11
$$FMTE^XLFDT LINE+30, HDR+28, HDR1+3, SELPAGE+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report stopped by user"
  • Line Location: LINE+17
Function Call: WRITE
  • Prompt: !,$S('NONAME:$E(SDNAME,1,25),1:" "),?27,$S('NONAME:VA("BID"),1:" ")
  • Line Location: LINE+28
Function Call: WRITE
  • Prompt: ?33,$S($P(SDTMP,U,3)]"":$P(SDTMP,U,3),1:" ")," "
  • Line Location: LINE+29
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SDT,"2FP"),?55,$S($P(SCERR,U,2)="V":"VISTA",$P(SCERR,U,2)="N":"NPCD ",1:"UNK "),?62,$P(SCERR,U)
  • Line Location: LINE+30
Function Call: WRITE
  • Prompt: ?68,X
  • Line Location: LINE+36
Function Call: WRITE
  • Prompt: ?68,X1,!?68,X2
  • Line Location: LINE+40
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !?2,"Date: ",$$FDATE^VALM1($$DT^XLFDT),?((IOM/2)-22),"Incomplete Encounter Management Error Listing",?(IOM-13),"Page: ",PAGE
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+30
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: !!!,?35,"Encounter",?54,"Error",?62,"Error"
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: !,"Patient Name",?27,"SSN",?35,"Date/Time",?54,"Srce",?62,"Code",?68,"Description"
  • Line Location: HDR+37
Function Call: WRITE
  • Prompt: !,DBLDASH
  • Line Location: HDR+38
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HDR+41
Function Call: WRITE
  • Prompt: !?2,"Date: ",$$FDATE^VALM1($$DT^XLFDT),?((IOM/2)-22),"Incomplete Encounter Management Error Listing"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,X,!!
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: !?5,"No errors found"
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELPAGE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELPAGE+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELPAGE+8
Function Call: WRITE
  • Prompt: !?2,"Date: ",$$FDATE^VALM1($$DT^XLFDT),?((IOM/2)-22),"Incomplete Encounter Management Error Listing",?(IOM-13),"Page: ",PAGE
  • Line Location: SELPAGE+11
Function Call: WRITE
  • Prompt: !!?10,"Divisions: ",$S(VAUTD:"All",1:"")
  • Line Location: SELPAGE+17
Function Call: WRITE
  • Prompt: !?15,VAUTD(SDIV)
  • Line Location: SELPAGE+18
Function Call: WRITE
  • Prompt: !!?10,"Clinics: ",$S(VAUTC:"All",1:"")
  • Line Location: NEXTLEV+4
Function Call: WRITE
  • Prompt: !?15,VAUTC(SDITEM)
  • Line Location: NEXTLEV+5
Function Call: WRITE
  • Prompt: !!?10,"Patients: ",$S(VAUTN:"All",1:"")
  • Line Location: NEXTLEV+8
Function Call: WRITE
  • Prompt: !?15,VAUTN(SDITEM)
  • Line Location: NEXTLEV+9
Function Call: WRITE
  • Prompt: !!?10,"Error Codes: ",$S(VAUER:"All",1:"")
  • Line Location: NEXTLEV+12
Function Call: WRITE
  • Prompt: !?15,VAUER(SDITEM)," ",$E($P(^SD(409.76,SDITEM,1),U),1,60)
  • Line Location: NEXTLEV+13
Function Call: WRITE
  • Prompt: !!?10,"Clinic Stop Codes: ",$S(VAUDS:"All",1:"")
  • Line Location: NEXTLEV+16
Function Call: WRITE
  • Prompt: !?15,VAUDS(SDITEM)
  • Line Location: NEXTLEV+17
Routine Call
  • DIR
  • Line Location:
    • HDR+12
    • SELPAGE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SD(409.75 - [#409.75] LINE+22, LINE+23, LINE+24
^SD(409.76 - [#409.76] LINE+23, LINE+24, NEXTLEV+13
^TMP("SCRPI ERR" PRINT+14, PRINT+16, PRINT+18, PRINT+22, PRINT+24, PRINT+26

Label References

Name Line Occurrences
HDR PRINT+19, LINE+19
HDR1 PRINT+14
LINE PRINT+26
NEXTLEV HDR1+10, HDR1+11, SELPAGE+20, SELPAGE+21
SELPAGE PRINT+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DASH PRINT+9~, PRINT+11*
DBLDASH PRINT+9~, PRINT+11*, HDR+38
DFN LINE+12~, LINE+26*
DIR HDR+12!, SELPAGE+5!
DIR(0 HDR+12*, SELPAGE+5*
IOF HDR+10, HDR+13, HDR+15, SELPAGE+3, SELPAGE+6, SELPAGE+8
IOM PRINT+11, HDR+18, HDR+21, HDR+25, HDR+29, HDR+33, HDR+40, HDR1+2, HDR1+4, HDR1+7
, SELPAGE+11, SELPAGE+13, SELPAGE+15
IOSL LINE+19
IOST HDR+10, HDR+11, SELPAGE+3, SELPAGE+4
NONAME PRINT+9~, PRINT+23*, LINE+28, LINE+41*
PAGE PRINT+9~, PRINT+12*, HDR+10, HDR+11, HDR+15, HDR+17*, HDR+18, SELPAGE+3, SELPAGE+4, SELPAGE+8
, SELPAGE+10*, SELPAGE+11
SCABORT PRINT+9~, PRINT+16, PRINT+18, PRINT+20, PRINT+22, PRINT+24, PRINT+26, LINE+16*, HDR+11, HDR+12*
, SELPAGE+4, SELPAGE+5*
SCERR LINE+12~, LINE+23*, LINE+30
SCERR1 LINE+12~, LINE+24*, LINE+34
SDCLN PRINT+9~, PRINT+17*, PRINT+18*, PRINT+19, PRINT+22, PRINT+24, PRINT+26, LINE+19, HDR~, HDR+24
, SELPAGE+1~
SDDSS SELPAGE+1~
>> SDDT HDR+28, HDR1+3, SELPAGE+14
>> SDER PRINT+25*, PRINT+26*, LINE+22, LINE+23, LINE+24
SDERR SELPAGE+1~
SDITEM NEXTLEV+1~, NEXTLEV+5*, NEXTLEV+9*, NEXTLEV+13*, NEXTLEV+17*
SDIV PRINT+9~, PRINT+12*, PRINT+16*, PRINT+18, PRINT+19, PRINT+22, PRINT+24, PRINT+26, LINE+19, HDR~
, HDR+20, SELPAGE+1~, SELPAGE+18*
SDL HDR+8~
SDNAME PRINT+9~, PRINT+21*, PRINT+22*, PRINT+24, PRINT+26, LINE+28
SDPAT SELPAGE+1~
>> SDSEL1 HDR+32, HDR1+6, HDR1+10, SELPAGE+20
>> SDSEL2 HDR+32, HDR1+6, HDR1+11, SELPAGE+21
SDT PRINT+9~, PRINT+23*, PRINT+24*, PRINT+26, LINE+30
SDTMP LINE~, LINE+26, LINE+29
SRT NEXTLEV~, NEXTLEV+3, NEXTLEV+7, NEXTLEV+11, NEXTLEV+15
U LINE+23, LINE+24, LINE+26, LINE+29, LINE+30, LINE+34, HDR+28, HDR1+3, SELPAGE+14, NEXTLEV+13
VA LINE+42!
VA("BID" LINE+28
>> VAUDS NEXTLEV+16, NEXTLEV+17
>> VAUDS( NEXTLEV+17
>> VAUER NEXTLEV+12, NEXTLEV+13
>> VAUER( NEXTLEV+13
>> VAUTC NEXTLEV+4, NEXTLEV+5
>> VAUTC( NEXTLEV+5
>> VAUTD SELPAGE+17, SELPAGE+18
>> VAUTD( SELPAGE+18
>> VAUTN NEXTLEV+8, NEXTLEV+9
>> VAUTN( NEXTLEV+9
X LINE+12~, LINE+34*, LINE+35, LINE+36, LINE+39, HDR+8~, HDR+20*, HDR+21, HDR+22, HDR+24*
, HDR+25, HDR+26, HDR+28*, HDR+29, HDR+30, HDR+32*, HDR+33, HDR+34, HDR+39*, HDR+40
, HDR+41, HDR1+3*, HDR1+4, HDR1+5, HDR1+6*, HDR1+7, HDR1+8, SELPAGE+12*, SELPAGE+13, SELPAGE+14*
, SELPAGE+15
X1 LINE+12~, LINE+38!, LINE+39, LINE+40
X2 LINE+12~, LINE+38!, LINE+39, LINE+40
>> Y HDR+12, SELPAGE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All