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

Package: Outpatient Pharmacy

Routine: PSORXLAB


Information

PSORXLAB ;BHAM ISC/SAB - drug+lab result print ; 11/19/92 14:04

Source Information

Source file <PSORXLAB.m>

Entry Points

Name Comments DBIA/ICR reference
ANQSITE
BDATE
EDATE
LDATE
DRUG
LABT
ANQSP
ANQUNIT
ANQANS
DEVICE
DQ
LOOP1
LOOP2
CHECK1
CHECK2
LOOP3
CHECK3
RESULT
PRINT2
HDR
HDR2
ANQRXI
CLEAN
CLEAN2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Enter the key word in the Drug Generic name: "
  • Variable: ANQDRUG
  • Timeout: DTIME
  • Line Location: DRUG+0
Function Call: WRITE
  • Prompt: !,"No corresponding entry, try again or type return to exit"
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Data Name missing !!",!
  • Line Location: LABT+0
Function Call: WRITE
  • Prompt: !,"Enter the specimen used in the lab for this test, serum,plasma,blood etc."
  • Line Location: LABT+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Specimen data missing !!",!
  • Line Location: ANQSP+0
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want Rx info? N// "
  • Variable: ANQANS
  • Timeout: DTIME
  • Line Location: ANQANS+0
Function Call: WRITE
  • Prompt: !,"ANSWER YES OR NO"
  • Line Location: ANQANS+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK2+1
Function Call: WRITE
  • Prompt: ?55,"No lab data exists",?81,$E(ANQPROVN,1,20),?106,ANQTYPE,!
  • Line Location: CHECK2+2
Function Call: WRITE
  • Prompt: ?55,"NO LAB DATA IN RANGE",?81,$E(ANQPROVN,1,20),?106,ANQTYPE,!
  • Line Location: LOOP3+1
Function Call: WRITE
  • Prompt: ?55,$E(Y,1,11),?70,$P(^LR(LRDFN,"CH",ANQLBENT,ANQLABT),"^")_" "_ANQUNIT,?81,$E(ANQPROVN,1,20),?106,ANQTYPE
  • Line Location: RESULT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RESULT+1
Function Call: WRITE
  • Prompt: @IOF,SITE,!
  • Line Location: PRINT2+0
Function Call: WRITE
  • Prompt: ?1,$E($P(^DPT(ANQPT,0),"^"),1,20),?25,VA("PID")
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: ?43,Y
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: SITE,!!,"Patients receiving "_ANQDRUG_" with fills between "_ANQBDR_" and "_ANQEDR,!," with date of collection and results for lab test "_ANQLABTN_" after ",LDATER,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,"Name",?25,"ID#",?43,"Fill Date",?55,"Lab Date",?71,"Results",?81,"Rx Provider",?106,"Type",?116,"Page "_PAGE,!
  • Line Location: HDR2+0
Function Call: WRITE
  • Prompt: "_"
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: "Rx #: "_$P(^PSRX(ANQRX,0),"^")_" Drug: "_$P(^PSDRUG(ANQDGN,0),"^")
  • Line Location: ANQRXI+0
Function Call: WRITE
  • Prompt: !?1,"Sig: ",$G(BSIG(1))
  • Line Location: ANQRXI+3
Function Call: WRITE
  • Prompt: !?6,$G(BSIG(PSREV))
  • Line Location: ANQRXI+4
Function Call: WRITE
  • Prompt: @IOF,SITE,!
  • Line Location: ANQRXI+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ANQRXI+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLEAN+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LAB(61 - [#61] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call