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

Package: Surgery

Routine: SRONOR5


Information

SRONOR5 ;B'HAM ISC/MAM - REPORT OF NON-O.R. PROCEDURES (1 PROVIDER) ; Apr 07, 2025@10:00

Source Information

Source file <SRONOR5.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; set and print info
UTIL ; set ^TMP
HDR
OTHER ; other operations
LOOP ; break procedure if greater than 50 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?35,"There were no procedures entered for the date range selected."
  • Line Location: SRONOR5+7
Function Call: WRITE
  • Prompt: !!,SRSDATE,?15,SRNM_" ("_VA("PID")_")",?64,SRSS,?116,SRST,!,SROP,?15,SRLOC_" ("_SRINOUT_")",?64,SRANEST,?116,SRET
  • Line Location: SET+14
Function Call: WRITE
  • Prompt: !,?62,SRANESUP,!,?62,SROPS(1)
  • Line Location: SET+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: SRABORT=""
  • Line Location: SET+16
Function Call: WRITE
  • Prompt: ?62,SROPS(2)
  • Line Location: SET+16
Function Call: WRITE
  • Prompt: !,?62,SROPS(3)
  • Line Location: SET+16
Function Call: WRITE
  • Prompt: !,?62,SROPS(3)
  • Line Location: SET+16
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?57,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?51,"REPORT OF NON-O.R. PROCEDURES",?100,"DATE REVIEWED:",!,?(132-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"DATE",?15,"PATIENT (ID#)",?64,"SPECIALTY",?116,"START TIME",!,"CASE #",?15,"LOCATION (IN/OUT-PAT STATUS)",?64,"PRINCIPAL ANESTHETIST",?116,"FINISH TIME"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?62,"ANESTHESIOLOGIST SUPERVISOR",!,?62,"PROCEDURE(S)",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(124-$L("PROVIDER: "_SRSURG)\2),"*** PROVIDER "_SRSURG_" ***"
  • Line Location: HDR+5
Info |  Source |  Entry Points |  Interaction Calls