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

Package: Order Entry Results Reporting

Routine: ORLPSRA


Information

ORLPSRA ;SLC/RAF - Continuation of ORLPSR ; 3/31/08 6:24am

Source Information

Source file <ORLPSRA.m>

Entry Points

Name Comments DBIA/ICR reference
LOOP ;called from ORLPSR
PROV ;loops thru the TMP global for output sort by provider
SPROV ;sorts for a single provider
PAT ;loops thru the TMP global for output sort by patient
SPAT ;sorts for a single patient
WARD ;loops thru the TMP global for output sort by location
SWARD ;sorts for a single location
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No lapsed orders found"
  • Line Location: PROV+7
Function Call: WRITE
  • Prompt: $P(^(IEN),U),?25,$P(^(IEN),U,2),?50,$P(^(IEN),U,3),?75,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?91,$P(^(IEN),U,6),?104,$P(^(IEN),U,7),?118,$P(^(IEN),U,8),!
  • Line Location: PROV+11
Function Call: WRITE
  • Prompt: $P(^(IEN),U),?25,$P(^(IEN),U,2),?50,$P(^(IEN),U,3),?75,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?91,$P(^(IEN),U,6),?104,$P(^(IEN),U,7),?118,$P(^(IEN),U,8),!
  • Line Location: SPROV+10
Function Call: WRITE
  • Prompt: !!,"No lapsed orders found for "_LONER
  • Line Location: SPROV+12
Function Call: WRITE
  • Prompt: !,"No lapsed orders found"
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: $P(^(IEN),U),?25,$P(^(IEN),U,2),?30,$P(^(IEN),U,3),?55,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?91,$P(^(IEN),U,6),?104,$P(^(IEN),U,7),?118,$P(^(IEN),U,8),!
  • Line Location: PAT+11
Function Call: WRITE
  • Prompt: @IOF,@HDR
  • Line Location: PAT+13
Function Call: WRITE
  • Prompt: $P(^(IEN),U),?25,$P(^(IEN),U,2),?30,$P(^(IEN),U,3),?55,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?91,$P(^(IEN),U,6),?104,$P(^(IEN),U,7),?118,$P(^(IEN),U,8),!
  • Line Location: SPAT+10
Function Call: WRITE
  • Prompt: !!,"No lapsed orders found for "_LONER
  • Line Location: SPAT+12
Function Call: WRITE
  • Prompt: !,"No lapsed orders found"
  • Line Location: WARD+7
Function Call: WRITE
  • Prompt: $P(^TMP("ORUNS",$J,LOC,PROV,IEN),U,2),?25,$P(^(IEN),U,3),?50,$P(^(IEN),U,4),?75,$P(^(IEN),U,5),?81,$P(^(IEN),U,6),?91,$P(^(IEN),U,7),?104,$P(^(IEN),U,8),?118,$P(^(IEN),U,9),!
  • Line Location: WARD+11
Function Call: WRITE
  • Prompt: $P(^TMP("ORUNS",$J,LOC,PROV,IEN),U,2),?25,$P(^(IEN),U,3),?50,$P(^(IEN),U,4),?75,$P(^(IEN),U,5),?81,$P(^(IEN),U,6),?91,$P(^(IEN),U,7),?104,$P(^(IEN),U,8),?118,$P(^(IEN),U,9),!
  • Line Location: SWARD+10
Function Call: WRITE
  • Prompt: !!,"No lapsed orders found for "_LONER
  • Line Location: SWARD+12
Info |  Source |  Entry Points |  Interaction Calls