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

Package: Outpatient Pharmacy

Routine: PSOTALK2


Information

PSOTALK2 ;BIR/EJW - SCRIPTALK ENROLLMENT FUNCTIONS ;3-28-02

Source Information

Source file <PSOTALK2.m>

Entry Points

Name Comments DBIA/ICR reference
ENROLL ;
SET55 ; SET MULTIPLE FOR SCRIPTALK ENROLLMENT AUDIT
GETIND ; GET INDICATION FOR ENROLLMENT
INSTR ;
NOTE(PSOPT) ;CREATE A PROGRESS NOTE FOR PATIENT 'PSOPT' ABOUT ENROLLMENT
INSTALL
CLEAN
AUDREP ;
AUDRQ ;
END ;
DONE
TITLEA ;
ENQ ;
RPENROLL ;
TITLEE ;
GETDFN ;
MESS
MAIL ; MAKE SURE MAIL STATUS IS COMPATIBLE WITH SCRIPTALK PATIENT
MAILP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ENROLL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENROLL+5
Function Call: WRITE
  • Prompt: !,"Patient is deceased",!
  • Line Location: ENROLL+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INSTR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INSTR+3
Function Call: WRITE
  • Prompt: !?3,"At the conclusion of this enrollment option, you will be given"
  • Line Location: INSTR+4
Function Call: WRITE
  • Prompt: !?3,"the opportunity to sign a progress note recording the enrollment"
  • Line Location: INSTR+5
Function Call: WRITE
  • Prompt: !?3,"of new ScripTalk patients. If you modify the record of a patient"
  • Line Location: INSTR+6
Function Call: WRITE
  • Prompt: !?3,"that was previously enrolled, and they remain enrolled, you may"
  • Line Location: INSTR+7
Function Call: WRITE
  • Prompt: !?3,"wish to either delete or edit the text of the generated note."
  • Line Location: INSTR+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: INSTR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: AUDREP+1
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: AUDREP+4
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: AUDREP+5
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: AUDREP+6
Function Call: WRITE
  • Prompt: ?52,$E(PSODUZ,1,27)
  • Line Location: AUDRQ+16
Function Call: WRITE
  • Prompt: !!,"** End of Report **"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLEA+2
Function Call: WRITE
  • Prompt: !,"SCRIPTALK AUDIT HISTORY"
  • Line Location: TITLEA+3
Function Call: WRITE
  • Prompt: ?40,"Date printed: ",Y,?70,"Page: ",PSOPGCT,!!
  • Line Location: TITLEA+3
Function Call: WRITE
  • Prompt: !,"Name: ",$E($P(^DPT(PSOPT,0),"^"),1,25)," Currently enrolled: ",$S($G(^PS(55,"ASTALK",PSOPT)):"YES",1:"NO"),!!
  • Line Location: TITLEA+5
Function Call: WRITE
  • Prompt: !?24,"Previous",?35,"Previous"
  • Line Location: TITLEA+6
Function Call: WRITE
  • Prompt: !,?2,"Date-Time Set",?25,"Status",?35,"Indication",?52,"Entered by"
  • Line Location: TITLEA+7
Function Call: WRITE
  • Prompt: !,?2,"-------------------",?24,"--------",?35,"-------------",?52,"--------------------",!
  • Line Location: TITLEA+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ENQ+1
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: ENQ+2
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ENQ+3
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: ENQ+4
Function Call: WRITE
  • Prompt: !!,"No patients to report!",!!
  • Line Location: RPENROLL+7
Function Call: WRITE
  • Prompt: ?43,$S(+$P(PSOIND,"^",3):"YES",1:"NO")
  • Line Location: RPENROLL+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLEE+2
Function Call: WRITE
  • Prompt: !,"Report of ScripTalk Enrollment",?40,"Date printed: "_$$FMTE^XLFDT(DT),?70,"Page: ",PSOPGCT,!!
  • Line Location: TITLEE+3
Function Call: WRITE
  • Prompt: ?40,"Active enrollee?"
  • Line Location: TITLEE+5
Function Call: WRITE
  • Prompt: !?3,"Indication",?57,"Enrollment last updated"
  • Line Location: TITLEE+6
Function Call: WRITE
  • Prompt: ?57,"-----------------------",!
  • Line Location: TITLEE+7
Function Call: WRITE
  • Prompt: !!,"No report printed!",!!
  • Line Location: MESS+0
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

FileMan Files Accessed Via FileMan Db Call

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