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

Package: Surgery

Routine: SROPCEU0


Information

SROPCEU0 ;BIR/ADM - UNTRANSMITTED OUTPATIENT ENCOUNTERS (CONT.) ;06/21/05

Source Information

Source file <SROPCEU0.m>

Entry Points

Name Comments DBIA/ICR reference
TOT
S1
SUBHD
CASE ; print case info
DEM ; get patient dempgraphic information
PROC ; get principal procedure
CLIN ; get associated clinic
PAGE
HDR ; print heading
REFILE ; re-file cases in PCE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S(SRSPEC:"SPECIALTY: "_SRSPECN,1:" * * * ALL SPECIALTIES * * *")
  • Line Location: SROPCEU0+12
Function Call: WRITE
  • Prompt: !!," Total with NO status: ",$J(SRCNT(0),5)
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !," Total with NON-COUNT: ",$J(SRCNT(12),5)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !,"Total with ACTION REQUIRED: ",$J(SRCNT(14),5),!,?28,"-----"
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !," Total cases identified: ",$J(SRCNT,5)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !!," * * * COMBINED TOTALS FOR ALL SPECIALTIES * * *"
  • Line Location: S1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBHD+1
Function Call: WRITE
  • Prompt: !,SRSDATE,?23,SRTN,?38,$S(SRSORT:$E(SRLOC,1,20),1:$E(SRSSNM,1,20)),?61,$S(IOM<82:$E(SRSTATUS,1,19),1:SRSTATUS)
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: ?23,SRPROC(3)
  • Line Location: CASE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CASE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRRPT)\2),SRRPT,?(IOM-10),$J("Page "_SRPAGE,9),!,?(IOM-$L(SRTITLE)\2),SRTITLE,!,?(IOM-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRPRINT)\2),SRPRINT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: SRSUB
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"DATE OF "_$S(SRFLG=1:"OPERATION",SRFLG=2:"PROCEDURE",1:"OP/PROCEDURE"),?23,"CASE #",?38,$S(SRSORT:"CLINIC",1:"SPECIALTY"),?61,"SCHED STATUS",!,"PATIENT NAME",?23,"PRINCIPAL PROCEDURE",!,"PATIENT ID (AGE)"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Info |  Source |  Entry Points |  Interaction Calls