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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  EN^DIQ1  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 2 FSIG^PSOUTLA  EN2^PSOUTLA1  
Registration 2 PID^VADPT  $$SITE^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOLAB LIST  

Entry Points

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

External References

Name Field # of Occurrence
^%DT BDATE, EDATE, LDATE
^%ZIS DEVICE
^%ZISC CLEAN
^%ZTLOAD DEVICE+1
^DIC LABT, ANQSP
EN^DIQ1 ANQSITE+2
^DIR PRINT2+1, ANQRXI+6
FSIG^PSOUTLA ANQRXI+1
EN2^PSOUTLA1 ANQRXI+2
PID^VADPT CHECK2+1
$$SITE^VASITE ANQSITE

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Enter the key word in the Drug Generic name: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: ANQDRUG
  • 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
  • Prompt: "Do you want Rx info? N// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: ANQANS
  • 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
Routine Call
  • DIC
  • Line Location:
    • LABT
    • ANQSP
Routine Call
  • DIR
  • Line Location:
    • PRINT2+1
    • ANQRXI+6
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LAB(61 - [#61] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ANQSITE+5, BDATE, EDATE, LDATE, RESULT+1, PRINT2+2
^DPT - [#2] CHECK2+2, CHECK2+3, PRINT2+2
^LAB(60 - [#60] LABT, LABT+1, ANQUNIT
^LR - [#63] LOOP3, CHECK3, RESULT, RESULT+1
^PSDRUG - [#50] CHECK1, ANQRXI
^PSDRUG("B" DRUG+1
^PSRX - [#52] LOOP2, CHECK1, CHECK1+2, CHECK2, CHECK2+1, ANQRXI, ANQRXI+1, ANQRXI+2
^PSRX("AD" LOOP1, LOOP2
^TMP($J DQ!
^UTILITY("DIQ1" ANQSITE!, ANQSITE+3, ANQSITE+4!
^VA(200 - [#200] CHECK1+2

Label References

Name Line Occurrences
ANQANS ANQANS
ANQRXI CHECK2+2, LOOP3+2
CHECK1 LOOP2
CHECK3 LOOP3
CLEAN BDATE, EDATE, LDATE, DRUG, LABT, ANQSP, ANQANS, DEVICE+1, LOOP1+1
CLEAN2 ANQANS, DEVICE
DRUG DRUG+1
HDR DQ
HDR2 PRINT2, ANQRXI+5
LABT LABT
LOOP2 LOOP1
PRINT2 CHECK2+1
RESULT CHECK3

Naked Globals

Name Field # of Occurrence
^(0 RESULT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDATE*, CLEAN2!
%DT("A" BDATE*, EDATE*, LDATE*
%ZIS DEVICE*, CLEAN2+1!
ANQANS ANQANS*, CHECK2+2, LOOP3+2, CLEAN2!
ANQBD BDATE*, DQ*, LOOP1*, LOOP2, PRINT2+2, CLEAN2!
ANQBDR BDATE*, HDR, CLEAN2!
ANQDGN CHECK1*, ANQRXI, CLEAN2!
ANQDRUG DRUG*, DRUG+1, CHECK1+1, HDR, CLEAN2!
ANQDRUGN CHECK1*, CHECK1+1, CLEAN2!
ANQED EDATE*, LOOP1, CLEAN2!
ANQEDR EDATE*, HDR, CLEAN2!
ANQINDIC CHECK2+3*, LOOP3+1, RESULT+2*, CLEAN2!
ANQLABT LABT+1*, CHECK3, RESULT+1, CLEAN2!
ANQLABTN LABT*, HDR, CLEAN2!
ANQLBENT CHECK2+3*, LOOP3*, CHECK3, RESULT, RESULT+1, CLEAN2!
ANQLBT LABT*!, LABT+1, ANQUNIT, CLEAN2!
ANQLDATE LOOP3*, RESULT+1, CLEAN2!
ANQPROT CHECK1+2*, CHECK1+3, CLEAN2!
ANQPROV CHECK1+2*, CLEAN2!
ANQPROVN CHECK1+2*, CHECK2+2, LOOP3+1, RESULT+1, CLEAN2!
ANQPT CHECK2+1*, CHECK2+2, CHECK2+3, PRINT2+2, CLEAN2!
ANQRX LOOP1*, LOOP2*, CHECK1, CHECK1+2, CHECK2, CHECK2+1, ANQRXI, ANQRXI+1, ANQRXI+2, CLEAN2!
ANQSP ANQSP*, ANQUNIT, RESULT, CLEAN2!
ANQTYPE CHECK1+3*, CHECK2+2, LOOP3+1, RESULT+1, CLEAN2!
ANQUNIT ANQUNIT*, RESULT+1, CLEAN2!
BSIG ANQRXI+1!
BSIG( ANQRXI+1*, ANQRXI+4
BSIG(1 ANQRXI+3, ANQRXI+4
DA ANQSITE*, ANQSITE+1, ANQSITE+3, ANQSITE+4!
>> DFN CHECK2+1*
DIC ANQSITE+2*, ANQSITE+4!, LABT*!, ANQSP*, CLEAN2!
DIC(0 LABT*, ANQSP*
DIQ ANQSITE!, ANQSITE+4!
DIQ(0 ANQSITE+2*
DIR PRINT2+1!, ANQRXI+6!
DIR(0 PRINT2+1*, ANQRXI+6*
DR ANQSITE+2*, ANQSITE+4!
DT ANQSITE+5
DTIME DRUG, ANQANS
>> DTOUT PRINT2+1, ANQRXI+6
>> DUOUT PRINT2+1, ANQRXI+6
FSIG ANQRXI+1!, ANQRXI+2!
FSIG( ANQRXI+1
IO DQ
IO("Q" DEVICE+1!
IOF DQ, PRINT2, ANQRXI+5, CLEAN
IOM HDR2+1
IOP DEVICE!
IOSL PRINT2, ANQRXI+5
IOST PRINT2+1, ANQRXI+6
J LOOP1*, HDR2+1*, CLEAN2!
J1 CLEAN2!
J2 LOOP2*, LOOP3*, CLEAN2!
LDATE LDATE*, LOOP3, CLEAN2!
LDATER LDATE*, HDR, CLEAN2!
LRDFN CHECK2+3*, LOOP3, CHECK3, RESULT, RESULT+1, CLEAN2!
PAGE DQ*, HDR2*, CLEAN2!
POP DEVICE, CLEAN2!
PSOLABQ DQ*, LOOP1, LOOP2, LOOP3, PRINT2, PRINT2+1*, ANQRXI, ANQRXI+5, ANQRXI+6*, CLEAN2!
PSREV ANQRXI+1*, ANQRXI+2!, ANQRXI+4*
SITE ANQSITE+3*, ANQSITE+5*, PRINT2, HDR, ANQRXI+5, CLEAN2!
>> VA("PID" PRINT2+2
Y ANQSITE+5*, BDATE, EDATE, LDATE, LABT!, ANQSP, RESULT+1*, PRINT2+2*, CLEAN2!
ZTDESC DEVICE+1*, CLEAN2+1!
>> ZTQUEUED CLEAN
>> ZTREQ CLEAN*
ZTRTN DEVICE+1*, CLEAN2+1!
ZTSAVE CLEAN2+1!
ZTSAVE("*" DEVICE+1*
ZTSK DEVICE+1!
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 |  Naked Globals |  Local Variables |  All