Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 5 ^DIC  FILE^DICN  UPDATE^DIE  EN^DIK  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Outpatient Pharmacy 1 EN^PSOPATLK  
Registration 1 DEM^VADPT  
Text Integration Utility 1 NEW^TIUPNAPI  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSO SCRIPTALK AUDIT HISTORY  PSO SCRIPTALK ENROLLEES  PSO SCRIPTALK PATIENT ENROLL  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS AUDREP+5, ENQ+3
^%ZISC DONE+2
^%ZTLOAD AUDREP+6, ENQ+4
^DIC AUDRQ+17
FILE^DICN ENROLL+10
UPDATE^DIE SET55+8
EN^DIK ENROLL+11
^DIR ENROLL+13, GETIND+2, END+1, TITLEA+1, ENQ+1, TITLEE+1
EN^PSOPATLK ENROLL+5, AUDREP+1
NEW^TIUPNAPI INSTALL+1
DEM^VADPT ENROLL+7, GETDFN+4
$$FMTE^XLFDT AUDRQ+8, RPENROLL+13, TITLEE+3
$$NOW^XLFDT SET55+3, INSTALL+1

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
Routine Call
  • DIE
  • Line Location:
    • SET55+8
Routine Call
  • DIC
  • Line Location:
    • AUDRQ+17
Routine Call
  • DIR
  • Line Location:
    • ENROLL+13
    • GETIND+2
    • END+1
    • TITLEA+1
    • ENQ+1
    • TITLEE+1
Routine Call
  • %ZIS
  • Line Location:
    • AUDREP+5
    • ENQ+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^PS(55 - [#55] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLEA+3
^DPT - [#2] NOTE+4, TITLEA+5
^PS(55 - [#55] ENROLL+8, ENROLL+11*, ENROLL+12, GETIND+1, NOTE+1, AUDRQ+5, AUDRQ+6, TITLEA+5, GETDFN+2, GETDFN+3
, GETDFN+5, GETDFN+7, GETDFN+9, MAIL+2, MAILP+6*
^TIU(8925.1 - [#8925.1] INSTR+2, NOTE+2
^TMP("TIUP" NOTE+6*, NOTE+8*, NOTE+9*, CLEAN+1!
^TMP($J DONE+1!, RPENROLL+5!, RPENROLL+7, RPENROLL+8, RPENROLL+9, GETDFN+9*

Label References

Name Line Occurrences
CLEAN ENROLL+5
DONE AUDREP+5, AUDREP+6, AUDRQ+4, AUDRQ+18, ENQ+1, ENQ+3, ENQ+4, RPENROLL+4, RPENROLL+7, RPENROLL+8
END RPENROLL+14
ENROLL ENROLL+7, ENROLL+19
GETDFN RPENROLL+6
GETIND ENROLL+15
INSTR ENROLL+3
MAIL ENROLL+15
MAILP MAILP+4
MESS ENQ+1
NOTE ENROLL+17
SET55 ENROLL+16
TITLEA AUDRQ+4, AUDRQ+10
TITLEE RPENROLL+4, RPENROLL+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS AUDREP+5!*, ENQ+3!*
%ZSI AUDREP+6!, ENQ+4!
DA ENROLL+10!, ENROLL+11*
DD ENROLL+10!
DFN ENROLL+1~, ENROLL+7*, GETDFN+1~, GETDFN+4*, GETDFN+5, GETDFN+7
DIC ENROLL+5!, ENROLL+9*, ENROLL+10!, AUDREP+1!, AUDRQ+17!*
DIC("A" ENROLL+5*, AUDREP+1*
DIC(0 ENROLL+5*, ENROLL+10*, AUDREP+1*, AUDRQ+17*
DIK ENROLL+11!*
DIK(1 ENROLL+11*
>> DINUM ENROLL+10*
DIR ENROLL+13!, GETIND+2!, END+1!, TITLEA+1!, ENQ+1!, TITLEE+1!
DIR("A" ENROLL+13*, GETIND+2*, END+1*, ENQ+1*
DIR("B" ENROLL+13*, GETIND+2*, ENQ+1*
DIR(0 ENROLL+13*, GETIND+2*, END+1*, TITLEA+1*, ENQ+1*, TITLEE+1*
DIRUT DONE!, ENQ+1
>> DLAYGO ENROLL+9*
DO ENROLL+10!
DR ENROLL+10!
DT NOTE+9, TITLEA+3, TITLEE+3
DTOUT ENROLL+5, AUDREP+1, DONE!
DUOUT ENROLL+5, AUDREP+1, DONE!
DUZ SET55+7, INSTALL+1
IO AUDRQ+1, RPENROLL+1
IO("Q" AUDREP+6, DONE!, ENQ+4
IOF INSTR+1, END+3, TITLEA+2, TITLEE+2
IOP AUDREP+5!, DONE!, ENQ+3!
IOSL AUDRQ+10, RPENROLL+10
IOST AUDRQ+2, RPENROLL+2
MAIL MAIL+1~, MAIL+2*, MAILP+2*, MAILP+3, MAILP+4, MAILP+5, MAILP+6
POP AUDREP+5!, DONE!, ENQ+3!
PSOAUD AUDRQ+5*, AUDRQ+6, DONE!, GETDFN+6*, GETDFN+7*, GETDFN+9
PSODA SET55+1~
PSODA( SET55+4*, SET55+5*, SET55+6*, SET55+7*
PSODFN DONE+1!, GETDFN+2*, GETDFN+3, GETDFN+4, GETDFN+9
>> PSODUZ AUDRQ+16, AUDRQ+17*
PSODV AUDRQ+2*, END+1, END+2, DONE!, TITLEA+1, RPENROLL+2*, TITLEE+1
PSOERR SET55+1~
PSOFIRST ENROLL+3*, CLEAN!
PSOIEN SET55+1~
PSOIND ENROLL+1~, ENROLL+2*, ENROLL+18!, SET55+6, GETIND+1*, GETIND+2, GETIND+3*, AUDRQ+13*, AUDRQ+14*, AUDRQ+15
, DONE!, DONE+1!, RPENROLL+9*, RPENROLL+11, RPENROLL+12, RPENROLL+13
PSOLAST ENROLL+1~, ENROLL+18!, GETIND+1*
PSOLINE NOTE+5*, NOTE+6, NOTE+7*, NOTE+8, NOTE+9, CLEAN!
PSONM DONE+1!, RPENROLL+8*, RPENROLL+9, RPENROLL+11
PSONODE AUDRQ+6*, AUDRQ+7, AUDRQ+8, AUDRQ+13, AUDRQ+16, AUDRQ+17, DONE!
PSOOUT AUDRQ+2*, AUDRQ+4, AUDRQ+5, AUDRQ+10, AUDRQ+18, END+1, DONE!, TITLEA+1*, RPENROLL+2*, RPENROLL+4
, RPENROLL+8, RPENROLL+10, TITLEE+1*
PSOPGCT AUDRQ+3*, DONE!, TITLEA+1, TITLEA+3, TITLEA+4*, RPENROLL+3*, TITLEE+1, TITLEE+3, TITLEE+4*
PSOPRINT DONE+1!, ENQ+1*, RPENROLL+11, TITLEE+5, TITLEE+7, GETDFN+3
PSOPT ENROLL+6*, ENROLL+7, ENROLL+8, ENROLL+10, ENROLL+11, ENROLL+12, ENROLL+17, ENROLL+18!, SET55+2, SET55+4
, SET55+5, SET55+6, SET55+7, GETIND+1, NOTE~, NOTE+1, NOTE+4, INSTALL+1, CLEAN!, AUDREP+2*
, AUDRQ+5, AUDRQ+6, DONE!, TITLEA+5, MAIL+2, MAILP+6
PSOPTLK ENROLL+5!, AUDREP+1!
PSOPTNM NOTE+4*, NOTE+6, CLEAN!
>> PSOSEQ GETDFN+5*, GETDFN+7
PSOSQ INSTR+10!
PSOSSN DONE+1!, RPENROLL+8*, RPENROLL+9, RPENROLL+11
PSOSTAT AUDRQ+7*, AUDRQ+12, AUDRQ+14, DONE!
PSOSTDT SET55+1~, SET55+3*, SET55+4
PSOSTEN ENROLL+1~, ENROLL+12*, ENROLL+13, ENROLL+14*, ENROLL+15, ENROLL+18!, SET55+5
PSOSTP INSTR+10!, CLEAN!
>> PSOTIME AUDRQ+8*, AUDRQ+9*, AUDRQ+11
PSOTITL NOTE+2*, NOTE+3, INSTALL+1, CLEAN!
PSOTT INSTR+10!
TIUDA INSTALL!, INSTALL+1
U NOTE+4, NOTE+9, AUDRQ+8
>> VA("PID" GETDFN+8*, GETDFN+9
>> VADM(1 GETDFN+9
>> VADM(6 ENROLL+7, GETDFN+4
X ENROLL+10*, ENROLL+18!, AUDRQ+17!*
Y ENROLL+5*, ENROLL+6, ENROLL+10, ENROLL+14, ENROLL+18!, GETIND+3, AUDREP+1*, AUDREP+2, AUDRQ+17!, DONE!
, TITLEA+1, TITLEA+3*, ENQ+1, TITLEE+1
>> ZTDESC AUDREP+6*, ENQ+4*
>> ZTQUEUED DONE+2
>> ZTREQ DONE+2*
>> ZTRTN AUDREP+6*, ENQ+4*
>> ZTSAVE("*" AUDREP+3*, AUDREP+6*, ENQ+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All