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

Package: Clinical Procedures

Routine: MDPS2


Information

MDPS2 ; HOIFO/NCA - CP/Medicine Report Generator (Cont.) ;5/18/04 09:41

Source Information

Source file <MDPS2.m>

Entry Points

Name Comments DBIA/ICR reference
GETDATA(MDGRS,MDDFN,MDPR,MDF,MDR,MDT,MDH) ; Return the text of the Medicine Report
; Input: MDGRS - Return Global Array (Required)
; MDDFN - Patient DFN (Required)
; MDPR - Procedure name in file #697.2 (Required)
; MDF - File number (Required)
; MDR - Record number (Required)
; MDT - The type of report (Full or Caption) (Required)
; MDH - Header is needed or not (Required)
SETNODE(NODE,VALUE) ;Set the node with the string
SUBF ; Get the Sub-file fields in the Medicine View File (#690.2)
FOOTER ; Display Medicine Footer
NAME
DATE
FREE
DECODE(TEMP,CODE,FILE,REC) ;Decode the Validation code 1
VERSION ; Find the version number of a procedure
CHECK ; Find the number of times the report was superseded
HEDSPAS(MDTX,MDSP1) ; surround text string X with space to length X1
SET ; Set GMTS variable
LIMIT(MDLIM) ; Get all Report maximum occurrence limit
HEAD ; Display Header
H1 ; Display Header with Page increment
HOSP(DFN) ; Hospital for Header
DEMO(DFN) ; Demographics for Header
HDR ; Page Header
HSHDR ; Health Summary One Line Procedure Header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " CONSULT DATE/TIME",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " NUMBER COMPLETED PROCEDURES PERFORMED PROCEDURE CODE",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " ------- ------------------------------ ---------------- -----------------",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,MDLINE
  • Line Location: HSHDR+3
Function Call: WRITE
  • Prompt: !,$S(+$P(MDX1,U,13):$J($P(MDX1,U,13),9),1:""),?12,$E($P(MDX1,U,1),1,30),?44,$P(MDX1,U,6),?64,$P(MDX1,U,7)
  • Line Location: HSHDR+4
Function Call: WRITE
  • Prompt: !,MDLINE
  • Line Location: HSHDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HSHDR+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^SC - [#44] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call