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
Print Page as PDF
Routine: PXBDPOV

Package: PCE Patient Care Encounter

Routine: PXBDPOV


Information

PXBDPOV ;ISL/JVS - DISPLAY POV (DIAGNOSIS) ;24 May 2013 7:02 AM

Source Information

Source file <PXBDPOV.m>

Entry Points

Name Comments DBIA/ICR reference
EN0 ;---Main entry point
HEAD ;--HEADER ON LIST
DPOV1 ;--Display the POV Data
DPOV4(SIGN) ;--Display the PROVIDER Data
HEAD4 ;--HEADER ON LIST
DEF(CODE) ;---PROCESS DEFAULT LIST OF DIAGNOSES
; I CODE="D" JUST SEND DEFAULT
; I CODE="A" JUST SEND THE ARRAY OF PROVIDERS
DIS ;----DISPLAY
CIA(X) ;Clinical Indicator Abbreviations
ARRAY ;Set POV entries into ^TMP("PXBDPOV",$J,"DSP" for display

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,IOCUU,?(IOM-$L(HEAD))\2,IOINHI,HEAD
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: IOINLOW,IOELEOL
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"No.",?5,"ICD",?14,"DESCRIPTION",?65,"PROBLEM LIST"
  • Line Location: DPOV1+3
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DPOV1+4
Function Call: WRITE
  • Prompt: ?71,$P(ENTRY,"^",5)
  • Line Location: DPOV1+14
Function Call: WRITE
  • Prompt: ?75,$P(ENTRY,"^",5)
  • Line Location: DPOV1+15
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DPOV4+18
Function Call: WRITE
  • Prompt: !,IOCUU,?(IOM-$L(HEAD))\2,IOINHI,HEAD
  • Line Location: HEAD4+2
Function Call: WRITE
  • Prompt: $C(32)
  • Line Location: HEAD4+2
Function Call: WRITE
  • Prompt: IOINLOW,IOELEOL
  • Line Location: HEAD4+3
Function Call: WRITE
  • Prompt: !,"No.",?5,"ICD",?14,"DESCRIPTION",?64,"PROBLEM LIST"
  • Line Location: HEAD4+7
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: HEAD4+8
Function Call: WRITE
  • Prompt: ?71,$P(ENTRY,"^",5)
  • Line Location: HEAD4+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEAD4+24
Function Call: WRITE
  • Prompt: !,"SEND PARAMETER = TO 'D'efault OR 'A'rray"
  • Line Location: DEF+6
Function Call: WRITE
  • Prompt: !,?(IOM-$L(X))/2,IOINHI,X,IOINLOW
  • Line Location: DEF+14
Function Call: WRITE
  • Prompt: !,?(IOM-$L(LIST))/2,LIST
  • Line Location: DEF+17
Function Call: WRITE
  • Prompt: !,?(IOM-$L(LIST))/2,LIST
  • Line Location: DEF+18
Function Call: WRITE
  • Prompt: IORVON
  • Condition for execution: PXBCNT>11
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: ?37," --Clinic Associated--",IORVOFF
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CIA+1
Function Call: WRITE
  • Prompt: ?(CI2*8),$P(CI,U,I),":",$S(V:"Y",1:"N")
  • Line Location: CIA+2
Info |  Source |  Entry Points |  Interaction Calls