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

Package: PCE Patient Care Encounter

Routine: PXBPCPT2


Information

PXBPCPT2 ;WASH/BDB - PROMPT PROCEDURE DIAGNOSES ;10 Jun 2013 1:58 PM

Source Information

Source file <PXBPCPT2.m>

Entry Points

Name Comments DBIA/ICR reference
CDX(PXN) ;--Diagnosis for Procedure
CPT1
PCPT1 ;SECOND ENTRY POINT
P1CPT1 ;--
PFINCPT1 ;--Finish DIAGNOSIS
CDXX1 ;--EXIT AND CLEAN UP
DUP(CD) ;DUPLICATE?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," What is ",PXACS," DIAGNOSIS "_PXN_" for this procedure: "_$S($L(CPTDX):CPTDX_"//",1:""),IOELEOL
  • Line Location: PCPT1+1
Function Call: READ
  • Variable: DATA
  • Timeout: DTIME
  • Line Location: PCPT1+2
Function Call: WRITE
  • Prompt: !,"PRIMARY DIAGNOSIS IS REQUIRED!"
  • Line Location: P1CPT1+6
Function Call: WRITE
  • Prompt: DATA
  • Line Location: P1CPT1+12
Function Call: WRITE
  • Prompt: "Searching for diagnosis codes...",!
  • Line Location: P1CPT1+17
Function Call: WRITE
  • Prompt: !,$P(Y,U,2)," IS ALREADY A DIAGNOSIS!"
  • Line Location: PFINCPT1+3

FileMan Files Accessed Via FileMan Db Call

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