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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RGMTHLDP

Package: Clinical Information Resource Network

Routine: RGMTHLDP


Information

RGMTHLDP ;BIR/CML-MPI/PD HL7 ACTIVITY BY PATIENT/ALL PROTOCOLS ;11/05/01

Source Information

Source file <RGMTHLDP.m>

Entry Points

Name Comments DBIA/ICR reference
CHK ;
BEGIN ;
ASK1 ;Ask for PATIENT
ASK2 ;Ask for Date Range
DEV ;
START ;
LOOP ;Loop on ^XTMP("RGMT","HLICN" & ^XTMP("RGMT","HLDFN"
PRT ;Print report
QUIT ;
HDR ;HEADER
LOOKUP1 ;Lookup by patient name/ssn
LOOKUP2 ;Lookup by ICN
MSG ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !!,"This option allows you to search for ALL activity in the HL7 MESSAGE TEXT"
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"(#772) file for a specific patient during a selected period of time. This"
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"search is accomplished using data set into a temporary global built by the"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"option ""Compile MPI/PD HL7 Data""."
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !!!,"Patient lookup can be done by (P)atient Name/SSN or by (I)CN.",!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !!,"Enter date range for data to be included in report."
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,PROT,":"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !!,"No data found for this patient."
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"HL7 TRANSMISSION PATIENT DATA at ",SITE," on ",HDT,?72,"Page: ",PG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P(^DPT(DFN,0),U)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Date Range: ",PRGBDT," to ",PRGEDT
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"Related Event Protocol"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?4,"Date",?26,"Type",?42,"Status",?69,"^HL(772,IEN"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?4,"=>^HLMA(IEN",?24,"Protocol",?50,"Status",?74,"Link",!,LN
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP2+1
Function Call: WRITE
  • Prompt: !!,"No patient DFN match can be found for this ICN!"
  • Line Location: LOOKUP2+4
Function Call: WRITE
  • Prompt: " ",$P(^DPT(DFN,0),"^")
  • Line Location: LOOKUP2+5
Function Call: WRITE
  • Prompt: !!,"This patient has no HL7 messaging activity in the current compiled data set."
  • Line Location: MSG+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call