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

Package: Inpatient Medications

Routine: PSJCLNOC


Information

PSJCLNOC ;BIR/LE - Clinic Order Check Utilities ;26 FEB 12 / 12:42 PM

Source Information

Source file <PSJCLNOC.m>

Entry Points

Name Comments DBIA/ICR reference
CLINICS(PSJDFN) ;
D531 ;
SETTMP ;
GETCLINF ;
CANEXP(DFN,ON,PSJCLCOD) ;
CE ;check to see if Rx is outside the stop date + 90 days time frame
SETIN(PSJFLG,PSJPON,PSJNM,PSJCLCOD) ;
GET(PSJCON,PSJCDFN,ORDID,PSJCCODE,PSJNM,PSJCGET)
GETF55 ;get file 55 clinic info
GETF531 ;get file 53.1 clinic info
DISPCLN(PSJP,PSJCLINF) ;
DISP2 ;
EXIT ;
CLNDISP(PSJCLINF) ;
IVDISP ;
CLNORDDN(ORDINFO) ; Returns the Drug Name for a Clinic Order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP2+12
Function Call: WRITE
  • Prompt: !,$J("Clinic Order: ",23)_$$CLNORDDN(.PSJP)_" ("_STATUS_")"
  • Line Location: DISP2+13
Function Call: WRITE
  • Prompt: !,$J("Schedule: ",23),SCHEDULE
  • Line Location: DISP2+15
Function Call: WRITE
  • Prompt: !,$J("Dosage: ",23),DOSAGE
  • Line Location: DISP2+16
Function Call: WRITE
  • Prompt: !,$J("Order Date: ",23),ORDDATE
  • Line Location: DISP2+17
Function Call: WRITE
  • Prompt: !,$J($S($G(STARTDTF):"Requested Start Date: ",1:"Start Date: "),23),STARTDT
  • Line Location: DISP2+18
Function Call: WRITE
  • Prompt: !,$J("Start Date: ",23),"********"
  • Line Location: DISP2+19
Function Call: WRITE
  • Prompt: !,$J($S($G(STOPDTF):"Requested Stop Date: ",1:"Stop Date: "),23),STOPDT
  • Line Location: DISP2+20
Function Call: WRITE
  • Prompt: !,$J("Stop Date: ",23),"********"
  • Line Location: DISP2+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP2+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP2+23
Function Call: WRITE
  • Prompt: !?23,SNAM_" "_INFUSE
  • Line Location: IVDISP+17
Function Call: WRITE
  • Prompt: !,$J("Order Date: ",23),ORDDATE
  • Line Location: IVDISP+20
Function Call: WRITE
  • Prompt: !,$J($S($G(STARTDTF):"Requested Start Date: ",1:"Start Date: "),23),STARTDT
  • Line Location: IVDISP+21
Function Call: WRITE
  • Prompt: !,$J("Start Date: ",23),"********"
  • Line Location: IVDISP+22
Function Call: WRITE
  • Prompt: !,$J($S($G(STOPDTF):"Requested Stop Date: ",1:"Stop Date: "),23),STOPDT
  • Line Location: IVDISP+23
Function Call: WRITE
  • Prompt: !,$J("Stop Date: ",23),"********"
  • Line Location: IVDISP+24
Function Call: WRITE
  • Prompt: !
  • Line Location: IVDISP+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: IVDISP+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ,  GETS^DIQ
^PS(53.46 - [#53.46] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call