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

Package: Radiology Nuclear Medicine

Routine: RAMRPIN


Information

RAMRPIN ;BPFO/CLT - LIST ACTVE PROCEDURES WITH INACTIVE MRPF ; 12 Sep 2016 2:17 PM

Source Information

Source file <RAMRPIN.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;PRIMARY ENTRY POINT
LOOK ;BEGIN LOOKING FOR ACTIVE PROCEDURES WITH INACTIVE CPT OR MRPF
PRNT ;PRINT THE FOUND DATA
TASK ;ASK DEVICE AND QUEUE
END ;END THE ROUTINE
HDR ;NEW PAGE AND PRINT HEADER

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no active procedures with inactive CPT code or inactive",!,"Master Radiology Procedure File (MRPF) entry.",!
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: !,$E(RANAME,1,20)
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: ?22,RACPT
  • Line Location: PRNT+10
Function Call: WRITE
  • Prompt: ?22,RACPT
  • Line Location: PRNT+11
Function Call: WRITE
  • Prompt: ?32,$$FMTE^XLFDT($P(^XTMP("RAMRPIN",$J,RANAME,1),U,2),"2M")
  • Line Location: PRNT+12
Function Call: WRITE
  • Prompt: !,$E(RANAME,1,20)
  • Line Location: PRNT+17
Function Call: WRITE
  • Prompt: ?45,$E(MRPFNM,1,20),?67,$$FMTE^XLFDT($P(^XTMP("RAMRPIN",$J,RANAME,1),U,2),"2M")
  • Line Location: PRNT+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF,!!?27,"ACTIVE RADIOLOGY PROCEDURES",?70,"PAGE ",PAGE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?33,"WITH INACTIVE"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?29,"CPT CODE OR MRPF LOINC"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?3,"PROCEDURE NAME",?22,"CPT CODE",?32,"INAC DT",?45,"MRPF NAME",?67,"INAC DT"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"====================",?22,"========",?32,"=======",?45,"====================",?67,"======="
  • Line Location: HDR+9
Info |  Source |  Entry Points |  Interaction Calls