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

Package: Inpatient Medications

Routine: PSJRXLAB


Information

PSJRXLAB ;ALB/RTW - drug+lab result print ; 12/8/18 10:36am

Source Information

Source file <PSJRXLAB.m>

Entry Points

Name Comments DBIA/ICR reference
PSJSITE
BDATE
EDATE
LDATE
DRUG
LABT
PSJSP
PSJUNIT
PSJANS
DEVICE
DQ
LOOP1 ;
LOOP2
CHECK1 ;
CHECK2 ;
LOOP3 ;
CHECK3 ;
RESULT
PRINT2
HDR
HDR2
PSJORDNI
CLEAN
CLEAN2
FQUIT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Enter the key word in the Drug Generic name: "
  • Variable: PSJDRUG
  • Timeout: DTIME
  • Line Location: DRUG+0
Function Call: WRITE
  • Prompt: !,"No corresponding entry, try again or type return to exit"
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Data Name missing !!",!
  • Line Location: LABT+1
Function Call: WRITE
  • Prompt: !,"Enter the specimen used in the lab for this test, serum, plasma, blood etc."
  • Line Location: LABT+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Specimen data missing !!",!
  • Line Location: PSJSP+0
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want Order info? N// "
  • Variable: PSJANS
  • Timeout: DTIME
  • Line Location: PSJANS+0
Function Call: WRITE
  • Prompt: !,"ANSWER YES OR NO"
  • Line Location: PSJANS+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(PSJPROVN,1,20),?106,PSJTYPE,!
  • Line Location: CHECK2+3
Function Call: WRITE
  • Prompt: ?55,"NO LAB DATA IN RANGE",?81,$E(PSJPROVN,1,20),?106,PSJTYPE,!
  • Line Location: LOOP3+4
Function Call: WRITE
  • Prompt: ?55,RESULT(J4),!
  • Line Location: LOOP3+6
Function Call: WRITE
  • Prompt: @IOF,SITE,!
  • Line Location: LOOP3+6
Function Call: WRITE
  • Prompt: ?55,$E(Y,1,11),?68,RESULT,!
  • 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($$GET1^DIQ(2,PSJPT,.01),1,20),?25,VA("PID")
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: ?37,Y
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: SITE,!!,"Patients receiving "_PSJDRUG_" with fills between "_PSJBDR_" and "_PSJEDR,!," with date of collection and results for lab test "_PSJLABTN_" after ",LDATER,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,"Name",?25,"ID#",?37,"Fill Date",?55,"Lab Date",?68,"Results",?81,"Order 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: "Order #: "_$$GET1^DIQ(100,PSJORDN,.01)_" Drug: "_$$GET1^DIQ(50,PSJDGN,.01)
  • Line Location: PSJORDNI+0
Function Call: WRITE
  • Prompt: ?55,RESULT(1)
  • Line Location: PSJORDNI+1
Function Call: WRITE
  • Prompt: !?1,"Sig: ",$$GET1^DIQ(100.0451,"1,"_SIGNUM_","_PSJORDN,.01)
  • Line Location: PSJORDNI+3
Function Call: WRITE
  • Prompt: ?55,RESULT(2)
  • Line Location: PSJORDNI+4
Function Call: WRITE
  • Prompt: @IOF,SITE,!
  • Line Location: PSJORDNI+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PSJORDNI+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLEAN+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ,  LIST^DIC
100.045 FIND1^DIC,  GET1^DIQ
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ,  LIST^DIC
^LAB(60 - [#60] Classic Fileman Calls,  GET1^DIQ
60.01 GET1^DIQ
^LAB(61 - [#61] Classic Fileman Calls
63.04 GETS^DIQ,  LIST^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call