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

Package: Clinical Information Resource Network

Routine: RGMTHLDB


Information

RGMTHLDB ;BIR/CML-MPI/PD HL7 ACTIVITY BY PATIENT/SINGLE PROTOCOL ;11/05/01

Source Information

Source file <RGMTHLDB.m>

Entry Points

Name Comments DBIA/ICR reference
CHK ;
BEGIN ;
ASK1 ;Ask for Protocol
ASK2 ;Ask for Date Range
ASK3 ;Ask for TYPE
ASK4 ;Ask for PATIENT
DEV ;
START ;
LOOP ;Loop on ^XTMP("RGMT","HLICN" & ^XTMP("RGMT","HLDFN"
QUIT ;
HDR ;HEADER
BATCHPRT ;
PROC ;Print data
BREAK ;Break up text lines greater than 75
LOOKUP1 ;Lookup by patient name/ssn
LOOKUP2 ;Lookup by ICN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+10
Function Call: WRITE
  • Prompt: !!,"This option allows you to search for activity related to a specific protocol in"
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"the HL7 MESSAGE TEXT (#772) file for a patient during a selected period of time."
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"This 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: !
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK3+1
Function Call: WRITE
  • Prompt: !!!,"Patient lookup can be done by (P)atient Name/SSN or by (I)CN.",!
  • Line Location: ASK4+1
Function Call: WRITE
  • Prompt: !!,"The right margin for this print is 80.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,"No data found for this patient."
  • Line Location: LOOP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"File #772 IEN",?19,"Date",?39,"Status",!?4,"""IN"" Subfield",!,LN
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Batch Msg #",IEN," - Line #",BATCHIEN
  • Line Location: BATCHPRT+4
Function Call: WRITE
  • Prompt: !?19,$$FMTE^XLFDT($E(RGDT,1,12)),?39,STAT,!
  • Line Location: BATCHPRT+5
Function Call: WRITE
  • Prompt: !?4,NODE
  • Line Location: BATCHPRT+8
Function Call: WRITE
  • Prompt: !,IEN,?19,$$FMTE^XLFDT($E(RGDT,1,12)),?39,STAT,!
  • Line Location: PROC+2
Function Call: WRITE
  • Prompt: !?4,NODE
  • Line Location: PROC+5
Function Call: WRITE
  • Prompt: !?4,$E(NODE,CNT,CNT+74)
  • Line Location: BREAK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP1+1
Function Call: WRITE
  • Prompt: !!,"This patient does not have an ICN!"
  • Line Location: LOOKUP1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP2+1
Function Call: WRITE
  • Prompt: !!,"No patient match can be found for this ICN!"
  • Line Location: LOOKUP2+4
Function Call: WRITE
  • Prompt: " ",$P(^DPT(DFN,0),"^")
  • Line Location: LOOKUP2+5

FileMan Files Accessed Via FileMan Db Call

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