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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SCDXSUP

Package: Scheduling

Routine: SCDXSUP


Information

SCDXSUP ;RENO/KEITH ALB/SCK - Consistency checker for Ambulatory Care Reporting Project (ACRP); 02/26/97

Source Information

Source file <SCDXSUP.m>

Entry Points

Name Comments DBIA/ICR reference
CQ ;Queue re-calculation of OUTPATIENT ENCOUNTER checkout status
CQ1
CQAPI(SCBG,SCED,SCPFLG) ; API entry point for re-calculation of OUTPATIENT ENCOUNTER checkout status
; INPUT:
; SCBG - Beginning date, if passed in, use it
; SCED - Ending date, if passed in, use it
; SCPFLG - Print Report flag
; 1 - Print report
; 0 - Do not print report
CALC ;Update Checkout Status
CRTX ;
NEXT1 ;
EXIT ;
EVAL(SC0,OEIN,SDT) ;Evaluate checkout status
; ** If the encounter appt. status is CHECKED OUT, and the check out process is
; completed, but there is no entry for the encounter in the Transmitted
; Outpatient Encounter file, then process the encounter into the Transmitted
; Outpatient Encounter File, #409.73
HDR ; Header
PRT(SC0) ;Print appointment
ASKDT(TXT) ; Enter beginning date for searching outpatient encounter file
NEWPAGE() ; Check device and display prompt for terminals

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will check outpatient encouters with a status of 'CHECKED OUT'"
  • Line Location: CQ+13
Function Call: WRITE
  • Prompt: !,"for a entry in the TRANSMITTED OUTPATIENT ENCOUNTER file."
  • Line Location: CQ+14
Function Call: WRITE
  • Prompt: !,"If no entry exists, and the encounter is for a COUNT Clinic, then "
  • Line Location: CQ+15
Function Call: WRITE
  • Prompt: !,"a transmission entry will be added."
  • Line Location: CQ+16
Function Call: WRITE
  • Prompt: !!,"This may take a while, please queue to a printer!",!
  • Line Location: CQ+17
Function Call: WRITE
  • Prompt: !!,"Ending date cannot be earlier than the Beginning date!",!
  • Line Location: CQ1+3
Function Call: WRITE
  • Prompt: !!,"No encounters with missing transmission records found."
  • Line Location: CRTX+4
Function Call: WRITE
  • Prompt: !!,SCCT," transmission record",$S(SCCT=1:"",1:"s")," created."
  • Line Location: CRTX+12
Function Call: WRITE
  • Prompt: !!,"No Count Clinic encounters found needing retransmission."
  • Line Location: NEXT1+7
Function Call: WRITE
  • Prompt: !!,SCCT," Count clinic encounters marked for retransmission."
  • Line Location: NEXT1+14
Function Call: WRITE
  • Prompt: !,SCLINE,!,?(IOM-($L(SCHD)+10)\2),"<*> ",SCHD," <*>",!,SCLINE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"For date range ",SCBDT," to ",SCEDT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Date printed: ",SCPNOW,?(IOM-7-$L(PAGE)),"Page: ",PAGE,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Patient",?21,"SSN",?33,"Appointment",?56,"Clinic",!,SCLINE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$E($P(SCPT0,U),1,18),?21,$P(SCPT0,U,9)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: ?33,$P($$FMTE^XLFDT($P(SC0,U)),":",1,2)
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: ?56,$E($P($G(^SC(+$P(SC0,U,4),0)),U),1,(IOM-56))
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWPAGE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPAGE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SCE - [#409.68] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call