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

BCH1I009.m

Go to the documentation of this file. 
  1. BCH1I009 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ; 
  1.  ;;1.0;IHS RPMS CHR SYSTEM;**2**;OCT 28, 1996
  1.  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
  1. Q Q
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,15,20)
  1.  ;;=F
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,16,0)
  1.  ;;=6^Edit Assessments/POVs?^2
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,16,2)
  1.  ;;=6,38^1^6,13
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,16,3)
  1.  ;;=N
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,16,10)
  1.  ;;=I X="Y" S DDSSTACK="Page 1.4"
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,16,20)
  1.  ;;=S^^Y:YES;N:NO
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,17,0)
  1.  ;;=16^Subjective:^3
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,17,1)
  1.  ;;=5101
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,17,2)
  1.  ;;=16,17^1^16,4
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,18,0)
  1.  ;;=17^Objective^3
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,18,1)
  1.  ;;=6101
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,18,2)
  1.  ;;=16,36^1^16,25
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,19,0)
  1.  ;;=18^Plans/Treatments^3
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,19,1)
  1.  ;;=7101
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,19,2)
  1.  ;;=16,61^1^16,43
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",1,1)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",2,2)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",3,3)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",4,12)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",5,5)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",6,16)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",7,4)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",8,6)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",9,7)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",10,9)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",11,8)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",12,10)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",13,11)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",14,13)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",15,14)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",16,17)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",17,18)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",18,19)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"B",19,15)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","# SERVED",11)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","**********   E D I T   C H R   R E C O R D  D A T A   *********",1)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","ACTIVITY LOCATION",4)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","DATE OF SERVICE",2)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","EDIT ASSESSMENTS/POVS?",16)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","EDIT MEASUREMENTS/TESTS/REPROD?",15)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","EVALUATION",8)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","HOSPITAL/CLINIC NAME",6)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","INSURER",14)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","OBJECTIVE",18)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","PLANS/TREATMENTS",19)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","PROGRAM",3)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","PROVIDER",5)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","PURPOSE OF REFERRAL",13)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","REFERRED BY CHR TO",9)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","REFERRED TO CHR BY",7)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","SUBJECTIVE:",17)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","TEMP RESIDENCE",12)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",31,40,"C","TRAVEL TIME",10)
  1.  ;;=
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,0)
  1.  ;;=BCH ENTER CHRIS II RECORD DATA^90002
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,0)
  1.  ;;=^.4044I^19^18
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,1,0)
  1.  ;;=1^**********  E N T E R  C H R  R E C O R D  D A T A  **********^1^
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,1,2)
  1.  ;;=^^1,8
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,2,0)
  1.  ;;=2^DATE OF SERVICE^3
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,2,1)
  1.  ;;=.01
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,2,2)
  1.  ;;=2,18^20^2,1
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,2,4)
  1.  ;;=^^^1
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,3,0)
  1.  ;;=3^PROGRAM^3
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,3,1)
  1.  ;;=.02
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,3,2)
  1.  ;;=2,55^20^2,40
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,3,4)
  1.  ;;=^^^1
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,4,0)
  1.  ;;=7^ACT LOCATION^3
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,4,1)
  1.  ;;=.06
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,4,2)
  1.  ;;=8,16^20^8,1
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,4,4)
  1.  ;;=1
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,4,10)
  1.  ;;=S:X=4 DDSSTACK="Page 1.2"
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,5,0)
  1.  ;;=4^CHR PROVIDER^3
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,5,1)
  1.  ;;=.03
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,5,2)
  1.  ;;=3,18^20^3,1
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,5,4)
  1.  ;;=^^^1
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,7,0)
  1.  ;;=8^REF TO CHR BY^3
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,7,1)
  1.  ;;=.07
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,7,2)
  1.  ;;=9,16^8^9,1
  1.  ;;^UTILITY(U,$J,"DIST(.404,",32,40,8,0)
  1.  ;;=9^REF BY CHR TO^3