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

Package: PCE Patient Care Encounter

Routine: PXBUTL


Information

PXBUTL ;ISL/JVS,ESW - UTILITIES FOR PROMPTS ; 10/31/02 12:13pm

Source Information

Source file <PXBUTL.m>

Entry Points

Name Comments DBIA/ICR reference
WAIT ;--SPINNING CURSOR
CASE ;--CHANGE LOWER CASE TO UPPER CASE
PRIM ;--PRIMARY PROVIDER
PRIMD ;--PRIMARY DIAGNOSIS
HDR(PXBVST,NO,PXBIOF) ;--Header for each screen PATIENT and DATE/TIME of Visit
HDR2(FROM) ;--SECOND LINE IN THE HEADER
HDR3(DFN,NO,PXBIOF) ;--Header for each screen PATIENT and DATE/TIME of Visit
TIMES(ENT) ;--Number of time the selection appears in v file from PXBKY
CPTOK(CODE,IDATE) ;--check the historical date to see if it was active
  • ICR #1994
    • Status: Active
    • Usage: Private
    CPTSCREN(CODE,IDATE) ;
  • ICR #1994
    • Status: Active
    • Usage: Private
    CONPRV(PRV) ;---FUNCTION-Convert internal form or provider to external form
    NONE(NO) ;----Display's a None message to the screen if none is found
    W

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: IOCUB,"\"
    • Line Location: WAIT+1
    Function Call: WRITE
    • Prompt: IOCUB,"|"
    • Line Location: WAIT+2
    Function Call: WRITE
    • Prompt: IOCUB,"/"
    • Line Location: WAIT+3
    Function Call: WRITE
    • Prompt: IOCUB,"-"
    • Line Location: WAIT+4
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HDR+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR+15
    Function Call: WRITE
    • Prompt: "STOP CODE: ..There are ",$G(PXBCNT)," STOP CODES associated with this ENCOUNTER",IOELEOL
    • Line Location: HDR2+3
    Function Call: WRITE
    • Prompt: "STOP CODE: ..There is ",$G(PXBCNT)," STOP CODE associated with this ENCOUNTER",IOELEOL
    • Line Location: HDR2+4
    Function Call: WRITE
    • Prompt: "STOP CODE: ..There are ",$G(PXBCNT)," STOP CODES associated with this ENCOUNTER",IOELEOL
    • Line Location: HDR2+5
    Function Call: WRITE
    • Prompt: $C(32)
    • Line Location: HDR2+8
    Function Call: WRITE
    • Prompt: "PROVIDER: ..There are ",$G(PXBCNT)," PROVIDERS associated with this ENCOUNTER",IOELEOL
    • Line Location: HDR2+14
    Function Call: WRITE
    • Prompt: "PROVIDER: ..There is ",$G(PXBCNT)," PROVIDER associated with this ENCOUNTER",IOELEOL
    • Line Location: HDR2+15
    Function Call: WRITE
    • Prompt: "PROVIDER: ..There are ",$G(PXBCNT)," PROVIDERS associated with this ENCOUNTER",IOELEOL
    • Line Location: HDR2+16
    Function Call: WRITE
    • Prompt: $C(32)
    • Line Location: HDR2+19
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HDR3+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HDR3+16
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR3+18
    Function Call: WRITE
    • Prompt: IOINHI,!,IOCUU,"PAT/SEX/AGE/SSN: ",$E(NAME,1,18)," ",SEX," ",AGE_" Years ",?67,SSN
    • Line Location: HDR3+19
    Function Call: WRITE
    • Prompt: IOINLOW
    • Line Location: HDR3+19
    Function Call: WRITE
    • Prompt: W
    • Line Location: W+0
    Function Call: WRITE
    • Prompt: !,?(IOM-$L(X))\2,IOINHI,X,IOINLOW
    • Line Location: W+0
    Info |  Source |  Entry Points |  Interaction Calls