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

Package: PCE Patient Care Encounter

Routine: PXCE


Information

PXCE ;ISL/dee - Main routine for PCE's user interface ; 3/27/01 12:17pm

Source Information

Source file <PXCE.m>

Entry Points

Name Comments DBIA/ICR reference
EN1(PXCEKEYS) ;Does not checks for provider
EN(PXCEKEYS) ;Checks for provider
START ;
START1 ;
SETUP ;
SETDATES ;
HDR ; -- header code
INIT ; -- init variables and list array
EXIT ; -- exit code
EXITALL ; Exit of whole program
DONE ; -- exit action for protocol
EXPND ; -- expand code
SEL1(HELP,PXCEADD) ; Select 1 visit
; If the $GET(PXCEADD) is non zero then will
; add to the prompt "add a new encounter"
ASKLOOP
GAF ;;
SKIP
GAFQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Clinic MUST be corrected before continuing."
  • Line Location: SETUP+16
Function Call: WRITE
  • Prompt: !,$C(7),"Selection '",Y,"' is not a valid choice."
  • Line Location: SEL1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: GAF+23
Function Call: WRITE
  • Prompt: !,"Warning: Patient is deceased."
  • Line Location: GAF+24
Function Call: WRITE
  • Prompt: !,"Current GAF: "_+$P(PXGAF,U,2)
  • Line Location: GAF+25
Function Call: WRITE
  • Prompt: $S($P(PXGAF,U,3)>0:", from "_$$FMTE^XLFDT($P(PXGAF,U,3),"D"),1:", Date Unavailable")
  • Line Location: GAF+26
Info |  Source |  Entry Points |  Interaction Calls