Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: APCLAPIR

APCLAPIR.m

Go to the documentation of this file. 
  1. APCLAPIR ; IHS/CMI/LAB - visit data ;
  1.  ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1.  ;
  1.  ;Documentation for each API:
  1.  ;  Input:
  1.  ;   APCLPDFN - Patient DFN
  1.  ;   APCLBD - beginning date to begin search for value - if blank, default is DOB
  1.  ;   APCLED - ending date of search - if blank, default is DT
  1.  ;
  1.  ;  Output:
  1.  ;returns the string:
  1.  ;    1 or 0^date^text of item found^value if appropriate^visit ien^File found in^ien of file found in
  1.  ; piece 1:  1 if item found, 0 if no item found in the date range
  1.  ;       2:  date of last item
  1.  ;       3:  text of item found
  1.  ;       4:  value - result
  1.  ;       5:  visit ien on which item found
  1.  ;       6:  file item found in (usually a V File #)
  1.  ;       7:  ien of V File entry found
  1.  ;       
  1. REMDEPS(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last depression screening exam
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTDEPS^APCLAPI(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMALCS(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last alcohol screening exam
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTALC^APCLAPI(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMAOF(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last assessment of function
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTAOF^APCLAPI4(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMBP(P,APCLBD,APCLED) ;PEP - called from reminders to get last BP
  1.  ;
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTITEM^APCLAPIU(APCLPDFN,"BP","MEASUREMENT",APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMBRST(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last breast exam
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTBRST^APCLAPI3(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMCHOL(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last cholesterol
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTCHOL^APCLAPI3(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMDENT(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last dental exam
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTDENT^APCLAPI2(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMGLUC(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last glucose test
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTGLUC^APCLAPI3(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMIPVS(P,APCLBD,APCLED) ;PEP - called from reminders to get data on IPV
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTIPVS^APCLAPI(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMEPSDT(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last EPSDT
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTEPS^APCLAPI3(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMFRA(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last FALL RISK ASSESSMENT exam
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTFRA^APCLAPI2(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMHC(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last HEAD CIRCUMFERENCE
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTITEM^APCLAPIU(APCLPDFN,"HC","MEASUREMENT",APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMHEAR(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last HEARING exam
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTHEAR^APCLAPI3(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMHT(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last HEIGHT
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTITEM^APCLAPIU(APCLPDFN,"HT","MEASUREMENT",APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMFLU(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last FLU SHOT
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTFLU^APCLAPI4(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMMAMM(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last MAMMOGRAM
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTMAM^APCLAPI1(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMOSTEO(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last OSTEOPOROSIS SCREENING
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTOST^APCLAPI4(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMPAP(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last PAP SMEAR
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTPAP^APCLAPI1(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMPELV(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last PELVIC EXAM
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTPELV^APCLAPI2(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMPHYS(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last PHYSICAL EXAM
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTPHYS^APCLAPI2(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMPNEU(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last PNEUMOVAX
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTPNEU^APCLAPI4(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMRECT(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last RECTAL EXAM
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTRECT^APCLAPI2(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMRUBEL(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last RUBELLA
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTRUB^APCLAPI3(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMTD(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last TD
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTTD^APCLAPI4(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMTOBS(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last TOBACCO SCREENING
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTTOBS^APCLAPI1(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMTON(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last TONOMETRY
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTTON^APCLAPI1(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMVAE(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last VISUAL ACUTIY EXAM
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTVAE^APCLAPI1(P,APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;
  1. REMWT(P,APCLBD,APCLED) ;PEP - called from reminders to get data on last WEIGHT
  1.  ;       
  1.  I '$G(P) Q 0
  1.  I $G(APCLBD)="" S APCLBD=$$DOB^AUPNPAT(P)
  1.  I $G(APCLED)="" S APCLED=DT
  1.  NEW APCLR
  1.  S APCLR=$$LASTITEM^APCLAPIU(APCLPDFN,"WT","MEASUREMENT",APCLBD,APCLED,"A")
  1.  I APCLR]"" Q 1_"^"_APCLR
  1.  Q 0
  1.  ;