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

Package: PCE Patient Care Encounter

Routine: PXBGPOV2


Information

PXBGPOV2 ;ISL/JVS - DOUBLE ?? GATHERING OF DIAGNOSES ;27 Mar 2013 6:12 PM

Source Information

Source file <PXBGPOV2.m>

Entry Points

Name Comments DBIA/ICR reference
DOUBLE(FROM) ;--Entry point
; WHAT = The same WHAT as sent in from the API
; FROM = Exactly which prompt is asking for the list
; SCREEN = Same as the DIC("S") screen used by FileMan
; START = The starting point as to what to look up
START ;--RECYCLE POINT
PROMPT ;---WRITE PROMPT HERE
FINISH ;--FINISH SETTING A VARIABLE TO SELECTED ITEM
EXIT ;--EXIT
DOUBLE1(FROM) ;--Entry point
NEW ;
START1 ;--RECYCLE POINT
FILTER ;--FILTER OUT DUPLICATES
LIST ;-DISPLAY LIST TO THE SCREEN
PRMPT ;---WRITE PROMPT HERE
VAL ;-----Set the VAL equal to the value
EXITNEW ;--EXIT
BACK ;
FORWARD ;
LOC ;--LOCATE CURSOR
HEAD ;--HEAD
SUB ;--DISPLAY LIST TO THE SCREEN
SETUP ;-SETUP VARIABLES
SETSECND ;
PRMPT2 ;-----Yes and No prompt if only choice

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS IS NOT AN ENTRY POINT"
  • Line Location: PXBGPOV2+3
Function Call: WRITE
  • Prompt: !!,"Enter '^' to quit, '-' for previous page."
  • Line Location: PROMPT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: START1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+21
Function Call: WRITE
  • Prompt: !,IOCUU,?(IOM-$L(RESULTS))\2,RESULTS
  • Line Location: FILTER+22
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRMPT+3
Function Call: WRITE
  • Prompt: !,"Enter '^' to quit"
  • Line Location: PRMPT+4
Function Call: WRITE
  • Prompt: !," END OF LIST"
  • Line Location: PRMPT+5
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !,IOCUU,IOBON,"HELP SCREEN",IOSGR0,?(IOM-$L(TITLE))\2,IOINHI,TITLE,IOINLOW,IOELEOL
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !!," E N D O F L I S T"
  • Line Location: SUB+1
Info |  Source |  Entry Points |  Interaction Calls