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

BILETPR2.m

Go to the documentation of this file.
  1. BILETPR2 ;IHS/CMI/MWR - PRINT PATIENT LETTERS; MAY 10, 2010
  1. ;;8.5;IMMUNIZATION;;SEP 01,2011
  1. ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
  1. ;; PRINT PATIENT LETTERS.
  1. ;
  1. ;
  1. ;----------
  1. INDIVLET(BIDFN,BIRTN) ;EP
  1. ;---> Select and Print a letter for an individual patient.
  1. ;---> Steps:
  1. ; 1) This entry point is called by the Protocol:
  1. ; BI LETTER PRINT INDIVDUAL, an action on the
  1. ; Listmanager menu protocol: BI MENU PATIENT VIEW.
  1. ;
  1. ;---> Parameters:
  1. ; 1 - BIDFN (req) Patient's IEN in VA PATIENT File #2.
  1. ; 2 - BIRTN (opt) Calling routine for reset.
  1. ;
  1. I '$G(BIDFN) D ERRCD^BIUTL2(201,,1) S VALMBCK="R" Q
  1. S:'$G(BIFDT) BIFDT=DT
  1. ;
  1. D
  1. .D FULL^VALM1 S BIPOP=0
  1. .D TITLE^BIUTL5("LETTER SELECTION")
  1. .D ASKLET^BILETPR(.BILET,.BIDLOC,.BIPOP) Q:BIPOP
  1. .D DEVICE^BILETPR Q:BIPOP
  1. .D PRINT^BILETPR(BIDFN,BILET,$G(BIDLOC),ION,BIFDT)
  1. .D ^%ZISC
  1. ;
  1. Q:$G(BIRTN)=""
  1. S VALMBCK="R"
  1. D @("RESET^"_BIRTN)
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. PATLETS ;EP
  1. ;---> Lookup patients, select and print letters.
  1. ;
  1. D SETVARS^BIUTL5 N BIDFN,BIFDT
  1. F D Q:$G(BIDFN)<1
  1. .D TITLE^BIUTL5("PRINT INDIVIDUAL PATIENT LETTERS")
  1. .D PATLKUP^BIUTL8(.BIDFN)
  1. .Q:$G(BIDFN)<1
  1. .D INDIVLET(BIDFN)
  1. .D UNLOCK^BIPATVW($G(BIDFN))
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. OFFICIAL(BIDFN,BIRTN) ;EP
  1. ;---> Print Official Immunization Record for a patient.
  1. ;---> Steps:
  1. ; 1) This entry point is called by the Protocol:
  1. ; BI LETTER PRINT INDIVDUAL, an action on the
  1. ; Listmanager menu protocol: BI MENU PATIENT VIEW.
  1. ;
  1. ;---> Parameters:
  1. ; 1 - BIDFN (req) Patient's IEN in VA PATIENT File #2.
  1. ; 2 - BIRTN (opt) Calling routine for reset.
  1. ;
  1. ;---> Required Variable:
  1. ; 1 - DUZ(2) (req) User's Site IEN.
  1. ;
  1. D
  1. .D FULL^VALM1 S BIPOP=0
  1. .I '$G(BIDFN) D ERRCD^BIUTL2(201,,1) Q
  1. .N BILET S BILET=$$DEFLET^BIUTL2(DUZ(2),,1)
  1. .I 'BILET D ERRCD^BIUTL2(113,,1) Q
  1. .I '$D(^BILET(BILET,0)) D Q
  1. ..N DA,DIE S DIE="^BISITE(",DA=DUZ(2),DR=".13////@" D ^DIE
  1. ..D ERRCD^BIUTL2(114,,1)
  1. .;
  1. .D DEVICE^BILETPR Q:BIPOP
  1. .D PRINT^BILETPR(BIDFN,BILET,,ION,$G(DT))
  1. .D ^%ZISC
  1. ;
  1. I $G(BIRTN)]"" S VALMBCK="R" D @("RESET^"_BIRTN)
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. DATELOC(BILET,BILINE,BIDLOC) ;EP
  1. ;---> Store Date/Location line in WP ^TMP global.
  1. ;---> Parameters:
  1. ; 1 - BILET (req) IEN of Letter in BI LETTER File.
  1. ; 2 - BILINE (ret) Last line written into ^TMP array.
  1. ; 3 - BIDLOC (req) Text of Date/Location line.
  1. ;
  1. ;---> Quit if this Form Letter does not included a Date/Loc line.
  1. Q:'$P(^BILET(BILET,0),U,4)
  1. S:$G(BIDLOC)="" BIDLOC=" Date/Location line not provided."
  1. D WRITE^BILETPR1(.BILINE),WRITE^BILETPR1(.BILINE," "_BIDLOC),WRITE^BILETPR1(.BILINE)
  1. Q