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

Package: Scheduling

Routine: SCRPW47


Information

SCRPW47 ;RENO/KEITH/MLR - Outpatient Diagnosis/Procedure Code Search (cont.) ;9/29/00 12:34pm

Source Information

Source file <SCRPW47.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT
HDR
HD1 ;Report subheader
STOP ;Check for stop task request
DPRT(SDV) ;Print report for a division
DPRT1 ;Prints name & ss# of line detail
PATIENT ;Prints Patient Diagnosis/Procedures for all Types of Detail
VISIT ;Printing Type of Detail: Visits
ENCNTR ;Printing Type of Detail: ENCOUNTER
APF(SDY,SDOE0,SDC) ;Print additional print fields
PD1(SDI) ;Print parameters
PDP(SDT,SDX,SDP,SDL,SDL1) ;Print parameter display line
WAIT ;Do CRT pause

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: SCRPW47+30
Function Call: WRITE
  • Prompt: !
  • Line Location: SCRPW47+47
Function Call: WRITE
  • Prompt: !?(SDCOL),"Patient/Division:",?(SDCOL+26),"SSN:"
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: ?(SDCOL+38),$S('$D(SD("LIST","P")):"Diagnoses:",'$D(SD("LIST","D")):"Procedures/Modifiers:",1:"Diagnoses/Procedures:")
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: !?(SDCOL),$E(SDLINE,1,24),?(SDCOL+26),$E(SDLINE,1,10)
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: ?(SDCOL+38),$E(SDLINE,1,42)
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: DPRT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DPRT+14
Function Call: WRITE
  • Prompt: !?(SDCOL),$E(SDLINE,1,80)
  • Line Location: DPRT+15
Function Call: WRITE
  • Prompt: !?(SDCOL),"TOTAL PATIENTS IDENTIFIED: ",SDCT
  • Line Location: DPRT+16
Function Call: WRITE
  • Prompt: !?(SDCOL),"MULTI-DIVISION PATIENTS: ",SDDCT-SDCT
  • Line Location: DPRT+17
Function Call: WRITE
  • Prompt: !?(SDCOL),$E(SDPNAM2,1,24)
  • Line Location: DPRT1+2
Function Call: WRITE
  • Prompt: ?(SDCOL+26),SDSSN
  • Line Location: DPRT1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: SDL2>1
  • Line Location: PATIENT+10
Function Call: WRITE
  • Prompt: ?(SDCOL+38),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,42)
  • Line Location: PATIENT+10
Function Call: WRITE
  • Prompt: !,?(SDCOL+47),"-",$E(SDII2,1,32)
  • Line Location: PATIENT+17
Function Call: WRITE
  • Prompt: !?(SDCOL+10),"Visit: ",Y
  • Line Location: VISIT+4
Function Call: WRITE
  • Prompt: !?(SDCOL+10),"Encounter: ",$P(Y,":",1,2)
  • Line Location: ENCNTR+7
Function Call: WRITE
  • Prompt: ?(SDCOL+40),SDLOC
  • Line Location: ENCNTR+8
Function Call: WRITE
  • Prompt: !?(SDCOL+SDC),$P(SDY,U,3),":"
  • Line Location: APF+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: SDLF
  • Line Location: APF+8
Function Call: WRITE
  • Prompt: ?(SDCOL+SDC1),$E($P(SDX(SDX),U,2),1,(80-SDC1))
  • Line Location: APF+8
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDX)\2),SDX
  • Line Location: PD1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PDP+9
Function Call: WRITE
  • Prompt: ?(IOM\2-1),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,(IOM\2+1))
  • Line Location: PDP+13
Function Call: WRITE
  • Prompt: !,?(IOM\2-1),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,(IOM\2+1))
  • Line Location: PDP+14
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+1
Info |  Source |  Entry Points |  Interaction Calls