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

Package: Outpatient Pharmacy

Routine: PSORX1


Information

PSORX1 ;BIR/SAB-medication processing driver ;8/17/16 5:10pm

Source Information

Source file <PSORX1.m>

Entry Points

Name Comments DBIA/ICR reference
START
NX
END
INIT ;
INITX
PT ;
OERR
PTX ;
EOJ ;
ELIG ; shows eligibility and disabilities
PROFILE ;
  • ICR #2260
    • Status: Active
    • Usage: Controlled Subscription
    PROFILEX
    MAIL ; MAKE SURE MAIL STATUS IS COMPATIBLE WITH SCRIPTALK PATIENT
    MAILP
    REMOTE ;
    PAUSE ;
    RXSTA ; DISPLAY ELIGIBILITY & PROMPT FOR RX PATIENT STATUS

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!?10,$C(7),PSORX("NAME")
    • Line Location: OERR+4
    Function Call: WRITE
    • Prompt: " ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")"
    • Line Location: OERR+5
    Function Call: WRITE
    • Prompt: !,$C(7)," No Allergy Assessment!"
    • Line Location: OERR+10
    Function Call: WRITE
    • Prompt: !?10,"Patient has another language preference!",!
    • Line Location: OERR+39
    Function Call: WRITE
    • Prompt: !,"Patient is enrolled to receive ScripTalk 'talking' prescription labels.",!
    • Line Location: OERR+40
    Function Call: WRITE
    • Prompt: $C(7),!!,"Patient Data is Being Edited by Another User!",!
    • Line Location: OERR+51
    Function Call: WRITE
    • Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")",!
    • Line Location: OERR+52
    Function Call: WRITE
    • Prompt: !!,?5,">>PHARMACY PATIENT DATA<<",!
    • Line Location: OERR+53
    Function Call: WRITE
    • Prompt: !,?10,$P(VAEL(1,N),"^",2)
    • Line Location: ELIG+1
    Function Call: WRITE
    • Prompt: !!,"REMINDER: CMOP does not fill ScripTalk prescriptions. Please select mail"
    • Line Location: MAILP+0
    Function Call: WRITE
    • Prompt: !,"status: 2 (DO NOT MAIL), 3 (LOCAL REGULAR MAIL) or 4 (LOCAL CERTFIED MAIL)."
    • Line Location: MAILP+1
    Function Call: WRITE
    • Prompt: !,"INVALID MAIL SETTING - ENTER 2,3, OR 4"
    • Line Location: MAILP+4
    Function Call: WRITE
    • Prompt: " ",$S(MAIL=2:"DO NOT MAIL",MAIL=3:"LOCAL REGULAR MAIL",1:"LOCAL CERTIFIED MAIL")
    • Line Location: MAILP+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !,"Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"")
    • Line Location: RXSTA+5
    Function Call: WRITE
    • Prompt: !,?10,$P(VAEL(1,N),"^",2)
    • Line Location: RXSTA+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(55 - [#55] Classic Fileman Calls
    ^PS(59.7 - [#59.7] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call