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: SCRPI01A

Package: Scheduling

Routine: SCRPI01A


Information

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

Source Information

Source file <SCRPI01A.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; Begin printing report
; Variables
; PAGE - Page Number
; SDIV - Division Name
; SDCLN - Clinic Name
; SDNAME - Patient Name
; SDT - Encounter Date
; SCABORT - Abort report flag
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
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.
SELPAGE ; Print on last page the user parameters used for the report.
NEXTLEV(SRT) ; Print out any sublevels of the user selection parameters

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
Info |  Source |  Entry Points |  Interaction Calls