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

Package: PCE Patient Care Encounter

Routine: PXBPPOV


Information

PXBPPOV ;ISL/JVS - PROMPT POV ;24 Sep 2013 11:19 AM

Source Information

Source file <PXBPPOV.m>

Entry Points

Name Comments DBIA/ICR reference
POV ;--DIAGNOSIS
P ;--Second Entry point
P1 ;--Third entry point
M ;--------IF Multiple entries have been entered
LI ;--------If picked a line number
LI1 ;
PFIN ;--Finish the DIAGNOSIS
POVX ;--EXIT AND CLEAN UP
REVPOV(LINE) ;--NEW Reverse video API for POV since Long Descriptions are
; multiple lines

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IOUON,"Previous Entry: ",$G(PXBNPOVL(1))
  • Line Location: POV+6
Function Call: WRITE
  • Prompt: " "
  • Line Location: POV+6
Function Call: WRITE
  • Prompt: IOUOFF
  • Line Location: POV+7
Function Call: WRITE
  • Prompt: IOSC
  • Line Location: P+1
Function Call: WRITE
  • Prompt: "...There are 0 ",PXACS," CODES associated with this encounter."
  • Line Location: P+5
Function Call: WRITE
  • Prompt: "...There is 1 ",PXACS," CODE associated with this encounter."
  • Line Location: P+6
Function Call: WRITE
  • Prompt: "...There are ",CNT," ",PXACS," CODES associated with this encounter."
  • Line Location: P+7
Function Call: WRITE
  • Prompt: !,"Enter '+' for next page, '-' for previous page."
  • Line Location: P+9
Function Call: WRITE
  • Prompt: !,"Enter ",PXACS," Diagnosis : ",$G(PXBDPOV)
  • Line Location: P+10
Function Call: WRITE
  • Prompt: " //"
  • Condition for execution: $D(PXBDPOV)
  • Line Location: P+10
Function Call: WRITE
  • Prompt: IOELEOL
  • Line Location: P+10
Function Call: WRITE
  • Prompt: !,"Enter ",IOINHI,"NEXT",IOINLOW," ",PXACS," Diagnosis : "_$G(PXBDPOV)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: " //"
  • Condition for execution: $D(PXBDPOV)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: IOELEOL
  • Line Location: P+11
Function Call: READ
  • Variable: DATA
  • Timeout: DTIME
  • Line Location: P+12
Function Call: WRITE
  • Prompt: DATA
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: IOCUB,IOECH
  • Line Location: LI+2
Function Call: WRITE
  • Prompt: "Searching for diagnosis codes...",!
  • Line Location: LI1+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: POVX+4
Function Call: WRITE
  • Prompt: IORVON,$J($P($P(ENTRY,"^",1),".",1),4),".",$P($P(ENTRY,"^",1),".",2),IORVOFF
  • Line Location: REVPOV+9

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